Forum > LCL
ComboBox and ComboBoxEx
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