Как вывести изображение на против каждого Item в RXCheckListBox

← →
EugenCFG (2002-07-13 14:04) [0]

В настройках не нашел, может быть в RXCheckListBox нельзя вывести изображение, может в каком то другом компоненте... ????

Заранее спасибо...!

← →
MARcoDEN (2002-07-13 16:28) [1]

Надо использовать у Checklistbox событие OnDrawItem. Вот пример прорисовки обычного combobox"a:

procedure TFormMain.ComboBoxDrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
var
Icon: TIcon;
Bmp: TBitmap;
begin
with (Control as TComboBox).Canvas do
begin
FillRect(Rect); //очистка
TextOut(Rect.Left + 23, Rect.top + 2, (Control as TComboBox).Items[Index]); //вывод текста
Icon := TIcon.Create;
Bmp := TBitmap.Create;
Icon.Handle := ExtractIcon(HInstance, PChar("bases.ico"), 0); // вытаскивание иконки
Bmp.Width := Icon.Width;
Bmp.Height := Icon.Height;
Bmp.TransparentMode := tmAuto;
Bmp.Transparent := True;
Bmp.Canvas.Draw(0,0, Icon);
Icon.Free;
Rect.Left := Rect.Left + 1;
Rect.Top := Rect.Top + 1;
Rect.Right := Rect.Left + 16;
Rect.Bottom := Rect.Top + 18;
StretchDraw(rect, Bmp);
Bmp.Free;
end;
end;

По этому подобию можно отрисовать и checklist.

← →
EugenCFG (2002-07-13 21:21) [2]

Большое спасибо.... будем пробовать....!!!!

← →
EugenCFG (2002-07-13 22:55) [3]

Блин, пожизни ничего не может нормально пройти... так же и здесь... гемор выскочил.... думаю тут кроется всего одна ошибка... :
Во время выполнения
Bmp := TBitmap.Create;
возникает ошибка Object or class type required
Скорее всего отсюда же выпадает всё остальное:

Error] MainForm.pas(114): Undeclared identifier: "ExtractIcon"
[Error] MainForm.pas(115): Undeclared identifier: "Width"
[Error] MainForm.pas(116): Undeclared identifier: "Height"
[Error] MainForm.pas(117): Undeclared identifier: "TransparentMode"
[Error] MainForm.pas(118): Undeclared identifier: "Transparent"
[Error] MainForm.pas(119): Undeclared identifier: "Canvas"
[Error] MainForm.pas(125): Incompatible types: "TGraphic" and "tagBITMAP"
[Error] MainForm.pas(126): Undeclared identifier: "Free"

С последними 2-мя ошибками не разбирался....

Может компоненты не подключены???
На ComboBox проверял - один фиг... все те же ошибки...

← →
MARcoDEN (2002-07-14 10:52) [4]

Даже не знаю, в чем дело... У себя компилирую - все пучком. Напишите подключаемые модули.

← →
EugenCFG (2002-07-14 15:29) [5]

{$IFDEF Linux}
QGraphics, QControls, QForms, QDialogs, QComCtrls, QMenus, QButtons,
QExtCtrls, QStdCtrls,
{$ELSE}
Graphics, Controls, Forms, Dialogs, ComCtrls, Menus, Buttons, ExtCtrls,
StdCtrls,
{$ENDIF}
windows, messages, ToolWin, spin, SysUtils, Classes, IdBaseComponent,
IdComponent, IdTCPConnection, IdTCPClient, RXCtrls, RXSplit, ImgList,
RxCombos, CheckLst;

← →
EugenCFG (2002-07-15 16:16) [6]

ау....

Как вывести изображение на против каждого Item в RXCheckListBox Найти похожие ветки