Форум: "Основная";
Текущий архив: 2005.10.16;
Скачать: [xml.tar.bz2];
ВнизИзображение иконки программы на кнопке. Найти похожие ветки
← →
Laymer (2005-09-26 14:36) [0]Здрасте!!!
Нашел такой код программы.procedure TForm1.Button1Click(Sender: TObject);
var
IconIndex: word;
h: hIcon;
begin
IconIndex := 0;
h := ExtractAssociatedIcon(hInstance,
"C:\WINDOWS\NOTEPAD.EXE", IconINdex);
DrawIcon(Form1.Canvas.Handle, 10, 10, h);
end;
На форме все замечательно рисует изображение, а на кнопке TSpeedButton, рисовать нехочет. Помогите плиз.
← →
ssk © (2005-09-26 14:54) [1]добавляешь в модуль:
type
TMySpeedButton = class(TSpeedButton)
property Canvas;
end;
TForm1 = class(TForm)
...
и исправляешь свой код:DrawIcon(TMySpeedButton(SpeedButton1).Canvas.Handle, 10, 10, h);
у меня заработало
← →
ssk © (2005-09-26 14:56) [2]вот только после клика по кнопке тебя ждет небольшой сюрприз :-)
← →
ssk © (2005-09-26 15:31) [3]я бы сделал так:
var
Bitmap: TBitmap;
IconIndex: word;
h: hIcon;
begin
Bitmap := TBitmap.Create;
Bitmap.Width := 32;
Bitmap.Height := 32;
IconIndex := 0;
h := ExtractAssociatedIcon(hInstance, PAnsiChar(ParamStr(0)), IconIndex);
DrawIcon(Bitmap.Canvas.Handle, 0, 0, h);
SpeedButton1.Glyph.Assign(Bitmap);
Bitmap.Free;
end;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2005.10.16;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.035 c