XProfan

- Seite 3 -

[quote:ca6db3a527=Jacob Liebeck]Ich würde aus einer Prügelei sowieso als Sieger hervorgehen...[/quote:ca6db3a527]
Das würde ich nie in Frage stellen...

[quote:ca6db3a527]Was gefällt dir denn daran nicht (und bedenke, dass es noch nicht fertig ist)?[/quote:ca6db3a527]
Naja ich fands halt in Summe bisl schlapp. Das LooknFeel halt. Sah bisl nach Batch aus - wohlbemerkt - ein Batch das es nicht gibt.

22.01.2007 ▲

Jac
de
Lad

Momomoment!

Batch, naja, kann schon sein. Mein Anliegen ist, dass die Installation möglichst einfach erzeugt werden kann. Deshalb ja der Wizard mit 10 Schritten. Ich denke, damit ists recht einfach gehalten. Und übersichtlich. Und, dass es den Batch noch nicht gibt ist ja klar, habe ich ja geschrieben!

Also doch ne Prügelei!

PS: Kannst mir ja mal nen anderen Designvorschlag machen...

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP

22.01.2007 ▲

Jac
de
Lad

@Frank: Besser? Leider kann ich das Springen per Tab nicht aktivieren, denn sobald ich Style 512 in WindowStyle addiere funktioniert das Trackmenü nicht mehr (falsch platziert und gibt immer -1 zurück). Keine Ahnung, ob das Roland Schuld ist oder Bills...bis zum Release habe ich aber ne Lösung gefunden!

Auch werden die Projekte in der Betaphase eventuell nicht zueinander kompatibel sein, weil ich im Moment noch am Anpassen bin (nach dem Release wirds aber klappen!).

InstallChild Wizard.exe	663 kB

Hochgeladen:	22.01.2007

Ladeanzahl:
		Herunterladen

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP

22.01.2007 ▲

Frank
Abbing

Also ich finde dein Programm gar nicht so schlecht. Auch vom Design her. Schlicht aber funktionell. Mir gefällts!
Auch die Aufteilung in die verschiedenen Schritte finde ich vorteilhaft, vor allem, da es von überall auch wieder zurück geht. Bin jetzt auf das eigentliche Setup gespannt.

Hubert
Binnewies

[quote:5868d5d7bf=Jacob Liebeck]@Frank: Besser? Leider kann ich das Springen per Tab nicht aktivieren, denn sobald ich Style 512 in WindowStyle addiere funktioniert das Trackmenü nicht mehr (falsch platziert und gibt immer -1 zurück). Keine Ahnung, ob das Roland Schuld ist oder Bills...bis zum Release habe ich aber ne Lösung gefunden!

[/quote:5868d5d7bf]
Hallo Jac..

Ich glaube ich hab da was für Dich...
Ich hatte mal das gleiche Prob und es so gelöst..(hoffentlich ist es jetzt die richtige Stelle aus dem Proggi)...
Kompilieren Markieren Separieren

WHILENOT DIALOGENDE%

    GetMessage

    If @EQU(%key,2)

        LET DIALOGENDE%= 1

    ELSEIF GETFOCUS(BUTTON1&) BUTTON

        LET DIALOGENDE%= 1

    ELSEIF GETFOCUS(EDIT1&) EDIT

        if %Message=257

            if &wParam=9

                setfocus(EDIT2&)
                @Sendmessage(Edit2&,$00B1,0,50)
                Continue

            Endif

        endif

    ELSEIF GETFOCUS(EDIT2&) EDIT

        if %Message=257

            if &wParam=9

                setfocus(EDIT3&)
                @Sendmessage(Edit3&,$00B1,0,5)
                Continue

            Endif

        endif

    ELSEIF GETFOCUS(EDIT3&) EDIT

        if %Message=257

            if &wParam=9

                setfocus(EDIT4&)
                @Sendmessage(Edit4&,$00B1,0,50)
                Continue

            Endif

        endif

    ELSEIF GETFOCUS(EDIT4&) EDIT

        if %Message=257

            if &wParam=9

                setfocus(EDIT1&)
                @Sendmessage(Edit1&,$00B1,0,50)
                Continue

            Endif

        endif

    ENDIF

