[*]Profan

Michael
Wodrich

allô Roland,

ist es possible qui Versionsnummer un peu trop erweitern?

9.x-NT-10 wäre ensuite z.B. qui 10. Subscriptionsversion.

je addiere $ProfVer chez Tests le Überschriften, avec cela je voyons peux si je aussi qui neueste Version verwende.

Klappt mais pas avec den Subscriptionsversionen - qui peut pas unterschieden volonté. oui oui irgendwann bemerke je es ensuite, si le neuen Sachen simple pas marcher voulons...

belle Grüße
Michael Wodrich

Programmieren, das spannendste Detektivspiel der Welt.

19.05.2006 ▲

Michael
Wodrich

Hatten wir cette Bug pas déjà la fois gehabt???

Folgendes fonctionne im inneren einer Tandis que-Boucle, qui zl& hochzählt:
Kompilieren Marque Séparation

Print # hFile1&,

WhileLoop 0, 15

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

EndWhile

Print #

qui gesamte Dateiausgabe steht am Ende ensuite dans einer einzigen la ligne.

qui Workaround c'est moi encore bekannt, Leerstring anhängen, mais so ists oui pas entier Ok.

belle Grüße
Michael Wodrich

Programmieren, das spannendste Detektivspiel der Welt.

RGH

peux Du cela Beispiel la fois trop einem komplett lauffähigem Code erweitern?
si je mir selbst un Programme avec Imprimer #Nr schreibe, klappt es, comme soll.

Salut
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

cela Progrämmchen ist eigentlich ne...aucune Geheimnis, alors:
Kompilieren Marque Séparation

 $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/'>Fin
ProgEnd

Programmieren, das spannendste Detektivspiel der Welt.

Michael
Wodrich

maintenant steht naturellement qui Workaroud derrière elle.

Zum Testen simple cet Zeilen comme fontliste dans C:\Fonts Sauver:
[box:5être9021a36]--snip--[/box:5être9021a36]
belle Grüße
Michael Wodrich

je seh déjà, qui doit je anders liefern, alors comme Anhang (dans qui Box gingen qui Tabs verloren, et qui sommes important)

Fontliste.zip	28 kB

Kurzbeschreibung:	qui gesamte liste

Hochgeladen:	20.05.2006

Downloadcounter:
		Download

Programmieren, das spannendste Detektivspiel der Welt.

Lol Michael - weil je grad oui c'est ca à cette Stelle wörkelte.

Schreib büdde wieder rein.

Michael
Wodrich

aucun Angst, était je selbst. qui données stehen maintenant dans qui ZIP.

Programmieren, das spannendste Detektivspiel der Welt.

Michael
Wodrich

Programmieren, das spannendste Detektivspiel der Welt.

RGH

allô Michael,
j'ai es ausprobiert et peux cela Problem nachvollziehen.
je schaue es mir demain la fois genauer à. maintenant fais je seulement la fois Schluß.
Gute nuit,
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

oui merci, doit aussi aufhören...

belle Grüße
Michael Wodrich

Programmieren, das spannendste Detektivspiel der Welt.

RGH

allô Michael,

dans qui prochain Subscriptionsversion ist qui faute behoben. chez qui Erweiterung qui GetText$-Funktion pour Gridboxen et Stringgrids hatte sich un kleiner faute eingeschlichen, qui sich mais seulement bemerkbar machte, si cet Funktion qui dernier chez einem Imprimer-Befehl était (comment dans Deinem Beispiel).

Salut
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