XProfan

- Page 1 -

GDL

Hello Michael,

puh,got already a terror.
built my ursprüngliches Program circa,only The Save and Run functions went not any more.

coming then behind it,the Windowseigene dialogs (Save,Messagebox etc.),as they in the area of Static lying,behind it hidden stay.

Habs then so resolved.
Compile Mark Separation

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&)

have again some dazugelernt.

Hello
Georg

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

[...]

02/25/05 ▲

Michael
Dell

Hi,

The problem at Platzieren the Controls ensteht by the Staticstil it deals itself not for a Child separate for a Pop. the means: (x,y = 0,0) is linker upper Bildschirmrand, not left upper corner the übergeordneten Fensters.

Have the whole revised, so the it with a only commands goes.

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

with Entry / becomes (x,y) correctly staid (Thanks iF):
Compile Mark Separation

**** 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='./../../Function-References/XProfan/end/'>End

Salu

Michael...

Salu Michael...

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

and Why take not simply NEN
Compile Mark Separation

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

?

salvo, iF

Michael
Dell

Hello iF, whom knew I not yet

thanks

Michael...

Salu Michael...

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

Achso lol - I Have gegrübelt whether the Nich detriments mitsich bring - aba so ists Yes jut.

salvo, iF

[quote:a59489485d=Georg Dankesreiter]coming then behind it,the Windowseigene dialogs (Save,Messagebox etc.),as they in the area of Static lying,behind it hidden stay.
[/quote:a59489485d]
Hello Georg,
Perhaps helps you too one erweiterter Style for Messageboxen: (statement from the Profan-Help)

values for FENSTERART:
0 - normales Window (~MB_APPLMODAL)
4096 - large, not verschiebbares Error-Window (~MB_SYSTEMMODAL)
8192- How 0, however for unsichtbare Window (~MB_TASKMODAL)
16384- fügt a Help-Button hinzu (~MB_HELP)
65536- The MessageBox becomes into Vordergrund staid (~MB_SETFOREGROUND)
262144- The MessageBox becomes into Vordergrund staid and remaining there (~MB_TOPMOST)
524288- Text rechtsbündig report (~MB_RIGHT)

Greeting, Christian

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

- Page 2 -

Michael
Dell

Hi,

the Problem with the MessageBoxen lying on the Static- Style WS_EX_TOPMOST, dank Entry / can hereon now waived go.
Compile Mark Separation

**** Hiermit können bis zu 40 (0-39) MultiEdits auf Statics erzeugt und zerstört werden ****
Befehle: cMEDwStc(ControlNr&,dHndl&,EditArt&,Text$,x&,y&,cx&,cy&,zusatzStil&)
--> erstsellt Edits auf einem Static (macht das Edit Unabhängig vom übergeordneten Fenster!)
-- ControlNr&    = Nummer des Controls (0-39 beginnt bei 0 & wird immer um eins erhöht)
-- dHndl&        = Handle des übergeordneten Dialogs
-- EditArt&      = 0 => MultiEdit / 1 => RichEdit
-- Text$         = erster Text der im Edit erscheinen soll sonst => ""
-- zusatzStil&   = bei 1 => wird nur das Static mit hellem Hintergrund erzeugt,
das dient zum Platzieren des Controls (Entwicklung) sonst => 0
KillMEDwStc(MaxControlNr&)
--> Killt alle mit cMEDwStc erstellten Controls
-- MaxControlNr& = die höchste Control Nummer (bei 2 erzeugten also 1)
gStcHandl(ControlNr&)
--> gibt das Handle des Controls (Static mit ControlNr&) zurück
gMedHandl(ControlNr&)
--> gibt das Handle des Controls (Edit mit ControlNr&) zurück
DEF ASetParent(2) ! "USER32","SetParent"
Declare MED1&[40,2]  MED1&[CtrlNr&,0] = Static Handle / MED1&[CtrlNr&,1] = Edit Handle
Clear MED1&[]

Proc cMEDwStc  erstsellt Edits auf einem Static (macht das Edit Unabhängig vom übergeordneten Fenster!)

    Parameters CtrlNr&,dHndl&,Art&,Txt$,x&,y&,cx&,cy&,zStil&
    Case Lt(CtrlNr&,0) Or Gt(CtrlNr&,39): Return -1
    Case Lt(Art&,0) Or Gt(Art&,1): Return -1
    Case Lt(zStil&,0) Or Gt(zStil&,1): Return -1
    Case Equ(zStil&,1): zStil& = $06
    Declare erg$
    MED1&[CtrlNr&,0] = Control("Static","",Or($D0000120,zStil&),x&,y&,cx&,cy&,dHndl&,Add($a8000,CtrlNr&),0)  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
        Case (Art& = 0): MED1&[CtrlNr&,1] = Create("MultiEdit",MED1&[CtrlNr&,0],Txt$,0,0,cx&,cy&)
        Case (Art& = 1): MED1&[CtrlNr&,1] = Create("RichEdit",MED1&[CtrlNr&,0],Txt$,0,0,cx&,cy&)

    EndIf

    Case Lt(MED1&[CtrlNr&,0],1) Or Lt(MED1&[CtrlNr&,1],1): Return -1
    SetActiveWindow(dHndl&)
    Return 0

