| |
| |
|
Thomas
Zielinski | hello everyone together,
During low of my Bastelein, pushed I on a hässlichen Anzeigefehler. If itself on one TabCtrl one HScroll (vlt. too VScroll was To rotten to that debug) and one whom small Schieberegler with the mouse shift, so vanish any tab the TabCtrl. too shining me the at all everything neugezeichnet becomes, what itself on the TabCtrl brfindet. Zumindist flackert it short.
Getestet under Win7 HomePremium 64bit with XProfan 11.2
How schaff I the whole remedy?
CompileMarkSeparation {$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
Greeting Thomas |
|
| |
| XProfan X4; Win10 x64
Der Kuchen ist eine lüge! | 06/22/10 ▲ |
|
| |
|
|
Thomas
Zielinski | Nachtrag:
Have a little bit rumprobiert, and VScroll happens me the whole not.
Greeting Thomas |
|
| |
| XProfan X4; Win10 x64
Der Kuchen ist eine lüge! | 06/22/10 ▲ |
|
| |
|
|
Dieter
Zornow | the HScroll reacted indeed not correctly., that is it jumping by me always immediate into Ausgangsstellung back.
If you it on %Hwnd setting is everything ok |
|
| |
| Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2 | 06/22/10 ▲ |
|
| |
|
|
 | Hello Thomas, circa Window/ dialogs etc scrollable To make, simply The ScrollControl-function [...]  use. |
|
| |
| |
| |
|
|
Thomas
Freier | it erschließt itself me simply not:
what should the hscroll& = Create("HScroll",tab &,"",20,100,100, 20) on the Create("TabCtrl",%HW nd,"eins",0,0,300,15 0) ?
hscroll& would then on all TABs his. |
|
| |
| Gruß Thomas
Windows XP SP2, XProfan X2 | 06/22/10 ▲ |
|
| |
|
|
Thomas
Zielinski | Hello Dieter,
indeed this is me noticed having it only not erwähnt.
well then To iF:
I must confess that I simply, crept and ergreifend To thick be around the anzuwenden 
but if need be building I me my own TabCtrl. or what ähnliches 
and To letzt Thomas:
I want me The request in the minimalbsp just save... |
|
| |
| XProfan X4; Win10 x64
Der Kuchen ist eine lüge! | 06/22/10 ▲ |
|
| |
|
|
Thomas
Freier | so far me famous, GEHTS not directly on the TAB-Control.
CompileMarkSeparationcls
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
='./../../Function-References/XProfan/end/'>End
|
|
| |
| Gruß Thomas
Windows XP SP2, XProfan X2 | 06/22/10 ▲ |
|
| |
|
|
Thomas
Zielinski | Ah okay! means simply yet what other drunderpappen. so should it klappen.
Thanks you!
Greeting Thomas
Nachtrag: Klappt wonderful. (on something like Simples had one too self come can) |
|
| |
| XProfan X4; Win10 x64
Der Kuchen ist eine lüge! | 06/22/10 ▲ |
|
| |
|
(456)
Deutsch
English
Français
Español
Italia