Delphi как изменить цвет кнопки

Как наверное и все новички когда-то, я просто хотел сделать калькулятор. Ну и уже заранее подумал, как бы сделать его красивее. Спасибо всем, опробую на выходных ваши советы.

Кстати, вот такой код нашел в интернете, якобы делает кнопку (в примере — желтого цвета). Если нужен кому, посмотрите.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69

//пример использования
procedure TForm1.FormCreate(Sender: TObject);
var
   NewButton   : TColoredButton;
begin
   NewButton:=TColoredButton.Create(Self);
   NewButton.Parent:=Panel4;
   NewButton.Color:=clYellow;
   NewButton.Caption:='Colored';
end;
 
//и сам класс
type
   TColoredButton=class(TButton)
   private
      FCanvas  : TControlCanvas;
      FColor: TColor;
 
      procedure SetColor(const Value: TColor);
 
      procedure Draw();
      procedure WMPaint(var Message: TWMPaint); message WM_PAINT;
   public
      constructor Create(AOwner: TComponent); override;
      destructor Destroy; override;
   published
      property Color: TColor read FColor write SetColor;
   end;
//-----------------------
constructor TColoredButton.Create(AOwner: TComponent);
begin
   inherited;
 
   FColor:=clBtnFace;
 
   FCanvas:=TControlCanvas.Create();
   FCanvas.Control:=Self;
end;
//-----------------------
destructor TColoredButton.Destroy();
begin
   FCanvas.Free();
   inherited;
end;
//-----------------------
procedure TColoredButton.SetColor(const Value: TColor);
begin
   FColor := Value;
   Invalidate();
end;
//-----------------------
procedure TColoredButton.Draw();
begin
   FCanvas.Brush.Color:=FColor;
   FCanvas.Brush.Style:=bsSolid;
   FCanvas.FillRect(Rect(2,2,Width-3,Height-3));
 
   FCanvas.Pen.Color:=clBlack;
   FCanvas.TextOut((Width-FCanvas.TextWidth(Caption)) div 2,
                   (Height-FCanvas.TextHeight(Caption)) div 2,
                   Caption);
end;
//-----------------------
procedure TColoredButton.WMPaint(var Message: TWMPaint);
begin
   inherited;
 
   Draw();
end;

Не знаю, работает ли, но сразу бросилось в глаза вот это:

1
2

var
   NewButton   : TColoredButton;

Переменной дают тип TColoredButton, такого явно нет, компилятор тоже ругается.

← →
Vetal ©
 
(2005-01-13 12:39)
[0]

← →
ЮЮ ©
 
(2005-01-13 12:41)
[1]

Изменить оформление Windows. TButton в Delphi — это родная кнопка Windos — а они во всей системе одного цвета.

← →
Neznaika ©
 
(2005-01-13 12:42)
[2]

TButton не изменишь!
Используй BitBtn или другие компоненты…

← →
Vetal ©
 
(2005-01-13 12:54)
[3]

← →
TButton ©
 
(2005-01-13 12:55)
[4]

> TButton не изменишь!

точно =)

← →
Семен Сорокин ©
 
(2005-01-13 13:02)
[5]

← →
TUser ©
 
(2005-01-13 13:15)
[6]

> TButton в Delphi — это родная кнопка Windos — а они во всей
> системе одного цвета
И тем не менее есть компоненты, которые изменяют стиль оформления программы, в т.ч. и цвет TButton»ов.

← →
Vetal ©
 
(2005-01-13 13:23)
[7]

Так а как все-таки изменить цвет TBitBtn?

← →
Neznaika ©
 
(2005-01-13 13:24)
[8]

← →
Vetal ©
 
(2005-01-13 13:31)
[9]

Через свойство Glyph что ли?
Так по краям будет серенькое все…

← →
Neznaika ©
 
(2005-01-13 13:38)
[10]

Vetal по-моему там все это регулируется, сейчас уже не помню как но у меня это получалось.

← →
WhiteGuy ©
 
(2005-01-13 13:42)
[11]

Vetal,зайди на torry.net — там есть такие компоненты!! типa RbControls[RbButton]

← →
Vetal ©
 
(2005-01-13 13:53)
[12]

Короче, сделал TPanel, заполнял его цвет… А по клину менял стиль с Uppered на Lowered и наоборот…

{

You cannot change the color of a standard TButton,

since the windows button control always paints itself with the

button color defined in the control panel.

But you can derive derive a new component from TButton and handle

the and drawing behaviour there.

}

unit ColorButton;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls, Buttons, ExtCtrls;

type

TDrawButtonEvent = procedure(Control: TWinControl;

   Rect: TRect; State: TOwnerDrawState) of object;

TColorButton = class(TButton)

private

   FCanvas: TCanvas;

   IsFocused: Boolean;

   FOnDrawButton: TDrawButtonEvent;

protected

   procedure CreateParams(var Params: TCreateParams); override;

   procedure SetButtonStyle(ADefault: Boolean); override;

   procedure CMEnabledChanged(var Message: TMessage); message CM_ENABLEDCHANGED;

   procedure CMFontChanged(var Message: TMessage); message CM_FONTCHANGED;

   procedure CNMeasureItem(var Message: TWMMeasureItem); message CN_MEASUREITEM;

   procedure CNDrawItem(var Message: TWMDrawItem); message CN_DRAWITEM;

   procedure WMLButtonDblClk(var Message: TWMLButtonDblClk); message WM_LBUTTONDBLCLK;

   procedure DrawButton(Rect: TRect; State: UINT);

