Цвет кнопки

[Snake_ua]

Можно ли как-то изменить цвет кнопки button или bitbtn?

[mihali4]

Только ручной отрисовкой.
Не желаете с этим связываться - используйте панели вместо кнопок...

[BanDit]

Для красивого дизайна я использую Alpha Controls. Неплохо получается!

[BOBAH13]

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

Для красивого дизайна я использую Alpha Controls. Неплохо получается!

Честно говоря, я думаю это не дизайн, а так повыпендриваться Дизайн для меня, это когда ты сам все оформляеш и отрисовываеш по тематике самого приложения в собственных стилях, будь то строго или наоборот... Я так всегда делаю

[Лёка]

а где взять Alpha Controls?

[ruPy]

Можешь использовать ToolBar (Win32 вкладка), с помощью него создать кнопки и в них вставить изображение при помощи Imagelist (таже вкладка).

[BOBAH13]

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

Можешь использовать ToolBar (Win32 вкладка), с помощью него создать кнопки и в них вставить изображение при помощи Imagelist (таже вкладка).

Интересно к чему Вы это ? А если серезно то кнопку руками сделать пол часа работы

[mihali4]

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

Можешь использовать ToolBar (Win32 вкладка), с помощью него создать кнопки и в них вставить изображение при помощи Imagelist (таже вкладка).

Может, я что-то не понимаю, но при чем тут ToolBar, если, например, на BitBtn можно глиф наложить? Или на SpeedButton?

[Лёка]

если объяснишь все в коментариях как кнопку делать, то буду очень благодарен

[BOBAH13]

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;

implementation

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;

Писал на быструю руку прямо тут так что... ну все устроено гдет-то так ))

А вот чего я добился в последнее время.. пример кнопки ( ехе ) во вложении