| |
|
|
- Page 1 - |
|
Stephie | so I catch time integrally slow on and hope your comes so clear. my Program should open his for extensions. therefore have I a Ordner extensions prepares and a Menupunkt the too extensions means, no Untermenus. in the Ordner should a ini or cfg -File prepares go can of users The on a Presentation zugreift. by a Text in the ini or cfg-File should my Hauptprogramm discern the it one untermenu under extensions Show should. (These manner there z.b. with the Prog Ahnenblatt with the Plugins). here would z.b. so a ini - cfg-File as suggestion. The eingesetzten command only Vorgaben, you can too differently called (as it Profane or The dll pretending would).
accordingly would in the Main window and extensions as Menupunkt html attend, goes one on html should right moreover the untermenupunkt Help attend and under list. goes one then on list should The Presentation carryed out go. The ought to then so z.B. looks.
%Font="ariel", 24'Schriftgröße
%Text="Personenblatt"
%Font="ariel", 12
%Text=name$'are my Prog vordefiniert
%Text=GebDatum$+" in "+GebOrt$
%line= 10,10 - 10,200'Beginn left - end right
%Pic=Personbild$
%End
it should to Possibility some command his, so one spare kreieren can.
Have your a Review How one such a thing hinbekommt or. what for need ? If I good Proposals have wisely so did i, that I plenty reading try must, but I have Time and need only a zündelnde idea. |
|
|
| |
|
|
|
« this Posting watts as Solution marked. » |
|
|
|
|
| |
|
|
|
|
| I am not sure it correctly. understood to have but Have you what hingepinselt...
Download external Download
PS: ... I faith you mean whom Schriftartnamen "Arial". |
|
|
| |
|
|
|
Thomas Freier | be I do not sure, whether it whom core trift. with SubPopUp I get not there. Möglicherweise can The dlgmenu.pcu one SubPopUp insert and again delete. everything without *.ini, because whom variables a$, b$ can you Yes whom Values allocate and into *.ini zurückspeichern.
' for only numbers
Def GetWindowLong(2) !"USER32", "GetWindowLongA"
Def SetWindowLong(3) !"USER32", "SetWindowLongA"
Def SetEditNumeric(1) SetWindowLong(@&(1),-16, (GetWindowLong(@&(1), -16) | $2002))
cls
UseFont "Arial",15,0,0,0,0
SETDIALOGFONT 1
var a$="111|Hilfe|1"
var b$="112|Info|0"
var c$="113| |0"
'etc.
PopUp "&Datei"
AppendMenu 100,"&Laden"
AppendMenu 101,"&Speichern"
AppendMenu 102,"&Neue Menüpunkte"
AppendMenu 103,"&Menüpunkte bearbeiten"
while 1
waitinput
case %key=2:BREAK
case MenuItem(100):Print "Laden"
case MenuItem(101):Print "Speichern"
case MenuItem(102): Z_MENU
case MenuItem(103): MENU_AEND
case MenuItem(111):Print a$
case MenuItem(112):Print b$
case MenuItem(113):Print c$
wend
Proc Z_MENU
' items delete
RemoveMenu 111
RemoveMenu 112
RemoveMenu 113
' etc. and then new
case val(substr$(a$,-1,"|"))=1 : AppendMenu val(substr$(a$,1,"|")),substr$(a$,2,"|")
case val(substr$(b$,-1,"|"))=1 : AppendMenu val(substr$(b$,1,"|")),substr$(b$,2,"|")
case val(substr$(c$,-1,"|"))=1 : AppendMenu val(substr$(c$,1,"|")),substr$(c$,2,"|")
'etc.
ENDPROC
Proc MENU_AEND
var dlg%=Createdialog(%hwnd,"Menü erstellen",100,100,300,300)
var box%=Create("GridBox", dlg%, "N;0;40;Text;0;160;aktiv;0;50", 1, 10, 10, 280, 200)
Create("Tooltip",%hwnd,box%,"Bitte a row wählen")
AddStrings(box%,a$)
AddStrings(box%,b$)
AddStrings(box%,c$)
'etc.
var Ed1%=CreateEdit(dlg%,"",50,216,160,22)
var Ed2%=CreateEdit(dlg%,"",214,216,50,22)
SetEditNumeric(Ed2%)'only Ziffereingaben permit
@sendmessage(Ed2%,$00C5,1,0)'and on 1 place terminable
var Sp1%=CreateButton(dlg%,"Speichern",210,242,80,20)
var New1%=CreateButton(dlg%,"Ändern",110,242,80,20)
var x%=-1
while 1
waitinput
x%=GetCurSel(box%)
case %key=2:BREAK
If GetFocus(box%) AND (x% > -1)
SetText Ed1%,Substr$(GetString$(box%,x%),2,"|")
SetText Ed2%,Substr$(GetString$(box%,x%),-1,"|")
ElseIf GetFocus(New1%)
case val(GetText$(Ed2%))>0 : SetText Ed2%,"1"
SetText box%, x%, 1, GetText$(Ed1%)' 1. slot is 0 !!
SetText box%, x%, 2, GetText$(Ed2%)
ElseIf GetFocus(Sp1%)
a$=GetString$(box%,0)
b$=GetString$(box%,1)
c$=GetString$(box%,2)
'etc.
' and new
Z_MENU
EndIf
wend
DestroyWindow(dlg%)
SetFocus(%hwnd)
ENDPROC
|
|
|
| Gruß Thomas Windows XP SP2, XProfan X2 | 08/19/11 ▲ |
|
|
|
|
Stephie | Hello Thomas, means your Version comes unfortunately not to there, I need, but very interestingly. have it me time as example abgespeichert.
To you iF, Yes, this is very such a thing in the direction How I it Search. for this Vorkampf Schonmal one THANK YOU, helps me again a large step moreover. now only The question: which command can I there platzieren, so it me z.B. How supra described so one Personenblatt outputs on printer or on screen (screen would me naturally rather, I with the the printer already so far then yourself hinbekomme). The ini should either self The Presentation include, or these seperat as z.B. Personenblatt.txt Call and perform. and Yes with "Ariel" meant I The type (Font).
this is something what yet my horizon bezgl Profan übersteigt. but dank eurer recent Help is my Ahnenprogramm, for my Verhältnisse already extreme far. I hope that I you at the latest To christmas my first beta-Version then present can. |
|
|
| |
|
|
|
Thomas Freier | such a thing?
Def GetSysColor(1) !"USER32","GetSysColor"
Declare end%
Declare a$[]
Declare a%
a%=2' Number of Personen from the INI
a$[1]="Meyer"' Personen from the INI
a$[2]="Wassermann"
cls GetSysColor(15)
' Font for all Window and Objects, The with "Create..." prepares go, determine
UseFont "Arial",15,0,0,0,0
SETDIALOGFONT 1
PopUp "&Datei"
AppendMenu 109,"&Ende"
PopUp "&Bearbeiten"
WhileLoop a%
AppendMenu (1000+&loop),a$[&loop]
EndWhile
Clear end%
WhileNot end%
WaitInput
If @MenuItem(109)
end% = 1
ElseIf (%MenuItem >1000) AND (%MenuItem < 2000)'1001 To 1999 reserved for Personen
Info %MenuItem
EndIf
EndWhile
End
Proc Info
Parameters y%
var pt%=CreateText(%hwnd,a$[y%-1000],10,10,200,20)
var M_Ed%=CreateMultiEdit(%hWnd,a$[y%-1000],10,40,600,-300)
' Open File and in that MultiEdit ..File could a$[y%-1000].txt hot
var M_Close%=CreateButton(%hwnd,"Beenden",400,10,80,20)
' further for SPEICHERN, LÖSCHEN, etc.
var End_MEd%=0
SetFocus(M_Ed%)
WhileNot End_MEd%
Waitinput
case GetFocus(M_Close%):End_MEd%=1
' Save, Delete, etc.
EndWhile
DestroyWindow(pt%)
DestroyWindow(M_Close%)
DestroyWindow(M_Ed%)
ENDPROC
|
|
|
| Gruß Thomas Windows XP SP2, XProfan X2 | 08/20/11 ▲ |
|
|
|
|
|
|
|
| |
|
|
|
Stephie | thanks iF, you have understood I Search and one damn good example given. now must I erstaml so apart settle and look in how far I this in my code install can.
over again THANK YOU, I had real not virtual, the it someone so quick creates.
I schließe now whom Posting first. |
|
|
| |
|
|
|
| |
|
| |
|
|