Bitmap lazarus
Автор Ёергей Куницын задал вопрос в разделе Другие языки и технологии
Как сделать в Lazarus, чтобы по нажатию TButon в TImage менялось изображение. и получил лучший ответ
Ответ от Алексей Молчанов[гуру]
Просто меняете свойство Picture у компонента TImage.
Например. Сделаем так, что при нажатии на кнопку, изображение в TImage менялось на другое. Для начала объявим в нашей программе две переменных класса TPicture.
Picture1, Picture2 : TPicture;
При создании формы загрузим в них с диска две картинки. Одну их них сразу покажем в Image1;
procedure TForm1.FormCreate(Sender: TObject);
begin
Picture1 := TPicture.Create;
Picture1.LoadFromFile('d: est1.png');
Picture2 := TPicture.Create;
Picture2.LoadFromFile('d: est2.png');
Image1.Picture := Picture1;
end;
При нажатии кнопки просто поменяем картинку на другую.
procedure TForm1.Button1Click(Sender: TObject);
begin
Image1.Picture := Picture2
end;
При дестрое формы не забываем освобождать ресурсы:
procedure TForm1.FormDestroy(Sender: TObject);
begin
FreeAndNil(Picture1);
FreeAndNil(Picture2);
end;
Всё
Если картинки одинаковые по размеру, можно при проектировании грузануть их в ImageList, а в Image помещать так:
ImageList1.GetBitmap(0, Image1.Picture.Bitmap); //первое число - индекс картинки в imagelist