(15-05-2026, Saat: 00:35)CesuR Adlı Kullanıcıdan Alıntı: VCL uygulamalarda speedbutton gibi bileşenlerin neden propertisinde color rengi yok anlamış değilim. Formdaki nesnelerin renklerini Delphi 7 de ne güzel basitçe değiştirebiliyorduk.  Rad Studio ise style desinger koymuş resmen ayrı bir dil oda. Arkadaş kolaylık yapacaklarına zorluk çıkarmışlar resmen..

(16-05-2026, Saat: 05:53)emailx45 Adlı Kullanıcıdan Alıntı:

(15-05-2026, Saat: 00:35)CesuR Adlı Kullanıcıdan Alıntı: VCL uygulamalarda speedbutton gibi bileşenlerin neden propertisinde color rengi yok anlamış değilim. Formdaki nesnelerin renklerini Delphi 7 de ne güzel basitçe değiştirebiliyorduk.  Rad Studio ise style desinger koymuş resmen ayrı bir dil oda. Arkadaş kolaylık yapacaklarına zorluk çıkarmışlar resmen..

1) VCL kontrolleri tamamen MSWindows işletim sistemi kontrollerine dayanır, bu nedenle varsayılan olarak Object Pascal (Delphi) nesneleri değil, yalnızca orijinal işletim sistemi kontrollerini paketleyen bir "sarmalayıcı"dır. Stiller ve diğer "tuval" özellikleri kısıtlanmadığı ve serbestçe kullanılabildiği Delphi'de oluşturulan kontrollerin aksine.

2) Varsayılan olarak, Delphi sistemin stilini yakalamaya ve bunu kendi avantajına kullanmaya çalışır, ancak yerel MSWindows kontrolleri için son söz genellikle MSWindows'a aittir ve kullanıcının ekranında efekt ve renk "karnavalı" oluşturmaktan kaçınmak için kuralları katıdır.

3) Bununla birlikte, tüm TControl'ler için, temelde kontrolleri yeniden oluşturmanız veya Delphi temel sınıfında özel bir teknik kullanarak ortak davranışını yakalamanız veya değiştirmeniz gerekir.

4) Bunu yapmanın daha kolay bir yolu, örneğin TButton gibi standart sınıfa dayalı yeni bir sınıf (veya bileşen) oluşturmak ve bileşen penceresinin işletim sisteminden almayı beklediği yöntemleri veya mesajları değiştirmektir. Bu şekilde, bileşenin veya nesnenin davranışını değiştirebilirsiniz. Ancak, bunun kolay olmadığını hatırlatmalıyım, çünkü bileşene her zaman düzinelerce veya yüzlerce mesaj geliyor ve son olarak, Delphi stil yöneticisi, MSWindows, Linux, Android, macOS vb. işletim sisteminin dayattığı kurallara uymaya çalışıyor...

5) TButton'larla ilgili sorununuzu çözmek için, aşağıdaki gibi bazı yöntemlerin davranışını düzenleyebilir veya değiştirebilirsiniz:

private
{ Mesaj Kesicileri }

  private
    { Interceptadores de Mensagem }
    procedure CNDrawItem( var Message: TWMDrawItem ); message CN_DRAWITEM;
    procedure WMEraseBkgnd( var Message: TWMEraseBkgnd ); message WM_ERASEBKGND;
    procedure CMMouseEnter( var Message: TMessage ); message CM_MOUSEENTER;
    procedure CMMouseLeave( var Message: TMessage ); message CM_MOUSELEAVE;
    procedure WMSize( var Message: TWMSize ); message WM_SIZE;


korumalı
procedure CreateParams( var Params: TCreateParams ); override;
procedure SetButtonStyle( ADefault: Boolean ); override;

6) Bu şekilde, SetButtonStyle(...) yöntemini "sessize" edebilirsiniz, yani sınıftaki temel işlevi olmadan: düğmeyi biçimlendirmek!!!

7) Düğmenin tuvaline kendi stilinizi çizmek için yapabileceğiniz bir şey şöyledir. Başlangıçta, düğmeyi şu parametrelerle oluşturursunuz:

{ Win32 Mesajları }

procedure TBlueButton.CreateParams( var Params: TCreateParams );
begin
  inherited CreateParams( Params );
  Params.Style := Params.Style or BS_OWNERDRAW;
end;


procedure TBlueButton.SetButtonStyle( ADefault: Boolean );
begin
  // VCL'yi sessize alır
end;

