| |
| |
|
| - Página 1 - |
|
Stephie | So Yo fange veces bastante langsam a y hoffe ihr kommt así klar.
Mein Programa se offen ser para Erweiterungen. Daher Yo una Ordner Erweiterungen erstellt y una Menupunkt el auch Erweiterungen heisst, no Untermenus.
In el Ordner se una ini oder cfg -Expediente erstellt voluntad puede vom Anwender el en una Presentación zugreift. Durch una Texto en el ini oder cfg-Expediente se mein Hauptprogramm erkennen el lo una untermenu bajo Erweiterungen Mostrar se.
(Diese Art hay z.b. en el Prog Ahnenblatt con el Plugins).
Hier wäre z.b. así una ini - cfg-Expediente como Vorschlag. El eingesetzten Befehle son sólo Vorgaben, ellos puede auch anders genannt voluntad (ya que Profano o dll vorgeben würden).
Somit sería en el Ventana principal y Erweiterungen como Menupunkt html erscheinen, va uno en html se rechts daneben el untermenupunkt Help erscheinen y darunter Liste.
Geht una continuación en Liste se el Presentación ausgeführt voluntad. El debería entonces así z.B. aussehen.
%Font="ariel", 24'Schriftgröße
%Texto="Personenblatt"
%Font="ariel", 12
%Texto=Name$'son en mi Prog vordefiniert
%Texto=GebDatum$+" en "+GebOrt$
%Linie= 10,10 - 10,200'Beginn links - Ende rechts
%Pic=Personbild$
%End
Lo debería después de Möglichkeit algunos Befehle ser, así uno frei kreieren kann.
Hab ihr una Vorstellung cómo así algo hinbekommt o. qué dafür braucht ? Wenn Yo gute Propuestas habe weis Yo auch, el Yo viel Lesen ausprobieren muss, pero yo habe Tiempo y brauche sólo una zündelnde Concepto. |
|
| |
| |
| |
|
 |
« Dieser Contribución wurde como Solución gekennzeichnet. » |
|
 |
