XProfan

- Página 1 -

Yo weiß por desgracia, no simplemente una Schalter X, en el problema así a lösen.

Yo sehe ahora sólo el Meldung "... Block SegRelocs überschritten", vlt. es el Linker el Objeto a groß. Was auch ser kann, dass el Linker lediglich una Función a groß es en lugar de todos Objeto, hierbei podría algo "Umschreiben" el Función helfen - also Teile el Función wiederum en Características aufteilen y esta neuen Función entonces pero no como Unterfunktionen deklarieren. Vlt. bekommst Usted lo aber auch z.B. con PoLink gelinkt, z.B. simplemente hier de [...]

herunterladen. Wenn no, entonces debería como Sebastian simplemente veces ran, de otra manera müsstest Usted sólo el Programa teilen, una Workaround wäre vlt. con Profano2CPP de Programmteilen una DLL herstellen a Características de dieser entonces el Programa sólo a Laufzeit hinzuzufügen. Egal veces como, irgendwelche Grenzen y el Aufteilen en kleinere Arbeitsschritte gibts siempre. Yo mag a XProfan, dass I, con PRCs como "Module" trabajo kann, qué me z.B. el Programmieren unheimlich erleichtert. Mit Profano2CPP puede ser sí ähnlich trabajo, cómo "teilt" es sí fast egal.

Detlef
Jagolski

¡Hola IF,
sólo una vez Gracias para Su Propuestas.

Aus el Ayuda de Profano2Cpp:
Un größere Einschränkung hay desafortunadamente: Innerhalb el DLL debería no Befehle oder Características, el Ventana oder Fensterelemente erzeugen, verwendet werden; el Comportamiento es sonst unvorhersehbar.

Mein Programa ha ahora ca. 24000 Zeilen, y es a ca. 30% fertig. Das son sólo Dialoge, Edit‘s usw.
Alles otro es ya en vier Dll‘s untergebracht.
Yo hoffe dass Sebastian ni Concepto ha.
Saludo
Detlef

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

Hast Usted simplemente schonmal (s.o.) una otro Linker como z.B. POLink probiert?

Detlef
Jagolski

Den voluntad Yo igual todavía Testen.

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

Sag veces "Fensterelemente erzeugen" es doch selten, el größten Teil debería el doch no betreffen.

Detlef
Jagolski

Fensterelemente

Und así mi Yo Textos, Buttons, Checkboxes, Selectfelder, Radiobuttons, Übersichtsfelder usw.

Oder qué meint Sebastian en el Ayuda con Fensterelemente?

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

Durchschnittlich son doch el wenigsten Zeilen beschäftigt, Elemente a redactar, en lugar de con esta a hantieren - saber aber el código no. Como groß es porque el Objektdatei? Zeilenzahl sagt sí nichts en Anzahl el Anweisungen/ Programmgröße de.

Detlef
Jagolski

OBJ Expediente 4401 KB
Programa 3,7 MB

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

- Página 2 -

Un 4 MB OBJ es ya riesig, XProfan kommt con un Virtel dessen de.

Yo weiß, dass no el "Optimierungstips" son, welche Usted grad necesidad, aber ellos "funktionieren" unabhängig.

Vlt. könntest Usted veces una INC oder una Programmteil zeigen, de el du überhaupt no wüsstest, como dieser wegzuoptimieren es.

Detlef
Jagolski

