XProfan

Français

Julian
Schmidt

peux mir quelqu'un dire, wieso qui qui Text 'Test' qui Listbox pas rechtsbündig ausgerichtet wird. Ausgehend de qui Logik serait je dire, dass es marcher devrait!?

Kompilieren Marque Séparation

cls
declare text$
var lb&=Créer(ListBox, %hwnd, 0, 10, 10, 152, height(%hwnd)-20)
Randomiser
Addstring(lb&,Mkstr$("_",18))'18 marque nutzen qui Listboxbreite aus

whileloop 20

    cas iskey(27) : end
    text$=Mkstr$(Str$(Tour(10)),Tour(10)+1)
    'Maximale_Zeichenlänge_in_ListBox - (Anzahl_Zeichen_Linksbündig + Anzahl_Zeichen_Rechtsbündig) = Zeichenlänge_zwischen_Linkbündig_und_Rechtbündig_damit_Maximale_Zeichenlänge_in_ListBox_erreicht
    Addstring(lb&,text$+$ MkStr(" ",18-(Len(text$)+Len("Test")))+"Test")
    Messagebox("Länge '"+text$+"' = "+Str$(Len(text$))+" - Longueur 'Test' = "+Str$(Len("Test"))+"\n18-("+Str$(Len(text$))+"+"+Str$(Len("Test"))+")="+Str$(Len($ MkStr(" ",18-(Len(text$)+Len("Test")))))+"\nIst "+Str$(Len(text$))+"+"+Str$(Len($ MkStr(" ",18-(Len(text$)+Len("Test")))))+"+"+Str$(Len("Test"))+" = 18?",»,0)

Endwhile

tandis que 1

    waitinput

Endwhile

XProfan X2
Win7 Home Premium, SP1, AMD Athlon(tm) II Neo K125 Processor
˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗
Webseite [...]

25.03.2012 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

« cette Beitrag wurde comme Solution gekennzeichnet. »

Andreas
Miethe

DOKTOR XPROFAN EHRENHALBER

Falscher Font serait je dire.

Kompilieren Marque Séparation

 $H windows.ph
 $H messages.ph
cls
declare text$
var lb&=Créer(ListBox, %hwnd, 0, 10, 10, 152, height(%hwnd)-20)
sendmessage(lb&,~wm_setfont,~GetStockObject(~ANSI_FIXED_FONT),1)
Randomiser
Addstring(lb&,Mkstr$("_",18))'18 marque nutzen qui Listboxbreite aus

whileloop 20

    cas iskey(27) : end
    text$=Mkstr$(Str$(Tour(10)),Tour(10)+1)
    'Maximale_Zeichenlänge_in_ListBox - (Anzahl_Zeichen_Linksbündig + Anzahl_Zeichen_Rechtsbündig) = Zeichenlänge_zwischen_Linkbündig_und_Rechtbündig_damit_Maximale_Zeichenlänge_in_ListBox_erreicht
    Addstring(lb&,text$+$ MkStr(" ",18-(Len(text$)+Len("Test")))+"Test")
    Messagebox("Länge '"+text$+"' = "+Str$(Len(text$))+" - Longueur 'Test' = "+Str$(Len("Test"))+"\n18-("+Str$(Len(text$))+"+"+Str$(Len("Test"))+")="+Str$(Len($ MkStr(" ",18-(Len(text$)+Len("Test")))))+"\nIst "+Str$(Len(text$))+"+"+Str$(Len($ MkStr(" ",18-(Len(text$)+Len("Test")))))+"+"+Str$(Len("Test"))+" = 18?",»,0)

Endwhile

tandis que 1

    waitinput

Endwhile

Gruss
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 : [...]

25.03.2012 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Julian
Schmidt

Stimmt avec cela funktioniert es. mais pourquoi hängt cela avec qui Font zusammen?

25.03.2012 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Andreas
Miethe

DOKTOR XPROFAN EHRENHALBER

chez cette Fixed-Fonts sommes plan alle marque juste breit, chez anderen Font unterschiedlich.

mais und dir aussi avec anderen Fonts.
et sans grosse Rechnerei. simple den ExStil qui Listbox changement.

Kompilieren Marque Séparation

 $H windows.ph
 $H messages.ph
cls
declare text$
Var lb& = Contrôle("LISTBOX",»,~WS_CHILD | ~WS_VISIBLE | ~WS_BORDER,10,10,152,height(%hwnd)-20,%hwnd,2000,%HINSTANCE)
~SetWindowLong(lb&,~GWL_EXSTYLE,~WS_EX_RIGHT)
Randomiser
Addstring(lb&,Mkstr$("_",18))'18 marque nutzen qui Listboxbreite aus

whileloop 20

    cas iskey(27) : end
    text$=Mkstr$(Str$(Tour(10)),Tour(10)+1)
    'Maximale_Zeichenlänge_in_ListBox - (Anzahl_Zeichen_Linksbündig + Anzahl_Zeichen_Rechtsbündig) = Zeichenlänge_zwischen_Linkbündig_und_Rechtbündig_damit_Maximale_Zeichenlänge_in_ListBox_erreicht
    Addstring(lb&,text$+$ MkStr(" ",18-(Len(text$)+Len("Test")))+"Test")
    Messagebox("Länge '"+text$+"' = "+Str$(Len(text$))+" - Longueur 'Test' = "+Str$(Len("Test"))+"\n18-("+Str$(Len(text$))+"+"+Str$(Len("Test"))+")="+Str$(Len($ MkStr(" ",18-(Len(text$)+Len("Test")))))+"\nIst "+Str$(Len(text$))+"+"+Str$(Len($ MkStr(" ",18-(Len(text$)+Len("Test")))))+"+"+Str$(Len("Test"))+" = 18?",»,0)

Endwhile

tandis que 1

    waitinput

Endwhile