EndProc

Proc KillMEDwStc

    Parameters CtrlMaxNr&

    WhileLoop 0,CtrlMaxNr&,1

        DestroyWindow(MED1&[&Loop,0])

    EndWhile

EndProc

Def gStcHandl(1) MED1&[&(1),0]
Def gMedHandl(1) MED1&[&(1),1]
**********************************************************************************************
**** Programm Start ****
Declare dlg1&,bt1&,bt2&,bt3&
WindowStyle 26538
Window 0,0-640,480
dlg1& = Create("Dialog",%HWnd,"Test- Fenster",60,60,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&,1,"Rich", 20, 20,400,420,0)
cMEDwStc(1,dlg1&,0,"Multi",460,180,162,160,0)
Sleep 1000
SetText gMedHandl(0),"Test 1"
Sleep 1000
SetText gMedHandl(1),"Test 2"
Sleep 1000
MessageBox("Test- Message","Achtung...",48)
SetActiveWindow(dlg1&)

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

    WaitInput

EndWhile

KillMEDwStc(1ss=s2>)
End

Salu

Michael...

Salu Michael...

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

GDL

Hello Christian and Michael,

my Hauptproblem lying therein,that I Windows so well How no idea have.except for the bisschen I of you and Andreas yet on The row got,have I no idea How I The vorgefertigten Profanbefehle and the Messages join should,since the Profanbefehle without The $number association go.have me in Prfellow The Stylefactory time respected,only where can nachlesen what The Messages,The not from the names,or sofortiger action discernible are, effect.with the Messages is it just as,any The in the Profan Help not very described are,where can itself a anfängerverständliche Description procure.If one too The Winhelp Translated,has one solely The Translation of engl.Fachchinesisch in that German Fachchinesisch.
If of you someone one good book over this area wisely,Please divides it me with.most Problems(me GEHTS anyway so) come into being for Beginner always then,ifs with the Profaneigenen command not goes and then each crowd others Opportunities had,but with them nothing to begin wisely.
therefore come always my unkonventionellen ask and hope,I me therefore not too much blamiere ?but i want it on The row catch !

with friendly greet
Georg

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

[...]

Hello Georg!
isn't so bad, pointed looks. but often one mühevoller and dornenreicher lane there. the can You only just as learn as we any. Codes standing and analyse, How others something solve and then modify, try, look, what happens. experiment, experiment ...
You find but in the Profanhilfe plenty About Controls, look times under @Control to. too div. Stile are there to find. too so rewards itself the try!
helpful is too the scour the div. Homepages of jenen, The this lane already gone are. there Gibts each crowd Sourcecodes to that try and use. Specifically helpful for you would zB. Pascals Homepage (API-Grundlagen-course etc) or The Andreas Miethe, the a great many interesting Codes has published (the meiste of it very well documents), circa only a couple Examples To name. most the here vertretenen Profaner having on ihren pages plenty Wissenswertes the Public available set. I have of these pages round 200 MB free Sourcecodes and programs Downloaded, where I with want search go, circa not jedesmal Internet rummage about To must. too from you is a Program in of my collection...

Greeting, Christian

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

Michael
Dell

Zustimm, is often very with difficulty but there's some good Aids.

Mega- hint1: [...]

cue: API_Hilfe

Mega- hint2: [...]

cue: Controls.hlp

Overview over Profan- Demos (use I often): [...]

and the are long ago not any!

otherwise wühle I often in Headern and Includes too of C++ and Masm32,
something tougher but too very helpful is the MSDN.

to that Happiness is Profan plenty leichter as others Languages and it give Yes the community.

Salu

Michael...

Salu Michael...

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

02/27/05 ▲

Hello Georg...

inquiries institute of technology so did i and know do so did i long ago not everything. only who not nachfragt blamiert itself.

what Controls angeht - there help me very often The WINDOWS.PH of Profan. there find You among other things The Konstanten for Fensterstyle.
left stand The Symbolischen names and right The the Style suitable Zahlenkonstanten. into symboklischen names can you indicated above find, what the Style does. so created WS_VISIBLE to that example one sichtbares Window. WS_ standing thereby for Windowstyle (for all types of Controls), ES_ for Editstyle (for Editfields), BS_ for Buttonstyle... Fensterstile can you loosly add - tappt im dunkeln can logischerweise mere not twice vorkommen.

Also there there a couple geniale Help Files to Windows API on the Homepage of Uwe Pascal Niemeyer. If you The things there correctly. understood have - and the are right simply To understand - can you even Help the WIN32.HLP Source from Visual Basic, MASM or C++ translate and suggestions in your own programs install - and the without at all The Language to!

i know self not everything, what about me can me well sooner a apprentice as a Profi name - but I white where I take after can, and this is important...

02/27/05 ▲

Sub-Topic: Controls with Tabulatortaste controlling, Order determine [...]

created.

04/25/23 ▲