Update des Fensters für eine Zeit unterbinden

[daywalker9]

Du kannst WM_SETREDRAW nutzen. Beispiel findest Du dort: StackOverflow

[loirad]

Hallo, Danke für deine Idee daywalker9, aber es funktioniert immmernoch nicht.
Es flackert zwar nicht, aber es erzeugt auch nichts (siehe Bild im Anhang).

Delphi-Quellcode:

for i:=0 to length(Tage)-1 do
  begin
   Tage[i]:=TListbox.Create(Kalender);
   Tage[i].Parent:=Kalender;
   SendMessage(Handle, WM_SETREDRAW, WPARAM(False), 0);
   try
   Tage[i].Width:=Kalender.DefaultColWidth;
   Tage[i].Height:=Kalender.DefaultRowHeight;
   Tage[i].Left:=((i+Wochentag-1) mod 7)*(Kalender.DefaultColWidth+1);
   Tage[i].Top:=((i+Wochentag-1) div 7)*(Kalender.DefaultRowHeight+1)+40;
   Tage[i].Style:=lbOwnerDrawFixed;
   Tage[i].Font.Size:=10;
   Tage[i].Items.Add(Zentriere(inttostr(i+1)+'.'+inttostr(m)+'.'+inttostr(y),Tage[i].ClientWidth,Tage[i].Font));
   finally
   SendMessage(Handle, WM_SETREDRAW, WPARAM(True), 0);
   end;
  end;

Eigentlich sieht es wie auf dem 2. Bild aus!

Hat noch jemand eine weitere Idee oder habe ich etwas übersehen? Danke für weitere Antworten

[daywalker9]

Zitat von loirad:

Hat noch jemand eine weitere Idee oder habe ich etwas übersehen? Danke für weitere Antworten

Du musst noch Invalidate oder RedrawWindow(Handle, nil, 0, RDW_ERASE or RDW_FRAME or RDW_INVALIDATE or RDW_ALLCHILDREN) aufrufen

[loirad]

Zitat von daywalker9:

Du musst noch Invalidate oder RedrawWindow(Handle, nil, 0, RDW_ERASE or RDW_FRAME or RDW_INVALIDATE or RDW_ALLCHILDREN) aufrufen

So:

Delphi-Quellcode:

 for i:=0 to length(Tage)-1 do
  begin
   Tage[i]:=TListbox.Create(Kalender);
   Tage[i].Parent:=Kalender;
   SendMessage(Handle, WM_SETREDRAW, WPARAM(False), 0);
   try
   Tage[i].Width:=Kalender.DefaultColWidth;
   Tage[i].Height:=Kalender.DefaultRowHeight;
   Tage[i].Left:=((i+Wochentag-1) mod 7)*(Kalender.DefaultColWidth+1);
   Tage[i].Top:=((i+Wochentag-1) div 7)*(Kalender.DefaultRowHeight+1)+40;
   Tage[i].Style:=lbOwnerDrawFixed;
   Tage[i].Font.Size:=10;
   Tage[i].Items.Add(Zentriere(inttostr(i+1)+'.'+inttostr(m)+'.'+inttostr(y),Tage[i].ClientWidth,Tage[i].Font));
   finally
   SendMessage(Handle, WM_SETREDRAW, WPARAM(True), 0);
   RedrawWindow(Handle, nil, 0, RDW_ERASE or RDW_FRAME or RDW_INVALIDATE or RDW_ALLCHILDREN);
   end;
  end;

geht es leider auch nicht - ist eine Mischung aus flackern und nicht zeichnen es ist das gleiche Bild wie bei meinem vorherigen Post, nur das es noch flackert!

Liebe Grüße
loirad

PS.:
Es steht im OnPaint drin - liegt da der Fehler?
@Dalai: Ich möchte eine Gesamtübersicht über den Monat mit To-Do's haben!
@jaenicke: DoubleBuffered ist an (hatte ich schon erwähnt)! Mit dem neuen Erzeugen macht es sich am einfachsten!

[daywalker9]

Mach das setzen des WM_SETREDRAW und RedrawWindow nicht innerhalb der schleife, sondern vorher bzw nachher

[loirad]

@daywalker9: macht keinen Unterschied!

Hat jemand eine andere Lösung?

[daywalker9]

Zitat von loirad:

@daywalker9: macht keinen Unterschied!

Hat jemand eine andere Lösung?

Ersetze mal SendMEssage durch  Self.Perform(WM_SETREDRAW, WPARAM(false), 0);

[jaenicke]

Oh, das mit dem DoubleBuffered hatte ich übersehen.

Zitat von loirad:

Mit dem neuen Erzeugen macht es sich am einfachsten!

Erstens kommt dir das nur so vor, zweitens musst du eben selbst entscheiden was du willst:
Eine gute Lösung oder eine, die dir einfach erscheint, aber dafür eben deutliche Schwächen hat... Viel verbessern lässt sich da nicht... Das ist so schlicht nicht vorgesehen.

Klar, selbst zeichnen ist schwerer, aber dafür am Ende auch viel besser vom Ergebnis her.

Aber schon das Wiederverwenden bringt viel und ist eher einfacher als deine jetzige Lösung...

[loirad]

@jaenicke: Es flackert immernoch und dazu noch irgendwelche Exceptions (das liegt aber wahrscheinlich an mir)!
@daywalker9: Gleiches Resultat! Liegt es daran, dass es im OnPaint ist und damit eine Endlosschleife erzeugt?

[daywalker9]

Im OnPaint?

Du erzeugst bei jedem Malen der Form die ListBoxen erneut? Dann ist es klar, das es flackert, reicht es nicht im FormCreate?