| |
|
|
Andreas Miethe
| Tal vez kann lo sí alguien gebrauchen KompilierenMarcaSeparación $H Windows.ph
CLS
SetStyle %hWnd,1,(GetStyle(%hWnd,1) | ~WS_CLIPCHILDREN | $2000000)
Var edit& = Create("Text",%hwnd,"",10,10,110,24)
Var Pfad$ = "C:\\Test\\test\\Test\\kuckuck\\aha.prf"
WaitInput
SetText Edit&,minmizename(Pfad$,edit&,width(edit&))
WaitInput
End
Proc MinmizeName
PARAMETERS FName$,Ct&,MaxLen&
Declare R#,Result$
Dim R#,16
Var b$ = Fname$
LONG R#,0 = 0,0,Maxlen&,0
If ~DrawText(~GetDC(CT&), Addr(b$),Len(b$),R#,~DT_SINGLELINE | ~DT_MODIFYSTRING | ~DT_PATH_ELLIPSIS | ~DT_CALCRECT | ~DT_NOPREFIX) > 0
Result$ = b$
Else
Result$ = b$
EndIf
Dispose R#
Return result$
ENDPROC
|
|
|
| XProfan X2Gruss Andreas ________ ________ ________ ________ _ Profan 3.3 - XProfanX2 Win 95,98,ME,2000,XP,Vista - Win 7 32 / 64 Bit ASUS X93S - Intel Core I7-NVIDIA GForce 540M 8GB Arbeitsspeicher Homepage : [...] | 01.06.2013 ▲ |
|
|
|
|
| |
|
| |
|
|