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