| |
| |
|
| - Página 1 - |
|
GDL | @ Hola Roland,
Yo habe me con Ayuda deiner Klasse una Einfachsteditor para mein Atmelprogramm gezimmert.
Lo klappt auch alles wunderbar, salvo Eines:Yo möchte siempre el aktuelle Zeileninhalt en zeile$ haben.
Yo nehme veces a, dass el con el Teil a tun ha.
KompilierenMarcaSeparación
Proc XSciProf.GetLine
Return Int(.SciMessage(~SCI_LINEFROMPOSITION, .SciMessage(~SCI_GETCURRENTPOS, 0, 0), 0) + 1)
EndProc
Proc XSciProf.GetLine$
Parameters Nr%, Z$
Declare Len%, Zeile#
Dim Zeile#,32767
Len% = .SciMessage(~SCI_GETLINE, Nr%, Zeile#)
Z$ = Translate$(Char$(Zeile#,0,Len%-1), ,Space$(XSciProf.Tab%))
Dispose Zeile#
Return Z$
| 21.10.2007 ▲ | |
|
| |
|
| |
| |
| - Página 2 - |
|
|
GDL | | va como Einzelbefehl no y Kombination con setfocus auch no. |
|
| |
| |
| |
|
|
GDL | |
| |
| |
| |
|
|
Jörg
Sellmeyer | Was heißt Einzelbefehl? Es una Función - con SetActiveWindow(hdl&) setzt Usted una Control aktiv.
Yo habe con Rolands Code otra vez getestet. Dort funktioniert SetFocus. Usted mußt also una Fehler irgendwo instalado haben.
Hast Usted el Ergänzug a mi vorigen Contribución gelesen? |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ...  | 24.10.2007 ▲ |
|
| |
|
|
GDL | mom ha se alles überschnitten en el Postings.
melde mich otra vez. |
|
| |
| |
| |
|
|
GDL | Posesiones no Klasse, pero sólo 1 Ventana.
Betrifft menuitem, y clicked
dies va
, si vorher con getfocus una más Control aufgerufen wurde
KompilierenMarcaSeparación |
|
| |
| |
| |
|
|
Jörg
Sellmeyer | | Yo glaube, wir reden aneinander vorbei. Am Besten Usted postest veces una lauffähiges Ejemplo, a el al nachvollziehen kann. Como ya he dicho: Im XProfEd funktioniert lo. |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 24.10.2007 ▲ |
|
| |
|
|
GDL | | jo, va aber sólo en el Laufe el Nacht. |
|
| |
| |
| |
|
|
Jörg
Sellmeyer | Alles klar, Yo bin eh ne nachteule  |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 24.10.2007 ▲ |
|
| |
|
|
GDL | Nun va por Zufall alles, cuándo debo waitinput nen setfocus(edit&) einsetze.
KompilierenMarcaSeparación
whilenot ende%
setfocus(edit&)
waitinput
if (%umessage=16) or (menuitem(450))
aufraeumen
ende%=1
elseIf %wmNotify and (%NotifyCode = ~SCN_MARGINCLICK)
I% = sendmessage(edit&,~SCI_POSITIONFROMPOINT,0,%MouseY - 80)
Der Wert 80 in obiger Zeile wurde durch Testen ermittelt.Sonst geht
Aufklappen nicht richtig !
I% = sendmessage(edit&,~SCI_LINEFROMPOSITION,I%,0) + 1
sendmessage(edit&,~SCI_TOGGLEFOLD,I%,0)
ElseIf MenuItem(13) Enter-Taste
if not(sendmessage(edit&,~SCI_GETLINEVISIBLE,aktuellezeile_(), 0)) gefaltet
sendmessage(edit&,~SCI_TOGGLEFOLD,aktuellezeile_(), 0)
endif
sendmessage(edit&,~SCI_ADDTEXT, 2, Addr(CRLF$))
CRLine% = aktuellezeile_() - 1
i% = sendmessage(edit&,~SCI_GETLINEINDENTATION, CRLine% - 1, 0)
sendmessage(edit&,~SCI_SETLINEINDENTATION, CRLine%, I%)
i% =sendmessage(edit&,~SCI_GETLINEINDENTPOSITION, CRLine%, 0)
sendmessage(edit&,~SCI_GOTOPOS, i%, 0)
zeile_ermitteln
Das lo nun va es determinado nen Doppelfehler, el se entonces aufhebt.Wichtig iss, dass mein Zusammengesuche ausm Xprofed überhaupt va.
Bin siempre todavía al Suchen por qué el waitinput durchbrochen se.Wird el en el XProfed Klasse ya festgelegt?
Servus
Georg |
|
| |
| |
| |
|
|
GDL | Posesiones todavía más rumprobiert.
setfocus(edit&) oder setfocus(editor_&) kann después de waitinput ,en el individual Abfragen,así oft posición como mag, lo va no.Steht lo aber antes waitinput va alles.
Servus
Georg |
|
| |
| |
| |
|
|
GDL | @ Jörg,
habe veces alles soweit zusammengefasst,soweit Yo a ahora bin.El Exe es lauffähig.Alle code mentira en.Im Ordner 01test laufen dejar.
Servus
Georg |
|
| |
| |
| |
|
|
Jörg
Sellmeyer | GDL
Posesiones todavía más rumprobiert.
setfocus(edit&) oder setfocus(editor_&) kann después de waitinput ,en el individual Abfragen,así oft posición como mag, lo va no.Steht lo aber antes waitinput va alles.
Servus
Georg
Usted hättest lo nada después de individual Abfragen conjunto necesario, pero después de el If-Struktur en el Hauptschleife.
KompilierenMarcaSeparación
Pero letzendlich egal.
Yo sería sólo el Variable editor_& no global definieren, pero innerhalb el Procedimiento. Dann necesario zwar todos más, Prozeduren, el el Control beeinflussen aún en el ersten Línea una Parámetros editor_&,...,... haben, aber Usted hast entonces el Prozeduren schön gekapselt y kannst en Bedarf weitere Editcontrols en Deinem Programa erzeugen.
Su Includedatei se simplemente flexibler.
Saludo
Jörg |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 24.10.2007 ▲ |
|
| |
|
(468)
Deutsch
English
Français
Español
Italia