Ergebnis der Suchanfrage

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

  Re: In Kombobox zeichnen

    Delphi
    by shmia, 14. Dez 2004
  Du musst der Combobox einige Strings in das Property Items einfüllen, sonst gibt es nix
  anzuzeigen.
• Forum: GUI-Design mit VCL / FireMonkey / Common Controls

  Re: In Kombobox zeichnen

    Delphi
    by shmia, 14. Dez 2004
  Wenn ich statt des "Rect" Zahlen einsetze erscheint keine Fehlermeldung, aber das darf ich ja nicht.
  Gibt es keine Möglichkeit auch das noch irgendwie hinzubiegen?
  Klar kann man das hinbiegen. :mrgreen:
  Deine (alte) Delphi-Version kann keine Methoden überladen.
  (Meine topmoderne D5 Version kann das.)
  Deshalb gilt für D5 und neuer:
  (control as...
• Forum: GUI-Design mit VCL / FireMonkey / Common Controls

  Re: In Kombobox zeichnen

    Delphi
    by shmia, 14. Dez 2004
  Die Klasse TWinControl kennt das Property Canvas noch nicht.
  Deshalb:
  procedure TStyle.ComboBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
  begin
  InflateRect(Rect, -1, -1); // Rechteck schrumpfen
  (Control as TComboBox).Canvas.Pen.color := clRed;
  (control as TComboBox).Canvas.Rectangle(Rect);
  end;
  Wenn deine Zeichenoperationen...
• Forum: GUI-Design mit VCL / FireMonkey / Common Controls

  Re: In Kombobox zeichnen

    Delphi
    by shmia, 13. Dez 2004
  Dein Zeichenbereich ist auf das übergebene Rechteck beschränkt; ausserhalb darfst/kannst du nicht zeichnen.
  procedure TStyle.ComboBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
  begin
  InflateRect(Rect, -1, -1); // Rechteck schrumpfen
  control.Canvas.Pen.color := clRed;
  control.Canvas.Rectangle(Rect);
  end;