FreePascal.ru

Ура! все получилось, огромное спасибо за напутствие!
Вот пример кода для раскраски CheckListBox разными цветами с помощью стандартных тем:
- у CheckListBox-а свойство Style выбираем lbOwnerDrawFixed
- затем событию CheckListBox-а OnDrawItem назначаем процедуру CheckListBox1DrawItem ...

да уж.. для меня это пока еще дебри))
но разобраться очень хочется)
подскажите как/где найти устройство TCheckListBox. поиск с помощью Ctrl по исходникам ничего не дает. мне кажется что можно посмотреть как устроен стиль lbStandard и скопировать от туда часть кода для прорисовки чекбоксов

Nik , попробовал сделать отступ, не помогло

alexs , а не подскажите как их в данном случае рисовать... пытался найти как устроен Style lbStandard , но безуспешно

Добавлено спустя 37 минут 47 секунд:
нашел такое странное поведение:
сделал отступ ARect.Left+30 и если кликать в то пустое место ...

Здравствуйте, товарищи гуру!)

Есть необходимость раскрасить строки в CheckListBox. нашел такой пример кода для ListBox
procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer; ARect: TRect; State: TOwnerDrawState);
var
txt: string;
begin
with ListBox1 do ...

этот метод понятен
а из под Windows возможно это сделать? путем дополнений в коде проекта?...

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

Программа замечательно работает под Windows и как же ее теперь скомпилировать для Linux?

Mr.Smart, да очень хочется) может и решение есть столь же лаконичное как с переводом

действительно подсвечиваются при нажатии на alt только не срабатывает например alt+д

Ясно, но у меня они подчеркиваются только в панели свойств кнопки, а после компиляции нет..

осталось еще с иконками разобраться надеюсь кто-нибудь подскажет)

спасибо!

спасибо за ссылочку! с переводом получилось
А как можно иконки поменять/убрать на кнопках?
и еще такой маленький вопросик: А зачем нужен амперсанд "&" перед словом? у "Cancel" его нет..

alex208210, подскажите пожалуйста, а как приведенную вами функцию применить к самому окну?

Но вот читая дальше не пойму: как можна TForm обозвать Unit ???
вообщето лазарь сам предлагает это слово к сохранению по умолчанию - просто ничего не менял для примера!


Раз 5 прочитал тему и не понял вопроса, тупею, кажись .
нет вопроса уже! написал же, что проблема решилась удалением файла ...

Очень не понятная проблема с доступом к файлу unit2.pas
суть заключается в следующем:
при создании нового проекта создается главная форма с одной кнопкой, затем вторая с кнопкой, третья и четвертая.
при двойном клике по кнопке в каждой форме создается процедура и в нее переходит курсор, в общем как ...

Нужно изменить надпись кнопки с 'YES' на "ДА", также изменить/убрать картинку с кнопки.
И можно ли выдавать окно без иконки? например mtCustom выдает иконку как mtInformation?

Это возможно сделать в теле программы не меняя исходников?

Подскажите, пожалуйста, на примере такого кода:

mDlg &#58 ...

спасибо!!!