| |
| |
|
Thomas
Zielinski | allô alle zusammen,
wärend meiner Bastelein, stieß je sur une hässlichen Erreur d'affichage. si sich sur einem TabCtrl un HScroll (vlt. aussi VScroll était trop fainéant zum austesten) et on den kleinen Schieberegler avec qui souris verschiebt, so verschwinden alle Reiter qui TabCtrl. aussi scheint mir cela überhaupt alles neugezeichnet wird, quoi sich sur dem TabCtrl brfindet. Zumindist flackert es kurz.
Getestet sous Win7 HomePremium 64bit avec XProfan 11.2
comment schaff je dem ganzem Abhilfe?
KompilierenMarqueSéparation {$iq}
cls
var tab& = Create("TabCtrl",%HWnd,"eins",0,0,300,150)
InsertTab(tab&, 1, "zwei")
InsertTab(tab&, 2, "drei")
var hscroll& = Create("HScroll",tab&,"",20,100,100,20)
var ende& = Create("Button",%HWnd,"Ende",20,200,100,25)
var e% = 0
While e% = 0
WaitInput
If GetFocus(ende&)
e% = 1
EndIf
EndWhile
Fin
Salut Thomas |
|
| |
| XProfan X4; Win10 x64
Der Kuchen ist eine lüge! | 22.06.2010 ▲ |
|
| |
|
|
Thomas
Zielinski | Nachtrag:
Hab un peu rumprobiert, et VScroll passiert mir cela ganze pas.
Salut Thomas |
|
| |
| XProfan X4; Win10 x64
Der Kuchen ist eine lüge! | 22.06.2010 ▲ |
|
| |
|
|
Dieter
Zornow | cela HScroll reagiert oui aussi pas richtig, cela est es springt chez mir toujours tout de suite dans qui Ausgangsstellung zurück.
si du es sur %Hwnd mets ist alles ok |
|
| |
| Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2 | 22.06.2010 ▲ |
|
| |
|
|
 | allô Thomas, um la fenêtre/ Dialoge etc scrollbar trop faire, simple qui ScrollControl-Funktion [...]  verwenden. |
|
| |
| |
| |
|
|
Thomas
Freier | Es erschließt sich mir simple pas:
quoi soll cela hscroll& = Créer("HScroll",tab &,»,20,100,100, 20) sur dem Créer("TabCtrl",%HW nd,"eins",0,0,300,15 0) ?
hscroll& serait ensuite sur allen TABs son. |
|
| |
| |
| |
|
|
Thomas
Zielinski | allô Dieter,
oui aussi c'est mir aufgefallen hatte es seulement pas erwähnt.
et eh bien trop iF:
je muss avouer le moi simple, schlicht et ergreifend trop doof suis um cela anzuwenden 
mais notfalls bau je mir mon eigenes TabCtrl. bzw quoi ähnliches 
et trop letzt Thomas:
je voulez mir qui abfrage im minimalbsp simple seulement sparen... |
|
| |
| XProfan X4; Win10 x64
Der Kuchen ist eine lüge! | 22.06.2010 ▲ |
|
| |
|
|
Thomas
Freier | Soweit mir bekannt, gehts pas direct sur dem TAB-Contrôle.
KompilierenMarqueSéparationcls
var tab& = Create("TabCtrl",%HWnd,"eins",0,0,300,150)
InsertTab(tab&, 1, "zwei")
InsertTab(tab&, 2, "drei")
var ELEMENT1&=Control("DIALOG","",$54001100,0,22,300,150,tab&,0,%hinstance,$0)
var ELEMENT2&=Control("DIALOG","",$54001100,0,22,300,150,tab&,0,%hinstance,$0)
var ELEMENT3&=Control("DIALOG","",$54001100,0,22,300,150,tab&,0,%hinstance,$0)
var hscroll& = Create("HScroll",ELEMENT1&,"",20,100,100,20)
var hscroll2& = Create("VScroll",ELEMENT2&,"",260,20,20,100)
var ende& = Create("Button",ELEMENT3&,"Ende",20,100,100,25)
var e% = 0
var hsc& = Create("Button",tab&,"Test und Ende",20,40,160,20) direkt auf tab&
Showwindow(Element1&,1)
Showwindow(Element2&,0)
Showwindow(Element3&,0)
While e% = 0
WaitInput
If GetFocus(ende&)
e% = 1
elseif GetFocus(hsc&)
DrawText 10,200, "Test"
BREAK
EndIf
IF TABCHANGED(Tab&)
IF GetActiveTab(Tab&) = 0
Showwindow(Element1&,1)
Showwindow(Element2&,0)
Showwindow(Element3&,0)
ELSEIF GetActiveTab(Tab&) = 1
Showwindow(Element1&,0)
Showwindow(Element2&,1)
Showwindow(Element3&,0)
ELSEIF GetActiveTab(Tab&) = 2
Showwindow(Element1&,0)
Showwindow(Element2&,0)
Showwindow(Element3&,1)
ENDIF
EndIf
EndWhile
='./../../funktionsreferenzen/XProfan/end/'>Fin
|
|
| |
| |
| |
|
|
Thomas
Zielinski | Ah okay! alors simple encore quoi d'autre drunderpappen. So sollt es marcher.
Dank dir!
Salut Thomas
Nachtrag: Klappt wunderbar. (sur quelque chose comme Simples hätte on aussi selbst venons peut) |
|
| |
| XProfan X4; Win10 x64
Der Kuchen ist eine lüge! | 22.06.2010 ▲ |
|
| |
|
(467)
Deutsch
English
Français
Español
Italia