WEND

Die Sendmessage selektiert den ganzen Inhalt des Edits, kann also auch weggelassen werden..

Ich hoffe das hilft dir..

Gruß Hubert

WinXP Prof, XProfan 9.1 Newbie

Ein kluger Kopf sagte mal:
"Nach dem derzeitigen Stand der Technik ist es unmöglich Programme zu schreiben, die fehlerfrei laufen!"

Jac
de
Lad

Oh, vielen Dank, Hubert! Ich mach mich gleich mal dran, das einzubauen...
Du wirst natürlich auch gleich mit in den Danksagungen erwähnt!

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP

Jac
de
Lad

Na toll, da setz ich mich an die Engine und was rauskommt geht nicht.

Hat jemand ne Idee, warum der Code nicht geht (an anderer Stelle gehts in ähnlicher Form trotzdem...):
Kompilieren Markieren Separieren

proc install

    Parameters i$
    declare h&,c#,f&,i&
    f&=FileSize(Par$(0))-%ProgEnd
    h&=Assign(Par$(0))
    i&=Assign(i$+"Setup.exe")
    OpenRW h&
    Seek h&,%ProgEnd
    Dim c#,f&
    BlockRead(h&,c#,0,f&)
    OpenRW i&
    BlockWrite i&,c#,0,f&
    Dispose c#
    Close i&
    Close h&

endproc

i$ ist ein Verzeichnis, also unproblematisch. Mein Problem ist, das BlockRead immer 0 zurückgibt...

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP

FileMode?!

Michael
Wodrich

Pitte schöööönn
Kompilieren Markieren Separieren

!

proc install

    Parameters i$
    declare h&,c#,f&,i&
    declare anz&
    f&=FileSize(Par$(0))-%ProgEnd
    print "Modulgröße:",f&,"  (Datei:",FileSize(Par$(0))," - ",%ProgEnd,":ProgEnd)"
    h&=Assign(Par$(0))
    i&=Assign(i$+"Setup.exe")
    print "Handles:",h&,i&
    Set("FileMode",0)
    OpenRW h&
    print "Fehlercode Datei 1:",%ioresult
    Seek h&,%ProgEnd
    print "Fehlercode Seek:",%ioresult
    Dim c#,f&
    anz& = BlockRead(h&,c#,0,f&)
    print "gelesene Bytes:",anz&,"  Fehlercode:",%ioresult
    Set("FileMode",1)
    OpenRW i&
    print "Fehlercode Datei 2:",%ioresult
    BlockWrite i&,c#,0,anz&
    print "Fehlercode BlockWrite:",%ioresult
    Dispose c#
    Close i&
    print "Fehlercode Datei 2:",%ioresult
    Close h&
    print "Fehlercode Datei 1:",%ioresult
    waitkey

endproc

cls
install "c:\profan\sources\"
progend

Programmieren, das spannendste Detektivspiel der Welt.

24.01.2007 ▲

Dietmar
Horn

Hallo Jac,

wird Dein Install-Kind nun wirklich ein eigenes Installations-Programm (also alles xprofan-mäßig von Dir selber programmiert) werden, oder auch nur wieder eine Art 389. 0815-Bedieneroberfläche für irgendwelche Freeware-Tools (Inno-Setup, 7zip, etc.)?

Gruß
Dietmar

Multimedia für Jugendliche und junge Erwachsene - MMJ Hoyerswerda e.V. [...]

Windows 95 bis Windows 7
Profan² 6.6 bis XProfan X2 mit XPSE

Das große XProfan-Lehrbuch: [...]

24.01.2007 ▲

Ich denke mal die Frage sollte sich mit dem Vorvorposting beantwortet haben

24.01.2007 ▲