XbpMLE und Tabulatoren

[UliTs]

Hallo allerseits,

Ich möchte XbpMLE nur um Tabulatoren erweitern. Wenn man XbpMLE:ignoreTabs auf FALSE gesetzt hat, werden im Eingabefeld die Tabulatoren als "Standardtabulatoren" behandelt, ich vermute so alle 1 Zoll kommt ein linksbündiger Tab.
Gibt es eine Möglichkeit dem XbpMLE Tabulatoren vorzugeben (auch Rechtsbündige)?

Uli

[Günter Beyes]

Hallo Uli,

linksbündige Tabulaturen kannst du im XbpMLE über die Windows-Message EM_SETTABSTOPS setzen, zum Beispiel:

Code: Alles auswählen

#define EM_SETTABSTOPS 0x00CB

aTabStops := {10,30,60,100,150,210}
sTabStops := ""      
FOR i := 1 TO len( aTabStops )
    sTabStops += U2Bin( aTabStops[i] )
NEXT
rc := SendMessageA( oMLE:getHWND(), EM_SETTABSTOPS, len( aTabStops ), sTabStops )

/*
Edit:

anschließend ist

oMLE:invalidateRect()

nötig.


Um einen gleichmäßigen Tabulatorabstand zu setzen, reicht

SendMessageA( oMLE:getHWND(), EM_SETTABSTOPS, 1, U2Bin(nTababstand) )

Und um den Normalzustand wieder herzustellen,

SendMessageA( oMLE:getHWND(), EM_SETTABSTOPS, 0, 0 )

*/

DLLFUNCTION  SendMessageA( hwnd, msg, wparam, lparam ) ;
USING STDCALL from user32.dll

Die Tabstops sind in Dialogtemplate-Einheiten angegeben, die jeweils 1/4 der durchschnittlichen Zeichenbreite des verwendeten Fonts entsprechen. Der normale Tabulatorabstand beträgt 32 Einheiten und damit 8 Zeichen durchschnittlicher Breite.

Rechtsbündige Tabs kann XbpMLE im Richtext-Modus darstellen, wenn ein passend rtf-codierter String übergeben wird. Selbst als einfacher Richtext-Editor ist XbpMLE in diesem Modus aber leider unbrauchbar.

Code: Alles auswählen

oMle := XbpMLE():New(...)

oMle:Format := 3  // Richtext-Modus

oMle:Create()
oMle:setData( MemoRead( "RtfDatei.rtf" ) )

RTF-MLE.PNG (3.86 KiB) 3403 mal betrachtet

aTabStops := {10,30,60,100,150,210}

MLE_SetTabStops.png (10.4 KiB) 3402 mal betrachtet

[Herbert]

Genau das suchte ich.
Ergänzende Frage dazu:
Wenn ich den Inhalt drucken will, was muss ich tun, damit die Tabs auf dem Ausdruck berücksichtigt werden?

[Günter Beyes]

Hallo Herbert,

du rechnest die Tab-Positionen in Pixel um, zerlegst die Zeile in ihre (durch Tab getrennten) Einzelteile und
druckst die Teilstrings einzeln mit GraStringAt() an diesen Positionen, den ersten Teilstring an Position 0.
Wenn du links einen Rand lassen willst, verschieben sich die Positionen entsprechend.

Die durchschnittliche Zeichenbreite erhältst du nach http://support.microsoft.com/default.as ... -US;145994
mit

Code: Alles auswählen

aPoints    := GraQueryTextBox( oPS, "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz" )
nTextWidth := aPoints[3][1] - aPoints[2][1]
nDurchschnittsZeichenBreite := round( (nTextWidth / 26 + 1) / 2, 0)

Dabei ist oPS der Presentation Space des Druckers mit bereits selektiertem Font.

Die Position der Tabs ist dann

Code: Alles auswählen

nTabPositionInPixels := round( nTabPositionInUnits * nDurchschnittsZeichenBreite / 4, 0 )

Gruß,
Günter

[Herbert]

Danke, danke
Ich dachte, es gäbe einen Trick, ohne die Rechnerei machen zu müssen.