Sign in Join

Live chat for Free Pascal, Lazarus, Delphi and every Pascal programmer.

Mailing lists / lazarus / 2010-11

Control client area position

4 messages · 3 people · –

Reply by email Subscribe to this list Your subscription

Read-only archive. Use j and k to move between messages.

Felipe Monteiro de Carvalho

Hello,

Does anyone know how to set in a control that it's client area starts in a non-standard position? I'd like to implement a custom-drawn TGroupBox and therefore I need to apply a delta to the starting X and Y position of child controls so that the (0,0) pos is bellow the caption and out of the border.

thanks,

Felipe Monteiro de Carvalho

Reply by email

Martin
to Felipe Monteiro de Carvalho
Felipe Monteiro de Carvalho wrote 9 lines
Hello, Does anyone know how to set in a control that it's client area starts in a non-standard position? I'd like to implement a custom-drawn TGroupBox and therefore I need to apply a delta to the starting X and Y position of child controls so that the (0,0) pos is bellow the caption and out of the border. thanks,

afaik, currently this is only do-able in the widgetset code...

I had the same idea once...

Reply by email

Zaher Dirkey
to Felipe Monteiro de Carvalho: Does anyone know how to set in a control that it's client area starts in a non-standard…

On Tue, Nov 2, 2010 at 6:29 PM, Felipe Monteiro de Carvalho <

Show quoted text 11 lines
wrote: Hello, Does anyone know how to set in a control that it's client area starts in a non-standard position? I'd like to implement a custom-drawn TGroupBox and therefore I need to apply a delta to the starting X and Y position of child controls so that the (0,0) pos is bellow the caption and out of the border.

Not sure but try

procedure AlignControls(AControl: TControl; var Rect: TRect); override;
Zaher Dirkey -------------- next part -------------- An HTML attachment was scrubbed... URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus/attachments/20101103/7eab1f62/attachment.html>

Reply by email

Zaher Dirkey
to Zaher Dirkey
Zaher Dirkey wrote 17 lines
On Tue, Nov 2, 2010 at 6:29 PM, Felipe Monteiro de Carvalho < > wrote: > Hello, > > Does anyone know how to set in a control that it's client area starts > in a non-standard position? I'd like to implement a custom-drawn > TGroupBox and therefore I need to apply a delta to the starting X and > Y position of child controls so that the (0,0) pos is bellow the > caption and out of the border. > > Not sure but try procedure AlignControls(AControl: TControl; var Rect: TRect); override; 
or
procedure AdjustClientRect(var ARect: TRect); virtual;

Best Regards

*I can not edit my posts in Message list*

Zaher Dirkey -------------- next part -------------- An HTML attachment was scrubbed... URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus/attachments/20101103/ade6dc1f/attachment.html>

Reply by email