8) Şimdi, düğmeyi istediğiniz gibi biçimlendirmek için yukarıdaki diğer yöntemleri kullanabilirsiniz: renk, kenarlıklar vb...

9) Örneğe bakın:

---

implementation

{$R *.dfm}

var
 LWidth : integer;
 LHeight: integer;
 FMeuBotaoAzul: TBlueButton;  // TBlueButton = class(TButton );  // .... changed using the "methods above" and much code for this ...

procedure TForm1.btnAumentarClick( Sender: TObject );
begin
 FMeuBotaoAzul.Width  := FMeuBotaoAzul.Width + LWidth;
 FMeuBotaoAzul.Height := FMeuBotaoAzul.Height + LHeight;
end;

procedure TForm1.btnDiminuirClick( Sender: TObject );
begin
 FMeuBotaoAzul.Width  := FMeuBotaoAzul.Width - LWidth;
 FMeuBotaoAzul.Height := FMeuBotaoAzul.Height - LHeight;
end;

procedure TForm1.btnHorizontAlignmentClick( Sender: TObject );
const
 C_Horizontal: array [ 0 .. 2 ] of TAlignment = ( TAlignment.taLeftJustify, TAlignment.taCenter, TAlignment.taRightJustify );
begin
 FMeuBotaoAzul.TextAlign := TAlignment( random( 3 ) );
end;

procedure TForm1.btnUse3DClick( Sender: TObject );
const
 C_Use3D: array [ boolean ] of TButtonLayoutOption = ( blFlat, bl3D );
begin
 FMeuBotaoAzul.ButtonLayout := TButtonLayoutOption( boolean( random( 2 ) ) );
end;

procedure TForm1.btnVerticalAligmentClick( Sender: TObject );
const
 C_Horizontal: array [ 0 .. 2 ] of TTextLayout = ( TTextLayout.tlTop, TTextLayout.tlCenter, TTextLayout.tlBottom );
begin
 FMeuBotaoAzul.TextLayout := TTextLayout( random( 3 ) );
end;

procedure TForm1.Button1Click( Sender: TObject );
begin
 FMeuBotaoAzul.Enabled := not FMeuBotaoAzul.Enabled;
end;

{ TButton }

procedure TForm1.FormCreate( Sender: TObject );
begin
 // StyleHook'u eklenmiş olan düğmemizi oluşturuyoruz.
 FMeuBotaoAzul        := TBlueButton.Create( Self );
 FMeuBotaoAzul.Parent := Self;                // Formun oluşturma ağacına ekler
 FMeuBotaoAzul.SetBounds( 400, 50, 200, 50 ); Konumlandırma
 FMeuBotaoAzul.Caption    := 'Processar Dados';
 FMeuBotaoAzul.Font.Size  := 14;
 FMeuBotaoAzul.Font.Style := [ fsBold ];
 FMeuBotaoAzul.OnClick    := MeuBotaoClick;
 //
 // ---> Yeni Hizalama Özellikleri <---
 FMeuBotaoAzul.TextAlign  := taLeftJustify; // taLeftJustify, taCenter, taRightJustify
 FMeuBotaoAzul.TextLayout := tlCenter;      // tlTop, tlCenter, tlBottom
 //
 FMeuBotaoAzul.DisabledImages     := ImageList1;
 FMeuBotaoAzul.DisabledImageIndex := 1;
 FMeuBotaoAzul.Images             := ImageList1;
 FMeuBotaoAzul.ImageIndex         := 5;
 //
 // Renk paletini Yeşil Düğme olarak değiştirir
 FMeuBotaoAzul.ColorNormal       := clGreen;
 FMeuBotaoAzul.ColorBorderNormal := clOlive;

 FMeuBotaoAzul.ColorHot       := RGB( 0, 180, 0 ); Fareyle üzerine gelindiğinde açık yeşil renk
 FMeuBotaoAzul.ColorBorderHot := clGreen;

 FMeuBotaoAzul.ColorPressed       := RGB( 0, 80, 0 ); Koyu Yeşil (Tıkla)
 FMeuBotaoAzul.ColorBorderPressed := RGB( 0, 50, 0 );
 //
 Klasik 3D görünümü etkinleştirin!
 FMeuBotaoAzul.ButtonLayout := bl3D;
 //
 LWidth  := Trunc( FMeuBotaoAzul.Width * 0.10 );
 LHeight := Trunc( FMeuBotaoAzul.Height * 0.10 );
 //
end;

procedure TForm1.MeuBotaoClick( Sender: TObject );
begin
 ShowMessage( 'Mavi renkli kanca kancayı yakaladı ve mükemmel çalıştı!' );
