Цвет кнопки

[Лёка]

Класс! А как начать компонет делать и как потом его добавить в delphi?

[BOBAH13]

Я вам компонент уже дал! а зарегистрировать в дельфи... почитайте в интернете про процедуру Register и RegisterComponent (s)

[Лёка]

Лучше завтро пойду еще одну книжку куплю, про то как компоненты клацать, а то ничего не понимаю. Пробовал писать по книжке combobox, который загржул в себя список принтеров. Дело интересное, тем более после такой эфекнтной кнопки))

[Fekrado]

Вообще надо winapi
например:
Button1.color:=CreateSolidBrush(CMY K(100,100,100,111));
А там фантазии на что хватит.........

[mihali4]

Сообщение от Fekrado

Вообще надо winapi
например:
Button1.color:=CreateSolidBrush(CMY K(100,100,100,111));
А там фантазии на что хватит.........

А что, у TButton есть свойство Color?
В какой версии Дельфи?

[Rend1]

Вован13 дай полные исходники project1 а то что-то не получается

[BOBAH13]

Я не понял что Вам надо ? какой еще проект ? Я же привел описание юнита компонента. Вы незнаите как оформлять юнит ? если да вот все очень просто, пишу сразу тут, проверить на 100% не могу

unit AButton; // модуль имя

uses
  Windows, Messages, Controls, Graphics; // раздел модулей

type   
  TAButtonState = (asUp, asDown);   
  
  TAButton = class(TCustomControl)   
  private   
    FColorDown: TColor;   
    FColorUp: TColor;    
    FState: TAButtonState;   
  
    procedure SetColorDown(Value: TColor);   
    procedure SetColorUp(Value: TColor);   
  
    procedure WMLBUTTONDOWN(var Message: TWMLBUTTONDOWN); message WM_LBUTTONDOWN;   
    procedure WMLBUTTONUP(var Message: TWMLBUTTONUP); message WM_LBUTTONUP;   
    procedure WMSIZE(var Message: TWMSIZE); message WM_SIZE;   
  public   
    procedure Paint; override;   
  published   
    property ColorDown: TColor read FColorDown write SetColorDown default clGray;   
    property ColorUp: TColor read FColorUp write SetColorUp default clBtnShadow;   
    property Caption;   
    property Font;   
    property OnClick;   
  end;   

  procedure Register; // процедура регистрации
  
implementation   

procedure Register; 
begin 
  RegisterComponents('AButton', [TAButton]);
end;
  
constructor TAButton.Create(AOwner: TComponent);   
begin   
  inherited;   
  FColorUp := clBtnShadow;   
  FColorDown := clGray;   
end;   
  
procedure TAButton.SetColorDown(Value: TColor);   
begin   
  if (Value <> FColorDown) then   
  begin   
    FColorDown := Value;   
    RePaint;   
  end;   
end;   
  
procedure TAButton.SetColorUp(Value: TColor);   
begin   
  if (Value <> FColorUp) then   
  begin   
    FColorUp := Value;   
    RePaint;   
  end;   
end;   
  
procedure TAButton.WMLBUTTONDOWN(var Message: TWMLBUTTONDOWN);   
begin   
  inherited;   
  FState := asDown;   
  RePaint;   
end;   
  
procedure TAButton.WMLBUTTONUP(var Message: TWMLBUTTONUP);   
begin   
  inherited;   
  FState := asUp;   
  RePaint;   
end;   
  
procedure TAButton.WMSIZE(var Message: WMSIZE);   
begin   
  inherited;   
  RePaint;   
end;   
  
procedure TAButton.Paint;   
var   
  Draw: TBitMap;   
begin   
  Draw := TBitMap.Create;   
  Draw.Width := Width;   
  Draw.Height := Height;   
  case FState of   
    asUp:   
      Draw.Canvas.Brush.Color := FColorUp;   
    asDown:    
      Draw.Canvas.Brush.Color := FColorDown;   
  end;   
  Draw.Canvas.FillRect(Draw.Canvas.ClipRect);   
  Draw.Canvas.Font.Assign(Font);   
  Draw.Canvas.TextOut((Width - Draw.Canvas.TextWidth(Caption)) div 2,   
    (Height - Draw.Canvas.TextHeight('W')) div 2, Caption);   
  Canvas.Draw(0, 0, Draw);   
  Draw.Free;   
end;

end. // конец модуля

[Лубышев]

Есть хорошее решение в использование "особых кнопок"
Красивые кнопки можно реализовать с помощью этого: RbControls.
Там очень хорошие кнопки, испаользующие различные цветовые схемы, которые полностью настраиваются. Цвет при наведении изменяется очень плавно, на тот, который выбрали. Цвет начального положения тожо очень приятен. Попробуйте, может понравиться

[Лубышев]

Можно использовать и другие библиотеки. в и-нете их очень много. И самое важное - не нужно ни каких скинов (что-то я недолюбливаю их)

[Rend1]

project1 это вложение в ответ #10