oMLE/String Formatierungen [ERLEDIGT]

[RUzZlacK]

Moin,

ich trage in ein oMLE mehrere Datensätze ein, diese können nicht verändert werden, sie dienen also nur der Veranschaulichung.

Bei der Menge was in dem oMLE dann drin steht hat man nur schwer ein überblick.

Ist es jetzt möglich in dem oMLE Formatierungen durchzuführen? Ich würde gern entweder z.B. ein Teil Links- dann wieder ein Teil Rechtsbündig erscheinen lassen, vielleicht
den Hintergrund passend zu den Abschnitten abwechselnd in zwei Farben gestalten (z.B. Grau, Weiß, Grau, Weiß,...) oder auch am einfachsten, nur den Text den ich mit oMLE:setData()
einfüge schon im Vorfeld gestalte (andere Schriftgröße, Farbe).

Im Vorfeld will ich schon mal sagen das ich mit Fonts bisher in Xbase nicht viel zu tun gehabt habe. Wie könnte ich den am einfachsten Strings gestalten, sodass ich sie auch ins MLE einfügen kann?

Beim herum stöbern im Forum bin ich auf diese ganzen GRA- Einstellungen gestoßen und hab ein wenig herumexperimentiert hab aber nicht arg viel dabei erreicht, könnte mir aber vorstellen,
dass es das ist was ich brauche.

Für jede Hilfe dankbar,

Grüße Alex

[georg]

Hallo, Alex -


ein XbpMLE() ist nur bedingt "formatierbar". Die Dokumentation verweist auf Zeilenumbrüche, mehr ist da nicht.

Aber vielleicht schaust Du Dir mal die ActiveX-Beispiele an \xppw32\source\samples\activex

[brandelh]

ein normales MLE kann sowas nicht.

Du könntest mit den Grafunktionen ein Fenster bauen das dies so erzeugt wie du es willst, aber das ist viel Arbeit (ownerdrawing - Tom hat damit einen Kalender gezaubert).

Mit der Xbase 2.0 kannst du auch WebUI verwenden, also HTML Code der die Anzeige steuert.
Beispiel, so zeige ich eine HTML Vorschau an:

Code: Alles auswählen

*--------------------------------------------------------------------------
METHOD _dlgAutoLoadMerkeAllgK:ZeigHtml()
   LOCAL oHtmlWindow, oTxt, oDlg

   oDlg := XbpDialog():new(AppDesktop(),,{-1000,-1000}, {500,600} )
   oDlg:title   := "HTML-Vorschau"
   oDlg:close   := {|u1,u2,oWin| oWin:destroy() }
   oDlg:alwaysOnTop := .T.
   oDlg:create()

   oTxt := Txt2Html():new(::mleInhalt)

   oHtmlWindow := XbpHTMLWindow():new(oDlg:drawingArea,,{10,10},{460,550} )
   oHtmlWindow:layoutAlign := XBPLAYOUT_LEFT + XBPLAYOUT_TOP + XBPLAYOUT_RIGHT + XBPLAYOUT_BOTTOM
   oHtmlWindow:Html := oTxt:exportHtml()
   oHtmlWindow:create()

   CenterControl(oDlg)
   oDlg:show()

XbpHTMLWindow() schreibt hier auf die Drawing Area ...
Man könnte aber auch einem MLE die HTML Anzeige einbauen:

Code: Alles auswählen

cCSS := "<style> ... </style>"
oHTMLStyle := XbpHTMLStyle():new( cCSS ) // die Syntax ist mir noch nicht geläufig ... in der Hilfe steht das aber bei XbpHTMLStyle()
oMLE:visualStyle  := oHTMLStyle 

Wenn dir CSS und HTML Formatierungen was sagen, ist das eine einfache Möglichkeit das schön darzustellen.

"Text <b>Fett</b> ..." würde dann tatsächlich so angezeigt: "Text Fett ..."
Formatierungen wären mit CSS sehr flexibel.

[brandelh]

Was ein Standard MLE kann sind z.B. Tabulatorensprünge, wobei ich nicht weiß, wie die Breite geändert werden kann:

Code: Alles auswählen

cTxt := "Erste Spalte" + chr(9) + "Zweite Spalte ..:"

[Wolfgang Ciriack]

Warum dann nicht gleich ein XBPBROWSE nehmen ?

[Siggy]

Das würde ich dir auch empfehlen.

Mit einem Browse kannst du viel variieren und experimentieren.

[Martin Altmann]

Alex,
setze oMLE:Format := 3 und Du kannst mit (rudimentären) RTF-Formatierungen arbeiten!
Gibt dazu auch Beiträge hier im Forum.

Viele Grüße,
Martin

[Tom]

Eine weitere Alternative ist das "formatted label", das Alaska über das XbPack 1 oder 2 angeboten hat. Damit beherrscht ein Static immerhin simple Zeicheneigenschaften (fett, kursiv) und lässt sich mit einigen Zusatzoptionen (wordbreak) ähnlich wie ein MLE nutzen. Der String, der z.B. so aussehen kann:

Zeige \bhier\c fetten und \ihier\c kursiven Text

wird dann so

Zeige hier fetten und hier kursiven Text

dargestellt. Man muss nur die Klasse einbinden und statt der normalen Textstatic-Klasse verwenden. Scrolling und andere Dinge sind natürlich komplizierter.

Ansonsten würde ich tatsächlich eher ein Browse verwenden, oder eine Listbox. Oder, weil ich's sowieso habe, ein Text Control mit RTF. Die WebUI eignet sich auch.

[RUzZlacK]

@brandelh Bin leider noch auf der 1.9.n Version, wird also mit HTML nicht gehen. (Was ist eigentlich die neuste Version so nebenbei?)

@Wolfgang Ein Browse...hmm ja könnte vielleicht auch noch irgendwie klappen aber das sollte dann die Notlösung jetzt werden.

@Martin

Ja hab diese Beiträge schon mal gesehen bei meiner suche, aber wollte nicht klappen so wirklich, da verändert sich irgendwie nichts.

Was mich vor allem interessiert bei einem anderem Beitrag empfiehlst du auch oMLE:Format := 3 zu nehmen, woher nimmst aber dieses Format her bzw. woher weißt du das es dieses "Format" gibt/existiert?
Ich hab meine komplette Hilfe durchsucht aber nichts derartiges gefunden?...

Muss ich damit das mit den RTF-Formatierungen klappt ein XbpRtf() Object zuerst erzeugen? Weil wenn ich einfach oMLE:Format:= 3 (vor dem create()) mache,
und dann ein "Ich will {\b fett} schreiben" funktioniert es nicht. Wie hast dus mal gemacht?

[Martin Altmann]

Moin Alex,
ich nutze es nicht.
Du musst das Format vor dem oMLE:Create() gesetzt haben!
Es werden nur rudimentäre Formate unterstützt (z.B.Farben) - und es ist (genau aus diesem Grunde) nirgendwo dokumentiert.

Viele Grüße,
Martin

[Martin Altmann]

Ach so, das ganze muss natürlich insgesamt als RTF-Text formatiert sein. Also eine { am Anfang mit dem entsprechenden RTF-begin-tag und einem } am Ende des Textes.

Viele Grüße,
Martin

[RUzZlacK]

Ach so, das ganze muss natürlich insgesamt als RTF-Text formatiert sein. Also eine { am Anfang mit dem entsprechenden RTF-begin-tag und einem } am Ende des Textes.

Viele Grüße,
Martin

Bei mir ist es ja auch genauso Formatiert

Code: Alles auswählen

test := "{\b Fett}"

ebenso das Format vor dem create gemacht:

Code: Alles auswählen

   
   ::MLE1        := XbpMLE():new( ::drawingArea, , {8,48}, {884,516}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
   ::MLE1:editable := .F.
   ::MLE1:tabStop := .T.
   ::MLE1:format:= 3 
   ::MLE1:create()  

dann mit

Code: Alles auswählen

oDlg:MLE1:setData(test) 

eingefügt.

Es will aber trotzdem nicht funktionieren?

Wird im MLE einfach als Komplett normaler String angezeigt...

[Martin Altmann]

Eben - es fehlen noch die grundlegenden Angaben:
Text muss mit mindestens {\rtf1 am Anfang beginnen und am Ende mit } schließen.
Schau mal hier https://de.wikipedia.org/wiki/Rich_Text_Format
Ob es grundlegend funktioniert, kannst Du ganz einfach prüfen: Lade in das MLE nach dem Create() einfach eine .rtf-Datei ein.

Viele Grüße,
Martin

[RUzZlacK]

Eben - es fehlen noch die grundlegenden Angaben:
Text muss mit mindestens {\rtf1 am Anfang beginnen und am Ende mit } schließen.
Schau mal hier https://de.wikipedia.org/wiki/Rich_Text_Format
Ob es grundlegend funktioniert, kannst Du ganz einfach prüfen: Lade in das MLE nach dem Create() einfach eine .rtf-Datei ein.

Viele Grüße,
Martin

...Danke für die schnelle Antwort...ja hat jetzt alles geklappt war selbst die ganze Zeit auf der Wiki aber hab das \rtf irgendwie komplett übersehen/vergessen, auch so noch nie wirklich mit RTF´s zutun gehabt

Jedenfalls vielen vielen Dank.

[Wonderer]

ein XbpMLE() ist nur bedingt "formatierbar".

Aber vielleicht schaust Du Dir mal die ActiveX-Beispiele an \xppw32\source\samples\activex

Ich könnte das im aktuellen Projekt auch gut gebrauchen, oder besser gesagt unbedingt.

Das Beispiel (RTF)EDITOR lässt sich bei mir nicht ohne Probleme ausführen. Eine Meldung meckert, dass MS Common Controls 6.0 nicht gefunden werden kann.

DLL und OCX sind jedoch im (XP)System hier vorhanden. Auch nach einem Update (KB896559) von der Microsoft-Seite immer noch die selbe Meldung.

Kennt jmd.dieses Problem und kann weiterhelfen?

[brandelh]

die muss man nachinstallieren, von Alaska soll es da was geben, ist aber ewig her und bei mir war immer Office installiert (die installieren die auch).

[georg]

Hallo, Alex -


hier findest Du einige Hinweise: http://www.xbaseforum.de/viewtopic.php? ... 12&p=71678

Und, die üblichen Fragen: Betriebssystem? Welches Office installiert?

[Jan]

Eigentlich ist genau das der Grund, warum ich manche Sachen nicht mehr mag. Wo immer es geht werf ich ActiveX-Zugriffe raus, auf die ich wenig bis keinen Einfluß habe. RTF ist etwas mit dem ich gerne arbeiten würde, aber nicht zu den Bedingungen das ich alle Nase lang böse Mails und Anrufe von Kunden bekomme weil das nicht funktioniert wegen fehlender ocx. Ich hatte das schon mit der Statusbar. Muß ich einfach nicht mehr haben.

Jan

[georg]

Jan,


da gebe ich Dir recht, besonders da Windows 10 bei dem einen oder anderen Update gerne was verändert, ohne zu fragen.

Aber bis jetzt bekomme ich die OCX auch unter Windows 10 noch ans Laufen, und solange es geht ...

[Werner_Bayern]

Ich hatte das schon mit der Statusbar. Muß ich einfach nicht mehr haben.

Und wie machst Du dann eine Statusbar? Oder verzichtest Du komplett drauf (wäre für mich keine Option)?

[brandelh]

Man kann das mit einem eigenen Statik nachbauen und die drawingarea des Fensters anpassen, ich hab mir die Mühe aber nie gemacht.

[Jan]

Hallo Werner,

da war ich ganz pragmatisch. Nachdem immer mal wieder Fehlermeldungen deswegen eingetrudelt sind hab ich in der Erstellung das Create() einfach in eine Sequence-Schleife gehängt. Ist das schief gegangen wird einfach keine Statusbar erzeugt. Der Kunde hat dann irgendwie einfach nur Pech gehabt. Ist zwar blöd, aber was soll ich machen?

Jan

Ich hatte das schon mit der Statusbar. Muß ich einfach nicht mehr haben.

Und wie machst Du dann eine Statusbar? Oder verzichtest Du komplett drauf (wäre für mich keine Option)?

[AUGE_OHR]

hi,

ein XbpMLE ist ein "multi-line" XbpSLE -> Windows WC_EDIT Control.
ein WC_EDIT Control beherrscht RTF v1.1 d.h. ohne Bilder etc.

wie Martin schon sagte benötigt man einen RTF "Header" bevor der eigentliche Text im "Body" kommt.
am einfachsten erzeugt man mit Windows WordPad.EXE eine Format Vorlage.

die möglichen Attibute,identische mit "formatted label", sind

Code: Alles auswählen

\b FETT10\b0  \par
\b\fs24 FETT12\b0\fs20\par
\i Kursive\i0\par
\ul unterstrichen\ulnone\par

was den XbpRTF "Editor" angeht, welches RICHTX32.OCX benötigt, ist es das RTF v2.x Format.
wie auch XbpStatusbar()***, welches MSCOMCTL.OCX benötigt, kann man alternative "native" auf das Control zugreifen

Code: Alles auswählen

::hRtf := @user32:CreateWindowExA(::dwChildStyleEx,;
                                  "RichEdit20A",;   // ANSI Version
                                  "",;
                                  ::dwChildStyle,;
                                  0,0,rc[3],rc[4], ;
                                  hWnd,:
                                   500 ,:
                                  AppInstance(),;
                                  0)

*** siehe DXE_Statbar() als native Control in der DXE LIB

[Wonderer]

ein XbpMLE ist ein "multi-line" XbpSLE -> Windows WC_EDIT Control.
ein WC_EDIT Control beherrscht RTF v1.1 d.h. ohne Bilder etc.

Ok, danke!

wie Martin schon sagte benötigt man einen RTF "Header" bevor der eigentliche Text im "Body" kommt.

und ich benötige jetzt eine Konverter-Routine RTF <-> HTML

wie auch XbpStatusbar()***, welches MSCOMCTL.OCX benötigt, kann man alternative "native" auf das Control zugreifen

Code: Alles auswählen

::hRtf := @user32:CreateWindowExA( ... )

Ah, sehr interessant. Für einen kurzen Augenblick hatte ich auch überlegt ob es da über die WinAPI einen Weg gibt.
Wäre allerdings seltsam wenn das XbpRTF:create fehlschlägt und die Instanzierung über User32 ohne Probleme funktioniert?

Ich teste das gleich mal..

[Wonderer]

ein XbpMLE ist ein "multi-line" XbpSLE -> Windows WC_EDIT Control.
ein WC_EDIT Control beherrscht RTF v1.1 d.h. ohne Bilder etc.

beim Test zum Bearbeiten des Inhalts des MLEs funktionierten Backspace + Enter nicht wenn

Code: Alles auswählen

 oPart:format := 3

wie auch XbpStatusbar()***, welches MSCOMCTL.OCX benötigt, kann man alternative "native" auf das Control zugreifen

Code: Alles auswählen

::hRtf := @user32:CreateWindowExA( ... )

user32 ist Rückgabewert von DllLoad() ?