public

   constructor Create(AOwner: TComponent); override;

   destructor Destroy; override;

   property Canvas: TCanvas read FCanvas;

published

   property OnDrawButton: TDrawButtonEvent read FOnDrawButton write FOnDrawButton;

   property Color;

end;

procedure Register;

implementation

procedure Register;

begin

RegisterComponents(‘Samples’, [TColorButton]);

end;

constructor TColorButton.Create(AOwner: TComponent);

begin

inherited Create(AOwner);

FCanvas := TCanvas.Create;

end;

destructor TColorButton.Destroy;

begin

inherited Destroy;

FCanvas.Free;

end;

procedure TColorButton.CreateParams(var Params: TCreateParams);

begin

inherited CreateParams(Params);

with Params do Style := Style or BS_OWNERDRAW;

end;

procedure TColorButton.SetButtonStyle(ADefault: Boolean);

begin

if ADefault <> IsFocused then

begin

   IsFocused := ADefault;

   Refresh;

end;

end;

procedure TColorButton.CNMeasureItem(var Message: TWMMeasureItem);

begin

with Message.MeasureItemStruct^ do

begin

   itemWidth  := Width;

   itemHeight := Height;

end;

end;

procedure TColorButton.CNDrawItem(var Message: TWMDrawItem);

var

SaveIndex: Integer;

begin

with Message.DrawItemStruct^ do

begin

   SaveIndex := SaveDC(hDC);

   FCanvas.Lock;

   try

     FCanvas.Handle := hDC;

     FCanvas.Font := Font;

     FCanvas.Brush := Brush;

     DrawButton(rcItem, itemState);

   finally

     FCanvas.Handle := 0;

     FCanvas.Unlock;

     RestoreDC(hDC, SaveIndex);

   end;

end;

Message.Result := 1;

end;

procedure TColorButton.CMEnabledChanged(var Message: TMessage);

begin

inherited;

Invalidate;

end;

procedure TColorButton.CMFontChanged(var Message: TMessage);

begin

inherited;

Invalidate;

end;

procedure TColorButton.WMLButtonDblClk(var Message: TWMLButtonDblClk);

begin

Perform(WM_LBUTTONDOWN, Message.Keys, Longint(Message.Pos));

end;

procedure TColorButton.DrawButton(Rect: TRect; State: UINT);

var

Flags, OldMode: Longint;

IsDown, IsDefault, IsDisabled: Boolean;

OldColor: TColor;

OrgRect: TRect;

begin

OrgRect := Rect;

Flags := DFCS_BUTTONPUSH or DFCS_ADJUSTRECT;

IsDown := State and ODS_SELECTED <> 0;

IsDefault := State and ODS_FOCUS <> 0;

IsDisabled := State and ODS_DISABLED <> 0;

if IsDown then Flags := Flags or DFCS_PUSHED;

if IsDisabled then Flags := Flags or DFCS_INACTIVE;

if IsFocused or IsDefault then

begin

   FCanvas.Pen.Color := clWindowFrame;

   FCanvas.Pen.Width := 1;

   FCanvas.Brush.Style := bsClear;

   FCanvas.Rectangle(Rect.Left, Rect.Top, Rect.Right, Rect.Bottom);

   InflateRect(Rect, — 1, — 1);

end;

if IsDown then

begin

   FCanvas.Pen.Color := clBtnShadow;

   FCanvas.Pen.Width := 1;

   FCanvas.Brush.Color := clBtnFace;

   FCanvas.Rectangle(Rect.Left, Rect.Top, Rect.Right, Rect.Bottom);

   InflateRect(Rect, — 1, — 1);

end

else

   DrawFrameControl(FCanvas.Handle, Rect, DFC_BUTTON, Flags);

if IsDown then OffsetRect(Rect, 1, 1);

OldColor := FCanvas.Brush.Color;

FCanvas.Brush.Color := Color;

FCanvas.FillRect(Rect);

FCanvas.Brush.Color := OldColor;

OldMode := SetBkMode(FCanvas.Handle, TRANSPARENT);

FCanvas.Font.Color := clBtnText;

if IsDisabled then

   DrawState(FCanvas.Handle, FCanvas.Brush.Handle, nil, Integer(Caption), 0,

   ((Rect.Right — Rect.Left) — FCanvas.TextWidth(Caption)) div 2,

   ((Rect.Bottom — Rect.Top) — FCanvas.TextHeight(Caption)) div 2,

     0, 0, DST_TEXT or DSS_DISABLED)

else

   DrawText(FCanvas.Handle, PChar(Caption), — 1, Rect,

     DT_SINGLELINE or DT_CENTER or DT_VCENTER);

SetBkMode(FCanvas.Handle, OldMode);

if Assigned(FOnDrawButton) then

   FOnDrawButton(Self, Rect, TOwnerDrawState(LongRec(State).Lo));

if IsFocused and IsDefault then

begin

   Rect := OrgRect;

   InflateRect(Rect, — 4, — 4);

   FCanvas.Pen.Color := clWindowFrame;

   FCanvas.Brush.Color := clBtnFace;

   DrawFocusRect(FCanvas.Handle, Rect);

end;

end;

end.