Tab Reiter Löschen

[GT43A]

Hallo ich habe folgendes Problem,
wenn ich mehrere Reiter wie im Beispiel lösche dann
scheint es als ob nach jedem Löschvorgang eines Reiters das Control neu gezeichnet wird.
Und das sieht sche… aus wen es immer flackert, bei Franks Listview muss ich dann manuell Redraw(Listview&) aufrufen sonst ist Sie nur zum Teil sichtbar.

If TabItems& > 1
'Reiter Löschen
x& = TabItems&
Whileloop TabItems&
SendMessage(PageControl1&,4872,x&,0)
X& = X& - 1
EndWhile
Endif


das muss doch auch ohne flackern gehen, aber wie?

[Frabbing]

Das Control muss sich in dem Fall doch neu zeichnen, sonst sieht man ja keine Änderung im Aussehen.

Befindet es sich auf dem Hauptfenster, in einem Dialog oder sonstwie auf einem Control? Poste doch mal einen kleinen, lauffähigen Code.

[Volkmar]

If TabItems& > 1
'Reiter Löschen
x& = TabItems&
SendMessage(PageControl1&, $B,0,0)
Whileloop TabItems&
SendMessage(PageControl1&,4872,x&,0)
X& = X& - 1
EndWhile
SendMessage(PageControl1&, $B,1,0)
~UpdateWindow(PageControl1&)
Endif

Damit kannst du Flackern ausschließen. Du kannst immer das Handle des Fensters angeben, in dem mehrere Änderungen erfolgen sollen, ohne daß dabei Flackern auftreten soll. Also auch beim Füllen von Listen u.s.w. anwendbar.
$H WINDOWS.PH nicht vergessen wegen dem ~UpdateWindow().

Gruß Volkmar

[GT43A]

Zitat von Frabbing

Das Control muss sich in dem Fall doch neu zeichnen, sonst sieht man ja keine Änderung im Aussehen.

Schon aber der Reiter 0 doch bei jedem löschvorgang eigentlich nicht (bei 10 oder mehr sieht das eben nicht schön aus)

Befindet es sich auf dem Hauptfenster, in einem Dialog oder sonstwie auf einem Control? Poste doch mal einen kleinen, lauffähigen Code.

Auf dem Hauptfenster, lege aber ein Kalender, Texte und ne Liste drauf.

Darf ich dir mal ein Download Link mailen das Programm ist für meine Verhältnisse recht umfangreich?

Ich hab es vorerst so gelöst (ist sowieso eleganter), aber es könnte ja sein das ich 20 Objekte lösche und dann ist es wieder da das Mysterium.

'############################################################################### ##########
'Anzahl der Tabreiter ermitteln
var TabItems& = SendMessage(PageControl1&,&TCM_GETITEMCOUNT,0,0)

'############################################################################### ##########
' Reiter Laden
X& = 0
X3& = 0
WhileLoop DB_Anzahl%
'Daten aus der DB laden
Clear bereich#,ObjektNr$
GetItemText(Objekt_Daten&,bereich#,0,X&)
x2& = (Val(String$(bereich#,0)) -1)
Clear bereich#,Objekt_text$
GetItemText(Objekt_Daten&,bereich#,1,X&)
Objekt_text$= String$(bereich#,0)

If (Objekt_text$ = "I") | (Objekt_text$ = "IA")
'wenn ein Objekt als inaktiv gesetzt ist
'oder Inaktive und ausblenden
'keine weiter Anzeige im Programm nur in dem Dialog Projekte
Else
Clear bereich#,text$
GetItemText(Objekt_Daten&,bereich#,21,X&)
text$=String$(bereich#,0)
Clear bereich#
GetItemText(Objekt_Daten&,bereich#,22,X&)
text$ = text$ + " " + String$(bereich#,0)
Clear bereich#
GetItemText(Objekt_Daten&,bereich#,23,X&)
text$ = text$ + ", " + String$(bereich#,0)
Clear bereich#
GetItemText(Objekt_Daten&,bereich#,24,X&)
text$ = text$ + " " + String$(bereich#,0)
text$ = ObjektNr$ + @Left$(text$,40)
If X& = 0
Reiter&[x3&] = x2& 'DB Nr.
SetText PageControl1&, 0,text$
Else
Reiter&[x3&] = x2& 'DB Nr.
If (x3& = TabItems&) | (x3& > TabItems&)
InsertTab(PageControl1&, X3&, Text$,56)
Else
SetText PageControl1&, X3&,text$
EndIf
Endif
INC X3&
Endif
X& = X& + 1
EndWhile
'############################################################################### ##########
'Nicht benötigte Reiter Löschen
If TabItems& > X3&
x& = (TabItems& - 1)
x2& = (TabItems& - x3&)
Whileloop x2&
SendMessage(PageControl1&,4872,x&,0)
X& = X& - 1
EndWhile
Endif
'############################################################################### ##########

[GT43A]

Zitat von Volkmar

If TabItems& > 1
'Reiter Löschen
x& = TabItems&
SendMessage(PageControl1&, $B,0,0)
Whileloop TabItems&
SendMessage(PageControl1&,4872,x&,0)
X& = X& - 1
EndWhile
SendMessage(PageControl1&, $B,1,0)
~UpdateWindow(PageControl1&)
Endif

Damit kannst du Flackern ausschließen. Du kannst immer das Handle des Fensters angeben, in dem mehrere Änderungen erfolgen sollen, ohne daß dabei Flackern auftreten soll. Also auch beim Füllen von Listen u.s.w. anwendbar.
$H WINDOWS.PH nicht vergessen wegen dem ~UpdateWindow().

Gruß Volkmar

Oh das Probiere ich nachher, muss zum Notensatz
Danke

[Frabbing]

Die Message verhindert übrigens das Neuzeichnen, siehe WM_SETREDRAW.
WM_SETREDRAW message

Gerd, wenn du Codes innerhalb von Codetags postest, ist er besser erkennbar. [CODE ]'Dein Code [/CODE ]. Nur ohne Leerzeichen:

'Dein Code

[GT43A]

Hallo,

hab beides getestet


beide Auto-Aktualisierungen mögen aber Franks Listview nicht!











Keine Aktualisierung bis Neustart.
Wenn ich Redraw(Listview&) nach dem Reiter löschen benutz dann sofort wieder.

[GT43A]

Oh da ist der Hund begraben,
listview&=CreateListView(%Hwnd,%hinstance,0,x&,-1,$421)

so klappt es
listview&=CreateListView(PageControl1&,%hinstance,0,x&,-1,$421)

hem beim Kalender und Text gibt es keine Probleme
Kalender& = Control("SysMonthCal32", "Kalender", $54000004,( %MaxX + 20),210 ,243,208, %Hwnd, 0, %hInstance, 0)

[Frabbing]

Darum ist ein kurzer, lauffähiger Testcodeimmer gut. Damit findet man seine Fehler oft schon von ganz alleine.