Deutsch
Forum

TabCtrl und HScroll

 

Thomas
Zielinski
Hallo alle zusammen,
wärend meiner Bastelein, stieß ich auf einen hässlichen Anzeigefehler. Wenn sich auf einem TabCtrl ein HScroll (vlt. auch VScroll war zu faul zum austesten) und man den kleinen Schieberegler mit der Maus verschiebt, so verschwinden alle Reiter der TabCtrl. Auch scheint mir das überhaupt alles neugezeichnet wird, was sich auf dem TabCtrl brfindet. Zumindist flackert es kurz.
Getestet unter Win7 HomePremium 64bit mit XProfan 11.2
Wie schaff ich dem ganzem Abhilfe?
KompilierenMarkierenSeparieren
 {$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

Gruß Thomas
 
XProfan X4; Win10 x64
Der Kuchen ist eine lüge!
22.06.2010  
 




Thomas
Zielinski
Nachtrag:
Hab ein wenig rumprobiert, und mit VScroll passiert mir das ganze nicht.
Gruß Thomas
 
XProfan X4; Win10 x64
Der Kuchen ist eine lüge!
22.06.2010  
 




Dieter
Zornow
Das HScroll reagiert ja auch nicht richtig, das heißt es springt bei mir immer sofort in die Ausgangsstellung zurück.
Wenn du es auf %Hwnd setzt 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  
 



Hallo Thomas, um Fenster/ Dialoge etc scrollbar zu machen, einfach die ScrollControl-Funktion  [...]  verwenden.
 
22.06.2010  
 




Thomas
Freier
Es erschließt sich mir einfach nicht:
was soll das hscroll& = Create("HScroll",tab &,"",20,100,100, 20) auf dem Create("TabCtrl",%HW nd,"eins",0,0,300,15 0) ?
hscroll& würde dann auf allen TABs sein.
 
Gruß Thomas
Windows XP SP2, XProfan X2
22.06.2010  
 




Thomas
Zielinski
Hallo Dieter,
ja auch das ist mir aufgefallen hatte es nur nicht erwähnt.
Und nun zu iF:
Ich muss eingestehen das ich einfach, schlicht und ergreifend zu doof bin um das anzuwenden

aber notfalls bau ich mir mein eigenes TabCtrl. bzw was ähnliches

und zu letzt Thomas:
ich wollt mir die abfrage im minimalbsp einfach nur sparen...
 
XProfan X4; Win10 x64
Der Kuchen ist eine lüge!
22.06.2010  
 




Thomas
Freier
Soweit mir bekannt, gehts nicht direkt auf dem TAB-Control.
KompilierenMarkierenSeparieren
cls
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

End
 
Gruß Thomas
Windows XP SP2, XProfan X2
22.06.2010  
 




Thomas
Zielinski
Ah okay! Also einfach noch was anderes drunderpappen. So sollt es klappen.
Dank dir!
Gruß Thomas

Nachtrag: Klappt wunderbar. (auf sowas Simples hätte man auch selbst kommen können)
 
XProfan X4; Win10 x64
Der Kuchen ist eine lüge!
22.06.2010  
 



Antworten


Thementitel, max. 100 Zeichen.
 

Systemprofile:

Kein Systemprofil angelegt. [anlegen]

XProfan:

 Beitrag  Schrift  Smilies  ▼ 

Bitte anmelden um einen Beitrag zu verfassen.
 

Themenoptionen

5.203 Betrachtungen

Unbenanntvor 0 min.
p.specht15.12.2020
kustg27.11.2019
Peter Max Müller08.10.2017
Langer17.09.2017
Mehr...

Themeninformationen



Admins  |  AGB  |  Anwendungen  |  Autoren  |  Chat  |  Datenschutz  |  Download  |  Eingangshalle  |  Hilfe  |  Händlerportal  |  Impressum  |  Mart  |  Schnittstellen  |  SDK  |  Services  |  Spiele  |  Suche  |  Support

Ein Projekt aller XProfaner, die es gibt!


Mein XProfan
Private Nachrichten
Eigenes Ablageforum
Themen-Merkliste
Eigene Beiträge
Eigene Themen
Zwischenablage
Abmelden
 Deutsch English Français Español Italia
Übersetzungen

Datenschutz


Wir verwenden Cookies nur als Session-Cookies wegen der technischen Notwendigkeit und bei uns gibt es keine Cookies von Drittanbietern.

Wenn du hier auf unsere Webseite klickst oder navigierst, stimmst du unserer Erfassung von Informationen in unseren Cookies auf XProfan.Net zu.

Weitere Informationen zu unseren Cookies und dazu, wie du die Kontrolle darüber behältst, findest du in unserer nachfolgenden Datenschutzerklärung.


einverstandenDatenschutzerklärung
Ich möchte keinen Cookie