Postscript Sample, added test for TextRect Clipping

git-svn-id: trunk@20881 -

examples/postscript/usamplepostscriptcanvas.lfm

@@ -82,11 +82,11 @@ object Form1: TForm1
     Text = '72'
   end
   object Button3: TButton
-    Left = 328
+    Left = 264
     Height = 25
-    Top = 84
-    Width = 75
-    Caption = 'Button3'
+    Top = 80
+    Width = 211
+    Caption = 'Test Transparent Image'
     OnClick = Button3Click
     TabOrder = 5
   end

examples/postscript/usamplepostscriptcanvas.lrs

@@ -20,6 +20,6 @@ LazarusResources.Add('TForm1','FORMDATA',[
   +'txtResX'#4'Left'#2#8#6'Height'#2#23#3'Top'#2#28#5'Width'#2'P'#8'TabOrder'#2
   +#3#4'Text'#6#2'72'#0#0#5'TEdit'#7'txtResY'#4'Left'#2#8#6'Height'#2#23#3'Top'
   +#2'T'#5'Width'#2'P'#8'TabOrder'#2#4#4'Text'#6#2'72'#0#0#7'TButton'#7'Button3'
-  +#4'Left'#3'H'#1#6'Height'#2#25#3'Top'#2'T'#5'Width'#2'K'#7'Caption'#6#7'Butt'
-  +'on3'#7'OnClick'#7#12'Button3Click'#8'TabOrder'#2#5#0#0#0
+  +#4'Left'#3#8#1#6'Height'#2#25#3'Top'#2'P'#5'Width'#3#211#0#7'Caption'#6#22'T'
+  +'est Transparent Image'#7'OnClick'#7#12'Button3Click'#8'TabOrder'#2#5#0#0#0
 ]);

examples/postscript/usamplepostscriptcanvas.pas

@@ -259,6 +259,11 @@ begin
 
     BrushSamples(Sx(100),Sy(100));
 
+    PSCanvas.Brush.Style:=bsSolid;
+    PSCanvas.Brush.Color:=clWhite;
+    PSCanvas.Rectangle(Rect(100,500,200,520));
+    PSCanvas.TextRect(Rect(100,500,200,520),100,500, 'Testing clip rect on TextRect');
+
     EndDoc;
     SaveToFile('test1.ps');
   finally