[AlexandrV]

как в CheckListBox сделать чтобы строки были не в одну строчку
как на скрине.
собственно на скрине первая строчка отличается от всех других. Как мне также сделать короче как мне настроить CheckListBox также как на скрине

[lmikle]

Сообщение от AlexandrV

как в CheckListBox сделать чтобы строки были не в одну строчку
как на скрине.
собственно на скрине первая строчка отличается от всех других. Как мне также сделать короче как мне настроить CheckListBox также как на скрине

Установи св-во Columns в нужное значение.

[AlexandrV]

А серым цветом первую строчку. Впрочем не важно все равно не буду делать так как там.

[NumLock]

Код:

1 2 3

CheckListBox1.State[0]:=cbGrayed; CheckListBox1.State[1]:=cbChecked; CheckListBox1.State[2]:=cbUnchecked;

[AlexandrV]

А как иконку для каждой строки сделать

[NumLock]

рисовать элементы в OnDrawItem

[AlexandrV]

Как это сделать используя TPngImage

[AlexandrV]

как строку сделать нерабочей в ChackListBoxе

[Страдалецъ]

Очевидно, что раз она нерабочая т.е. поставить/отменить галочку на ней нельзя, то незачем ее и в списке хранить. Удалите ее из списка.

[AlexandrV]

Можно свойство ItemEnabled

[AlexandrV]

Напишите мне пожалуйста код загрузки иконки для каждой строки
Всего 23 строки потом может будет и больше так что не определенное количество иконок и строк

[Страдалецъ]

Сообщение от AlexandrV

Можно свойство ItemEnabled

Э нет, вы спрашивали о другом:

как строку сделать нерабочей в ChackListBoxе

для нерабочей строки никакие Enabled не должны работать.

[AlexandrV]

Я имел в виду галочку. Как в CheckBoxе Тамже ItemIndex равен выделеной строке Strings если да то свой радиоBox по аналогу CheckBox сделаю

[Страдалецъ]

Так устроит?

Код:

1 2 3 4 5 6

procedure TForm1.CheckListBox1DrawItem(Control: TWinControl;   Index: Integer; Rect: TRect; State: TOwnerDrawState); begin  CheckListBox1.Canvas.TextRect(Rect, ImageList1.Width*2, Rect.Top, CheckListBox1.Items.Strings[Index]);  ImageList1.Draw(CheckListBox1.Canvas, Rect.Left, Rect.Top, Index); end;

Выставите для свойства CheckListBox1.Style := lbOwnerDrawFixed

[AlexandrV]

Нет они у меня отдельно находится в формате Png но пример можешь и на Bmp сделать. Там для каждой строки отдельная картинка и онипрописаны в ини

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53

[Save Language] MaxSL=22 SL0=eng SLICO0=\Параметры\Праметр Save Language\5_0045.png SL1=rus SLIC01=\Параметры\Праметр Save Language\5_0054.png SL2=ukr SLICO2=\Параметры\Праметр Save Language\5_0068.png SL3=bel SLICO3=... SL4=ptb SLICO4=... SL5=bul SLICO5=... SL6=chn SLICO6=... SL7=cze SLICO7=... SL8=dut SLICO8=... SL9=est SLICO9=... SL10=fre SLICO10=... SL11=ger SLICO11=... SL12=hun SLICO12=... SL13=ita SLICO13=... SL14=jpn SLICO14=... SL15=lit SLICO15=... SL16=nor SLICO16=... SL17=pol SLICO17=... SL18=rom SLICO18=... SL19=svk SLICO19=... SL20=spa SLICO20=... SL21=swe SLICO21=... SL22=tur SLICO22=... MaxGlawSL=1 GlawSL0=0 GlawSL1=1 MaxEnabledSL=0 EnabledSL0=0

... означает что иконки нету
иконки сами будут находится в масиве PngIcon:Array of TPngImage число ячеек начинается с 0 или вообще массив будет строковой и один тип TPngImage для вывода картинки

тоесть массив PngStrIcon:Array of String;
PngIcon:TPngImage - тип пнг картинок