SpeedButton

[Alex711]

Здравствуйте, как можно сделать SpeedButton не доступным для нажатия, но видимым, процедуру OnClick удалять нельзя (недоступность для нажатия нужна только на время)?

[Аватар]

Enabled False

[Alex711]

Enabled False и кнопка пропадает совсем.

[Аватар]

Дык может цветовая схема ненормальная? Visible скрывает, Enabled ни капли

[Black Fregat]

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

и кнопка пропадает совсем.

Чо? Это в каких Дельфях?

[Alex711]

Delphi 7. Картинки из ImageList, Enabled прячет всё.

[Black Fregat]

А в этом ImageList добавлены глифы для Disabled состояния кнопок?
Посмотрите, как устроены поставляемые с Delphi глифы, они лежат в Program Files\Common Files\Borland Shared\Images\Buttons

И ещё смотреть свойство NumGlifs

[Alter]

https://programmersforum.ru/showpost...55&postcount=9
и
http://rsdn.org/forum/delphi/1136207.1

Вот набросал код делающий из одного активного изображения в Glyph два:

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Buttons, Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    SpeedButton1: TSpeedButton;
    CheckBox1: TCheckBox;
    procedure CheckBox1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormPaint(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  procedure BmpGrayscale(var Bmp: TBitmap);
  procedure SpeedButtonGray2Bmp(SB: TSpeedButton);

implementation

{$R *.dfm}

procedure BmpGrayscale(var Bmp: TBitmap);
var
  r, g, b, w, h, x, y, irgb, Gscale : integer;
begin // делаем серым изображение
  w := Bmp.Width - 1;
  h := Bmp.Height - 1;

  for x := 1 to w do
  begin
    for y := 1 to h do
    begin
      irgb := ColorToRgb(Bmp.Canvas.Pixels[x, y]);
      r := getRvalue(irgb);
      g := getGvalue(irgb);
      b := getBvalue(irgb);
      gscale := round((0.30 * getRvalue(irgb)) + (0.59 * getGvalue(irgb)) +
        (0.11 * getBvalue(irgb)));
      Bmp.Canvas.Pixels[x, y] := rgb(gscale, gscale, gscale);
    end;
  end;
end;

procedure SpeedButtonGray2Bmp(SB: TSpeedButton);
var
  bmp, bmpGray :TBitmap;
begin // делаем два изображения из одного, Активное + Неактивное
 bmp := TBitmap.Create;
 bmpGray := TBitmap.Create;
  try
 bmp.Height := SB.Glyph.Height;
 bmp.Width := SB.Glyph.Width * 2;
 bmpGray.Height := SB.Glyph.Height;
 bmpGray.Width := SB.Glyph.Width;
  // заливка
 bmp.Canvas.Brush.Color := clFuchsia;
 bmp.Canvas.FillRect(bmp.Canvas.ClipRect);
  // активное
 bmp.Canvas.Draw(0, 0, SB.Glyph);
  // серое
 bmpGray.Assign(bmp);
 BmpGrayscale(bmpGray);
 bmp.Canvas.Draw(SB.Glyph.Width, 0, bmpGray);
  // копируем
 SB.Glyph.Assign(bmp);
 SB.NumGlyphs := 2; // сообщаем что два изображения
  finally
 FreeAndNil(bmp);
 FreeAndNil(bmpGray);
  end;
end;

procedure TForm1.CheckBox1Click(Sender: TObject);
begin // вкл-выкл кнопку
 SpeedButton1.Enabled := CheckBox1.Checked;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin // делаем из одного активного изображения два
 SpeedButtonGray2Bmp(SpeedButton1);
end;

procedure TForm1.FormPaint(Sender: TObject);
begin // для наглядности
 Canvas.Draw(10, 10, SpeedButton1.Glyph);
end;

end.

[Alex711]

Exit по условию помогло, всем спасибо.