XProfan

Français

Torsten
Rümker

allô, mon nächstes Static Problem.

Situation: TabControl avec 2 Reitern, sur chaque Reiter un Static, sur chaque Static qui jeweiligen Elemente

sur dem 2ten Static (=2ter Reiter Tabcontrol)
j'ai sur einem Static deux Button erzeugt, une Abfrage sur GetFocus erbringt mais ne...aucune Ergebnis, sauf qui Tab wird modifié, ensuite wird qui zuletz angeklickte Button chez chaque Tabwechsel aktiviert.

Hat irgendjemand une Vorschlag comment je cela tourner autour de peux?

MfG
Torsten

Ich lerne, ob ich will oder nicht!
Betriebssystem:
- Ubuntu 15.x
- Windows (diverse)
XProfan Version: X2

05.10.2005 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

- page 1 -

Torsten
Rümker

[quote-part:3b1706cc93=iF]malheureusement fehlt Deiner Signatur qui Angabe Deiner XProfanversion et Deines Betriebssystemes.

Probiere la fois clicked

bzw. sysvar_menuitem

.[/quote-part:3b1706cc93]
Ist ab tout de suite geändert (Signatur)

Clicked habe je là XProfan 8 encore pas zur Disposition, mais comment cela ganze sur MenuItem trop lösen ist werde je mir la fois anschauen.
merci pour den Tip.

MfG
Torsten

Ich lerne, ob ich will oder nicht!
Betriebssystem:
- Ubuntu 15.x
- Windows (diverse)
XProfan Version: X2

05.10.2005 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

allô IF...

peux beides pas aller.

@Torste: Kleinen Voir le texte source?

05.10.2005 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Torsten
Rümker

j'ai versucht qui Abfrage sur den de Andreas Hötker vorgeschlagenen weg trop realisieren

[quote-part:2033f67ada]
Schreibe entier à den Anfang votre Programmes folgende Zeilen:

DEF @GetDlgCtrlID(1) !USER32,GetDlgCtrlID %MENUITEM de einem Handle ermitteln
DEF @ButtonClicked(1) @GetDlgCtrlID(@&(1))=-%MENUITEM %MENUITEM comparer

Ersetze ensuite chaque GETFOCUS par

@ButtonClicked(Handle_des_Buttons_&)
[/quote-part:2033f67ada]
mais cela funktioniert aussi pas.

maintenant wird sur un Drücken qui Buttons gar pas plus reagiert.

je crois lente cela mon ordinateur mich ärgern voudrais.

bof, hat encore quelqu'un une Vorschlag?

Ich lerne, ob ich will oder nicht!
Betriebssystem:
- Ubuntu 15.x
- Windows (diverse)
XProfan Version: X2

05.10.2005 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Torsten
Rümker

So sieht qui komplette Quellcode des Dialoges im moment aus:
Kompilieren Marque Séparation

DEF @GetDlgCtrlID(1) !"USER32","GetDlgCtrlID" "%MENUITEM" von einem Handle ermitteln
DEF @ButtonClicked(1) @GetDlgCtrlID(@&(1))=-%MENUITEM %MENUITEM vergleichen

PROC Einstellungen

    DECLARE DLG&, DIALOGENDE%
    DECLARE icongroesse&
    DECLARE AusZeit_1&
    DECLARE AusZeit_2&
    DECLARE xpdown&
    DECLARE pwabfrage&
    DECLARE AutoUpdate&
    DECLARE desktoplink&
    DECLARE Startmenulink&
    DECLARE autostartlink&
    DECLARE speichern&
    DECLARE EinstEnde&
    Declare stEinstellungen&, stProgramme&
    DECLARE Tab&
    DECLARE PName&
    DECLARE PDateiname&
    DECLARE PDateinameSuche&
    DECLARE Parameter&
    DECLARE pwuebergabe&
    DECLARE vollbild&
    DECLARE iconnummer&
    DECLARE zurueck&
    DECLARE weiter&
    DECLARE Programmnummer&

    PROC ESpeichern

        GETMESSAGE
        WriteIni INIDateiname$,"init","Auszeit1"= @Left$ (@GetText$(AusZeit_1&),5)         AusZeit 1 in Config eintragen
        let aus1$ =@Left$ (@GetText$(AusZeit_1&),5)
        WriteIni INIDateiname$,"init","Auszeit2"= @Left$ (@GetText$(AusZeit_2&),5)         AusZeit 2 in Config eintragen
        let aus2$ =@Left$ (@GetText$(AusZeit_2&),5)

        If @GetCheck(xpdown&) = 1                                                          Windows XP beenden in Config eintragen

            WriteIni INIDateiname$,"init","xpdown"= "ja"
            Let xpdown$="ja"

        Else

            WriteIni INIDateiname$,"init","xpdown"= "nein"
            Let xpdown$="nein"

        EndIf

        WriteIni INIDateiname$,"init","Buttongroesse"= @GetText$(icongroesse&)             Buttongroesse in Config eintragen

        If @GetCheck(pwabfrage&) = 1                                                       Passwortabfrage in Config eintragen

            WriteIni INIDateiname$,"init","pwabfrage"= "ja"

        Else

            WriteIni INIDateiname$,"init","pwabfrage"= "nein"

        EndIf

        If @GetCheck(AutoUpdate&) = 1                                                      Autoupdate in Config eintragen

            WriteIni INIDateiname$,"init","AutoUpdate"= "ja"

        Else

            WriteIni INIDateiname$,"init","AutoUpdate"= "nein"

        EndIf

        If @GetCheck (desktoplink&) = 1                                                    DesktopLink in Config eintragen

            WriteIni INIDateiname$,"setup","desktoplink"= "ja"

        Else

            WriteIni INIDateiname$,"setup","desktoplink"= "nein"

        EndIf

        If @GetCheck (Startmenulink&) = 1                                                  Startmenulink in Config eintragen

            WriteIni INIDateiname$,"setup", "Startmenulink" = "ja"

        Else

            WriteIni INIDateiname$,"setup", "Startmenulink" = "nein"

        EndIf

        If @GetCheck (autostartlink&) = 1                                                  Autostart in Config eintragen

            WriteIni INIDateiname$,"setup", "Autostart" = "ja"

        Else

            WriteIni INIDateiname$,"setup", "Autostart" = "nein"

        EndIf

        IconsAnlegen

    ENDPROC

    WINDOWSTYLE 31
    DLG&=CREATE("DIALOG",%HWND,"SoftStart Einstellungen",SUB(DIV(%MAXX,2),DIV(270,2)),SUB(DIV(%MAXY,2),DIV(360,2)),270,360)
    USEFONT "MS Sans Serif",13,0,0,0,0
    SETDIALOGFONT 1
    TAB& =@CREATE("TABCTRL",DLG&,"Einstellungen",0001,0001,0269,0290)
    @InsertTab(TAB&,1,"Programme")
    Tab Einstellungen mit Elementen versehen
    stEinstellungen&=Control("STATIC","",$54001102,2,30,265,280,Tab&,0,%Hinstance,$0)
    @CREATE("TEXT",stEinstellungen&,"Icongröße:",0010,0010,0070,0015)
    ICONGROESSE& = CREATE("SPINEDIT",stEinstellungen&,"0;15;40",0090,0010,0060,0018)
    Create("Tooltip",stEinstellungen&,icongroesse&,"Trage hier die Größe der Icons ein")
    AusZeit_1& =@CREATE("TIMEEDIT",stEinstellungen&,@ReadIni$ (INIDateiname$, "init", "Auszeit1"),0090,0040,0060,0018)
    Create("Tooltip",stEinstellungen&,AusZeit_1&,"Trage hier die Programmendezeit 1 ein")
    AusZeit_2& =@CREATE("TIMEEDIT",stEinstellungen&,@ReadIni$ (INIDateiname$, "init", "Auszeit2"),0090,0070,0060,0018)
    Create("Tooltip",stEinstellungen&,AusZeit_2&,"Trage hier die Programmendezeit 2 ein")
    @CREATE("TEXT",stEinstellungen&,"AusZeit 1:",0010,0040,0070,0015)
    @CREATE("TEXT",stEinstellungen&,"AusZeit 2:",0010,0070,0070,0015)
    xpdown& =@CREATE("CHECKBOX",stEinstellungen&,"WinXP beenden",0157,0070,0100,0020)
    pwabfrage& =@CREATE("CHECKBOX",stEinstellungen&,"Passwortabfrage beim Programmstart",0010,0100,0200,0020)
    AutoUpdate& =@CREATE("CHECKBOX",stEinstellungen&,"AutoUpdate per FTP",0010,0130,0150,0020)
    desktoplink& =@CREATE("CHECKBOX",stEinstellungen&,"Desktoplink erzeugen",0010,0160,0150,0020)
    Startmenulink& =@CREATE("CHECKBOX",stEinstellungen&,"Startmenulink erzeugen",0010,0190,0150,0020)
    autostartlink& =@CREATE("CHECKBOX",stEinstellungen&,"AutoStartlink erzeugen",0010,0220,0150,0020)
    settext Icongroesse&, @ReadIni$ (INIDateiname$, "init", "Buttongroesse")
    Case @Equ$ (@ReadIni$ (INIDateiname$, "init", "xpdown"),"ja") : SetCheck xpdown&,1
    Case @Equ$ (@ReadIni$ (INIDateiname$, "init", "pwabfrage"),"ja") : SetCheck pwabfrage&,1
    Case @Equ$ (@ReadIni$ (INIDateiname$, "init", "AutoUpdate"),"ja") : SetCheck Autoupdate&,1
    Case @Equ$ (@ReadIni$ (INIDateiname$, "setup", "desktoplink"),"ja") : SetCheck desktoplink&,1
    Case @Equ$ (@ReadIni$ (INIDateiname$, "setup", "Startmenulink"),"ja") : SetCheck startmenulink&,1
    Case @Equ$ (@ReadIni$ (INIDateiname$, "setup", "Autostart"),"ja") : SetCheck autostartlink&,1
    Tab Programme mit Elementen versehen
    stProgramme&=Control("STATIC","",$54001102,2,30,265,280,Tab&,0,%Hinstance,$0)
    @CREATE("TEXT",stProgramme&,"Programmname:",0010,0020,0080,0015)
    @CREATE("TEXT",stProgramme&,"Dateiname:",0010,0070,0080,0015)
    @CREATE("TEXT",stProgramme&,"Parameter:",0010,0120,0080,0015)
    PName& =@CREATE("EDIT",stProgramme&,"",0010,0040,0200,0020)
    PDateiname& =@CREATE("EDIT",stProgramme&,"",0010,0090,0200,0020)
    PDateinameSuche& =@CREATE("BUTTON",stProgramme&,". . .",0222,0090,0030,0020)
    Parameter& =@CREATE("EDIT",stProgramme&,"",0010,0140,0200,0020)
    pwuebergabe& =@CREATE("CHECKBOX",stProgramme&,"Passwortübergabe",0010,0170,0120,0020)
    vollbild& =@CREATE("CHECKBOX",stProgramme&,"Vollbild",0140,0170,0060,0020)
    ICONNUMMER& = CREATE("SPINEDIT",stProgramme&,"1;1;100",0010,0205,0070,0020)
    zurueck& =@CREATE("BUTTON",stProgramme&,"<<",0010,0235,0070,0020)
    weiter& =@CREATE("BUTTON",stProgramme&,">>",0100,0235,0070,0020)
    Programm 1 Einstellungen laden
    SetText PName&, @ReadINI$(INIDateiname$,"Programm1","Name")
    SetText PDateiname&, @ReadINI$(INIDateiname$,"Programm1","Aufruf")
    SetText Parameter&, @ReadINI$(INIDateiname$,"Programm1","parameter")
    SetText Iconnummer&, @ReadINI$(INIDateiname$,"Programm1","icon")
    Case @Equ$(@ReadINI$(INIDateiname$,"Programm1","passwort"),"ja"):SetCheck pwuebergabe&,1
    Case @Equ$(@ReadINI$(INIDateiname$,"Programm1","vollbild"),"ja"):SetCheck vollbild&,1
    Let Programmnummer& = 1
    Showwindow(stEinstellungen&,1)
    Showwindow(stProgramme&,0)
    speichern& =@CREATE("BUTTON",DLG&,"Speichern",0010,0300,0070,0030)
    EinstEnde& =@CREATE("BUTTON",DLG&,"Ende",0100,0300,0070,0030)
    SETFOCUS(DLG&)
    LET DIALOGENDE%=0

    WHILENOT DIALOGENDE%

        WAITINPUT

        If @EQU(%KEY,2)

            LET DIALOGENDE%= 1

        ELSEIF Tabchanged(Tab&)

            If Getactivetab(Tab&) = 0

                Showwindow(stEinstellungen&,1)
                Showwindow(stProgramme&,0)

            Elseif Getactivetab(Tab&) = 1

                Showwindow(stEinstellungen&,0)
                Showwindow(stProgramme&,1)

            Endif

        ELSEIF @ButtonClicked(zurueck&)

            MessageBox("zurück","zurück",0)
            CaseNot Programmnummer& = 1 : DEC Programmnummer&

        ELSEIF @ButtonClicked(weiter&)

            MessageBox("weiter","weiter",0)
            CaseNot Programmnummer& = 20 : INC Programmnummer&
            ProgrammDatenladen Programmnummer&

        ELSEIF GETFOCUS(PDateinameSuche&) BUTTON

        ELSEIF @GetFocus(speichern&) BUTTON

            ESpeichern

        ELSEIF @GetFocus(EinstEnde&) BUTTON

            LET DIALOGENDE%=1

        ENDIF

    WEND

    @DESTROYWINDOW(DLG&)

