![]() |
|
#1
|
|||
|
|||
![]() Не могу сообразить команду в которой изображение из BitBtn, при клике, выводится на нужном Label, и при повторном клике- пропадает.
![]() |
#2
|
|||
|
|||
![]() Цитата:
|
#3
|
|||
|
|||
![]() Используй Timage вкладка Additional
По обработчику события на клик в BitBtn Timage.Picture.LoadFromFile('Путь до файла с картинкой такой же как и в BitBtn'); |
#4
|
||||
|
||||
![]() Цитата:
Код:
Image1.Picture.Assign(BitBtn1.Glyph); Пишу программы за еду. __________________ |
#5
|
|||
|
|||
![]() И так, вариантов навалом.
|
#6
|
||||
|
||||
![]() Код:
procedure TForm1.BitBtn1Click(Sender: TObject); begin if BitBtn1.Tag=0 then begin BitBtn1.Tag:=1; Label1.Width:=BitBtn1.Glyph.Width; Label1.Height:=BitBtn1.Glyph.Height; Label1.Canvas.Draw(0,0,BitBtn1.Glyph); end else begin BitBtn1.Tag:=0; Label1.Canvas.Brush.Color:=Form1.Color; Label1.Canvas.rectangle(0,0,Label1.Width, Label1.Height); end; end; |