|
| |
| |
| |
|
|
|
| Yo bin no sicher lo correcto verstanden a haben aber que has qué hingepinselt...
Descargar
externer Descargar
PS:
... Yo glaube ¿Quieres decir que el Schriftartnamen Arial. |
|
| |
| |
| |
|
|
Thomas
Freier | Bin No sicher, si el Kern trift. Mit SubPopUp bekomme Yo no hin. Möglicherweise kann el dlgmenu.pcu una SubPopUp einfügen y otra vez löschen. Alles sin *.ini, porque el Variables a$, b$ kannst du sí el Werten zuweisen y en el *.ini zurückspeichern.
' para sólo Pagar
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"
mientras que 1
waitinput
caso %key=2:BREAK
caso MenuItem(100):Imprimir "Laden"
caso MenuItem(101):Imprimir "Speichern"
caso MenuItem(102): Z_MENU
caso MenuItem(103): MENU_AEND
caso MenuItem(111):Imprimir a$
caso MenuItem(112):Imprimir b$
caso MenuItem(113):Imprimir c$
wend
Proc Z_MENU
' Menüpunkte löschen
RemoveMenu 111
RemoveMenu 112
RemoveMenu 113
' usw. y luego neu
caso val(substr$(a$,-1,"|"))=1 : AppendMenu val(substr$(a$,1,"|")),substr$(a$,2,"|")
caso val(substr$(b$,-1,"|"))=1 : AppendMenu val(substr$(b$,1,"|")),substr$(b$,2,"|")
caso 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%=Crear("GridBox", dlg%, "N;0;40;Text;0;160;aktiv;0;50", 1, 10, 10, 280, 200)
Crear("Tooltip",%hwnd,box%,"Bitte una Línea 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%)'sólo Ziffereingaben erlauben
@sendmessage(Ed2%,$00C5,1,0)'y en 1 Punto begrenzt
var Sp1%=CreateButton(dlg%,"Speichern",210,242,80,20)
var Neu1%=CreateButton(dlg%,"Ändern",110,242,80,20)
var x%=-1
mientras que 1
waitinput
x%=GetCurSel(box%)
caso %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(Neu1%)
caso val(GetText $(Ed2%))>0 : SetText Ed2%,"1"
SetText box%, x%, 1, GetText $(Ed1%)' 1. Spalte es 0 !!
SetText box%, x%, 2, GetText $(Ed2%)
ElseIf GetFocus(Sp1%)
a$=GetString$(box%,0)
b$=GetString$(box%,1)
c$=GetString$(box%,2)
'usw.
' y neu
Z_MENU
EndIf
wend
DestroyWindow(dlg%)
SetFocus(%hwnd)
ENDPROC
|
|
| |
| |
| |
|
|
Stephie | Hola Tomás,
also deine Versión kommt por desgracia, no dahin, Yo brauche, aber muy interessant. Posesiones lo me de tiempo como Ejemplo abgespeichert.
Zu Usted IF, Sí, el es genau así algo en el Richtung Yo lo búsqueda. Für esta Vorkampf schonmal una DANKE, Hilft me ya otra vez una großen Schritt más.
Jetzt sólo el Cuestión: Welche Befehle kann Yo hay platzieren, así él me z.B. como oben Beschrieben así una Personenblatt ausgibt en Drucker oder al Bildschirm (Bildschirm wäre me natürlich más bien, como Yo el con el Drucker ya soweit entonces selber hinbekomme).
El ini se entweder incluso el Presentación enthalten, oder esta seperat como z.B. Personenblatt.txt aufrufen y ausführen.
Und Sí con "Ariel" meinte Yo el Schriftart (Font).
Es algo qué ahora todavía media Horizont bezgl Profano übersteigt. Aber dank eurer reciente Ayuda es mein Ahnenprogramm, para mi Verhältnisse ya extremo weit. Yo hoffe el Yo euch spätestens a Weihnachten mi erste beta-Versión entonces vorstellen kann. |
|
| |
| |
| |
|
|
Thomas
Freier | So algo?
Def GetSysColor(1) !"USER32","GetSysColor"
Declarar Ende%
Declarar a$[]
Declarar a%
a%=2' Anzahl el Personen de el INI
a$[1]="Meyer"' Personen de el INI
a$[2]="Acuario"
cls GetSysColor(15)
' Font para todos Ventana y Objetos, el con "Create..." erstellt voluntad, festlegen
UseFont Arial,15,0,0,0,0
SETDIALOGFONT 1
PopUp "&Datei"
AppendMenu 109,"&Ende"
PopUp "&Bearbeiten"
WhileLoop a%
AppendMenu (1000+&bucle),a$[&bucle]
EndWhile
Claro Ende%
Sinestar encargado Ende%
WaitInput
If @MenuItem(109)
Ende% = 1
ElseIf (%MenuItem >1000) AND (%MenuItem < 2000)'1001 a 1999 reserviert para Personen
Info %MenuItem
EndIf
EndWhile
End
Proc Info
Parámetros y%
var pt%=CreateText(%hwnd,a$[y%-1000],10,10,200,20)
var M_Ed%=CreateMultiEdit(%hWnd,a$[y%-1000],10,40,600,-300)
' Ir y en el Multiedit ..Expediente podría a$[y%-1000].txt heißen
var M_Close%=CreateButton(%hwnd,"Beenden",400,10,80,20)
' más para SPEICHERN, LÖSCHEN, usw.
var End_MEd%=0
SetFocus(M_Ed%)
Sinestar encargado End_MEd%
Waitinput
caso GetFocus(M_Close%):End_MEd%=1
' Guardar, Löschen, usw.
EndWhile
DestroyWindow(pt%)
DestroyWindow(M_Close%)
DestroyWindow(M_Ed%)
ENDPROC
|
|
| |
| |
| |
|
|
|
|
| |
| |
| |
|
|
Stephie | Gracias IF, Usted hast verstanden Yo búsqueda y una verdammt gutes Ejemplo gegeben.
Jetzt muss Yo mich erstaml así auseinander conjunto y schauen en como weit Yo dieses en media Code einbauen kann.
Nochmals DANKE, Yo hatte echte no pensamiento, el lo alguien así rápidamente schafft.
Yo schließe ahora el Contribución primero. |
|
| |
| |
| |
|
|
| |
| |
| |
| |
|
(808)
Deutsch
English
Français
Español
Italia