XProfan

Español

Wilfried
Friebe

-Begin------------------------------------------------------------------
Declare Anzahl%, i%, Name$, Browse$, länge%
Cls
TextColor @RGB(255, 0, 100), -1
Set(CharSet, 0)
UseFont ARIAL, 15, 10, 1, 0, 0
@db(Open, #1,Musik.DBF)
@db(Use, #1)
Print db-Struktur von Musik.DBF
Print Datensätze:      ;&dbRecCount
Print Felder:          ;%dbFCount
Print Satzgröße:       ;%dbRecSize; Byte
Print Headergröße:     ;%dbHeader; Byte
Print Letzte Änderung: ;$dbLUpdate
Anzahl% = %dbFCount
i% = 1

WhileNot i% > Anzahl%

    @db(GetField, i%)
    Print $dbFName,$dbFType,%dbFLen,%dbFDecs
    Print
    Print
    Inc i%

EndWhile

@db(Close, #1)
Waitinput
Name$ = @LoadFile$(Welche Datei,*.DBF)
print Name$
@db(Open, #1,Name$)
@db(Use, #1)
Anzahl% = %dbFCount
i% = 1

WhileNot i% > Anzahl%

    @db(GetField, i%)
    länge%=%dbFLen
    länge%= länge%*5
    @set(Decimals,0)
    Browse$=Browse$+$dbFName+;+$dbFName+;+str$(länge%)+;
    Inc i%

EndWhile

@db(Browse, 10,10,ADRESS-TABELLE,10,  Browse$ ,3)
print   &dbRecCount
@db(AppendBlank)
@dbPack()
@dbClose(#1)
/../funzione-riferimenti/XProfan/end/'>End

Yo habe X Profano y Windows XP
Bildschirmauflösung 1280-1024 y getestet auch con 1024-768
en beiden Auflösungen es el gleiche Fehler aufgetreten
me fehlen unten en Toolbar unos pocos Pixel (siehe anhängendes Bild)
el gleiche Programa en una Notebook con Windows ME con uno
Auflösung de 1024-768 einwandfrei
wer kann me como helfen

bildschirm 030-1.jpg	208 kB

Hochgeladen:	22.04.2007

Ladeanzahl:
		Descargar

Board MSI B450M BAZOOKA CPU AMD Ryzen 7 2700x 8 Core 3,7-4,2 GH 32 Gb Ram NVIDIA GeForce GTX 3060 12 GB Ram Window 11 Prof 64 Bit

Sun-Guru-Barebone CPU I7-9750H 16 GB Ram NVIDIA GeForce GTX1660TI 6 GB Ram Window 11 Hom 64 Bit

Profan 4.5 bis Xprofan 14
Ein frisch geschriebenes Programm hat meistens einen großen Fehler.Sollte man versuchen diesen großen Fehler zu beseitigen, hat man viele kleine Fehler "Grins"

22.04.2007 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

- Página 2 -

Jojo - trabajo tuts. Dennoch weisst auch RGH siempre otra vez darauf hin solche Anweisungen a klammern. Im Principio hast hierbei sólo Glück dass el erste Minus a el richtigen Punto sitzt. Würdest Usted z.B. Parámetro 4 y 3 tauschen (Sinnhaftigkeit sei dahingestellt) sería lo ya scheitern. Und el es denk Yo veces una muy guter Referencia en una ebend falsche Syntax.

Yo persönlich poner mich una para el Abschaffung de - y ; como Parametertrennzeichen.

Einzig y alleine el , debería esta nötig ser. Tal vez bringt Roland el seinem Parser en.

22.04.2007 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Wilfried
Friebe

Sorry
Yo pensamiento el X antes Profano genügt
Yo Xprofan 10
para %CyCaption
Yo kann lo ahora zwar auslesen es 30
y %Cymenu = 20
aber como verändere Yo esta Werte ?
tan bueno bin Yo en el programieren no
a el sys-variablen Yo mich a ahora no getraut
:--/

22.04.2007 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Kein Problema! Diese Werte son no pensamiento para Verändern - sólo nutzen sollst Usted esta!

Si usted z.B. una Ventana con un Innenbereich de 400 Pixel en Höhe möchtest entonces musst Usted el Ventana also mindestens con window 0,0, x,400+%cycaption redactar. Como el aber auch Quatsch es porque Fensterrahmen & Co. auch addiert voluntad müssten kannst Usted simplemente hier así ne alte Función de me benutzen:
Kompilieren Marca Separación

proc setinnersize

    parameters x%,y%
    setwindowpos %Hwnd = %winleft,%wintop - ((%winright-%winleft)-(width(%hwnd)-x%)),((%winbottom-%wintop)-(height(%hwnd)-y%));0

endpr

Es entonces así:
Kompilieren Marca Separación

window 0,0 - 640,480
setinnersize 640,480
imprimir Fensterinnenraum es:,width(%hwnd),x,height(%hwnd),Pixel groß.
waitinput
end

proc setinnersize

    parámetros x%,y%
    setwindowpos %Hwnd = %winleft,%wintop - ((%winright-%winleft)-(width(%hwnd)-x%)),((%winbottom-%wintop)-(height(%hwnd)-y%));0

ENDPROC

Nach Setinnersize ha Su HWND entonces garantiert una Anzeigebreich de 640x480 Pixeln.

22.04.2007 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Wilfried
Friebe

OK soweit tan bueno
Normale Ventana son kein Problema
eigendlich es en el Befehl

@db(Browse,X,Y, S1,N1,S2,N2)

en uno GridBox Tuve el Fehler auch ya una vez
habe por größere x/y maße aber hinbekommen

en @db(Browse,X,Y, S1,N1,S2,N2) va pero no la
si uno como algo hacer puede es mi eigendliche Cuestión

Saludo
Wilfried

22.04.2007 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Yo glaube (ldr. no wissen) el Diálogo steckt como Ressource en el Runtime. Also Reshacker besorgen y Diálogo en el prfrun32.exe ändern (y el profano.exe para el Interpretermodus).

23.04.2007 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

RGH

Yo glaube (ldr. no wissen) el Diálogo steckt como Ressource en el Runtime. Also Reshacker besorgen y Diálogo en el prfrun32.exe ändern (y el profano.exe para el Interpretermodus).

Yo fürchte, hier se el Reshacker no reichen, pero Yo muß lo me en el ToDo-Liste para el nächste XProfan-Versión nehmen. Für db(Editar,...) es ya el automatische Anpassung, para db(Browse,...) desafortunadamente todavía no.

Saludo
Roland

Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4

23.04.2007 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Ok, y yo werd später veces versuchen esta Diálogo nachträglich a ändern. Erstmal schauen cómo el DLG (el Todavía nie aufgerufen habe

) überhaupt a Gesichte bekommt.

23.04.2007 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Wilfried
Friebe

Na bien
Erstmal Gracias
jedenfalls lag no a media beschränkten programierfähigkeiten
GRINS
voluntad mich also gedulden
war no allzuleicht el umgewöhnung de seculares 4,5 en X Prfan 10
aber langsam gehts

Saludo
Wilfried

23.04.2007 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

So habs y zwar muss uno sólo untere Procedimiento einbinden - si uno en lugar de dbbrowse mejor _dbbrowse eingibt Luego se el Ventana en korrekte 514x265 Pixel Innengrösse gebracht. Natürlich es el unsauberes Schummeln!

Hierfür simplemente folgende Función en el Source platzieren: (XPSE-original-Variante! / unten el no-XPSE-Variante)
Kompilieren Marca Separación

_dbbrowse (long a,b,string c,long d,string e,long f) {

    long err
    string sid=str$(gettickcount)
    long timer=external(user32.dll,SetTimer,0,0,250,ProcAddr(_dbbrowse_internal,0))
    dbbrowse(a,b,sid,d,e,f)

    _dbbrowse_internal {

        long h=findwindow(sid)
        string s=gettext$(h)

        if (substr$(s,1, )==sid) {

            external(user32.dll,KillTimer,0,timer)
            settext h,c+ +substr$(s,2, )
            setwindowpos h=a,b - 320,200;0
            setwindowpos h=a,b - ((320-width(h))+514),((200-height(h))+265);0

        } else {

            err+
            case (err==40) : external(user32.dll,KillTimer,0,timer)

        }

    }

color=#0000FF>}

No-XPSE-Variante:
Kompilieren Marca Separación

proc _DBBROWSE

    PARAMETERS A&,B&,C$,D&,E$,F&
    var ERR&=0
    var SID$=STR$(&GETTICKCOUNT)
    var TIMER&=EXTERNAL(user32.dll,SetTimer,0,0,250,PROCADDR(_dbbrowse_internal,0))
    DBBROWSE(A&,B&,SID$,D&,E$,F&)

    proc _DBBROWSE_INTERNAL

        var H&=FINDWINDOW(SID$)
        var S$=GETTEXT$(H&)

        IF (SUBSTR$(S$,1, )=SID$)

            EXTERNAL(user32.dll,KillTimer,0,TIMER&)
            SETTEXT H&,C$+ +SUBSTR$(S$,2, )
            SETWINDOWPOS H&=A&,B& - 320,200;0
            SETWINDOWPOS H&=A&,B& - ((320-WIDTH(H&))+514),((200-HEIGHT(H&))+265);0

        ELSE

            INC ERR&

            IF (ERR&=40)

                EXTERNAL(user32.dll,KillTimer,0,TIMER&)

            ENDIF

        ENDIF

    ENDPROC

ENDPROC

y aquí mein Testprogramm (achtung XPSE!)
Kompilieren Marca Separación

cls
Asignar #1, ADRESS.STR
Rewrite #1
Imprimir #1, NAME;    C; 30; 0
Imprimir #1, VORNAME; C; 30; 0
Imprimir #1, STRASSE; C; 30; 0
Imprimir #1, PLZ_ORT; C; 30; 0
Imprimir #1, TELEFON; C; 20; 0
Imprimir #1, GEBURT;  D;  8; 0
Imprimir #1, GEHALT;  N; 10; 2
Imprimir #1, NOTIZ;   M; 10; 0
Cerrar #1
db(Crear, ADRESS.STR, ADRESS.DBF)
@dbOpen(#1,ADRESS.DBF)
@dbUse(#1)
dbCreateIndex Name+Vorname > iName
@dbIndex(iName)
_dbbrowse(100,10,Adressen,10,NAME;Name:;100,3)
@dbPack()
@dbClose(#1)

_dbbrowse (long a,b,cadena c,long d,cadena e,long f) {

    long err
    cadena sid=str$(gettickcount)
    long timer=external(user32.dll,SetTimer,0,0,250,ProcAddr(_dbbrowse_internal,0))
    dbbrowse(a,b,sid,d,e,f)

    _dbbrowse_internal {

        long h=findwindow(sid)
        cadena s=gettext$(h)

        if (substr$(s,1, )==sid) {

            external(user32.dll,KillTimer,0,timer)
            settext h,c+ +substr$(s,2, )
            setwindowpos h=a,b - 320,200;0
            setwindowpos h=a,b - ((320-width(h))+514),((200-height(h))+265);0

        } más {

            err+
            caso (err==40) : external(user32.dll,KillTimer,0,timer)

        }

    }

}

Und en el Anhang una lauffähige Exe.

dbbrowserdlg.exe	727 kB

Hochgeladen:	23.04.2007

Ladeanzahl:
		Descargar

23.04.2007 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Sí, sí - el IF

23.04.2007 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Wilfried
Friebe

Kompilieren Marca Separación

declare anzahlspalten& ,Dateiname$ ,Spaltenname$
Declare Text$ ,Z& ,Dateiname1$ ,Dateiname2$
cls
anzahlspalten&=0

WhileNot  anzahlspalten&

    anzahlspalten& = @Input$(Wert eingeben:, Wieviele Spalten ?, anzahlspalten&)

EndWhile

Dateiname$ = @Input$(Namen eingeben:, Welcher Dateiname ? , Dateiname$)
Dateiname1$=Dateiname$+.STR
Assign #1, Dateiname1$
Rewrite #1
print Bitte nach ein ander den Namen des Feldes, dessen Typ,
print dessen Länge und die Anzahl der Dezimalstellen
print getrennt durch ein  ;
print die Feldtypen C=Text, D=Datum, N=Zahlen, L=Ja/Nein und M=Memo-Feld
print NAME;    C; 30; 0

WhileLoop anzahlspalten&

    Spaltenname$ = @Input$(Namen eingeben:, Welcher Spaltenname ? , &loop)
    Print #1, Spaltenname$

endwhile

Close #1
Dateiname2$=Dateiname$+.DBF
db(Create, Dateiname1$ , Dateiname2$)
Waitinput

Kompilieren Marca Separación

-Begin------------------------------------------------------------------

proc _DBBROWSE

    PARAMETERS A&,B&,C$,D&,E$,F&
    var ERR&=0
    var SID$=STR$(&GETTICKCOUNT)
    var TIMER&=EXTERNAL(user32.dll,SetTimer,0,0,250,PROCADDR(_dbbrowse_internal,0))
    DBBROWSE(A&,B&,SID$,D&,E$,F&)

    proc _DBBROWSE_INTERNAL

        var H&=FINDWINDOW(SID$)
        var S$=GETTEXT$(H&)

        IF (SUBSTR$(S$,1, )=SID$)

            EXTERNAL(user32.dll,KillTimer,0,TIMER&)
            SETTEXT H&,C$+ +SUBSTR$(S$,2, )
            SETWINDOWPOS H&=A&,B& - 320,200;0
            SETWINDOWPOS H&=A&,B& - ((320-WIDTH(H&))+514),((200-HEIGHT(H&))+265);0

        ELSE

            INC ERR&

            IF (ERR&=40)

                EXTERNAL(user32.dll,KillTimer,0,TIMER&)

            ENDIF

        ENDIF

    ENDPROC

ENDPROC

Declarar Anzahl%, i%, Name$, Browse$, länge%, cy%, cy1%
Cls
Name$ = @LoadFile$(Welche Expediente,*.DBF)
@db(Open, #1,Name$)
@db(Use, #1)
Anzahl% = %dbFCount
i% = 1

Sinestar encargado i% > Anzahl%

    @db(GetField, i%)
    länge%=%dbFLen
    länge%= länge%*5
    @set(Decimals,0)
    Browse$=Browse$+$dbFName+;+$dbFName+;+str$(länge%)+;
    Inc i%

EndWhile

_dbbrowse  (10,10,Adress-Tabla,10,  Browse$ ,3)
@db(Browse, 10,10,ADRESS-TABELLE,10,  Browse$ ,3)
imprimir   &dbRecCount
@db(AppendBlank)
@dbPack()
@dbClose(#1)
End

Irgendwie gehts doch probablemente no
con el ersten Programa erstelle Yo una DB Expediente
con el zweiten lese Yo esta datei entonces de y bearbeite ellos
Yo el MUSIK.DBF Expediente como MUSIK.txt en el Anhang dazugetan
El EXE y el otro Expediente laufen sólo solange como sólo una Spalte es
en más zeigt el Prog falso a
es eigendlich en efecto sólo una Schönheitsfehler
en el zweiten Programa son beide Befehle drin _dbbrownse y @db(brownse)
y el neue Procedur