Komponente will sich nicht neu zeichnen

[phlux]

Hi
Folgendes Problem, ich hab jetzt ne Kompo geschrieben, die durch die Property Items: TStrings verschiedene Buttons anzeigt. Wenn ich jetzt im OI die Items ändere werden die Korrekte anzahl von buttons angezeigt, sobald ich jetzt jedoch mit
TControlTab.Items.Add('Eintrag'); während der laufzeit einen neuen Button hinzufügen will, wird dieser erst angezeigt wenn ich die Form vergrößer. Jedoch sollte die Kompo beim resizen der form und beim hinzufügen neuer Items sich neuzeichnen

Ich poste mal den Code: (Biete ihn doch zum DL an)

Sorry, für die vielen kommentierten Programmzeilen, aba so läuft die kompo!!

[APP]

Hallo,

vielleicht tut es ein Repaint bei SetItems,
leider habe ich jetzt keinen Code mehr vor augen, da Du gerade Dein posting umgestellt hast

[phlux]

Hi APP!
Die Mods meinten ich sollte es umstellen
Ich probiere es mal mit Repaint.

Edit: nein funzt leider nicht

[APP]

Hallo,

Delphi-Quellcode:

PROCEDURE TControlTabs.SetItems(CONST Value: TStrings);
BEGIN
   FItems.Assign(Value);
   SetLength(FButtons, FItems.Count);
   INHERITED Paint;  // <-- JETZT FUNKTS LEIDER NICHT
   Invalidate;
END;

[EDIT] SORRY, zu Früh gefreut [/EDIT]

[phlux]

hmm, hast du noch etwas verändert?? also bei klappts nämlich immer noch nicht.
edit: *lol* ich habs auch grad gemerkt!

[APP]

Sorry, mir fällt im Moment auch nix mehr ein (war ein langer Tag),
aber es dürft wohl nur eine Kleinigkeit sein, da z.B.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  ControlTabs1.Items.Add('Test');
  ControlTabs1.Repaint;
end;

funktioniert.

[phlux]

Ja das es mit Repaint als nachträglicher Aufruf funktioniert, hab ich auch herausgefunden. Ich seh auch wahrscheinlich den Wald vor lauter Bäumen nicht mehr (ich saß den ganzen Tag schon davor ). Falls dir noch etwas einfällt, schreibs mir

[Motzi]

Probier mal statt "inherited Paint" nur "Paint"...

[phlux]

Guten Morgen Motzi!
Ich habe es jetztn so geschrieben:

Delphi-Quellcode:

procedure TControlTabs.SetItems(const Value: TStrings);
begin
  FItems.Assign(Value);
  SetLength(FButtons, FItems.Count);
  Paint;
end;

Leider kommt da wieder nichts bei rum

[APP]

Hallo, ich habe heut leider nicht viel Zeit aber folgendes ist mit noch aufgefallen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  ControlTabs1.Items.Add('Test');
end;

ruft in der Unit Classes

Delphi-Quellcode:

function TStrings.Add(const S: string): Integer;
begin
  Result := GetCount;
  Insert(Result, S);
end;

auf und nicht Deine Paintmethode, daher kommt es auch zu keinem Neuzeichnen der Controls.

Die Methode SetItems wird nicht durchlaufen, das kannst Du ganz leicht überprüfen:

einbinden von:
uses Dialogs;

Delphi-Quellcode:

PROCEDURE TControlTabs.SetItems(CONST Value: TStrings);
BEGIN
  FItems.Assign(Value);
  SetLength(FButtons, FItems.Count);
  ShowMessage(Value.Text);   <---- Sollte angezeit werden, tut es aber nicht!
  invalidate;
END;