Lazarus

Free Pascal => Beginners => Topic started by: JLWest on October 06, 2020, 11:47:54 pm

Title: (Solved)Paint question
Post by: JLWest on October 06, 2020, 11:47:54 pm

I have a panel on the form located at

Panel1.Top = 450
Panel1.left = 6
Panel1.Width = 104
Panel1.Height = 31
So to paint a border around the panel I do the following.

{Panel1}
 R.Left := 6;       R.Right := 688;      {R.Right := R.Left + Panel1.Width}
 R.Top := 450;    R.Bottom := 500;   {R.Bottom := R.Top + Panel1.Height}
 Canvas.Rectangle(R); 

Wondering if there isn't someway to do:

Canvas.Rectangle(R,Panel1);  Which didn't work.
 


                       

Title: Re: Paint question
Post by: winni on October 07, 2020, 12:11:16 am

Hi!

You are painting exact below the Panel!

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

1. Uses .... Types;
2. ...
3. var R : Trect;
4. ....
5. //R:= Panel.ClientRect; // WRONG
6. R := Panel.BoundsRect ;
7. InflateRect(R,2,2);
8. Canvas.Pen.Color := clRed;
9. Canvas.Rectangle(R);
10. ....
11.  

Wish you nice rectangle!

Winni

Title: Re: Paint question
Post by: JLWest on October 07, 2020, 12:57:36 am

Works Great; Thankn Winni