[*]Profan

Michael
Wodrich

Hello Roland,

is it possible The version number a little bit To strain?

9.x-NT-10 would then z.B. The 10. Subscriptionsversion.

I add $ProfVer with Tests to the Überschriften, so I see can whether so did i The latest Version use.

Klappt but not whom Subscriptionsversionen - The cannot distinguished go. Yes Yes sometime notice I it then, if The new things simply not functions want...

Best wishes
Michael Wodrich

Programmieren, das spannendste Detektivspiel der Welt.

05/19/06 ▲

Michael
Wodrich

had we this bow not already time had???

The following runs in the internal of/ one While-Loop, The zl& hochzählt:
Compile Mark Separation

Print # hFile1&,

WhileLoop 0, 15

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

EndWhile

Print #

The entire Dateiausgabe standing end then in of/ one only row.

The Workaround is me yet famous, Leerstring append, but so ists Yes not integrally OK.

Best wishes
Michael Wodrich

Programmieren, das spannendste Detektivspiel der Welt.

RGH

can You, the example time to a complete lauffähigem code strain?
If I me self one Program with Print #Nr write, works it, as should.

Greeting
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

the Progrämmchen is really no secret, means:
Compile Mark Separation

 $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&,
'./../../Function-References/XProfan/end/'>End
ProgEnd

Programmieren, das spannendste Detektivspiel der Welt.

Michael
Wodrich

now standing naturally the Workaroud behind it.

to that testing simply these Lines as fontliste in C:\Fonts Save:
[box:5be9021a36]--snip--[/box:5be9021a36]
Best wishes
Michael Wodrich

I seh already, The must I differently supplying, means as attachment (in the Box went The Tabs lost, and the are important)

Fontliste.zip	28 kB

Kurzbeschreibung:	The entire list

Hochgeladen:	05/20/06

Downloadcounter:
		Download

Programmieren, das spannendste Detektivspiel der Welt.

Lol Michael - because I strain very on this place wörkelte.

Schreib büdde again mere.

Michael
Wodrich

No fear, i was self. The data stand now in the ZIP.

Programmieren, das spannendste Detektivspiel der Welt.

Michael
Wodrich

Programmieren, das spannendste Detektivspiel der Welt.

RGH

Hello Michael,
I have it ausprobiert and can the trouble understand.
I look it me tommorrow time accurate on. now make I first time Schluß.
good night,
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

Yes thanks, must too stop...

Best wishes
Michael Wodrich

Programmieren, das spannendste Detektivspiel der Welt.

RGH

Hello Michael,

in the next Subscriptionsversion is the Error fixed. with the expansion the GetText$-function for Gridboxen and Stringgrids having itself one small Error eingeschlichen, the itself but only noticeable made, if these function The latest with one Print-commands was (How in Your example).

Greeting
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