Последние записи

made in programmersforum 1

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

13th
Дек

При загрузки картинки в ComboBox как изменить его высоту?

Posted by Chas under Пост-обзор

моя цель создать 10 Items в ComboBox, загрузить 10 картинок 40х50 (в пикселях),
с возможностью вибрать любую, и что б они не были по кусочкам.

готово:

procedure TForm1.FormCreate(Sender: TObject);
begin
 ComboBox1.Style:=csOwnerDrawFixed;
for j:= 0to9do
begin
    SendMessage(ComboBox1.Handle, CB_SETITEMHEIGHT, j-1, 50);
    ComboBox1.Items.Add(IntToStr(j));
end;
end;
procedure TForm1.EffectsDrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
   TComboBox(Control).Canvas.StretchDraw(Rect,BitMap[Index]);
end;