Moderator: Moderatoren
Code: Alles auswählen
oError:description:Interne Datenstrukturen beschädigt
Nur wenn du keine Proportionalschrift verwendest, bei z.b. Arial kannst du Leerzeichen vergessen, du bekommst deine Text nie richtig untereinander dargestellt.Vermutlich wird es generell besser sein die Tabs in Space zu wandeln...
reden wir hier von Cl*pper oder Xbase++ MemoEdit() ? wird auch von Cl*pper auf die DBT zugegriffen ?Roland Gentner hat geschrieben:Habe das Problem, dass Text die mit XbpMLE erstellt/verändert wurden von manchen Usern auch noch mit MemoEdit() angezeigt werden (sollen).
Ist in dem Text ein xbeK_TAB enthalten stürzt MemoEdit() ab:Code: Alles auswählen
oError:description:Interne Datenstrukturen beschädigt
Das MLE ist ein Standard-Windows-Control. Das kann von Haus aus nicht sehr viel, fürchte ich.Bin enttäuscht wie wenig im MLE steckt, habe da mehr erwartet.
Was uns von Xbase normalerweise abgenommen wird ist die Einstellung mit sendmessage() (Windows-API)Tab
Wird als Zeichen in den Editierpuffer übertragen, falls :ignoreTab auf .F. gesetzt ist
http://msdn.microsoft.com/en-us/library ... 85%29.aspx http://msdn.microsoft.com/en-us/library ... 85%29.aspx
http://www.powerbasic.com/support/pbfor ... ETTABSTOPS da war auch ein Anhang (den ich nicht getestet habe): und noch eine Anmerkung:Günter Beyes hat geschrieben:Hi Robert,
> How can I set the tab spacings in xbpMLE?
By sending the XbpMLE an EM_SETTABSTOPS message, using the
SendMessage() WinAPI function.
See the attached sample.
---
Regards,
Günter
By the way, regarding the EM_SETTABSTOPS sample provided above, you may
find that it doesn't work... In that case, pass the 4th parameter to
SendMessage ( i.e. sTabStops ) by reference, and adjust the SendMessage()
wrapper function accordingly. Again a case of copy/paste/edit/break...
stimmt, wenn du im Text mehr als ein " " findest, kannst du auf ein TAB schließen, aber das ist auch nicht eindeutigRoland Gentner hat geschrieben: Das mit dem Zeichentauschen z.B. in Chr(255) wäre schon OK, aber wenn der User drüberschreibt wird ein Space draus und die vorherige Tab-Position ist futsch.
Sonst könnte ich ja gleich in Space tauschen (mache ich gerade sowieso).
da habe ich mich falsch ausgedrückt, der Event ist der Keyboardevent und dass dieser define 9 ergibt stimmt natürlich auch,Roland Gentner hat geschrieben: xbeK_TAB hat den Wert 9 und ist mit Chr( xbeK_TAB ) das TAB-Zeichen.
Das Chr(...) habe ich mir nur gespart.
Code: Alles auswählen
#include "Gra.ch"
#include "Xbp.ch"
#include "Common.ch"
#include "Appevent.ch"
procedure main()
local oDlg, mp1, mp2, oXbp, cText, oMle, nEvent
mp1 := mp2 := oXbp := nil
oDlg := setAppWindow()
oDlg:SetTitle("Test")
cText := "Dies ist ein Test" + chr(9) + "von TAB Zeichen"+chr(13)+chr(10)+"Ende"
@ 0,1 say " F2 = Memoedit, F3 = MLE, Rest Anzeige der Tastaturcodes" COLOR "W+/B"
cText := MyMemoEdit(cText)
oMLE := XbpMLE():new(oDlg)
* oMLE:wordWrap :=.F.
oMLE:horizScroll := .F.
oMLE:killInputFocus := {| n1, n, oXbp | cText := oXbp:getData() }
oMLE:create( , , {50,50}, {400,150} )
@0,1 say "Text wurde an MLE bergeben ... "
oMLE:setData( cText )
@0,50 say "und geht gleich weiter ..."
nEvent := 0 // Event loop
DO WHILE nEvent <> xbeP_Close
nEvent := AppEvent( @mp1, @mp2, @oXbp, 0 )
do case
case nEvent == xbeK_ESC // Esc bricht ab
EXIT
case nEvent == xbeK_F2 // F2 => Memoedit()
@0,1 say "Memoedit startet und blockiert ... "
cText := MyMemoEdit(cText)
@0,1 say "Memoedit ende, Daten an MLE bergeben .... "
oMLE:setData( cText )
setAppFocus(oMLE)
@0,50 say "und geht gleich weiter ..."
case nEvent == xbeK_F3
@0,1 say "Text wurde an MLE bergeben ... "
oMLE:setData( cText )
setAppFocus(oMLE)
@0,50 say "und geht gleich weiter ..."
case nEvent < xbeB_Event // Ausgabe im Fenster mit Fokus
? "Die Taste hat den Ereigniscode:", nEvent
case oXbp <> NIL // Ereignis für Pushbutton
oXbp:handleEvent( nEvent, mp1, mp2 )
END
ENDDO
return
function MyMemoEdit(cText)
@ 1,1 say "Memoedit Strg+W speichern. chr(9) im Text ? "+iif(chr(9) $ cText,"JA","NEIN") COLOR "W+/B"
set color to "n/w"
@ 2,0 TO 11,41 COLOR "N/BG"
cText := MemoEdit( cText , 3,1,10,40, .T.)
cls
@ 1,1 say "Memoedit Ende in die Eventschleife. chr(9) im Text ? "+iif(chr(9) $ cText,"JA","NEIN") COLOR "W+/B"
return cText
Solange es um Xbase++ DLLs geht, deren Quellcode man nicht hat, ist das auch gefährlich, wer weiß wie lange support besteht ...Roland Gentner hat geschrieben:Das Einbinden von Drittprodukten behagt mir nicht sehr.
(...mit Ausnahme von APIs der MSDN).