Protecting, Setting attributes, and drawing Paragraphs

Hi Julian,

What I have setup:
I have access to a single Paragraph called Par.
Par is an empty paragraph and contains no text.

Question 1:
How do I go about setting up the font size for this paragraph?

Question 2:
How do I go about protecting the Par to make sure the user cannot alter it in anyway: Font size, Text, etc?

Question 3:
How does the font size on the canvas work when in the OnInternPaintPar.

When using the canvas to draw in the OnInternPaintPar the default font size seems to be related to the font size of the paragraph. This is why I am trying to set the size of the paragraph in question 1.

I noticed that if the text font around the empty paragraph is large the font of Canvas.Font.Size is large and if small then the font is small. However if I change the size of the font any text I render using TextOut gets drawn twice, once where I planned and one just below. What is the best way to control the text size here?

To discuss the OnInternPaintPar...

NOTE ON THE FORUMS: I have images linked here in this post and while they work when I preview the post, I am unable to see them on the submitted post. The pictures are vital to demonstrating the issue.

if I run this code

Canvas.RoundRect(LineData.x-79, Linedata.Y,Trunc(Par.TextAreaWidth / 1.965)+44,Linedata.Y+Par.Height,30,30);        Canvas.Brush.Style := bsClear;        Canvas.Font.Color := Darken(FSlideColor,64);        Canvas.Font.Name := 'Arial';        Canvas.TextOut(LineData.x,LineData.y+trunc(LineData.h / 1.25)+OffSet,'SLIDE ' + inttostr(Par.HotParID)+' : ');        iLeft := Trunc(Canvas.TextWidth(Par.Name)/2);        Canvas.TextOut(LineData.x+(LineData.w div 2)-iLeft,LineData.y+trunc(LineData.h / 1.25)+OffSet,Par.Name);

And I do not change the canvas.font.size then it renders it once.

[Blockierte Grafik: http://www.oilcreekoriginals.com/OverAwe/LinkedImages/One.PNG]
http://www.oilcreekoriginals.com/OverAwe/LinkedImages/One.PNG

if I run this code

Canvas.RoundRect(LineData.x-79, Linedata.Y,Trunc(Par.TextAreaWidth / 1.965)+44,Linedata.Y+Par.Height,30,30);
        Canvas.Brush.Style := bsClear;
        Canvas.Font.Color := Darken(FSlideColor,64);
        Canvas.Font.Name := 'Arial';


        HoldSize := Canvas.Font.Size;  //  <-New Code
        Canvas.Font.Size := 60;          //  <-New Code


        Canvas.TextOut(LineData.x,LineData.y+trunc(LineData.h / 1.25)+OffSet,'SLIDE ' + inttostr(Par.HotParID)+' : ');
        iLeft := Trunc(Canvas.TextWidth(Par.Name)/2);
        Canvas.TextOut(LineData.x+(LineData.w div 2)-iLeft,LineData.y+trunc(LineData.h / 1.25)+OffSet,Par.Name);




        Canvas.Font.Size := HoldSize;  //  <-New Code

And I do change the canvas.font.size and restore it when done then it renders it twice, the second time just below.

Interesting and possible important point: The second duplicate line of text if it is up close enough to the blue rectangle we draw, then it will appear behind it.

[Blockierte Grafik: http://www.oilcreekoriginals.com/OverAwe/LinkedImages/Two.PNG]
http://www.oilcreekoriginals.com/OverAwe/LinkedImages/Two.PNG