Announcement

**markus lemcke** · 07.06.2000, 23:15

wenn ich herausfinden könnte in welche zeile(nummer) die markierung 
beginnt, dann wäre das einrücken ein kinderspiel!!!!!! 
habt ihr eine idee????? 

mfg

marku

**Bernhard Berger** · 09.06.2000, 08:43

Hallo!
Aktuelle Zeile im Memo:
<pre>
Zeile := SendMessage(Memo1.Handle, EM_LINEFROMCHAR, Memo1.SelStart, 0);
</pre>
Gruß, 
Bernhar

**markus lemcke** · 09.06.2000, 08:54

tag bernhard,

das kenn ich!! aber das problem ist, daß ich die zeilennummer nur dann brauche wenn der anwender 
text markiert. soll ich im ereignis onkeypress bzw. onkeydown die shifttaste und die cursortasten 
abfragen? aber wenn die markierung über mehrere zeilen geht, soll er ja nur die erste zeilennummer 
speichern!!! wie würdest du das programmieren?

mfg

marku

**Kaputnik** · 09.06.2000, 10:16

Markus,

falls du dich entschliessen solltest, das UCE zu benutzen, brauchst du das nicht mehr. Das Edit hat nämlich eine eigene Funktion, das automatisch den markierten text einrückt/ausrückt. Falls du das edit schon installatiert hast, probier einfach mal die tastenkombination Strg+Shift+I bzw. Strg+Shift+U funzelt genauso wie beim delphi-code-editor auch...

**markus lemcke** · 09.06.2000, 11:16

guten tag herr kaputnik,

erstens weiß ich noch nicht ob ich die komponente verwende, ich schau sie mir erst mal an. 
zweitens wenn ich Strg+Shift+I bzw. Strg+Shift+U lese, dann nehme ich sie wohl eher 
nicht, weil daß ist mit einer hand fast nicht hinzubekommen!!

ich habe in diesem forum an andere stelle meinen unmut über die tastenkombinationen des delphi- 
editors geäußert!

mfg

marku

**Bernhard Berger** · 09.06.2000, 11:56

Hm bei der tollen *lob* UCE-Komponente kannst du ganz einfach jede Tastenkombination ändern (Eigenschaft: KeyStrokes) auch das Einrücken. Mit der Komponente würdest dir echt eine Menge Arbeit ersparen.
Gruß, 
Bernhar

**markus lemcke** · 09.06.2000, 12:27

tag bernhard, 

ich schaue mir die komponente auf jeden fall an. da ich dieses programm in meiner freizeit programmiere, ist es nicht 
wichtig wie lange ich brauche. ich möchte einfach ein programmierprofi werden und deshalb interessiert es mich wie 
man so was programmiert. außerdem komme ich mit dem komponenten installieren in delphi 4 noch nicht klar!!!
habe die komponente nicht installiert gebracht, aber vielleicht fehlt auch noch eine datei!!!!

mein html-editor ist eigentlich fast fertig. ich habe es sogar hingebracht, daß die html-tags groß(farbig wollte ich nicht, 
weil ich farbenblind bin) geschrieben werden!!!! wenn ich jetzt die komponente austausche, fange ich wieder von vorne an!! 

das einrücken ist auch einfach, eine einzelne zeile einrücken ist kein problem, aber ich muß die zeilennummer(lines[i]) 
herausbekommen wo die markierung anfängt. wenn ihr keinen rat wißt, schaue ich mal im msdn oder in der api nach.
das muß irgendwie gehen, wäre doch gelacht!!!!

mfg

markus

p.s. das programmieren ist mein größtes hobby, deshalb mache ich mir gern die mühe!!!

**Kaputnik** · 09.06.2000, 12:32

Bernhards Antwort wäre auch meine antwort gewesen: 
Im Keystroke-editor kann man für jede funktion (und davon gibt es mehr als nur ne menge) eigene tastenkombinationen festlegen. Du kannst auch eine Funktion mit mehreren verschiedenen tastenkombinationen versehen, so dass z.B. links und rechst-händer jeweils ihre eigenen tastenkombinationen bekommen. 
Ausserdem sind alle diese funktionen natürlich über prozedur-aufrufe erreichen, so dass du auch bequem diese Funktionen auf ToolButtons o.ä. legen kannst. 
 
Eine rich-edit komponente für dein projekt zu benutzen wäre in etwa so, als ob du mit dem Fahrrad in deinen Italien-Urlaub fahren wolltest, obwohl ein Super-Luxus-Wohnmobil in deiner Grage steht. Natürlich hast du auch vom Fahrradfahren etwas (mehr fitness) aber bevor du überhaupt das ziel erreichst wette ich, dass du nicht über die alpen kommst.....:-) Cu, Nic

**Bernhard Berger** · 09.06.2000, 12:58

Bei der Message EM_LINEFROMCHAR kannst du im 1. Parameter die Zeichen-Position übergeben, von der die Zeile berechnet werden soll (im gegensatz zur EM_LINEINDEX-Message). Das obige Beispiel (Antwort #2) müsste doch eigentlich klappen, oder?
Die Installation von USE ist etwas kniffelig, da nicht dokumentiert. Du musst dir die "Unicode Syntax Edit" und (!) "Unicode support library" downloaden. Anschliessend das Package USE.dpk öffnen und per Knopfdruck installieren. Den Pfad musst du noch in den Delphi-Biblothekspfad aufnehmen (Menü Tools/Umgebungsoptionen).
Viel Erfolg, 
Gruß, 
Bernhar

**markus lemcke** · 09.06.2000, 14:52

tag bernhard,

zunächst mal muß ich mich bei dir entschuldigen. klar war deine lösung richtig!!!! 
ich war mir der wirkung von selstart nicht ganz klar. 
für alle die irgendwann vielleicht mal auch sowas programmieren möchten oder nur neugierig sind 
hier der code: 
 
procedure TForm1.einrueckenClick(Sender: TObject); 
var 
j,zeichenzahl,i,zeilestart,zeileende:integer; 
begin 
zeichenzahl := 5; 
zeilestart := sendmessage(richedit1.handle, em_linefromchar,richedit1.selstart,0); 
zeileende := sendmessage(richedit1.handle, em_linefromchar,richedit1.selstart + 
richedit1.sellength ,0); 
for i := zeilestart to zeileende-1 do 
begin 
for j := 0 to zeichenzahl do richedit1.lines[i] := ' ' + richedit1.lines[i]; 
end; 

end; 

end. 

mit zeichenzahl kann eingestellt werden wieviel zeichen man einrücken kann. 
klar, man kann daraus prozedur mit parameter machen, wo man den namen von richedit und die zeichen- 
zahl angegeben kann!!!

nun noch zu herrn kaputnik. 
aufgrund meiner behinderung mußte ich schon über viele alpen fahren und genau deswegen bin 
ich noch so fit(körperlich)! 
ich werde jetzt mit dem beruhigenden gefühl zu meinem schachturnier gehen, daß ich weiß wie man 
einrücken programmiert! stellen sie sich mal vor sie programmieren einen html-editor mit ihrer komponente. 
sie zeigen dem jemand und er ist ganz begeistert und fragt wie sie den das einrücken programmiert haben. 
sie antworten kurz und knapp "mit der unicode-komponente". der begeisterte hackt nach und fragt: 
"ja, wie funktuioniert den das?" jetzt kommt der moment wo sie dann sagen müssen: 
"das weiß ich auch nicht so genau, aber es tut!!". mhm, ich stelle mir so eine suituation nicht angenehm vor. 

mfg

marku

**Kaputnik** · 09.06.2000, 16:50

Ich schaue einfach im sourcecode der Komponente nach....:-

Announcement

Einrückfunktion in richedit-komponente

Einrückfunktion in richedit-komponente

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment