paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-11 20:39:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

fpvectorial: Fix compilation error of fpv3dviewer demo

Browse Source 
git-svn-id: trunk@47904 -
This commit is contained in:
wp 2015-02-19 17:07:35 +00:00
parent dab5d2ef91
commit d445c65ad6
2 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
components/fpvectorial/examples/fpvc_mainform.lfm
View File

@ -7,12 +7,12 @@ object formVectorialConverter: TformVectorialConverter
Caption = 'FP Vectorial Converter'
ClientHeight = 456
ClientWidth = 240
LCLVersion = '0.9.31'
LCLVersion = '1.5'
object Label1: TLabel
Left = 8
Height = 18
Height = 15
Top = 128
Width = 158
Width = 133
Caption = 'Location of the Input file:'
ParentColor = False
end
@ -30,35 +30,35 @@ object formVectorialConverter: TformVectorialConverter
end
object editInput: TFileNameEdit
Left = 8
Height = 25
Height = 27
Top = 144
Width = 192
DialogOptions = []
FilterIndex = 0
HideDirectories = False
ButtonWidth = 23
NumGlyphs = 0
NumGlyphs = 1
MaxLength = 0
TabOrder = 0
end
object Label3: TLabel
Left = 8
Height = 18
Height = 15
Top = 168
Width = 169
Width = 143
Caption = 'Full path of the Output file:'
ParentColor = False
end
object editOutput: TFileNameEdit
Left = 8
Height = 25
Height = 27
Top = 184
Width = 192
DialogOptions = []
FilterIndex = 0
HideDirectories = False
ButtonWidth = 23
NumGlyphs = 0
NumGlyphs = 1
MaxLength = 0
TabOrder = 1
end

2
components/fpvectorial/examples/fpvc_mainform.pas
View File

@ -62,7 +62,7 @@ begin
Vec.ReadFromFile(editInput.FileName, vfPDF);
imagePreview.Canvas.Brush.Color := clWhite;
imagePreview.Canvas.FillRect(0, 0, imagePreview.Width, imagePreview.Height);
DrawFPVectorialToCanvas(Vec.GetPage(0), imagePreview.Canvas);
DrawFPVectorialToCanvas(Vec.GetPageAsVectorial(0), imagePreview.Canvas);
finally
Vec.Free;
end;