Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

ComboBox [D5, Win2k]


Страницы:   1 2

Kirillrepin ©   (2006-11-09 13:36:00) 

подскажите как в ComboBox некоторые строки выделить другим цветом?


Anatoly Podgoretsky   (2006-11-09 16:03:00) [21]

> clickmaker  (09.11.2006 15:45:09)  [9]

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


clickmaker   (2006-11-09 15:59:00) [22]


> [10] Ketmar ©   (09.11.06 15:53)
> >[9] clickmaker(c) 9-Nov-2006, 15:45
> >хм... а почему?
> потому что [3]. %-))

Вы меня не убедили, коллега )
Чекбокс в комбике можно использовать, например, для отметки пустого значения (null то бишь) Как в дататаймпикере


Ketmar   (2006-11-09 15:53:00) [23]

>[9] clickmaker(c) 9-Nov-2006, 15:45
>хм... а почему?
потому что [3]. %-))


clickmaker   (2006-11-09 15:45:00) [24]


> "новичкам" ответ был бы, скорее всего, в виде "не стоит
> этого делать"

хм... а почему?


Ketmar   (2006-11-09 15:42:00) [25]

>[7] Anatoly Podgoretsky(c) 9-Nov-2006, 15:26
ой, а меня-то сколько раз посылали? %-)

2Kirillrepin
обычно стёбовые ответы означают, что ты пошёл совсем не туда, куда стоило бы. такой ответ -- это повод задуматься. возможно, уточнить -- отчего именно такой ответ дали. при нормальной просьбе уточнить дадут достаточно информации для понимания.

и ещё: конференция "основная" подразумевает, что ты не новичок и имеешь некоторый опыт. в той же "новичкам" ответ был бы, скорее всего, в виде "не стоит этого делать". но то в "новичкам", а то -- здесь.


Anatoly Podgoretsky   (2006-11-09 15:26:00) [26]

> Kirillrepin  (09.11.2006 15:10:05)  [5]

Знаешь сколько я не знаю?
И ничего, когда надо узнаю и в очень короткие сроки. Возможно и на форуме спрошу, у того же Кетмара и я уверен, что он подскажет, как это делал неоднакратно, и если спрошу глупо, то не постесняется отправить меня в путешествие. И самое главноя я туда пойду, посколько сразу пойму, что что то не то сказал, сморозил.

Ты думаешь почему я работаю под реальном именем? Чтобы бежать не было куда.

Диагнозы у Кетмара весьма точные.


Ketmar   (2006-11-09 15:22:00) [27]

>[5] Kirillrepin(c) 9-Nov-2006, 15:10
>стыдно не то когда не знаешь и спрашиваешь, а когда не
>знаешь и смеешься над незнающими.
золотые слова. запомни их.


Kirillrepin   (2006-11-09 15:10:00) [28]


> Ketmar ©   (09.11.06 14:36) [3]
> а движок от белаза как в запорожец запихать?

стыдно не то когда не знаешь и спрашиваешь, а когда не знаешь и смеешься над незнающими.


clickmaker   (2006-11-09 14:37:00) [29]


> [2] Kirillrepin ©   (09.11.06 13:48)

DrawFrameControl()


Ketmar   (2006-11-09 14:36:00) [30]

а движок от белаза как в запорожец запихать?


Kirillrepin   (2006-11-09 13:48:00) [31]

спасибо! а CheckBox как всунуть во внутрь ComboBox?


Dmitrij_K   (2006-11-09 13:39:00) [32]

примерно так
Style := csOwnerDrawFixed;

procedure OnDrawItem(Control: TWinControl;
 Index: Integer; Rect: TRect; State: TOwnerDrawState);
var
 sel, dis : Boolean;
 k        : Integer;
begin
 sel := (odSelected in State);
 dis := (Index=0) or (Index=9);
 With Control as TComboBox do
 begin
   Canvas.FillRect(Rect);
   if dis then
     Canvas.Font.Style := [fsBold,fsUnderline];
   if sel then
     Canvas.Font.Color := clWhite
          else if dis then
                 Canvas.Font.Color := clPurple
                      else
                 Canvas.Font.Color := clBlack;
  if dis then k := 5
         else k := 0;
  Canvas.TextOut(Rect.Left+k, Rect.Top, Items[Index]);
 end
end;


Страницы:   1 2

Наверх

Титульная страница Поиск, карта сайта Написать письмо