Forum > LCL

ComboBox and ComboBoxEx

<< < (2/2)

jamie:

--- Code: Pascal  [+][-]window.onload = function(){var x1 = document.getElementById("main_content_section"); if (x1) { var x = document.getElementsByClassName("geshi");for (var i = 0; i < x.length; i++) { x[i].style.maxHeight='none'; x[i].style.height = Math.min(x[i].clientHeight+15,306)+'px'; x[i].style.resize = "vertical";}};} ---procedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index: Integer;  ARect: TRect; State: TOwnerDrawState);begin  WIth TCOmboBox(Control) do  Begin  canvas.Brush.Color := Brush.color;  Canvas.Font.Color := Font.Color;  if (odFocused in State) Then   Begin     if Not DroppedDown Then // showing Edit field only.        Begin         canvas.brush.color := Brush.color;         canvas.Font.Color := Font.Color;        End else        Begin         Canvas.Brush.Color := clHighLight;         Canvas.Font.Color := Not clHighlight;        end;   End Else if (odSelected in state)and(DroppedDown) Then   Begin     Canvas.Brush.color := clHighLight;     Canvas.Font.Color := Not clHighLight;   end;   Canvas.FillRect(ARect);   if Index <> -1 then   Canvas.TextOut(Arect.left, ARect.Top, Items[Index]);end; end;                                    

valter.home:
Many thanks Jamie,
that's exactly what I needed  :)

Navigation

[0] Message Index

[*] Previous page