Ergebnis der Suchanfrage

• Forum: GUI-Design mit VCL / FireMonkey / Common Controls

  Re: Problem: ComboBox, DrawItem, Canvas

    Delphi
    by jim_raynor, 11. Mai 2006
  Du solltest am Anfang ein ComboBox1.Canvas.FillRect machen mit dem original Rect.
  
  procedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
  begin
  ComboBox1.Canvas.FillRect(Rect);
  Rect.Right := Rect.Left + 16;
  ComboBox1.Canvas.TextOut(Rect.Right+2, Rect.Top+2, IntToStr(Index));
  if Index mod 2 = 0 then
  ...