XProfan

Español

Julian
Schmidt

Kann me alguien sagen, wieso el el Texto 'Test' el Listbox no rechtsbündig ausgerichtet se. Ausgehend de el Logik sería Yo sagen, dass lo trabajo debería!?

Kompilieren Marca Separación

cls
declarar texto$
var lb&=Crear("ListBox", %hwnd, 0, 10, 10, 152, height(%hwnd)-20)
Selección aleatoria
Addstring(lb&,Mkstr$("_",18))'18 Signo nutzen el Listboxbreite de

whileloop 20

    caso iskey(27) : end
    texto$=Mkstr$(Str$(Rnd(10)),Rnd(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&,texto$+MkStr$(" ",18-(Len(texto$)+Len("Test")))+"Test")
    Messagebox("Länge '"+texto$+"' = "+Str$(Len(texto$))+" - Longitud 'Test' = "+Str$(Len("Test"))+"\n18-("+Str$(Len(texto$))+"+"+Str$(Len("Test"))+")="+Str$(Len(MkStr$(" ",18-(Len(texto$)+Len("Test")))))+"\nIst "+Str$(Len(texto$))+"+"+Str$(Len(MkStr$(" ",18-(Len(texto$)+Len("Test")))))+"+"+Str$(Len("Test"))+" = 18?","",0)

Endwhile

mientras que 1

    waitinput

Endwhile

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

25.03.2012 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

« Dieser Contribución wurde como Solución gekennzeichnet. »

Andreas
Miethe

DOKTOR XPROFAN EHRENHALBER

Falscher Font sería Yo sagen.

Kompilieren Marca Separación

 $H windows.ph
 $H messages.ph
cls
declarar texto$
var lb&=Crear("ListBox", %hwnd, 0, 10, 10, 152, height(%hwnd)-20)
sendmessage(lb&,~wm_setfont,~GetStockObject(~ANSI_FIXED_FONT),1)
Selección aleatoria
Addstring(lb&,Mkstr$("_",18))'18 Signo nutzen el Listboxbreite de

whileloop 20

    caso iskey(27) : end
    texto$=Mkstr$(Str$(Rnd(10)),Rnd(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&,texto$+MkStr$(" ",18-(Len(texto$)+Len("Test")))+"Test")
    Messagebox("Länge '"+texto$+"' = "+Str$(Len(texto$))+" - Longitud 'Test' = "+Str$(Len("Test"))+"\n18-("+Str$(Len(texto$))+"+"+Str$(Len("Test"))+")="+Str$(Len(MkStr$(" ",18-(Len(texto$)+Len("Test")))))+"\nIst "+Str$(Len(texto$))+"+"+Str$(Len(MkStr$(" ",18-(Len(texto$)+Len("Test")))))+"+"+Str$(Len("Test"))+" = 18?","",0)

Endwhile

mientras 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 Zitat

Absatzweise Cita Zeilenweise Cita

Julian
Schmidt

Stimmt así funktioniert lo. Aber por qué hängt el con el Font zusammen?

25.03.2012 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Andreas
Miethe

DOKTOR XPROFAN EHRENHALBER

En esta Fixed-Fonts son eben todos Signo igual breit, en otro Font unterschiedlich.

Aber lo va auch con otro Fonts.
Und sin grosse Rechnerei. Einfach el ExStil el Listbox ändern.

Kompilieren Marca Separación

 $H windows.ph
 $H messages.ph
cls
declarar texto$
Var lb& = Control("LISTBOX","",~WS_CHILD | ~WS_VISIBLE | ~WS_BORDER,10,10,152,height(%hwnd)-20,%hwnd,2000,%hInstance)
~SetWindowLong(lb&,~GWL_EXSTYLE,~WS_EX_RIGHT)
Selección aleatoria
Addstring(lb&,Mkstr$("_",18))'18 Signo nutzen el Listboxbreite de

whileloop 20

    caso iskey(27) : end
    texto$=Mkstr$(Str$(Rnd(10)),Rnd(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&,texto$+MkStr$(" ",18-(Len(texto$)+Len("Test")))+"Test")
    Messagebox("Länge '"+texto$+"' = "+Str$(Len(texto$))+" - Longitud 'Test' = "+Str$(Len("Test"))+"\n18-("+Str$(Len(texto$))+"+"+Str$(Len("Test"))+")="+Str$(Len(MkStr$(" ",18-(Len(texto$)+Len("Test")))))+"\nIst "+Str$(Len(texto$))+"+"+Str$(Len(MkStr$(" ",18-(Len(texto$)+Len("Test")))))+"+"+Str$(Len("Test"))+" = 18?","",0)

Endwhile

mientras que 1

    waitinput

Endwhile