Autor Beitrag
wilo
Hält's aus hier
Beiträge: 2



BeitragVerfasst: Do 28.07.05 19:18 
Hallo, wer kann helfen

Text im Memo in Courier New geschrieben.
Mit MouseMove Ereignis und gedrückter "ALT" -Taste
soll die gewünschte Textbreite (Spalte) vertikal
markiert werden - wie im DELPHI-EDITOR.

ausblenden Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
procedure TForm.MemoMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
 if (ssLeft in Shift)and(ssAlt in Shift) then 
 begin

  // wie geht es jetzt - ich versuche es schon tagelang - ohne ergebnis?

 end;
end;

Gruss und vorab Danke

wilo

Moderiert von user profile iconGausi: Delphi-Tags hinzugefügt.
maxk
ontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic starofftopic star
Beiträge: 1696
Erhaltene Danke: 1

Win XP, Debian Lenny
Delphi 6 Personal
BeitragVerfasst: Fr 29.07.05 08:24 
Hallo und :welcome: im DF!
Es wäre nett, wenn du deine Frage etwas genauer beschreiben könntest, da ich ehrlich gesagt nicht weiss, was du eigentlich machen möchtest. Mein Delphieditor scheint dieses Verhalten nicht zu zeigen.

Gruß,
maxk

_________________
Ein Computer wird das tun, was Du programmierst - nicht das, was Du willst.
jaenicke
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starofftopic star
Beiträge: 19346
Erhaltene Danke: 1754

W11 x64 (Chrome, Edge)
Delphi 12 Pro, C# (VS 2022), JS/HTML, Java (NB), PHP, Lazarus
BeitragVerfasst: Fr 29.07.05 09:04 
Sieh dir den Quelltext von SynEdit an bzw. nutze die SynMemo-Komponente, da gibt es diese Option bereits, dort könntest du auch herausfinden, wie das dort gemacht wird...
(Das sind kostenlose Syntax-Highlighter-Komponenten)

@maxk: Er meint das Markieren von Spalten im Editor, so dass man ein Rechteck von Buchstaben aus einem Textfeld kopieren kann, ...
wilo Threadstarter
Hält's aus hier
Beiträge: 2



BeitragVerfasst: Mo 01.08.05 19:59 
Titel: Memo vertikal markieren
Hallo danke für die Stellungnahmen

Zu Maxk: Ich meine ich habe mich klar ausgedrückt. Ob Spalte- Rechteck oder
Blockmarkierung - bei einer proportionalen Schrift wie Courier New besteht
da kein Unterschied. Jeder DELPHI-EDITOR kann mit gedrückter "ALT" und
gedrückter "LINKEN MAUSTASTE" im Memo diese Markierung herstellen.

Zu Jaenicke: "SYNMEMO" ist sehr projektorientiert geschrieben.
Da einige Proceduren und Functionen herrauszuschreiben und in meinem
Editor lauffähig zumachen - dass ist für mich einfach zu hoch.

Ich lasse meine Anfrage offen, in der Hoffnung, das Jemand das erfolgreich
geschafft hatt oder einen anderen " Weg nach Rom " aufzeigen kann.

Gruß Wilo
maxk
ontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic starofftopic star
Beiträge: 1696
Erhaltene Danke: 1

Win XP, Debian Lenny
Delphi 6 Personal
BeitragVerfasst: Di 02.08.05 15:17 
user profile iconjaenicke hat folgendes geschrieben:
@maxk: Er meint das Markieren von Spalten im Editor, so dass man ein Rechteck von Buchstaben aus einem Textfeld kopieren kann, ...
Klasse! Ich wusste gar nicht, dass sowas funktioniert :D

Zitat:
Zu Maxk: Ich meine ich habe mich klar ausgedrückt. Ob Spalte- Rechteck oder
Blockmarkierung - bei einer proportionalen Schrift wie Courier New besteht
da kein Unterschied. Jeder DELPHI-EDITOR kann mit gedrückter "ALT" und
gedrückter "LINKEN MAUSTASTE" im Memo diese Markierung herstellen.
Tut mir Leid. Ich habe probiert, was du im ersten Post geschrieben hast, aber es funktionierte nicht. Da ich es selbst nicht kannte, wusste ich also nicht, was du überhaupt meinst :?

Ich denke, dass du mit Boardmitteln keine Chance haben wirst. TMemo speichert die Markierung mittels SelStart und SelLength, wodurch nur fortlaufender Text markiert werden kann. Wenn du ohne SynMemo arbeiten möchtest, dann fiele mir jetzt nur ein, dass ganze selbst zu zeichenen. Und beim Markieren die Koordinaten zu "merken".

Gruß,
maxk

_________________
Ein Computer wird das tun, was Du programmierst - nicht das, was Du willst.