ENDPROC

Declare iniDateiname$, aus1$, aus2$, xpdown$
let iniDateiname$ span> "einstellungen.ini"
cls
einstellungen

Hilft cela peut-être?

sur dem Reiter Programme qui Beiden Buttons qui avec >> et << beschriftet sommes, sommes qui pas
fonctionnement, eigentlich sollte une MsgBox erscheinen.

et ici qui datzugehörige einstellungen.ini
Kompilieren Marque Séparation

[Benutzer]
Standard=standard
[init]
Version=0.6.5.4
Buttongroesse=25
suchpfad=c:Programme
anzahl=20
Auszeit1=00:00
Auszeit2=00:00
autoupdate=oui
updatezaehler=24
pwabfrage=oui
xpdown=non
[Setup]
Zielpfad=c:ProgrammeSoftstart
Desktoplink=oui
Startmenulink=oui
Autostart=non
[Programme1]
nom=Notepad
Dossier=notepad.exe
paramètre=
Aufruf=c:windows
otepad.exe
Mot de passe=non
Icon=0
Vollbild=oui
Pfad=c:windows
[Programme2]
nom=Notepad
Dossier=notepad.exe
paramètre=
Aufruf=c:windows
otepad.exe
Mot de passe=oui
Icon=0
Vollbild=non
Pfad=c:windows

