Rect neu definieren aber mit single(floating) Elementen

[fseuhs]

Hallo ich habe ein Problem, ich möchte einen recordtype definieren, der gleiche oder ähnliche Funktionalität wie TRect hat.

Meine Versuch:

type
TSclPoint = packed record
X: single;
Y: single;
end;

{ TSclRect }

TSclRect = packed record
case Longint of
0: (Left,Top,Right,Bottom : single);
1: (TopLeft,BottomRight : TSclPoint);
end;

funtioniert.

Wenn ich aber so wie .../typshrdh.inc gefunden um Height ergänze:

TSclRect = packed record
private
function GetWidth: single;
procedure SetWidth(AValue: single);
public
Property Width: single read GetWidth write SetWidth;
case Longint of
0: (Left,Top,Right,Bottom : single);
1: (TopLeft,BottomRight : TSclPoint);
end;

Gigt es eine Fehlermeldung
scaledpixel.pas(31,5) Fatal: Syntax error, ":" expected but "FUNCTION" found

Vielleicht erfinde ich gerade das Rad neu und es gibt schon solch ein Single-Rect, oder kann mir dabei jemand helfen.
Danke für die Hilfe.

[wp_xyz]

Du musst noch "advancedrecords" aktivieren, d.h. am Anfang der Unit

Code: Alles auswählen

{$mode objfpc}{$H+}
{$modeswitch advancedrecords}  

oder in den Delphi-Modus schalten

Code: Alles auswählen

{$mode Delphi}

[fseuhs]

Besten Dank!
Hat gleich funktioniert.

[marcov]

Gibst schon. (TPointF, TRectF)