TSpeedButton

← →
DeadMeat © (2003-05-20 17:07) [0]

Товарищи... Сограждане... Кто знает почему при динамической загрузке Icon-а в SpeedButton для Glyph-а, он становится прозрачным там, где не надо, т.е. становится блеклым... Хотя если этот-же Icon загрузить... ну хотя-бы в Image, то всё нормально... Может кто знает как это лечить... Заранее спасибо!!

← →
Юрий Зотов © (2003-05-20 17:12) [1]

Enabled не False?

← →
Palladin © (2003-05-20 17:36) [2]

редактируй изображение, малюй каким нибудь абсолютно левым цветом те участки которые должны быть прозрачны, и конечно же пометь этим же цветом самый нижний левый пиксель

← →
DeadMeat © (2003-05-22 13:40) [3]

> Юрий Зотов
Ооочень смешноо... Ну естественно неет... Хотя если по Disable-енному объекту можно щёлкнуть без всяких примочек, то может быть и False... :))

> Palladin
Чаво то не понял... в смысле редактировать иконку?... А как я узнаю какие участки у неё прозрачные... А даже если узнаю, то как их закрашивать, да и зачем если они прозрачные... Ты видно не понял... Я не знаю какую иконку придётся вешать... В этом вся проблема...

← →
Anatoly Podgoretsky © (2003-05-22 13:45) [4]

Ну если не знаешь, какие прозрачные, то никак

← →
Palladin © (2003-05-22 13:45) [5]

выставляй у Bitmap Transparent:=false;

← →
AlexSV © (2003-05-22 13:52) [6]

А как установлено св-во SpeedButton"а Transparent?
По умолчанию
SpeedButton.Transparent - True
Image.Transparent - False

← →
Palladin © (2003-05-22 13:58) [7]

> AlexSV © (22.05.03 13:52)

при чем тут SpeedButton.Transparent... он к Glyph никак не относится...

> Image.Transparent - False

ты уверен? если он грузит иконку то у нее Transparent по умолчанию true
да и не Image а Glyph

← →
Johnmen © (2003-05-22 14:11) [8]

>при динамической загрузке Icon-а в SpeedButton для Glyph-а,

А как вот это осуществляется ? Приведи код.

> Palladin © (22.05.03 13:58)
> при чем тут SpeedButton.Transparent... он к Glyph никак не относится...

Может быть, только в процедуре TSpeedButton.Paint есть такая строка
TButtonGlyph(FGlyph).Draw(Canvas, PaintRect, Offset, Caption, FLayout, FMargin,
FSpacing, FState, Transparent, DrawTextBiDiModeFlags(0));

мда, действительно, я не прав, ну тогда подмена цвета...

Я очень извиняюсь перед всеми участниками данной дискуссии за то что ввёл вас немного в заблуждение неправильной формулировкой вопроса... Я не совсем подгружаю значок из файла... Я достаю его через HICON из окна... Вот код:
procedure TForm1.Button1Click(Sender: TObject); var icon:ticon; iconsm:THandle; hnd:hwnd; begin hnd:=findwindow (nil,"about:blank - Microsoft Internet Explorer"); speedbutton1.width:=40; speedbutton1.height:=40; speedbutton1.glyph.width:=16; speedbutton1.glyph.height:=16; speedbutton1.glyph.transparent:=true; speedbutton1.glyph.transparentMode:=tmauto; speedbutton1.transparent:=true; iconsm := getclassLong(hnd, GCL_HICONSM); icon := ticon.create; icon.Handle:=iconsm; speedbutton1.glyph.canvas.draw(0, 0, icon); end;
Перед запуском надо запустить Internet Explorer с чистым листом...
Ещё раз извинияюсь...

TSpeedButton Найти похожие ветки