On Thu, 26 Aug 1999, Dennis Chuah wrote:
> > begin
> > InflateRect(Rect, -BorderWidth, -BorderWidth);
> > inherited AlignControls(AControl, Rect);
> > end;
This is the code I use in one of my component to do just that,
OffsetTop/Left/Right/Bottom are custom properties that I added to the
component.
procedure TImagePanel.AlignControls(AControl: TControl; var Rect: TRect);
begin
Rect.Top := OffsetTop;
Rect.Left := OffsetLeft;
Rect.Right := Rect.Right - OffsetRight;
Rect.Bottom := Rect.Bottom - OffsetBottom;
inherited AlignControls(AControl, Rect);
end;
--
Mark Derricutt | Chalice of Blood
Software Developer | New Zealand Christian Music News
Auckland, New Zealand | http://www.chalice.gen.nz
[EMAIL PROTECTED] | UIN: 1934853
Getting jiggy with Claymation - Round
---------------------------------------------------------------------------
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
Website: http://www.delphi.org.nz
