XProfan

24.02.2005 ▲

Michael
Dell

¡Hola Georg,

interessante Cuestión, tener algo rumgeschraubt:
Kompilieren Marca Separación

Declare dlg1&,med1&
WindowStyle 26538
Window 0,0-640,480
dlg1& = Control("Static","Test- Fenster",$D0C001A6,20,20,400,260,%Hwnd,0,%HINSTANCE,$0108)  Static - QuasiDialog
med1& = control(  "Edit",             "",$50B000C4,10,10,380,200,dlg1&,0,%HINSTANCE,$0200)  Edit   - Multiline

WhileNot Or(Equ(%Key,2),Equ(%MenuItem,-2))

    WaitInput

EndWhile

Salu Michael...

Hab zwar krumme Fieß awer dofir e' ecklich Gsicht!

GDL

¡Hola Michael,

primero Gracias para el código.Er va ya,aber desafortunadamente Yo vergessen a escribir,dass en el Dialogfenster auch Buttons son,el ya reagieren necesario.Bitte no böse ser.

Probiere ahora todavía el $Zahl con verschiedenen Pagar en deinem Code de.

Servus
Georg

Windows7 Xprofan 8,9,10 [...]

Michael
Dell

Sorry, el war kein muy gutes Ejemplo.

Hier una besseres (Hoff!)

:
Kompilieren Marca Separación

Declare dlg1&,stc1&,med1&,bt1&,bt2&,bt3&
WindowStyle 26538
Window 0,0-640,480
dlg1& = Create("Dialog",%HWnd,"Test- Fenster",20,20,640,480)  Quasi Dialog Fenster
Zuerst die Buttons und alle anderen Controls erstellen
bt1& = Create("Button",dlg1&,"Button 1",480, 60,120,22)
bt2& = Create("Button",dlg1&,"Button 2",480,100,120,22)
bt3& = Create("Button",dlg1&,"Button 3",480,140,120,22)
jetzt das Static- Control als Unterlage fürs MultiEdit (und nur für dieses)
es Trennt sozusagen das Edit vom Dialog und dessen Eigenschaften!
stc1& = Control("Static","",$D0000120,40,60,400,420,dlg1&,0,%HINSTANCE,$040008)  Static - Edit Unterlage
med1& = control(  "Edit","",$50B000C4,0,0,400,420,stc1&,0,%HINSTANCE,$0200)      Edit   - Multiline
SetActiveWindow(dlg1&)

WhileNot Or(Equ(%Key,2),Equ(%MenuItem,-2))

    WaitInput

EndWhile

End

Salu

Michael

Salu Michael...

Hab zwar krumme Fieß awer dofir e' ecklich Gsicht!

GDL

¡Hola Michael,

lo klappt einwandfrei.Gracias.

Kann uno dies generell así hacer,el uno con un Static como Unterlage una neuen Objeto neue Stile(unabhängig vom Ventana oder Diálogo)zuweisen kann ?

Servus
Georg

Windows7 Xprofan 8,9,10 [...]

Michael
Dell

¡Hola Georg,

Yo denke en el allermeisten Fällen ya. Statics son ligeramente a Sonderfälle anzupassen. Benutze ellos auch gern gern como Base- Unterlage para Objetos en Tab-Controls also überall wo viele Controls verwaltet voluntad. El besten Styles esta dejar se rápidamente y simplemente con ControlFellow (en PrFellow) herausfinden.

Saludo

Michael

Salu Michael...

Hab zwar krumme Fieß awer dofir e' ecklich Gsicht!

GDL

¡Hola Michael,

puh,bekam ya una Schrecken.
Baute mein ursprüngliches Programa en,sólo el Guardar y Run Características gingen no mehr.

Kam entonces detrás de él,el Windowseigene Dialoge (Guardar,Messagebox usw.),si ellos en vom Static mentira,detrás de él verborgen bleiben.

Habs entonces así gelöst.
Kompilieren Marca Separación

textfeld&=das Richedit
riche&=Static
subfenster&=Dialogfenster
SelectAll textfeld&
CopyToClip(textfeld&)
destroywindow(riche&)
speichern                  hier Speicherdialog
erzeugen
riche& = Control("Static","",$D0000120,0,60,800,600,subfenster&,0,%HINSTANCE,$040008)  Static - Edit Unterlage
CreateRTFControl riche&,0,60,800,600
Let textfeld&=GetIntResult()
rtf&=@CREATE("FONT","COURIER",16,12,1,0,0)
setfont textfeld&,rtf&
PasteAsText(textfeld&)
setfocus(textfeld&)

Posesiones otra vez einiges dazugelernt.

Servus
Georg

Windows7 Xprofan 8,9,10 [...]

Michael
Dell

¡Hola,

el schwierigkeit beim Platzieren el Controls ensteht por el Staticstil lo es se hier no en una Child pero en una Popup. Das bedeutet: (x,y = 0,0) heißt linker oberer Bildschirmrand, no linke obere Ecke des übergeordneten Fensters.

