Hi,

Any reason why there isn't a cross-platfrom InflateRect() function in the RTL? It only appears in the Windows API translations and is a very handly funtion to have.

For those that don't know InflateRect():
Usage:
  InflateRect(Rect, 1, 1);
  InflateRect(Rect, -2, -2);

You can enlarge/shrink the X and Y co-ordinates of a TRect using this function.

Regards,
Graeme.

Well, feel free to implement it. We'll put it in types.pas, together with the other TRect functions.

Michael.

Well, feel free to implement it. We'll put it in types.pas, together with the other TRect functions.

Excellent. I just needed the location where it should go. Thanks

Regards,
Graeme.

I see there is already such a function, just with a different name: OffsetRect()

I guess there is no need to add InflateRect() now...

Graeme.

Graeme Geldenhuys wrote

I see there is already such a function, just with a different name: OffsetRect() I guess there is no need to add InflateRect() now...

Offset is for position, Inflate is for size. AFAIK.

Micha

Correct.

Michael.

----- Original Message -----

If you are using Lazarus, Just include LCLIntf unit. Jesus Reyes A.

I can't use the LCL. The project I am working on is a new cross-platform widget set written in FPC. Either way, no reason such a handy function shouldn't be in FPC for all platforms.

Regards,
Graeme.

Graeme Geldenhuys ha scritto:

Maybe because it is trivial?
There are a lot of ways to implement and use such a function. This was from JvUtils.PAS in the Project JEDI's JVCL:

function TrueInflateRect(const R: TRect; const I: Integer): TRect;
begin
   with R do
     SetRect(Result, Left - I, Top - I, Right + I, Bottom + I);
end;

but I prefer this one (tested on Delphi and Lazarus):

   procedure inflateR(var r: trect; xy: array of integer);
   begin
     with r do
       if high(xy)=0
          then SetRect(R, Left - xy[0], Top - xy[0],
                          Right + xy[0], Bottom + xy[0])
          else SetRect(R, Left - xy[0], Top - xy[0],
                          Right + xy[1], Bottom + xy[1]);
   end;

Note that if you don't use the LCL also implement SetRect.

you can find another implementation in the LCL (winapi.inc) were you can find other platofrm independent functions of this kind .

what do you prefer?

tiziano