Combobox Komponente Visualisieren!

[mkinzler]

Schau dir mal die verschiedenen Skinning-Kompos an ( von den AlphaControls gibt es z.B. eine kostenlose lite Version)

[DeddyH]

Wenn Du die Komponente einbindest und Dein Programm startest, solltest Du es sehen. Dazu muss die Komponente ja nicht installiert sein, Du kannst ja die Unit einbinden und die Instanz dynamisch erzeugen.

[edit] Nur ein Beispiel von vielen: http://www.delphipraxis.net/internal...ct.php?t=85812 [/edit]

[PatrickB]

Okay, also ich hab jetzt versucht die Paint Prozedur zu erstellen, aber es gibt noch einen kleinen Fehler:

Code:

procedure PbProgressBar.Paint;
var
  BackgroundBuffer: TBitmap;
begin
  BackgroundBuffer := TBitmap.Create;
  BackgroundBuffer.Width := 20;
  BackgroundBuffer.Height := 20;

  BackgroundBuffer.Canvas.Brush.Color := clRed;
  BackgroundBuffer.Canvas.Rectangle(0,0,20,20);

  Self.Canvas.Draw(0, 0, BackgroundBuffer);
  BackgroundBuffer.Free;
end;

Hier unterkringelt er mir Canvas.Draw, weil das keine Attribute von Self sind. Was muss ich da machen, damit ich das Bitmap jetzt auch zeichnen kann? Außerdem soll die Standard ProgressBar Klasse, von welcher ich meine ProgressBar ableite, nicht gezeichnet werden. Wie mache ich das?

[DeddyH]

Leite nicht von TProgressbar ab, sondern von TCustomControl oder TGraphicControl (das dürfte hier die erste Wahl sein).

[PatrickB]

Yeah, cool. Jetzt hab ich immerhin schon mal ein rotes Quadrat. Jetzt kann ich mich an die Arbeit machen. Dankeschön =)

Edit: Hab noch ne kleine Frage. Wie kann ich der Komponente jetzt noch ein Icon zuweisen? Unter Tools gibt es nämlich keinen Bildeditor.

[PatrickB]

Wie füge ich so eine Einstellung ein, damit der User im Objektinspektor eine Farbe auswählen kann aus so eine Drop Down Menü?

[DeddyH]

Unter published eine Property Color vom Typ TColor deklarieren.

[PatrickB]

Es sollen aber alle Farben aufgelistet sein, mit einem kleinen Quadrat davor, als Vorschau der Farbe.

[DeddyH]

Das macht die IDE doch automatisch (zumindest die aktuelleren).

[PatrickB]

Super, klappt =) Dankeschön. Hier bekommt man echt schnell Hilfe!