Español
Foro

TabCtrl y HScroll

 

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.
 
22.06.2010  
 




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.
 
Gruß Thomas
Windows XP SP2, XProfan X2
22.06.2010  
 




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ón
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

='./../../funktionsreferenzen/XProfan/end/'>End
 
Gruß Thomas
Windows XP SP2, XProfan X2
22.06.2010  
 




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  
 



Respuesta


Título del Tema, max. 100 Signo.
 

Systemprofile:

Kein Systemprofil creado. [anlegen]

XProfan:

 Contribución  Font  Smilies  ▼ 

Bitte registro en una Contribución a verfassen.
 

Tema opciones

8.760 Views

Untitledvor 0 min.
RudiB.27.09.2022
Georg Teles26.10.2021
p.specht15.12.2020
kustg27.11.2019
Más...

Themeninformationen



Admins  |  AGB  |  Applications  |  Autores  |  Chat  |  Política de Privacidad  |  Descargar  |  Entrance  |  Ayuda  |  Merchantportal  |  Pie de imprenta  |  Mart  |  Interfaces  |  SDK  |  Services  |  Juegos  |  Búsqueda  |  Support

Ein Projekt aller XProfan, el lo son!


Mi XProfan
Privado Noticias
Eigenes Ablageforum
Temas-Merkliste
Eigene Beiträge
Eigene Temas
Zwischenablage
Cancelar
 Deutsch English Français Español Italia
Traducciones

Política de Privacidad


Wir uso Cookies sólo como Session-Cookies wegen el technischen Notwendigkeit y en uns hay no Cookies de Drittanbietern.

Wenn du hier en unsere Webseite klickst oder navigierst, stimmst du unserer Erfassung de Informationen en unseren Cookies en XProfan.Net a.

Weitere Informationen a unseren Cookies y dazu, como du el Kontrolle darüber behältst, findest du en unserer nachfolgenden Datenschutzerklärung.


einverstandenDatenschutzerklärung
Yo möchte no Cookie