Proc DesignForm_Lieferantendaten

    Declarar DesignForm&
    Declarar dlgexit%
    Declarar Dlg2Button1&
    Declarar Dlg2Button2&
    Declarar Dlg2Button3&
    Conjunto("TrueColor", 1)
    DesignForm&=Crear("Dialog",%hwnd,"Lieferantenstammdaten",%maxX + 5,114,521,415)
    Texto1&=Crear("Text",DesignForm&,"Lieferanten-Nr.:",20,100,102,17)
    SetFont Texto1&,TextFont4&
    Texto2&=Crear("Text",DesignForm&,"Anrede:",20,120,62,17)
    SetFont Texto2&,TextFont1&
    Texto3&=Crear("Text",DesignForm&,"Name 1:",20,140,52,17)
    SetFont Texto3&,TextFont1&
    Texto4&=Crear("Text",DesignForm&,"Name 2:",20,160,52,17)
    SetFont Texto4&,TextFont1&
    Texto5&=Crear("Text",DesignForm&,"Straße:",20,180,52,17)
    SetFont Texto5&,TextFont1&
    Texto6&=Crear("Text",DesignForm&,"Land/Plz/Ort:",20,200,92,17)
    SetFont Texto6&,TextFont1&
    Texto7&=Crear("Text",DesignForm&,"PLZ/Postfach:",20,220,92,17)
    SetFont Texto7&,TextFont1&
    Texto8&=Crear("Text",DesignForm&,"Telefon:",20,240,72,17)
    SetFont Texto8&,TextFont1&
    Texto9&=Crear("Text",DesignForm&,"Telefax:",20,260,82,17)
    SetFont Texto9&,TextFont1&
    Texto10&=Crear("Text",DesignForm&,"Email:",20,280,62,17)
    SetFont Texto10&,TextFont1&
    Texto11&=Crear("Text",DesignForm&,"URL:",20,300,82,17)
    SetFont Texto11&,TextFont1&
    Texto12&=Crear("Text",DesignForm&,"Ansprechpartner:",20,320,122,17)
    SetFont Texto12&,TextFont1&
    Texto13&=Crear("Text",DesignForm&,"Mobil:",20,340,52,17)
    SetFont Texto13&,TextFont1&
    DlgEdit1&=Crear("Edit",DesignForm&,"",170,100,121,21)
    SetFont DlgEdit1&,TextFont4&
    SendMessage(DlgEdit1&,~EM_LIMITTEXT,15,0)
    DlgChoiceBox1&=Crear("ChoiceBox",DesignForm&,"",170,120,82,120)
    ClearList
    AddStrings "Firma"
    AddStrings "Frau"
    AddStrings "Herr"
    MoveListToChoice(DlgChoiceBox1&)
    ClearList
    SendMessage(DlgChoiceBox1&,~CB_SETCURSEL,0,0)
    SetFont DlgChoiceBox1&,TextFont4&
    DlgEdit2&=Crear("Edit",DesignForm&,"",170,140,242,21)
    SetFont DlgEdit2&,TextFont4&
    SendMessage(DlgEdit2&,~EM_LIMITTEXT,35,0)
    DlgEdit3&=Crear("Edit",DesignForm&,"",170,160,242,21)
    SetFont DlgEdit3&,TextFont4&
    SendMessage(DlgEdit3&,~EM_LIMITTEXT,35,0)
    DlgEdit4&=Crear("Edit",DesignForm&,"",170,180,242,21)
    SetFont DlgEdit4&,TextFont4&
    SendMessage(DlgEdit4&,~EM_LIMITTEXT,35,0)
    DlgEdit5&=Crear("Edit",DesignForm&,"",170,200,32,21)
    SetFont DlgEdit5&,TextFont4&
    SendMessage(DlgEdit5&,~EM_LIMITTEXT,3,0)
    SetStyle DlgEdit5&, GetStyle(DlgEdit5&) | ~ES_UPPERCASE
    DlgEdit6&=Crear("Edit",DesignForm&,"",200,200,72,21)
    SetFont DlgEdit6&,TextFont4&
    SendMessage(DlgEdit6&,~EM_LIMITTEXT,15,0)
    DlgEdit7&=Crear("Edit",DesignForm&,"",271,200,142,21)
    SetFont DlgEdit7&,TextFont4&
    SendMessage(DlgEdit7&,~EM_LIMITTEXT,25,0)
    DlgEdit8&=Crear("Edit",DesignForm&,"",170,220,72,21)
    SetFont DlgEdit8&,TextFont4&
    SendMessage(DlgEdit8&,~EM_LIMITTEXT,25,0)
    DlgEdit9&=Crear("Edit",DesignForm&,"",240,220,82,21)
    SetFont DlgEdit9&,TextFont4&
    SendMessage(DlgEdit9&,~EM_LIMITTEXT,25,0)
    DlgEdit10&=Crear("Edit",DesignForm&,"",170,240,152,21)
    SetFont DlgEdit10&,TextFont4&
    SendMessage(DlgEdit10&,~EM_LIMITTEXT,35,0)
    DlgEdit11&=Crear("Edit",DesignForm&,"",170,260,152,21)
    SetFont DlgEdit11&,TextFont4&
    SendMessage(DlgEdit11&,~EM_LIMITTEXT,35,0)
    DlgEdit12&=Crear("Edit",DesignForm&,"",170,280,242,21)
    SetFont DlgEdit12&,TextFont4&
    SendMessage(DlgEdit12&,~EM_LIMITTEXT,35,0)
    DlgEdit13&=Crear("Edit",DesignForm&,"",170,300,242,21)
    SetFont DlgEdit13&,TextFont4&
    SendMessage(DlgEdit13&,~EM_LIMITTEXT,35,0)
    DlgEdit14&=Crear("Edit",DesignForm&,"",170,320,242,21)
    SetFont DlgEdit14&,TextFont4&
    SendMessage(DlgEdit14&,~EM_LIMITTEXT,35,0)
    DlgEdit15&=Crear("Edit",DesignForm&,"",170,340,152,21)
    SetFont DlgEdit15&,TextFont4&
    SendMessage(DlgEdit15&,~EM_LIMITTEXT,35,0)
    Dlg2Button1&=Crear("Button",DesignForm&,"&Speichern",430,90,75,25)
    SetFont Dlg2Button1&,ButtonFont1&
    Dlg2Button2&=Crear("Button",DesignForm&,"&Hilfe",430,120,75,25)
    SetFont Dlg2Button2&,ButtonFont1&
    Dlg2Button3&=Crear("Button",DesignForm&,"&Abbrechen",430,350,75,25)
    SetFont Dlg2Button3&,ButtonFont1&
    SubClass DlgEdit1&,1
    SubClass DlgEdit2&,1
    SubClass DlgEdit3&,1
    SubClass DlgEdit4&,1
    SubClass DlgEdit5&,1
    SubClass DlgEdit6&,1
    SubClass DlgEdit7&,1
    SubClass DlgEdit8&,1
    SubClass DlgEdit9&,1
    SubClass DlgEdit10&,1
    SubClass DlgEdit11&,1
    SubClass DlgEdit12&,1
    SubClass DlgEdit13&,1
    SubClass DlgEdit14&,1
    SubClass DlgEdit15&,1
    Case Lieferantenstammdaten% = 2: GetListView_Lieferantenstammdaten
    SetFocus(DlgEdit1&)
    SetWindowPos DesignForm& = CalcLeft(521),CalcTop(415) - 521,415;0
    Claro dlgexit%

    Sinestar encargado dlgexit%

        If GetText $(DlgEdit1&) = ""

            EnableWindow Dlg2Button1&,0

        Más

            EnableWindow Dlg2Button1&,1

        EndIf

        WaitInput

        If %key = 2

            dlgexit% = 1

        ElseIf Clicked(Dlg2Button1&)

            If Lieferantenstammdaten% = 1

                Pruefen_Lieferanten
                Case &SQLCount = 0: INSERT_Lieferantenstammdaten

            ElseIf Lieferantenstammdaten% = 2

                UPDATE_Lieferantenstammdaten

            EndIf

            GetSatz_Lieferantenstammdaten

        ElseIf Clicked(Dlg2Button2&)

        ElseIf Clicked(Dlg2Button3&)

            dlgexit% = 1

        ElseIf %key = 5

            Ayuda

        EndIf

    EndWhile

    Claro Lieferantenstammdaten%
    DestroyWindow(DesignForm&)
    SubClass DlgEdit1&,0
    SubClass DlgEdit2&,0
    SubClass DlgEdit3&,0
    SubClass DlgEdit4&,0
    SubClass DlgEdit5&,0
    SubClass DlgEdit6&,0
    SubClass DlgEdit7&,0
    SubClass DlgEdit8&,0
    SubClass DlgEdit9&,0
    SubClass DlgEdit10&,0
    SubClass DlgEdit11&,0
    SubClass DlgEdit12&,0
    SubClass DlgEdit13&,0
    SubClass DlgEdit14&,0
    SubClass DlgEdit15&,0

