tCheckListBox-Как отметить некотрые item-ы в design time?

[Altera]

Привет всем!
Я раньше знал, как это делается, но сейчас забыл.
У меня есть tCheckListBox и несколькими item-ами, как мне сделать так, что-бы некоторые из них были отмечены по умолчанию?

[Mitriy08]

Ну к примеру есть список элементов
"адын"
"два"
"три"

var x: integer;
.....
    CheckListBox1.Checked[1]:= True;
    x:= CheckListBox1.Items.IndexOf('адын');
    if ( ( x <> -1 ) and ( not CheckListBox1.Checked[x] ) ) then
    CheckListBox1.Checked[x]:= True;

Чекнет первый и второй элемент
Ты это имел виду?

[Гриха]

нет, не это.
нужно:в системе делфи рисуем чеклиствокс и не запуская ничего отметить прямо на нем галочки...(без запуска программы)

[Mitriy08]

нет, не это.
нужно:в системе делфи рисуем чеклиствокс и не запуская ничего отметить прямо на нем галочки...(без запуска программы)

В стандартных tCheckListBox не нашол
В райзовских компанентах это сделать можно открыв(тык по компаненту -> Edit chek list) редактор

рисуем чеклиствокс

может я чего то не понимаю, но как ты его рисуеш не запуская проекта?

Интересно, а зачем это вообще надо?

[Altera]

Как-то это происходит.... Не может быть что ставить галочки в tCheckListBox-е можно только программным путём.
Помой-му как-то так делается:
tCheckListBox -> Items

Первый=true
Второй=false
Третий=flase
Четвёртый=true

Так получиться, что отмечены только первый и четвёртый (0 и 3). Способ что-то типа такого.
Пробывал хитрить: сохранять items в файл, но ничего не вышло.

[Mitriy08]

Пробывал хитрить: сохранять items в файл, но ничего не вышло.

Как вариант сохраняй в XML файл
струтура примерно такая

<items>
   <item>
      <title>Адын</item>
      <checked>true</checked>
  </item>

  <item>
     <title>два</item>
     <checked>false</checked>
  </item>
</items>

Ну и дальше уже можеш сам в проге выставлять как те нужно галочки и сохранять изменения в файл.
НУ или ini файл , но смысл такой....

Кстати может поможет .... вот что находится в dfm файле, если использовать райзовский чеклист и сразу отметить нужные галочки

 object RzCheckList1: TRzCheckList
    Left = 264
    Top = 152
    Width = 121
    Height = 97
    Items.Strings = (
      'адын'
      'два')
    Items.ItemEnabled = (
      True
      True)
    Items.ItemState = (
      1
      0)
    ItemHeight = 17
    TabOrder = 0
  end

Может и поможет но в стандартный чеклист не пробовал применить....

Кстати тебе нужно использовать именно стандартный чеклист?

[Altera]

Кстати тебе нужно использовать именно стандартный чеклист?

А что? Именно tCheckBoxList-ов больше чем один?

[Mitriy08]

А что?

Ну то что станданртным tCheckBoxList ты точно не сделаеш, то, что ты хочеш, а альтернатива решения - можно воспользоваться компанентами, которые могут это сделать примеры я уже приводил....Ну и ни кто не отменял изобретания собственного велосипеда

[SERG1980]

В наборе компонентов от LMD есть LMDCheckGroup в нём можно так

[Altera]

Ладно, хорошо. Всём спасибо!