|
Тема
|
Картинка в TBitBtn
|
|
Автор | Любo (Нерегистриран) |
Публикувано | 18.09.06 13:35 |
|
Здравейте някой да знае метод как да взема от ImageList някоя картинка и да я сложа на TBitBtn
Пробвах няколко вариянта но нищо :
ImageList1.DrawOverlay( Btn.Glyph.Canvas, Btn.Glyph.Canvas.ClipRect.TopLeft, Btn.Glyph.Canvas.ClipRect.BottomRight, 0, 0 );
Този ми се стори най логинчен но пак нищо
Благодаря предварително !
| |
|
Трябва да направиш нещо такова:
B := TBitmap.Create;
try
il.GetBitmap(idx, B);
Button.Glyph.Assign(B);
finally
B.Free;
end;
| |
Тема
|
Re: Картинка в TBitBtn
[re: Любo]
|
|
Автор |
TRN () |
Публикувано | 19.09.06 14:32 |
|
Ето друг вариант
ImageList1.GetBitmap(1,BitBtn1.Glyph);
| |
|
Ако глифа няма да се сменя повече - може и така
| |
|
Не пречи да си го сменя когато си поиска, стига да знае поредния номер на изображението в списъка на ImageList (1 e първия номер в списъка на ImageList, просто не съм го написал, а той трябва да се сети).
| |
|
Не, напротив - пречи. Пъхни няколко картинки в един ImageList и пробвай следния код:
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
ImageList1.GetBitmap(BitBtn1.Tag, BitBtn1.Glyph);
BitBtn1.Tag := (BitBtn1.Tag + 1) mod ImageList1.Count;
end;
След първото GetBitmap глифа повече не се сменя.
| |
|
Започва да става дискусия
Това оправя нещата
BitBtn1.Glyph:=nil;
......
| |
|
Тамън да стана дискусия и тя взе, че свърши
Да, това оправя нещата
| |
Тема
|
Re: Картинка в TBitBtn
[re: andrew_nikoloff]
|
|
Автор | Любo (Нерегистриран) |
Публикувано | 20.09.06 16:33 |
|
Хе хе евала момчета благодаря за отговорите !!!!! :))
| |
|
|
|
|