English
Forum

One large trouble (here are The Profis demand)

 
- 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.
 
08/19/11  
 



« this Posting watts as Solution marked. »

Perhaps. means tappt im dunkeln soetwas as an small (Own) Druckersprache...

Download
external Download



 
08/20/11  
 



I am not sure it correctly. understood to have but Have you what hingepinselt...

Download
external Download


PS:
%Font="ariel", 12
... I faith you mean whom Schriftartnamen "Arial".

 
08/19/11  
 




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.
 
08/20/11  
 




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  
 



Perhaps. means tappt im dunkeln soetwas as an small (Own) Druckersprache...

Download
external Download



 
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.
 
08/21/11  
 



gladly happen!
 
08/21/11  
 



Answer


Topictitle, max. 100 characters.
 

Systemprofile:

no Systemprofil laid out. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

Please register circa a Posting To verfassen.
 

Topic-Options

5.917 Views

Untitledvor 0 min.
Peter Max Müller09/30/14
Heltal07/25/14
Bernd Lies08/22/13
Christian Hahn06/26/13
More...

Themeninformationen

this Topic has 3 subscriber:

Stephie (3x)
iF (3x)
Thomas Freier (2x)


Admins  |  AGB  |  Applications  |  Authors  |  Chat  |  Privacy Policy  |  Download  |  Entrance  |  Help  |  Merchantportal  |  Imprint  |  Mart  |  Interfaces  |  SDK  |  Services  |  Games  |  Search  |  Support

One proposition all XProfan, The there's!


My XProfan
Private Messages
Own Storage Forum
Topics-Remember-List
Own Posts
Own Topics
Clipboard
Log off
 Deutsch English Français Español Italia
Translations

Privacy Policy


we use Cookies only as Session-Cookies because of the technical necessity and with us there no Cookies of Drittanbietern.

If you here on our Website click or navigate, stimmst You ours registration of Information in our Cookies on XProfan.Net To.

further Information To our Cookies and moreover, How You The control above keep, find You in ours nachfolgenden Datenschutzerklärung.


all rightDatenschutzerklärung
i want none Cookie