Hab todos überarbeitet, así el lo con un einzigen Befehl va.

cMEDwStc(ControlNummer&,WindowHndl&,x&,y&,cx&,cy&,zusatzStil&).

Mit SetParent se (x,y) korrekt gesetzt (Dank IF):
Kompilieren Marca Separación

**** Hiermit können bis zu 40 (0-39) MultiEdits auf Statics erzeugt und zerstört werden ****
DEF ASetParent(2) ! "USER32","SetParent"
Declare MED1&[40,2]  MED1&[CtrlNr&,0] = StaticHandle / MED1&[CtrlNr&,1] = MultiEditHandle
Clear MED1&[]

Proc cMEDwStc  erstsellt ein Multiline- Edit auf einem Popup- Static (Unabhängig gegenüber übergeordneten Fenster!)

    Parameters CtrlNr&,dHndl&,x&,y&,cx&,cy&,zStil&
    Declare erg$
    MED1&[CtrlNr&,0] = Control("Static","",Or($D0000120,zStil&),x&,y&,cx&,cy&,dHndl&,Add($a8000,CtrlNr&),0,$040008)  StaticUnterlage
    ASetParent(MED1&[CtrlNr&,0],dHndl&)

    IfNot (zStil& = 6)

        MED1&[CtrlNr&,1] = Control("Edit","",$50B000C4,0,0,cx&,cy&,MED1&[CtrlNr&,0],Add($a8000,CtrlNr&),0,$000200)  EditMultiline

    EndIf

    Case Gt(MED1&[CtrlNr&,0],0) Or Gt(MED1&[CtrlNr&,1],0): Return -1
    Return 0

EndProc

Proc KillMEDwStc  Killt alle mit cMEDwStc erstellten Controls

    Parameters CtrlMaxNr&

    WhileLoop 0,CtrlMaxNr&,1

        DestroyWindow(MED1&[&Loop,0])

    EndWhile

EndProc

**********************************************************************************************
**** Programm Start ****
Declare dlg1&,bt1&,bt2&,bt3&
WindowStyle 26538
Window 0,0-640,480
dlg1& = Create("Dialog",%HWnd,"Test- Fenster",20,20,640,480)  Quasi Dialog Fenster
Zuerst die Buttons und alle anderen Controls erstellen
bt1& = Create("Button",dlg1&,"Button 1",480, 60,120,22)
bt2& = Create("Button",dlg1&,"Button 2",480,100,120,22)
bt3& = Create("Button",dlg1&,"Button 3",480,140,120,22)
jetzt das Static- Control als Unterlage fürs MultiEdit (und nur für dieses)
es Trennt sozusagen das Edit vom Dialog und dessen Eigenschaften!
cMEDwStc(0,dlg1&, 20, 20,400,420,0)
cMEDwStc(1,dlg1&,460,180,162,160,$06) letzter Parameter auf $06 zum ausrichten des Controls
SetActiveWindow(dlg1&)

WhileNot Or(Equ(%Key,2),Equ(%MenuItem,-2))

    WaitInput

EndWhile

KillMEDwStc(1)
f='./../../funktionsreferenzen/XProfan/end/'>End

Salu

Michael...

Salu Michael...

Hab zwar krumme Fieß awer dofir e' ecklich Gsicht!

Und por qué nimmst no simplemente nen
Kompilieren Marca Separación

DEF ASetParent(2) ! "USER32","SetParent","%%","%"

?

Salve, IF

Michael
Dell

Hola si, el kannte Todavía no

Gracias

Michael...

Salu Michael...

Hab zwar krumme Fieß awer dofir e' ecklich Gsicht!

Achso lol - Yo tener gegrübelt si el nich Nachteile mitsich bringt - aba así ists sí jut.

Salve, IF

[quote:a59489485d=Georg Dankesreiter]Kam entonces detrás de él,el Windowseigene Dialoge (Guardar,Messagebox usw.),si ellos en vom Static mentira,detrás de él verborgen bleiben.
[/quote:a59489485d]
¡Hola Georg,
tal vez hilft Usted auch una erweiterter Stil para Messageboxen: (Auszug de el Profano-Ayuda)

Werte para FENSTERART:
0 - normales Ventana (~MB_APPLMODAL)
4096 - großes, no verschiebbares Fehler-Ventana (~MB_SYSTEMMODAL)
8192- como 0, sin embargo para unsichtbare Ventana (~MB_TASKMODAL)
16384- fügt una Ayuda-Button hinzu (~MB_HELP)
65536- el MessageBox se en el Vordergrund gesetzt (~MB_SETFOREGROUND)
262144- el MessageBox se en el Vordergrund gesetzt y restos hay (~MB_TOPMOST)
524288- Texto rechtsbündig ausrichten (~MB_RIGHT)

Saludo, Christian

XProfan 8/9.1, Win XP, AMD 64/3200