Перейти к содержанию
Fire Monkey от А до Я

mmover

Пользователи
 Профиль  Обзор контента

  • Постов

    26

  • Зарегистрирован

  • Посещение

  • Победитель дней

    6

Активность репутации

  1. Thanks
    Шамсуддин
    mmover получил реакцию от Шамсуддин в Где вызываются обработчики событий мыши в TControl?   
    см. FMX.Forms

  2. Like
    Ingalime
    mmover получил реакцию от Ingalime в Прозрачность TImage's, наложение...   
    Не совсем понятно что именно нужно. Если просто установить прозрачность для TImage, то у него есть свойство
    Opacity. Если необходимо работать именно с Bitmap, то можно попробовать так:
      ...
      M.SetPixel(x, y, PremultiplyAlpha(CurrentPixelColor));
     
  3. Like
    pic service
    mmover получил реакцию от pic service в Прозрачность TImage's, наложение...   
    Не совсем понятно что именно нужно. Если просто установить прозрачность для TImage, то у него есть свойство
    Opacity. Если необходимо работать именно с Bitmap, то можно попробовать так:
      ...
      M.SetPixel(x, y, PremultiplyAlpha(CurrentPixelColor));
     
  4. Like
    Barbanel
    mmover получил реакцию от Barbanel в Рамка вокруг объекта/текста/изображения   
    TSelection?
  5. Like
    Ingalime
    mmover получил реакцию от Ingalime в ClientWidth и ClientHeight   
    cw :=  Grid1.Content.Width;
     ch :=  Grid1.Content.Height;
     
  6. Like
    Евгений Корепов
    mmover получил реакцию от Евгений Корепов в ClientWidth и ClientHeight   
    cw :=  Grid1.Content.Width;
     ch :=  Grid1.Content.Height;
     
  7. Like
    Паршенко Виктор
    mmover получил реакцию от Паршенко Виктор в ClientWidth и ClientHeight   
    cw :=  Grid1.Content.Width;
     ch :=  Grid1.Content.Height;
     
  8. Like
    Евгений Корепов
    mmover получил реакцию от Евгений Корепов в Как перерисовать скролл?   
    Если я правильно понял задачу, то так :
    procedure TForm2.VScrollPaint(Sender: TObject; Canvas: TCanvas; const ARect: TRectF); begin Canvas.Fill.Color := TAlphaColors.Red; Canvas.FillRect(ARect,0,0,[],1); end; procedure TForm2.FormShow(Sender: TObject); begin Grid1.StylesData['vscrollbar.OnPaint'] := TValue.From<TOnPaintEvent>(VScrollPaint); end;  
  9. Thanks
    Дмитрий Белковский
    mmover получил реакцию от Дмитрий Белковский в Как перерисовать скролл?   
    Если я правильно понял задачу, то так :
    procedure TForm2.VScrollPaint(Sender: TObject; Canvas: TCanvas; const ARect: TRectF); begin Canvas.Fill.Color := TAlphaColors.Red; Canvas.FillRect(ARect,0,0,[],1); end; procedure TForm2.FormShow(Sender: TObject); begin Grid1.StylesData['vscrollbar.OnPaint'] := TValue.From<TOnPaintEvent>(VScrollPaint); end;  
  10. Like
    dnekrasov
    mmover получил реакцию от dnekrasov в Как отловить изменение положения контрола   
    Можно перехватить событие изменения позиции. Только обязательно нужно сохранить предыдущий обработчик для его принудительного вызова.
    Вот грубый пример  :
    var SavePositionOnChange : TNotifyEvent; procedure TForm2.FormShow(Sender: TObject); begin SavePositionOnChange := Button4.Position.OnChange ; Button4.Position.OnChange := ButtonPositionChange; end; procedure TForm2.ButtonPositionChange(Sender: TObject); begin { делаем что нужно .... } if Assigned(SavePositionOnChange) then SavePositionOnChange(Sender) end;  
  11. Like
    Yarpda
    mmover получил реакцию от Yarpda в Компонент для отображения текста с форматированием или HTML   
    Судя по картинкам, вот эта библиотека умеет : https://github.com/Zeus64/alcinoe
  12. Like
    ENERGY
    mmover получил реакцию от ENERGY в HueTrackBar   
    procedure TForm2.HueTrackBar1Change(Sender: TObject);
    begin
      Rectangle1.Fill.Color := HSLtoRGB(HueTrackBar1.Value,1,0.5);
    end;
     
  13. Thanks
    Sergiy_83
    mmover получил реакцию от Sergiy_83 в HueTrackBar   
    procedure TForm2.HueTrackBar1Change(Sender: TObject);
    begin
      Rectangle1.Fill.Color := HSLtoRGB(HueTrackBar1.Value,1,0.5);
    end;
     
  14. Like
    Kitty
    mmover получил реакцию от Kitty в HueTrackBar   
    procedure TForm2.HueTrackBar1Change(Sender: TObject);
    begin
      Rectangle1.Fill.Color := HSLtoRGB(HueTrackBar1.Value,1,0.5);
    end;
     
  15. Like
    Barbanel
    mmover получил реакцию от Barbanel в HueTrackBar   
    procedure TForm2.HueTrackBar1Change(Sender: TObject);
    begin
      Rectangle1.Fill.Color := HSLtoRGB(HueTrackBar1.Value,1,0.5);
    end;
     
  16. Like
    Ingalime
    mmover получил реакцию от Ingalime в ListBox1.ScrollToItem(Item);   
    Попробуйте так :
    procedure TForm1.Process;
    Const
       N=100;
    var
      I,Index:Integer;
      Item:TListBoxItem;
    begin
    for I := 1 to N do
        begin
        Item:=TListBoxItem.Create(ListBox1);
        Item.Text:=IntToStr(I);
        ListBox1.AddObject(Item);
        end;
        ListBox1.ApplyStyleLookup; // (создаст ContentLayout)
        ListBox1.ScrollToItem(Item);
    end;
  17. Like
    hippocamus
    mmover получил реакцию от hippocamus в Как поменять шрифт свёрнутого TComboBox?   
    Меняется с помощью стиля. Например:
    procedure TForm2.Button1Click(Sender: TObject);
    begin
      ComboBox1.ListBox.DefaultItemStyles.ItemStyle :=  'ListBoxItemMyStyle' ;
      ComboBox1.NeedStyleLookup;
    end;
     
  18. Like
    Ingalime
    mmover получил реакцию от Ingalime в Как поменять шрифт свёрнутого TComboBox?   
    Меняется с помощью стиля. Например:
    procedure TForm2.Button1Click(Sender: TObject);
    begin
      ComboBox1.ListBox.DefaultItemStyles.ItemStyle :=  'ListBoxItemMyStyle' ;
      ComboBox1.NeedStyleLookup;
    end;
     
  19. Like
    dnekrasov
    mmover получил реакцию от dnekrasov в Как поменять шрифт свёрнутого TComboBox?   
    Меняется с помощью стиля. Например:
    procedure TForm2.Button1Click(Sender: TObject);
    begin
      ComboBox1.ListBox.DefaultItemStyles.ItemStyle :=  'ListBoxItemMyStyle' ;
      ComboBox1.NeedStyleLookup;
    end;
     
  20. Like
    Вольдемар
    mmover получил реакцию от Вольдемар в Memory TreeView   
    Самое простое : https://github.com/davidberneda/GenericTree
    Сам не пробовал, но давно использую похожую конструкцию.
  21. Like
    RoschinSpb
    mmover получил реакцию от RoschinSpb в TTextSettings неразвёртвовается   
    Примерно так:
    interface uses System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics; type TMyLabel = class(TControl) private FFontTextSettingInfo: TTextSettingsInfo; function GetTextSettings: TTextSettings; procedure SetTextSettings(const Value: TTextSettings); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; published property LabelFont: TTextSettings read GetTextSettings write SetTextSettings; end; implementation type TMyTextSettings = class (TTextSettingsInfo.TCustomTextSettings) public constructor Create(const AOwner: TPersistent); override; published property Font; property FontColor; property HorzAlign; property VertAlign; // можно убрать ненужные свойства // property WordWrap default True; // property Trimming default TTextTrimming.Character; end; constructor TMyTextSettings.Create(const AOwner: TPersistent); begin inherited; WordWrap := False; Trimming := TTextTrimming.Character; end; constructor TMyLabel.Create(AOwner: TComponent); begin inherited Create(AOwner); FFontTextSettingInfo := TTextSettingsInfo.Create(Self,TMyTextSettings); // FFontTextSettingInfo.TextSettings.FontColor := TAlphaColors.Black; // FFontTextSettingInfo.TextSettings.OnChanged := FontChanged; end; destructor TMyLabel.Destroy; begin FFontTextSettingInfo.Free; inherited Destroy; end; function TMyLabel.GetTextSettings: TTextSettings; begin Result := FFontTextSettingInfo.TextSettings; end; procedure TMyLabel.SetTextSettings(const Value: TTextSettings); begin FFontTextSettingInfo.TextSettings.Assign(Value); end; end.  
  22. Like
    Равиль Зарипов (ZuBy)
    mmover получил реакцию от Равиль Зарипов (ZuBy) в TTextSettings неразвёртвовается   
    Примерно так:
    interface uses System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics; type TMyLabel = class(TControl) private FFontTextSettingInfo: TTextSettingsInfo; function GetTextSettings: TTextSettings; procedure SetTextSettings(const Value: TTextSettings); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; published property LabelFont: TTextSettings read GetTextSettings write SetTextSettings; end; implementation type TMyTextSettings = class (TTextSettingsInfo.TCustomTextSettings) public constructor Create(const AOwner: TPersistent); override; published property Font; property FontColor; property HorzAlign; property VertAlign; // можно убрать ненужные свойства // property WordWrap default True; // property Trimming default TTextTrimming.Character; end; constructor TMyTextSettings.Create(const AOwner: TPersistent); begin inherited; WordWrap := False; Trimming := TTextTrimming.Character; end; constructor TMyLabel.Create(AOwner: TComponent); begin inherited Create(AOwner); FFontTextSettingInfo := TTextSettingsInfo.Create(Self,TMyTextSettings); // FFontTextSettingInfo.TextSettings.FontColor := TAlphaColors.Black; // FFontTextSettingInfo.TextSettings.OnChanged := FontChanged; end; destructor TMyLabel.Destroy; begin FFontTextSettingInfo.Free; inherited Destroy; end; function TMyLabel.GetTextSettings: TTextSettings; begin Result := FFontTextSettingInfo.TextSettings; end; procedure TMyLabel.SetTextSettings(const Value: TTextSettings); begin FFontTextSettingInfo.TextSettings.Assign(Value); end; end.  
×
×
  • Создать...