| |
| |
|
Thomas
Zielinski | ¡Hola todos zusammen,
wärend meiner Bastelein, stieß I una hässlichen Pantalla de error. Wenn se en una TabCtrl una HScroll (vlt. auch VScroll war a faul para austesten) y uno el pequeño Schieberegler con ratón verschiebt, así verschwinden todos Reiter el TabCtrl. Auch scheint me überhaupt alles neugezeichnet se, qué se en el TabCtrl brfindet. Zumindist flackert lo kurz.
Getestet bajo Win7 HomePremium 64bit con XProfan 11.2
Como schaff Yo el ganzem Abhilfe?
KompilierenMarcaSeparación {$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
End
Saludo Thomas |
|
| |
| XProfan X4; Win10 x64
Der Kuchen ist eine lüge! | 22.06.2010 ▲ |
|
| |
|
|
Thomas
Zielinski | Apéndice:
Hab una wenig rumprobiert, y VScroll passiert me todo no.
Saludo Thomas |
|
| |
| XProfan X4; Win10 x64
Der Kuchen ist eine lüge! | 22.06.2010 ▲ |
|
| |
|
|
Dieter
Zornow | Das HScroll reagiert en efecto no correcto, el heißt lo springt en me siempre inmediatamente en el Ausgangsstellung zurück.
Wenn du lo en %Hwnd setzt es 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 ▲ |
|
| |
|
|
 | Hola Thomas, en Ventana/ Dialoge etc scrollbar a hacer, simplemente el ScrollControl-Función [...]  uso. |
|
| |
| |
| |
|
|
Thomas
Freier | Lo erschließt se me simplemente no:
qué se el hscroll& = Crear("HScroll",tab &,"",20,100,100, 20) en el Crear("TabCtrl",%HW nd,"eins",0,0,300,15 0) ?
hscroll& sería entonces en allen TABs ser. |
|
| |
| |
| |
|
|
Thomas
Zielinski | ¡Hola Dieter,
en efecto el me está aufgefallen hatte lo sólo no erwähnt.
Und nun a IF:
Yo muss eingestehen el Yo simplemente, schlicht y ergreifend a doof bin en el anzuwenden 
aber notfalls bau Yo mein propio TabCtrl. o qué ähnliches 
y a letzt Thomas:
Yo wollt me el abfrage en el minimalbsp simplemente sólo sparen... |
|
| |
| XProfan X4; Win10 x64
Der Kuchen ist eine lüge! | 22.06.2010 ▲ |
|
| |
|
|
Thomas
Freier | Soweit me bekannt, gehts no direkt en el TAB-Control.
KompilierenMarcaSeparacióncls
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/'>End
|
|
| |
| |
| |
|
|
Thomas
Zielinski | Ah okay! Also simplemente todavía qué más drunderpappen. So sollt lo klappen.
Dank dir!
Saludo Thomas
Apéndice: Klappt wunderbar. (en algo como Simples hätte uno auch incluso kommen puede) |
|
| |
| XProfan X4; Win10 x64
Der Kuchen ist eine lüge! | 22.06.2010 ▲ |
|
| |
|
(286)
Deutsch
English
Français
Español
Italia