| |
| |
|
Michael
Wodrich | Werden el Sprites eigentlich auch con uno Kollisionserkennung ausgestattet?
(Sombrero como alguien entsprechende Links a el Thema? 3D-Kollisionen)
Fiel me así una, como Yo el Gartenpfleger-Figur por el Globus rauschen sah...
Schöne Grüße
Michael Wodrich
 Hab el Texto grad otra vez sobrevolados... 
Apropos: wo es eigentlich el Smiley, el se en el Teppich wälzt y el Faust en el Boden haut. Posesiones Yo en el Smiley-Liste hier rechts (el erweiterte Smiley-Página) no entdeckt. 
IF: Drum haben Admins el Möglichkeit en el ACP Smilies einzufügen.   |
|
| |
| Programmieren, das spannendste Detektivspiel der Welt. | 15.05.2006 ▲ |
|
| |
|
|
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:
KompilierenMarcaSeparaciónPrint # 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. | 20.05.2006 ▲ |
|
| |
|
|
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 | 20.05.2006 ▲ |
|
| |
|
|
Michael
Wodrich | Das Progrämmchen es eigentlich kein Geheimnis, also:
KompilierenMarcaSeparació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. | 20.05.2006 ▲ |
|
| |
|
|
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) |
|
| |
| Programmieren, das spannendste Detektivspiel der Welt. | 20.05.2006 ▲ |
|
| |
|
|
 | 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. | 20.05.2006 ▲ |
|
| |
|
|
Michael
Wodrich | |
| |
| Programmieren, das spannendste Detektivspiel der Welt. | 20.05.2006 ▲ |
|
| |
|
|
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 | 20.05.2006 ▲ |
|
| |
|
|
Michael
Wodrich | Sí Gracias, muß auch aufhören...
Schöne Grüße
Michael Wodrich |
|
| |
| Programmieren, das spannendste Detektivspiel der Welt. | 20.05.2006 ▲ |
|
| |
|
|
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 | 20.05.2006 ▲ |
|
| |
|
(520)
Deutsch
English
Français
Español
Italia