Последние записи
- Как запустить программу указанную в Edit.Text
- Скачать файл с использованием потока
- Поиск слова в Memo
- Распаковщик формата .img из GTA San Andreas
- Подсчет количества повторяющихся букв в файле
- Простейший скрипт загрузки картинки с помощью php
- Рассылка. Выпуск 154
- Получение картинки с веб-камеры
- Скопировать определённый кусок image
- Сделать printscreen экрана и сохранить
13th
Дек
При загрузки картинки в ComboBox как изменить его высоту?
Posted by Chas under Пост-обзор
моя цель создать 10 Items в ComboBox, загрузить 10 картинок 40х50 (в пикселях),
с возможностью вибрать любую, и что б они не были по кусочкам.
готово:
procedure TForm1.FormCreate(Sender: TObject);
begin
ComboBox1.Style:=csOwnerDrawFixed;
for j:= 0 to 9 do
begin
SendMessage(ComboBox1.Handle, CB_SETITEMHEIGHT, j-1, 50);
ComboBox1.Items.Add(IntToStr(j));
end;
end;
begin
ComboBox1.Style:=csOwnerDrawFixed;
for j:= 0 to 9 do
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;