Schriftgrößenänderung in RichEdit sperren

hRb · Beiträge: 287 Erhaltene Danke: 12

Im RichEdit-Objekt ändert sich an meinem PC bei gedrückter linker Maustaste und Bewegung des Rollrades die Schriftgröße. Selbst über eine neue Zuweisung von RichEdit.Font.Size und RichEdit.Font.Height lässt sich die Größe nicht zurücksetzen. Bei einer TEdit-Komponente geschieht dies nicht. Wie kann man die Größenänderung durch die Maus in Richedit sperren? (Im Logitechtreiber finde ich keine Einstellmöglichkeit).
PS: in einem gekauften Editorprogramm beobachte ich diesen Effekt auch. Windows-Eigenschaft?

galagher · Verfasst: Fr 21.11.14 18:58

hRb hat folgendes geschrieben :

Im RichEdit-Objekt ändert sich an meinem PC bei gedrückter linker Maustaste und Bewegung des Rollrades die Schriftgröße.

So kannst du das abstellen:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

procedure TForm1.RichEdit1MouseWheel(Sender: TObject; Shift: TShiftState;
  WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
begin
  Handled := True;
end;

hRb hat folgendes geschrieben :

PS: in einem gekauften Editorprogramm beobachte ich diesen Effekt auch. Windows-Eigenschaft?

Sieht danach aus! Ist wohl eine Eigenschaft von TRichEdit- und davon abgeleiteten Komponenten.

_________________
gedunstig war's - und fahle wornen zerschellten karsig im gestrock. oh graus, es gloomt der jabberwock - und die graisligen gulpen nurmen!

hRb · Beiträge: 287 Erhaltene Danke: 12

Danke für schnelle Antwort. Diese Anweisung verhindert tatsächlich die Änderung der Schriftgröße. Aber jetzt kann ich mit dem Maus-Rad auch nicht mehr scrollen. Gibt es statt des "großen Hammers" auch eine spezielle Lösung für mein Problem?

galagher · Verfasst: Fr 21.11.14 19:20

hRb hat folgendes geschrieben :

Gibt es statt des "großen Hammers" auch eine spezielle Lösung für mein Problem?

Hab's auch nur einfach schnell mal getestet!

Damit kommst du der Lösung vielleicht besser näher:

markieren

Delphi-Quelltext

1:
2:

if (ssLeft in Shift) then
  Handled := True;

//Edit:
Etwas eleganter:

markieren

Delphi-Quelltext

1:	Handled := (ssLeft in Shift);

_________________
gedunstig war's - und fahle wornen zerschellten karsig im gestrock. oh graus, es gloomt der jabberwock - und die graisligen gulpen nurmen!

hRb · Beiträge: 287 Erhaltene Danke: 12

Danke, funktioniert bestens!!!

galagher · Verfasst: Fr 21.11.14 21:56

hRb hat folgendes geschrieben :

Danke, funktioniert bestens!!!

Ich bedanke mich auch! Habe deine Frage gelesen, dadurch konnte ich dieses Verhalten auch bei meinem Programm abstellen.
Ich kannte das bis jetzt gar nicht!

_________________
gedunstig war's - und fahle wornen zerschellten karsig im gestrock. oh graus, es gloomt der jabberwock - und die graisligen gulpen nurmen!

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme