[*]Profan

Print # hFile1&,

WhileLoop 0, 15

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

EndWhile

Print # hFile1&,

 $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&,
End
ProgEnd