Initializing TRect

[del]

According to:

https://www.freepascal.org/docs-html/current/rtl/objects/trect.copy.html

I can use

Code: Pascal  [Select][+][-]

1.  m_mask.Assign(-1, -1, -1, -1);

to initialize the TRect. But I get this error:

MyClasses.pas(438,9) Error: identifier idents no member "Assign"

However, when I use this form of initialization, everything is fine:

Code: Pascal  [Select][+][-]

1.  m_mask := Rect(-1, -1, -1, -1);

So obviously I found a solution. The variable m_mask is declared here:

Code: Pascal  [Select][+][-]

1.  m_mask: TRect;

FWIW.

[howardpc]

To use TRect methods such as Assign you need the TRect declared in the Objects unit (as the documentation example shows).

[jcmontherock]

For that I am using:  Rect := Bounds(Left, Top, Width, Height);  and   Rect.SetBounds(Left, Top, Width, Height);

[GetMem]

@del
You can achieve the same result without the object unit, just use the cross platform CopyRect and EqualRect apis.

Code: Pascal  [Select][+][-]

1. uses LCLIntf;
2.  
3. procedure TForm1.Button1Click(Sender: TObject);
4. var
5.   R1, R2, R3: TRect;
6. begin
7.   R1 := TRect.Create(10, 100, 50, 200);
8.   R2 := TRect.Create(10, 100, 50, 200);
9.   R3 := TRect.Create(-1, -1, -1, -1);
10.   CopyRect(R3, R2);
11.   if EqualRect(R1, R3) then
12.     ShowMessage('Equal')
13.   else
14.     ShowMessage('Not equal');
15. end;

[del]

Thanks everybody.