[*]Profan

Michael
Wodrich

Hola Roland,

es posible el Versionsnummer una wenig a erweitern?

9.x-NT-10 wäre entonces z.B. el 10. Subscriptionsversion.

Yo addiere $ProfVer en Tests a Überschriften, así Yo sehen kann si Yo auch el neueste Versión verwende.

Klappt pero no con el Subscriptionsversionen - el puede no unterschieden voluntad. Sí sí irgendwann bemerke Yo entonces, si la neuen Sachen simplemente no trabajo querer...

Schöne Grüße
Michael Wodrich

Programmieren, das spannendste Detektivspiel der Welt.

19.05.2006 ▲

Michael
Wodrich

Hatten wir esta Bug no ya veces gehabt???

Folgendes se ejecuta en el inneren uno Mientras que-Bucle, el zl& hochzählt:
Kompilieren Marca Separación

Print # hFile1&,

WhileLoop 0, 15

    Print # hFile1&, SubStr$(GBH1$,  (&loop*3+1), ;), =, GetText$(hGridBox1&, zl&, &loop)

EndWhile

Print #

El gesamte Dateiausgabe es al Ende entonces en uno einzigen Línea.

Der Workaround me está todavía bekannt, Leerstring anhängen, aber así ists sí no bastante Ok.

Schöne Grüße
Michael Wodrich

Programmieren, das spannendste Detektivspiel der Welt.

RGH

¿Puede Usted el Ejemplo veces a una komplett lauffähigem Code erweitern?
Wenn Yo incluso una Programa con Imprimir #Nr escribir, klappt lo, como se.

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

Michael
Wodrich

Das Progrämmchen es eigentlich kein Geheimnis, also:
Kompilieren Marca Separación

 $H c:\profan\include\windows.ph
 $H c:\profan\include\commctrl.ph
LVM_FIRST = $1000; { ListView messages }
LVM_GETCOLUMNWIDTH = ~LVM_FIRST + 29;  das ergibt $101D
LVM_SETCOLUMNWIDTH = ~LVM_FIRST + 30;  das ergibt $101E

Proc GetColWidth

    Parameters hGBox&, ColNr%
    Declare ColWidth%
    ColWidth% = SendMessage( hGBox&, ~LVM_GetColumnWidth, ColNr%, 0) LVM_GetColumnWidth = $101D
    Return ColWidth%

EndProc

Proc SetColWidth

    Parameters hGBox&, ColNr%, ColWidth%
    SendMessage( hGBox&, ~LVM_SetColumnWidth, ColNr%, 0) LVM_SetColumnWidth = $101E

EndProc

Set(MessageMode,1)
WindowStyle 512+4+2+1
Window 0,0 - 1020,750
SetStyle %hWnd, @GetStyle(%hWnd) | ~WS_DLGFRAME
Declare hGridBox1&, GBH1$, hFile1&, Zeile$, hButton1&, hWnd%, zl&
GBH1$ = Dateiname (Ori);0;185; +
Dateiname;0;181; +
Größe;1;54; +
Typ;0;34; +
FontNr;1;45; +
Font;0;168; +
Family;0;149; +
SubFamily_Weight;0;93; +
PS-Name;0;170; +
Ver;0;336; +
NoGlyphs;1;35; +
NoPairs;1;39; +
ID;0;68; +
Vendor;0;199; +
Designer;0;126; +
Copyright;0;923
Set(ListDel,Chr$(9))
hWnd% = Create(Dialog,%hWnd,GridBox-Test -  + $ProfVer,0,0,1020,750)
hGridBox1& = Create(GridBox,hWnd%,GBH1$,0,0,0,1000,650)
hButton1& = Create(DefButton,hWnd%,Ok,480,660,40,20)
hFile1& = assign(C:\Fonts\fl.cmd)
Rewrite hFile1&
Print # hFile1&, C:
Print # hFile1&, cd \programme\Fonts
Print # hFile1&, java -cp . FontLeroy4 -k2 -t C:\Fonts > C:\Fonts\Fontliste.txt
Print # hFile1&, cd \Fonts
Close hFile1&
Assign hFile1&,
Sleep 10
ChDir C:\Fonts
WinExecWait(C:\Windows\System32\cmd.exe /C C:\Fonts\fl.cmd,1)
Sleep 10
hFile1& = assign(C:\Fonts\Fontliste.txt)
Reset hFile1&

WhileNot EoF(hFile1&)

    Input # hFile1&, Zeile$

    If Len(Trim$(Zeile$)) > 0

        AddString( hGridBox1&, Zeile$ )

    EndIf

EndWhile

Close hFile1&
Assign hFile1&,
SetText hWnd%,GetText$(hWnd%) +  -  + Str$(GetCount(hGridBox1&)) +  Fonts

WhileLoop 0, GetCount(hGridBox1&)-1

    zl& = &loop
    hFile1& = assign(C:\Fonts\ + GetText$(hGridBox1&,zl&,1) + .txt)
    Rewrite hFile1&
    Print # hFile1&,

    WhileLoop 0,15

        Print # hFile1&, SubStr$(GBH1$,&loop*3+1,;),=,GetText$(hGridBox1&,zl&,&loop)+

    EndWhile

    Print # hFile1&,
    Close hFile1&
    Assign hFile1&,

EndWhile

SelectString( hGridBox1&,-1,A )
Set(Decimals,0)

While 1

    WaitInput

    If Clicked(hButton1&)

        BREAK

    EndIf

    If (%MenuItem = -2) or (%Key = 2) or (%Key = 27)

        BREAK

    EndIf

EndWhile

hFile1& = assign(C:\Fonts\groessen.txt)
Rewrite hFile1&
Print # hFile1&,

WhileLoop 0,15

    Print # hFile1&, SubStr$(GBH1$,&loop*3+1,;),=,GetColWidth(hGridBox1&,&loop)

EndWhile

Print # hFile1&,
Close hFile1&
Assign hFile1&,
'./../../funktionsreferenzen/XProfan/end/'>End
ProgEnd

Programmieren, das spannendste Detektivspiel der Welt.

Michael
Wodrich

Jetzt es natürlich el Workaroud detrás de él.

Zum Testen simplemente esta Zeilen como fontliste en C:\Fonts speichern:
[box:5be9021a36]--snip--[/box:5be9021a36]
Schöne Grüße
Michael Wodrich

Yo seh ya, el muß Yo anders liefern, also como Anhang (en el Box gingen el Tabs perdido, y el son wichtig)

Fontliste.zip	28 kB

Kurzbeschreibung:	el gesamte Liste

Hochgeladen:	20.05.2006

Ladeanzahl:
		Descargar

Programmieren, das spannendste Detektivspiel der Welt.

Lol Michael - porque Yo grad genau a dieser Punto wörkelte.

Schreib büdde otra vez rein.

Michael
Wodrich

Keine Angst, war Yo incluso. El Daten posición ahora en el ZIP.

Programmieren, das spannendste Detektivspiel der Welt.

Michael
Wodrich

Programmieren, das spannendste Detektivspiel der Welt.

RGH

¡Hola Michael,
Yo lo ausprobiert y puede Problema nachvollziehen.
Yo schaue lo me morgen veces genauer a. Jetzt mache Yo sólo veces Schluß.
Gute Nacht,
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

Michael
Wodrich

Sí Gracias, muß auch aufhören...

Schöne Grüße
Michael Wodrich

Programmieren, das spannendste Detektivspiel der Welt.

RGH

¡Hola Michael,

en el nächsten Subscriptionsversion es el Fehler Fijo. En Erweiterung el GetText$-Función para Gridboxen y Stringgrids hatte se una kleiner Fehler eingeschlichen, el se aber sólo bemerkbar machte, si esta Función el Letzte en una Imprimir-Befehl war (como en Deinem Ejemplo).

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