ENDPROC

So sehe el Dialoge de, alles otro es en DLL

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

Rein qué con "Suchen y Ersetzen" a hacer wäre, z.B. en:

Texto2&=Crear("Text",DesignForm&,"Anrede:",20,120,62,17)
SetFont Texto2&,TextFont1&
Text3&=Crear("Text",DesignForm&,"Name 1:",20,140,52,17)
SetFont Texto3&,TextFont1&
Text4&=Crear("Text",DesignForm&,"Name 2:",20,160,52,17)
SetFont Texto4&,TextFont1&
Text5&=Crear("Text",DesignForm&,"Straße:",20,180,52,17)
SetFont Texto5&,TextFont1&
Text6&=Crear("Text",DesignForm&,"Land/Plz/Ort:",20,200,92,17)
SetFont Texto6&,TextFont1&
Text7&=Crear("Text",DesignForm&,"PLZ/Postfach:",20,220,92,17)
SetFont Texto7&,TextFont1&
Text8&=Crear("Text",DesignForm&,"Telefon:",20,240,72,17)
SetFont Texto8&,TextFont1&
Text9&=Crear("Text",DesignForm&,"Telefax:",20,260,82,17)
SetFont Texto9&,TextFont1&
Text10&=Crear("Text",DesignForm&,"Email:",20,280,62,17)
SetFont Texto10&,TextFont1&
Text11&=Crear("Text",DesignForm&,"URL:",20,300,82,17)
SetFont Texto11&,TextFont1&
Text12&=Crear("Text",DesignForm&,"Ansprechpartner:",20,320,122,17)
SetFont Texto12&,TextFont1&
Text13&=Crear("Text",DesignForm&,"Mobil:",20,340,52,17)
SetFont Texto13&,TextFont1&
DlgEdit1&=Crear("Edit",DesignForm&,"",170,100,121,21)
SetFont DlgEdit1&,TextFont4&

vlt. a

DlgEdit1&=Crear("Edit",DesignForm&,"",170,100,121,21)
Text9&=Crear("Text",DesignForm&,"Telefax:",20,260,82,17)
Text8&=Crear("Text",DesignForm&,"Telefon:",20,240,72,17)
Text7&=Crear("Text",DesignForm&,"PLZ/Postfach:",20,220,92,17)
Text6&=Crear("Text",DesignForm&,"Land/Plz/Ort:",20,200,92,17)
Text5&=Crear("Text",DesignForm&,"Straße:",20,180,52,17)
Text4&=Crear("Text",DesignForm&,"Name 2:",20,160,52,17)
Text3&=Crear("Text",DesignForm&,"Name 1:",20,140,52,17)
Text2&=Crear("Text",DesignForm&,"Anrede:",20,120,62,17)
Text13&=Crear("Text",DesignForm&,"Mobil:",20,340,52,17)
Text12&=Crear("Text",DesignForm&,"Ansprechpartner:",20,320,122,17)
Text11&=Crear("Text",DesignForm&,"URL:",20,300,82,17)
Text10&=Crear("Text",DesignForm&,"Email:",20,280,62,17)
SetFont Texto9&,TextFont1&
SetFont Texto8&,TextFont1&
SetFont Texto7&,TextFont1&
SetFont Texto6&,TextFont1&
SetFont Texto5&,TextFont1&
SetFont Texto4&,TextFont1&
SetFont Texto3&,TextFont1&
SetFont Texto2&,TextFont1&
SetFont Texto13&,TextFont1&
SetFont Texto12&,TextFont1&
SetFont Texto11&,TextFont1&
SetFont Texto10&,TextFont1&
SetFont DlgEdit1&,TextFont4&

Wobei:

SetFont Texto9&,TextFont1&
SetFont Texto8&,TextFont1&
SetFont Texto7&,TextFont1&
SetFont Texto6&,TextFont1&
SetFont Texto5&,TextFont1&
SetFont Texto4&,TextFont1&
SetFont Texto3&,TextFont1&
SetFont Texto2&,TextFont1&
SetFont Texto13&,TextFont1&
SetFont Texto12&,TextFont1&
SetFont Texto11&,TextFont1&
SetFont Texto10&,TextFont1&
SetFont DlgEdit1&,TextFont4&

con uno Función en 1 Línea reduzierbar wäre:

proc mySetFontHelper

    parámetros fnt&

    whileLoop %pCount-1

        ...

    ENDPROC

y luego sólo

mySetFontHelper(TextFont1&,Texto1&,Texto2&,Texto1&...

Oder en ständigen Edits con Limittext

DlgEdit14&=Crear("Edit",DesignForm&,"",170,320,242,21)
SetFont DlgEdit14&,TextFont4&
SendMessage(DlgEdit14&,~EM_LIMITTEXT,35,0)

simplemente con uno Hilfsfunktion myCreateEdit(DesignForm&,vorgabeText$,maxLen&,TextFont4&,X&,Y&,...) una Línea draus hacer. También en

SubClass DlgEdit1&,1
SubClass DlgEdit2&,1
SubClass DlgEdit3&,1
SubClass DlgEdit4&,1
SubClass DlgEdit5&,1
SubClass DlgEdit6&,1
SubClass DlgEdit7&,1
SubClass DlgEdit8&,1
SubClass DlgEdit9&,1
SubClass DlgEdit10&,1
SubClass DlgEdit11&,1
SubClass DlgEdit12&,1
SubClass DlgEdit13&,1
SubClass DlgEdit14&,1
SubClass DlgEdit15&,1

, por qué no

mySubClass(1,DlgEdit1&,DlgEdit2&,DlgEdit3&...)

y de

SubClass DlgEdit1&,0
SubClass DlgEdit2&,0
SubClass DlgEdit3&,0
SubClass DlgEdit4&,0
SubClass DlgEdit5&,0
SubClass DlgEdit6&,0
SubClass DlgEdit7&,0
SubClass DlgEdit8&,0
SubClass DlgEdit9&,0
SubClass DlgEdit10&,0
SubClass DlgEdit11&,0
SubClass DlgEdit12&,0
SubClass DlgEdit13&,0
SubClass DlgEdit14&,0
SubClass DlgEdit15&,0

vlt.

mySubClass(0,DlgEdit1&,DlgEdit2&,DlgEdit3&...)

Damit sparst Usted enorm.

Yo zwar kein Profano2Cpp aber Usted puede me Directorio con el CPP-Projekt auch zusenden y yo schaue, si con irgend una Linker a linken es. Den Ver código fuente necesidad Yo dafür no.

31.01.2010 ▲

Detlef
Jagolski

¡Hola IF,

otra vez vielen Dank para Su Ayuda. Yo voluntad sólo una vez selber otro Linker Testen z.B. VC++ y PoLink. Nur es ärgerlich alles todavía una vez Durchzuackern qué ahora ya se ejecuta. Bisher Yo große Projekte con Delphi geschrieben. Möglicherweise bin Yo más rápido si yo el Teil con Delphi neu escribir. Tal vez ha Sebastian ni Concepto.

Saludo

Detlef

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

31.01.2010 ▲