Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.07.18;
Скачать: CL | DM;

Вниз

Картинку на SpeedButton в runtime   Найти похожие ветки 

 
Destroyer ©   (2004-06-30 21:54) [0]

Мне надо натянуть картинку на speedbutton в runtime, и надо уменьшить ее до размеров самой кнопки. Я делаю так:
Если картинка *.bmp

begin
if opendialog1.Execute then
begin
MainButtonscr[ncr].Glyph.Width := 23;
MainButtonscr[ncr].Glyph.Height := 19;
MainButtonscr[ncr].Glyph:=TBitmap(OpenDialog1.filename); <-- Access violation
end;
end;

MainButtonscr - это массив из кнопок. Получается Access violation.

А если картинка *.ico, то так:

begin
if opendialog1.Execute then
begin
MainButtonscr[ncr].Glyph.Width := 23;
MainButtonscr[ncr].Glyph.Height := 19;
iconscr[ncr]:=HIcon(opendialog1.FileName);
drawiconEx((MainButtonscr[ncr].Glyph.Canvas.Handle),2,1,iconscr[ncr],16,16,0,0,DI_NORMAL);
end;
end;

Так ошибок не возникает, но и картинка не рисуется.
Как нарисовать картинку на speedbutton и масштабировать ее?


 
begin...end ©   (2004-06-30 21:58) [1]


> MainButtonscr[ncr].Glyph:=TBitmap(OpenDialog1.filename);
> <-- Access violation

Шо это? String преобразуется в TBitmap?


 
Destroyer ©   (2004-06-30 22:09) [2]

Ой даа, совсем уже офигел. А как тогда указать что я хочу загрузить картинку, которая находится по такому-то пути? Пробовал LoadFromFile, но говорит, что undeclared identifier. Наверное модуль какой-нибудь надо подключить. Какой?


 
begin...end ©   (2004-06-30 22:16) [3]


> [2] Destroyer ©   (30.06.04 22:09)


> Пробовал LoadFromFile, но говорит, что undeclared identifier.


MainButtonscr[ncr].Glyph.LoadFromFile("MyBmp.bmp");

?


 
Destroyer ©   (2004-06-30 22:26) [4]


> MainButtonscr[ncr].Glyph.LoadFromFile("MyBmp.bmp");

Нет, так всеравно не идет. Он мне именно на undeclared identifier ругается. Странно.


 
Destroyer ©   (2004-06-30 22:39) [5]

Всё, решил это у меня глюки уже, спасибо!
Так работает :
MainButtonscr[ncr].Glyph.LoadFromFile("MyBmp.bmp");



Страницы: 1 вся ветка

Текущий архив: 2004.07.18;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.022 c
1-1088962595
TUser
2004-07-04 21:36
2004.07.18
PAnsiChar и GetShortPathName


3-1088353802
Дилетант
2004-06-27 20:30
2004.07.18
Фильтры в таблицах


3-1087544281
axx
2004-06-18 11:38
2004.07.18
Помогите с Exception


14-1088362483
KilkennyCat
2004-06-27 22:54
2004.07.18
Почему я такой тупой?


3-1088072404
alex z
2004-06-24 14:20
2004.07.18
delphi + firebird