end;

---

{ Opções de Estilo Visual (Design) }
 TButtonLayoutOption = ( blFlat, bl3D );

 TBlueButton = class( TButton )
 private
   FMouseInControl     : Boolean;
   FProportionsCaptured: Boolean;
   FBaseBtnWidth       : Integer;
   FBaseBtnHeight      : Integer;

   { Alinhamento }
   FTextAlign : TAlignment;
   FTextLayout: TTextLayout;

   { Estilo Visual }
   FButtonLayout: TButtonLayoutOption;

   { Cores: Estado Normal }
   FColorNormal      : TColor;
   FColorBorderNormal: TColor;
   FColorTextNormal  : TColor;

   { Cores: Estado Hover (Mouse Over) }
   FColorHot      : TColor;
   FColorBorderHot: TColor;
   FColorTextHot  : TColor;

   { Cores: Estado Pressionado (Click) }
   FColorPressed      : TColor;
   FColorBorderPressed: TColor;
   FColorTextPressed  : TColor;

   { Cores: Estado Desabilitado }
   FColorDisabled      : TColor;
   FColorBorderDisabled: TColor;
   FColorTextDisabled  : TColor;

   procedure SetTextAlign( const Value: TAlignment );
   procedure SetTextLayout( const Value: TTextLayout );
   procedure SetButtonLayout( const Value: TButtonLayoutOption );

   { Setters de Cores }
   procedure SetColorNormal( const Value: TColor );
   procedure SetColorBorderNormal( const Value: TColor );
   procedure SetColorTextNormal( const Value: TColor );
   procedure SetColorHot( const Value: TColor );
   procedure SetColorBorderHot( const Value: TColor );
   procedure SetColorTextHot( const Value: TColor );
   procedure SetColorPressed( const Value: TColor );
   procedure SetColorBorderPressed( const Value: TColor );
   procedure SetColorTextPressed( const Value: TColor );
   procedure SetColorDisabled( const Value: TColor );
   procedure SetColorBorderDisabled( const Value: TColor );
   procedure SetColorTextDisabled( const Value: TColor );

   { Interceptadores de Mensagem }
   procedure CNDrawItem( var Message: TWMDrawItem ); message CN_DRAWITEM;
   procedure WMEraseBkgnd( var Message: TWMEraseBkgnd ); message WM_ERASEBKGND;
   procedure CMMouseEnter( var Message: TMessage ); message CM_MOUSEENTER;
   procedure CMMouseLeave( var Message: TMessage ); message CM_MOUSELEAVE;
   procedure WMSize( var Message: TWMSize ); message WM_SIZE;

 protected
   procedure CreateParams( var Params: TCreateParams ); override;
   procedure SetButtonStyle( ADefault: Boolean ); override;

 public
   constructor Create( AOwner: TComponent ); override;

 published
   { Propriedade de Estilo Visual }
   property  ButtonLayout: TButtonLayoutOption
     read    FButtonLayout
     write   SetButtonLayout
     default blFlat;

   { Propriedades de Alinhamento }
   property  TextAlign: TAlignment
     read    FTextAlign
     write   SetTextAlign
     default taLeftJustify;
   property  TextLayout: TTextLayout
     read    FTextLayout
     write   SetTextLayout
     default tlCenter;

   { Propriedades de Cores }
   property ColorNormal: TColor
     read   FColorNormal
     write  SetColorNormal;
   property ColorBorderNormal: TColor
     read   FColorBorderNormal
     write  SetColorBorderNormal;
   property ColorTextNormal: TColor
     read   FColorTextNormal
     write  SetColorTextNormal;
   property ColorHot: TColor
     read   FColorHot
     write  SetColorHot;
   property ColorBorderHot: TColor
     read   FColorBorderHot
     write  SetColorBorderHot;
   property ColorTextHot: TColor
     read   FColorTextHot
     write  SetColorTextHot;
   property ColorPressed: TColor
     read   FColorPressed
     write  SetColorPressed;
   property ColorBorderPressed: TColor
     read   FColorBorderPressed
     write  SetColorBorderPressed;
   property ColorTextPressed: TColor
     read   FColorTextPressed
     write  SetColorTextPressed;
   property ColorDisabled: TColor
     read   FColorDisabled
     write  SetColorDisabled;
   property ColorBorderDisabled: TColor
     read   FColorBorderDisabled
     write  SetColorBorderDisabled;
   property ColorTextDisabled: TColor
     read   FColorTextDisabled
     write  SetColorTextDisabled;
 end;