Einzelnen Beitrag anzeigen

Fritzew

Registriert seit: 18. Nov 2015
Ort: Kehl
678 Beiträge
 
Delphi 11 Alexandria
 
#2

AW: Fehler in TRect::SplitRect?

  Alt 1. Jun 2018, 11:28
Der zweite Parameter von SplitRect heißt Percent . (Doku)
Delphi-Quellcode:
uses System.Types;
procedure p();
var
   a, b: TRect;
begin
   a := TRect.Create(0, 0, 100, 100);
   b := a.SplitRect(TSplitRectType.srLeft, {Percent=}50.0);

   Assert( b.Left = 0 );
   Assert( b.Top = 0 );
   Assert( b.Bottom = 100 );
   Assert( b.Right = 50 ); // b.Right == 5000
end;
Könnte jemand kurz prüfen ob das in der grade aktuellen Version immer noch so ist?
Aus der von Dir verlinkten Doku:
Zitat:
Percent definiert den Teil des aktuellen Rechtecks, der gelöscht oder hinzugefügt werden soll. Das bedeutet, dass SplitRect die SplitType-Seite in den angegebenen Percent verschiebt. 0 entspricht null Prozent. 1 entspricht 100% Prozent. Wenn Percent positiv ist, dann wird die SplitType-Seite in Richtung des aktuellen Rechtecks verschoben. Andernfalls wird die SplitType-Seite vom aktuellen Rechteck weg verschoben.
Fritz Westermann
  Mit Zitat antworten Zitat