Neuerung ab Delphi 10.4: Schriftgröße änderbar! Wie IOTA-mäßig abfragen? - Delphi-PRAXiS

▤ Summary

Das sind ja nur Controls, die auf die bisherige Schrifteinstellung über Tools | Options | | User Interface | Editor | Display mappen. Da die Wizards vom CnPack das schon gefühlt schon immer konnten, lohnt sich ein Blick ins öffentliche GitHub-Repository: https://github.com/cnpack/cnwizards/...orFontZoom.pas https://github.com/cnpack/cnwizards/...CnWizUtils.pas Daraus folgt für größer: Delphi-Quellcode: TCnEditorFontInc.Execute; Option: IOTAEditOptions; Option := CnOtaGetEditOptions; Assigned(Option) Option.FontSize := Round(Option.FontSize * 1.1); ; Und für kleiner: Delphi-Quellcode: TCnEditorFontDec.Execute; Option: IOTAEditOptions; Option := CnOtaGetEditOptions; Assigned(Option) Option.FontSize := Round(Option.FontSize / 1.1); ; Natürlich mithilfe von: Delphi-Quellcode: CnOtaGetEditOptions: IOTAEditOptions; Svcs: IOTAEditorServices; QuerySvcs(BorlandIDEServices, IOTAEditorServices, Svcs); Assigned(Svcs) Assigned(Svcs.GetTopBuffer) Result := Svcs.GetTopBuffer.EditOptions Svcs.EditOptionsCount > 0 Result := Svcs.GetEditOptionsIndex(0) Result := ; Result := Svcs.GetEditOptions; Result := ; ; QuerySvcs ist hier nur ein Wrapper mit Logmöglichkeit für das normale Supports() und kann damit ersetzt werden. Ich nehme an, du meinst diese neue Möglichkeit mit der TTrackbar und den beiden TButtons für kleiner und größer unterhalb des Editorsfensters.Das sind ja nur Controls, die auf die bisherige Schrifteinstellung über Tools | Options || User Interface | Editor | Display mappen.Da die Wizards vom CnPack das schon gefühlt schon immer konnten, lohnt sich ein Blick ins öffentliche GitHub-Repository:Daraus folgt für größer:Und für kleiner:Natürlich mithilfe von:QuerySvcs ist hier nur ein Wrapper mit Logmöglichkeit für das normale Supports() und kann damit ersetzt werden.

▦ Linked Companies

GitHub, Inc.

$1M to $5M