| |
|
|
- page 1 - |
|
Stephie | So je fange la fois entier lente à et hoffe vous venez avec cela bien sûr. mon Programme soll offen son pour Erweiterungen. Daher habe je une Dossier Erweiterungen erstellt et une Menupunkt qui aussi Erweiterungen heisst, aucun Untermenus. dans dem Dossier soll une ini ou bien cfg -Dossier erstellt volonté peut vom Anwender qui sur une Présentation zugreift. par une Text dans qui ini ou bien cfg-Dossier soll mon Hauptprogramm erkennen cela es un untermenu sous Erweiterungen Montrer soll. (cet Art gibt es z.b. chez dem Prog Ahnenblatt avec den Plugins). ici wäre z.b. so une ini - cfg-Dossier comme Vorschlag. qui eingesetzten Befehle sommes seulement Vorgaben, vous pouvez aussi anders genannt volonté (so comme Profan ou bien qui dll vorgeben würden).
Somit serait im Hauptfenster et Erweiterungen comme Menupunkt html erscheinen, allez on sur html soll à droite daneben qui untermenupunkt Help erscheinen et au-dessous liste. allez on ensuite sur liste soll qui Présentation fonctionnement volonté. qui sollte ensuite so z.B. air.
%Font="ariel", 24'Schriftgröße
%Text="Personenblatt"
%Font="ariel", 12
%Text=nom$'sommes dans mon Prog vordefiniert
%Text=GebDatum$+" dans "+GebOrt$
%ligne number= 10,10 - 10,200'Beginn à gauche - Ende à droite
%Pic=Personbild$
%Fin
Es devrait pour Possibilité quelques Befehle son, avec cela on libre kreieren peux.
Hab son une Vorstellung comment on so quelque chose hinbekommt bzw. quoi on pour braucht ? si je gute Propositions habe weis je aussi, le moi viel Lesen ausprobieren muss, mais j'ai Zeit et brauche seulement une zündelnde concept. |
|
|
| |
|
|
|
« cette Beitrag wurde comme Solution gekennzeichnet. » |
|
|
|
|
| |
|
|
|
|
| je suis pas sûrement es richtig verstanden trop avons mais hab Dir quoi hingepinselt...
Télécharger externer Télécharger
PS: ... je crois Du meinst den Schriftartnamen Arial. |
|
|
| |
|
|
|
Thomas Freier | suis Je ne sûrement, si es den Kern trift. avec SubPopUp bekomme je es pas hin. Möglicherweise peux qui dlgmenu.pcu un SubPopUp insérer et wieder effacer. Alles sans *.ini, car den Variablen a$, b$ peux du oui den Werten zuweisen et dans qui *.ini zurückspeichern.
' pour seulement payons
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"
'usw.
PopUp "&Datei"
AppendMenu 100,"&Laden"
AppendMenu 101,"&Speichern"
AppendMenu 102,"&Neue Menüpunkte"
AppendMenu 103,"&Menüpunkte bearbeiten"
tandis que 1
waitinput
cas %clé=2:BREAK
cas MenuItem(100):Imprimer "Laden"
cas MenuItem(101):Imprimer "Speichern"
cas MenuItem(102): Z_MENU
cas MenuItem(103): MENU_AEND
cas MenuItem(111):Imprimer a$
cas MenuItem(112):Imprimer b$
cas MenuItem(113):Imprimer c$
Wend
Proc Z_MENU
' Menüpunkte effacer
RemoveMenu 111
RemoveMenu 112
RemoveMenu 113
' usw. et ensuite récente
cas val(substr$(a$,-1,"|"))=1 : AppendMenu val(substr$(a$,1,"|")),substr$(a$,2,"|")
cas val(substr$(b$,-1,"|"))=1 : AppendMenu val(substr$(b$,1,"|")),substr$(b$,2,"|")
cas val(substr$(c$,-1,"|"))=1 : AppendMenu val(substr$(c$,1,"|")),substr$(c$,2,"|")
'usw.
ENDPROC
Proc MENU_AEND
var dlg%=Createdialog(%hwnd,"Menü erstellen",100,100,300,300)
var box%=Créer("GridBox", dlg%, "N;0;40;Text;0;160;aktiv;0;50", 1, 10, 10, 280, 200)
Créer("Tooltip",%hwnd,box%,"Bitte une la ligne wählen")
AddStrings(box%,a$)
AddStrings(box%,b$)
AddStrings(box%,c$)
'usw.
var Ed1%=CreateEdit(dlg%,»,50,216,160,22)
var Ed2%=CreateEdit(dlg%,»,214,216,50,22)
SetEditNumeric(Ed2%)'seulement Ziffereingaben erlauben
@sendmessage(Ed2%,$00C5,1,0)'et sur 1 Stelle begrenzt
var Sp1%=CreateButton(dlg%,"Speichern",210,242,80,20)
var récente1%=CreateButton(dlg%,"Ändern",110,242,80,20)
var x%=-1
tandis que 1
waitinput
x%=GetCurSel(box%)
cas %clé=2:BREAK
Si GetFocus(box%) AND (x% > -1)
SetText Ed1%,Substr$(GetString$(box%,x%),2,"|")
SetText Ed2%,Substr$(GetString$(box%,x%),-1,"|")
ElseIf GetFocus(récente1%)
cas val(GetText $(Ed2%))>0 : SetText Ed2%,"1"
SetText box%, x%, 1, GetText $(Ed1%)' 1. Spalte ist 0 !!
SetText box%, x%, 2, GetText $(Ed2%)
ElseIf GetFocus(Sp1%)
a$=GetString$(box%,0)
b$=GetString$(box%,1)
c$=GetString$(box%,2)
'usw.
' et récente
Z_MENU
EndIf
Wend
DestroyWindow(dlg%)
SetFocus(%hwnd)
ENDPROC
|
|
|
| |
|
|
|
Stephie | allô Thomas, alors deine Version venez malheureusement pas dahin, quoi il me faut, mais très intéressant. Habe es mir la fois comme Beispiel abgespeichert.
trop Dir iF, oui, c'est oui c'est ca so quelque chose dans qui direction comment je es cherche. Pour cette Vorkampf Schonmal un DANKE, Hilft mir encore une grand Schritt plus. maintenant seulement qui Frage: quelle Befehle peux je là platzieren, avec cela il mir z.B. comment dessus Beschrieben so un Personenblatt ausgibt sur Drucker ou bien am Bildschirm (Bildschirm wäre mir naturellement lieber, là je cela avec dem Drucker déjà soweit ensuite selber hinbekomme). qui ini soll entweder selbst qui Présentation enthalten, ou bien cet seperat comme z.B. Personenblatt.txt appel et effectuer. et oui avec "Ariel" meinte je qui Schriftart (Font).
c'est quelque chose quoi maintenant encore meinen Horizont bezgl Profan übersteigt. mais dank eurer bisherigen Aider ist mon Ahnenprogramm, pour mon Verhältnisse déjà extrem large. je hoffe le moi euch au plus tard trop Weihnachten mon erste beta-Version ensuite présenter peux. |
|
|
| |
|
|
|
Thomas Freier | So quelque chose?
Def GetSysColor(1) !"User32","GetSysColor"
Déclarer Ende%
Déclarer a$[]
Déclarer a%
a%=2' Nombre de Personen aus qui INI
a$[1]="Meyer"' Personen aus qui INI
a$[2]="Aquarius"
cls GetSysColor(15)
' Font pour alle la fenêtre et Objekte, qui avec "Create..." erstellt volonté, festlegen
UseFont Arial,15,0,0,0,0
SETDIALOGFONT 1
PopUp "&Datei"
AppendMenu 109,"&Ende"
PopUp "&Bearbeiten"
WhileLoop a%
AppendMenu (1000+&loop),a$[&loop]
Endwhile
Claire Ende%
WhileNot Ende%
WaitInput
Si @MenuItem(109)
Ende% = 1
ElseIf (%MenuItem >1000) AND (%MenuItem < 2000)'1001 jusqu'à 1999 reserviert pour Personen
Info %MenuItem
EndIf
Endwhile
Fin
Proc Info
Paramètres y%
var pt%=CreateText(%hwnd,a$[Y%-1000],10,10,200,20)
var M_Ed%=CreateMultiEdit(%hWnd,a$[Y%-1000],10,40,600,-300)
' Aller et ins Multiedit ..Dossier pourrait a$[y%-1000].txt appeler
var M_Close%=CreateButton(%hwnd,"Beenden",400,10,80,20)
' weiteren pour SPEICHERN, LÖSCHEN, usw.
var End_MEd%=0
SetFocus(M_Ed%)
WhileNot End_MEd%
Waitinput
cas GetFocus(M_Close%):End_MEd%=1
' Sauver, Effacer, usw.
Endwhile
DestroyWindow(pt%)
DestroyWindow(M_Close%)
DestroyWindow(M_Ed%)
ENDPROC
|
|
|
| |
|
|
|
|
|
|
| |
|
|
|
Stephie | merci iF, tu as verstanden quoi je cherche et un verdammt gutes Beispiel gegeben. maintenant muss je mich erstaml avec cela auseinander mettons et regarder dans comment large je cet dans meinen Code einbauen peux.
Nochmals DANKE, je hatte echte pas gedacht, cela es quelqu'un so vite schafft.
je schließe maintenant den Beitrag erstmal. |
|
|
| |
|
|
|
| |
|
| |
|
|