Two problems with Combobox - text color and height
lazarus / 10-Designer

----------------------------------------------------------------------
Przemyslav · 2017-03-06 15:44

Hello everybody  I have problem with ComboBox. For example I have like
this:

(https://s15.postimg.org/l5253hjpj/Bez_tytu_u.png)

I set color of font to red, but all my items are black? What i do
wrong?
Second question: Can I resize the white field with my items, I'm
talking about height this field. When I have much more items, this
field is too small in height direction.

----------------------------------------------------------------------
fred · 2017-03-06 16:10

I don't the answer to the first question but the second question is
easy:

Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i
ComboBox1.DropDownCount := 20;

----------------------------------------------------------------------
balazsszekely · 2017-03-06 16:25

@Przemyslav
Set Style property to csOwnerDrawFixed, then on DrawItem:
Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i uses
LCLIntf, LCLType; procedure TForm1.ComboBox1DrawItem(Control:
TWinControl; Index: Integer;  ARect: TRect; State:
TOwnerDrawState);var  Str: string;  CB: TComboBox;begin  CB :=
TComboBox(Control);  Str := CB.Items[Index];  if odSelected in State
then     CB.Canvas.Brush.Color := clHighlight   else   
 CB.Canvas.Brush.Color := CB.Color;  CB.Canvas.FillRect(ARect); 
CB.Canvas.Pen.Color := clRed;  DrawText(CB.Canvas.Handle, PChar(Str),
Length(Str), ARect, DT_LEFT);end;

----------------------------------------------------------------------
Przemyslav · 2017-03-06 16:31

Thanks you very much  I will try it. In first I was shocked, that
color font which I have chosen in properties wasn't working.