Beide Fichiers dans un Verzeichnis ensuite sollte es soweit courir son.

Ich lerne, ob ich will oder nicht!
Betriebssystem:
- Ubuntu 15.x
- Windows (diverse)
XProfan Version: X2

05.10.2005 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

s'il te plaît lauffähigen Voir le texte source - habe zur Zeit wenig Zeit...

05.10.2005 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Torsten
Rümker

Habe obigen Voir le texte source angepasst, hoffe cela hilft

MfG
Torsten

Ich lerne, ob ich will oder nicht!
Betriebssystem:
- Ubuntu 15.x
- Windows (diverse)
XProfan Version: X2

05.10.2005 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

So - hab Dein Prog offen.

comme erstes fällt mir sur cela Du qui Hauteur qui Titelleiste pas beachtest - cela devrait Du absolument nachholen.

cela Problem ist cela dans Deinem le cas Waitinput pas sortir de wird.

si Du
Kompilieren Marque Séparation

Stprogramme&=Control("STATIC","",$54001102,2,30,265,280,Tab&,0,%Hinstance,$0)

ersetzt dans
Kompilieren Marque Séparation

windowstyle 80
Stprogramme&=createwindow(tab&,"tets",2,30,265,280)
external("user32","SetParent",Stprogramme&,tab&)re>

wird es demzufolge marcher.

Salve, iF.

Zwischenablage01.png	6 kB

Kurzbeschreibung:	pourquoi Titelzeilenhöhe important ist...

Hochgeladen:	05.10.2005

Downloadcounter:
		Download

05.10.2005 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Nachtrag: j'ai sous Codesnippets wohl une Procédure posté quelle qui intérieur Taille eines Contrôle festsetzt. cela ists wohl quoi Dir ici fehlt - car tu mets qui Äußere.

Salve.

05.10.2005 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Detlef
Jagolski

cela sollte aller.

Steinstellungen&=Control(DIALOG,,$54000000,4,25,265,280,Tab&,0,%Hinstance,$0)
Stprogramme&=Control(DIALOG,,$54000000,4,25,265,280,Tab&,0,%Hinstance,$0)

Salut

XProfan X4, PRFellow, Profan2Cpp - Version 2.0c-pre5, Windows 11

05.10.2005 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

viens justement aus qui Nachtschicht et habs mir aussi la fois angesehen - DIALOG statt STATIC wäre aussi mon Vorschlag.

06.10.2005 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

- page 2 -

Torsten
Rümker

Habe maintenant la fois Ifs weg pris,
funktioniert maintenant super, d. h. cela Programme ist nahezu fertig, juhuu!

maintenant fehlt seulement et avec ca Kosmetik, soll appeler, Dialoge optique dans Ordre apporter usw.

merci à alle!

MfG
Torsten

Ich lerne, ob ich will oder nicht!
Betriebssystem:
- Ubuntu 15.x
- Windows (diverse)
XProfan Version: X2

06.10.2005 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Torsten
Rümker

Ok meinem Betatester ist à dem Dialogue avec les den 2 Tabs et avec ca aufgefallen:
il peut pas sur den individuel Tabs per tabulateur-bouton de einem Element zum anderen springen mais on wird toujours wieder sur qui außerhalb qui avec
Kompilieren Marque Séparation

Steinstellungen&=Control("DIALOG","",$54000000,4,25,265,280,Tab&,0,%Hinstance,$0)
Stprogramme&=Control("DIALOG","",$54000000,4,25,265,280,Tab&,0,%Hinstance,$0)e>