Frames in Listbox werden nicht korrekt neugezeichnet

[Pfoto]

Hallo zusammen,

ich versuche mich gerade an einer Listbox, die eine beliebige
Menge von Frame-Instanzen auflisten soll. Das erstellte Frame
wird als Objekt jedem Item mitgegeben und soll über OnDrawItem
angezeigt werden.

Dies funktioniert vom Prinzip her auch, nur leider werden einige
Frames nicht neugezeichnet - egal ob ich das Frame selber oder
sogar alle darin enthaltenen Komponenten per Schleife update.

Erst wenn ich mit der Maus über die Frames und seine Controls fahre,
werden diese neu gezeichnet und damit sichtbar.

Hier der Code von OnDrawItem(), den ich verwende:

Delphi-Quellcode:

procedure TfrmImgFileOptions.lbxFilenamePiecesDrawItem(Control: TWinControl;
  Index: Integer; Rect: TRect; State: TOwnerDrawState);
var
  fraFilenameEditor: TfraFilenameEditor;
  i: integer;
begin
  with (Control as TListbox) do
  begin
    Canvas.Brush.Color:= clbtnFace;
    Canvas.FillRect(Rect);
    { Frame, das im entsprechenden Index gehalten wird, holen }
    fraFilenameEditor:= TfraFilenameEditor(Items.Objects[Index]);
    fraFilenameEditor.Top:= Rect.Top;
    fraFilenameEditor.Left:= Rect.Left;
    fraFilenameEditor.Width:= Rect.Right;
    fraFilenameEditor.Height:= Rect.Bottom;

    { Das aktuelle Frame des Index neu zeichnen }
    fraFilenameEditor.Update;
    { Alle untergeordneten Controls neu zeichnen }
    for i := 0 to fraFilenameEditor.Componentcount - 1 do
      If fraFilenameEditor.Components[i] is TWinControl then
        TWinControl(fraFilenameEditor.Components[i]).Update;
  end;
end;

Mit der Listbox will ich dem User ermöglichen, einen benutzerdefinierten
Dateinamen zu erzeugen, indem er beliebig viele Editor-Reihen über (+) und (-)
hinzufügt oder löscht. Ein Verfahren, wie es z.B. in iTunes bei der
Definition von Songlisten möglich ist.

Grundsätzlich wäre zwar eine fertige Komponente auch toll, aber ich möchte
halt gerne was dazulernen und zunächst den beschriebenen Mangel ausmerzen.

Hat jemand eine Idee, woran das fehlende Neuzeichnen liegen könnte?

Dank und Gruß
Jürgen

[chaosben]

Ich würde eine Scrollbox nehmen und die Frames mit Align = alTop hinzufügen. Geht einfach und todsicher. :)

[Ralf Kaiser]

Hallo,

grundsätzlich finde ich die Anzeige von Frames in einer Listbox etwas seltsam.

Versuch doch mal folgendes: Nimm eine Scrollbox füge ein Panel dort ein und füge die einzelnen Frames per Code in das Panel ein (Frame.Create, Parent setzen, Höhe des Panels anpassen).

Ciao,
Ralf

Edit: wo war der rote Katen??? :gruebel:

[Pfoto]

Ok, danke schonmal,
werde es morgen mal ausprobieren.

Gruß
Jürgen