Forum: Object-Pascal / Delphi-Language
by runningsoft,
29. Jan 2013
Hat noch niemand dieses Problem gehabt?
Forum: Object-Pascal / Delphi-Language
by runningsoft,
28. Jan 2013
Hallo zusammen,
ich befülle ein RxRichEdit, dass ein A4-Blatt abbildet, zu Testzwecken komplett mit einer vorgegebenen Anzahl Zeilen (in meinem Beispiel bei Arial, 11 Punkt sind es exakt 59). Nun zoome ich das RichEdit am Bildschirm mit folgender Prozedur:
procedure TForm11.SetZoom(var Zoom: double);
var Numerator, Denominator : integer;
begin
if Zoom = 1 then
begin
Numerator :=...