| |
| |
|
| - page 1 - |
|
GDL | @ allô Roland,
j'ai mir avec Aider deiner super une Einfachsteditor pour mon Atmelprogramm gezimmert.
Es klappt aussi alles wunderbar, jusqu'à sur Eines:je voudrais toujours den aktuelle Zeileninhalt dans la ligne$ avons.
je prends la fois à, dass cela avec dem partie trop 1faire hat.
KompilierenMarqueSéparation
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 ▲ | |
|
| |
|
| |
| |
| - page 2 - |
|
|
GDL | | allez comme Einzelbefehl pas et dans Kombination avec setfocus aussi pas. |
|
| |
| |
| |
|
|
GDL | |
| |
| |
| |
|
|
Jörg
Sellmeyer | quoi est Einzelbefehl? c'est une Funktion - avec SetActiveWindow(hdl&) mets Du un Contrôle aktiv.
j'ai avec Rolands Code nochmal getestet. là funktioniert SetFocus. tu dois alors une faute irgendwo incorporé avons.
la hâte Du qui Ergänzug trop meinem vorigen Beitrag gelesen? |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ...  | 24.10.2007 ▲ |
|
| |
|
|
GDL | mom hat sich alles überschnitten dans den Postings.
melde mich wieder. |
|
| |
| |
| |
|
|
GDL | Habe aucun super, mais seulement 1 la fenêtre.
Betrifft menuitem, et clicked
ca allez
, si auparavant avec getfocus un d'autre Contrôle aufgerufen wurde
KompilierenMarqueSéparation |
|
| |
| |
| |
|
|
Jörg
Sellmeyer | | je crois, wir reden aneinander vorbei. Am Besten Du postest la fois un lauffähiges Beispiel, à dem on cela nachvollziehen peux. Comme je le disais: Im XProfEd funktioniert es. |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 24.10.2007 ▲ |
|
| |
|
|
GDL | | jo, allez mais seulement im Laufe qui nuit. |
|
| |
| |
| |
|
|
Jörg
Sellmeyer | Alles bien sûr, je suis eh ne nachteule  |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 24.10.2007 ▲ |
|
| |
|
|
GDL | eh bien allez par Zufall alles, si je avant waitinput nen setfocus(edit&) einsetze.
KompilierenMarqueSéparation
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
cela es eh bien allez ist bestimmt nen Doppelfehler, qui sich ensuite aufhebt.important iss, dass mon Zusammengesuche ausm Xprofed überhaupt allez.
suis toujours am chercher pourquoi cela waitinput durchbrochen wird.Wird cela dans qui XProfed super déjà festgelegt?
salut
Georg |
|
| |
| |
| |
|
|
GDL | Habe encore plus rumprobiert.
setfocus(edit&) ou bien setfocus(editor_&) peux pour waitinput ,dans den individuel Abfragen,so souvent stehen comme mag, und dir pas.Steht es mais avant waitinput allez alles.
salut
Georg |
|
| |
| |
| |
|
|
GDL | @ Jörg,
habe la fois alles soweit zusammengefasst,soweit je jusqu'à maintenant suis.qui Exe ist courir.Alle code liegen chez.Im Dossier 01test courir laisser.
salut
Georg |
|
| |
| |
| |
|
|
Jörg
Sellmeyer | GDL
Habe encore plus rumprobiert.
setfocus(edit&) ou bien setfocus(editor_&) peux pour waitinput ,dans den individuel Abfragen,so souvent stehen comme mag, und dir pas.Steht es mais avant waitinput allez alles.
salut
Georg
Du hättest es gar pas pour individuel Abfragen mettons doit, mais pour qui Si-Struktur dans qui Hauptschleife.
KompilierenMarqueSéparation
Ist mais letzendlich égal.
je serait seulement qui Variable editor_& pas global définir, mais dedans qui Procédure. ensuite doit zwar alle weiteren, Prozeduren, qui cela Contrôle beeinflussen encore dans qui ersten la ligne un Paramètres editor_&,...,... avons, mais tu as ensuite qui Prozeduren joli gekapselt et peux chez besoin weitere Editcontrols dans Deinem Programme erzeugen.
Votre Includedatei wird simple flexibler.
Salut
Jörg |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 24.10.2007 ▲ |
|
| |
|
(469)
Deutsch
English
Français
Español
Italia