ComboBox mit Grafik statt Text

[Halvar]

Hallo Leute,

ich benötige für mein Programm eine ComboBoxzwecks auswahl der verschiedenen PenStyles. Ich habe mir dazu die Kompos von Pluto heruntergeladen.
Leider hat er das so gelöst das ein entsprechender Text angezeigt wird. Ich benötige es aber mit Grafik, so ein Benutzer gleich sieht wie die "zukünftigen"
Striche aussehen.
Also habe ich mich ans Werk gemacht und folgendes ist dabei herausgekommen:

Code: Alles auswählen

...
var fmbp: array [0..5] of TBitmap;
...
 
procedure TPenStyleComboBox.MouseDown(Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  inherited MouseDown(Button, Shift, X, Y);
end;
 
procedure TPenStyleComboBox.DrawItem(Index: Integer; ARect: TRect;
  State: TOwnerDrawState);
var
  Bitmap: TBitmap;
begin
  Canvas.FillRect(ARect);
  Bitmap := TBitmap(Items.Objects[Index]);
  Canvas.Draw(ARect.Left,ARect.Top, Bitmap);
 
  { *** VARIANTE die auch nicht funktioniert ***
   if Bitmap <> nil then begin
    //copy bitmap to combobox coordinate
    Canvas.CopyRect(Bounds(ARect.Left + 2, ARect.Top + 2, Bitmap.Width,
                    Bitmap.Height), Bitmap.Canvas,
                    Bounds(0, 0, Bitmap.Width, Bitmap.Height));
    Canvas.TextOut(0,20,Items[Index]);
  end;}
end;
 
constructor TPenStyleComboBox.Create(TheOwner: TComponent);
  var i  : integer;
begin
  inherited Create(TheOwner);
 
  ItemHeight := 29;
  Style:=csOwnerDrawVariable;
  for i := 0 to 5 do begin
    fbmp[i] := TBitmap.Create;
    fbmp[i].Width := 60;
    fbmp[i].Height := 24;
    case i of
      0: fbmp[i].Canvas.Pen.Style := psSolid;
      1: fbmp[i].Canvas.Pen.Style := psDash;
      2: fbmp[i].Canvas.Pen.Style := psDot;
      3: fbmp[i].Canvas.Pen.Style := psDashDot;
      4: fbmp[i].Canvas.Pen.Style := psDashDotDot;
      5: fbmp[i].Canvas.Pen.Style := psClear;
    end;
    fbmp[i].Canvas.MoveTo(0,12);
    fbmp[i].Canvas.LineTo(60,12);
    Items.AddObject('Pen_'+IntToStr(i),fbmp[i]);
  end;
  ItemIndex := 0;
end;
 
destructor TPenStyleComboBox.Destroy;
  var i: integer;
begin
  for i := 0 to 5 do fbmp[i].Free;
  inherited Destroy;
end;

Mein Problem ist nun, das die Grafiken nicht angezeigt werden. Bei Selektion im Dropdownfeld (blind) erscheint dann der dem Objekt zugeordnete Text.
Alles in allem nicht sehr befriedigend. Da ich "Weltweit" keine Lösung gefunden habe, hoffe ich darauf das ihr mir helfen könnt.

Es grüßt
Halvar

[theo]

Ich weiss nicht genau, wie du das machen willst. Wozu Bitmaps?

Ich hab's eben ausprobiert, mit einer normalen ComboBox mit csOwnerDrawFixed und im Ereignis OnDrawItem.
Funzt bei mir prima. Oder verstehe ich dich falsch?

Code: Alles auswählen

procedure TForm1.ComboBox1DrawItem(Control:TWinControl;Index:Integer;ARect:TRect
  ;State:TOwnerDrawState);
begin
  if odd(Index) then
  Combobox1.Canvas.Brush.Color:=$ffffff else
  Combobox1.Canvas.Brush.Color:=$f1f1f1;
  Combobox1.Canvas.FillRect(ARect);
  case index of
      0: Combobox1.Canvas.Pen.Style := psSolid;
      1: Combobox1.Canvas.Pen.Style := psDash;
      2: Combobox1.Canvas.Pen.Style := psDot;
      3: Combobox1.Canvas.Pen.Style := psDashDot;
      4: Combobox1.Canvas.Pen.Style := psDashDotDot;
      5: Combobox1.Canvas.Pen.Style := psClear;
  end;
  Combobox1.Canvas.Line(Arect.Left,ARect.Top+10,Arect.Right,Arect.Top+10);
end;

[Halvar]

Danke für die Antwort.

Du hast schon Recht, es geht so wie du sagst, ABER ...

ich möchte auch das mir nach der Selection in der ComboBox die entsprechende Linie als Grafik und nicht als Text
angezeigt wird.

Das ist das was ich nicht hinbekomme.

[theo]

Ach so. Das weiss ich auch nicht.
Aber es gibt im Additional Tab eine TColorBox, die kann die ausgewählte Farbe neben dem Text anzeigen.
Vielleicht kannst du da schauen wie das gemacht ist.

[Halvar]

Angeschaut hatte ich mir den Quelltext schon mal. Ich guck nochmal. Ich hoffe ich komme damit klar

[pluto]

Einfach eine eigene Funktion dafür schreiben. Wenn ich dich richtig verstanden habe, möchtest du eine Grafische Line zeichnen, also nicht mit "moveto und lineto".
Geht genau so..... du könntest z.b. es so machen: Canvas.Draw(ARect.Left,ARect.Bottom-2, Grafik von der Line);
So in etwa müsste es gehen. Das -2 spielt dabei eine wichtige Rolle. Sonst geht es nicht....

[Halvar]

Damit man mich auch richtig versteht.

Das Zeichnen der Linien mit den verschiedenen PenStyles klappt in dem Teil der ausklappt. Mir geht es darum das
der ausgewählte PenStyle als grafische Linie auch in der Vorschau zu sehen ist. DAS ist das was nicht klappt!

[Scotty]

Wenn du ReadOnly auf true setzt, funktioniert Theos Code auch in der Vorschau.

[theo]

Wenn du ReadOnly auf true setzt, funktioniert Theos Code auch in der Vorschau.

Hehe, stimmt!

[Halvar]

Ich danke euch Das Problem ist gelöst!

Nur mich bedrückt jetzt noch etwas. Wenn die Auswahl aufklappt, ist das ganz etwas "unansehnlich".
Ich meine damit, das die Combo verdeckt wird. Die Auswahl überdeckt diese. Woran liegt das denn
nu schon wieder?

[Halvar]

Kann mir keiner sagen woran das liegt?

[theo]

Kann mir keiner sagen woran das liegt?

Dann zeichnest du im geschlossenen Zustand halt weniger breit.

Code: Alles auswählen

procedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index: Integer; ARect: TRect
  ; State: TOwnerDrawState);
begin
  if not ComboBox1.DroppedDown then  
 ....

[Halvar]

Das löst leider nicht das Problem, dass das DropDown beim aufklappen die eigentliche ComboBox überdeckt.

Hat jemand eine andere Lösung?

[pluto]

mach doch mal ein Bild davon, dann können wir es uns besser vorstellen.