paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-06 18:58:12 +02:00
Code Issues Packages Projects Releases Wiki Activity

examples: correct canvas_test example:

Browse Source 
- fix screenshot example bug (use GetDC(0) instead of DC = 0)
  - fix image example - clear LazIntfImage before experiments (part of issue #0019123)
  - remove all .lrs, .rc files and use .lfm, .res instead

git-svn-id: trunk@30244 -
This commit is contained in:
paul 2011-04-08 09:15:38 +00:00
parent ac8fd19675
commit 149d3a219a
27 changed files with 180 additions and 5487 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
.gitattributes vendored
View File

@ -3169,39 +3169,28 @@ examples/bitbtnform.pp svneol=native#text/pascal
examples/bitbutton.lpi svneol=native#text/plain
examples/bitbutton.pp svneol=native#text/pascal
examples/canvas_test/brushtest.lfm svneol=native#text/pascal
examples/canvas_test/brushtest.lrs svneol=native#text/pascal
examples/canvas_test/brushtest.pas svneol=native#text/pascal
examples/canvas_test/canvastest.ico -text svneol=unset#application/icon
examples/canvas_test/canvastest.lpi svneol=native#text/pascal
examples/canvas_test/canvastest.lpr svneol=native#text/pascal
examples/canvas_test/canvastest.lrs svneol=native#text/pascal
examples/canvas_test/canvastest.rc svneol=native#text/pascal
examples/canvas_test/canvastest.res -text
examples/canvas_test/canvastestunit.lfm svneol=native#text/pascal
examples/canvas_test/canvastestunit.lrs svneol=native#text/pascal
examples/canvas_test/canvastestunit.pas svneol=native#text/pascal
examples/canvas_test/drawtest.lfm svneol=native#text/pascal
examples/canvas_test/drawtest.lrs svneol=native#text/pascal
examples/canvas_test/drawtest.pas svneol=native#text/pascal
examples/canvas_test/ellipseunit.lfm svneol=native#text/pascal
examples/canvas_test/ellipseunit.lrs svneol=native#text/pascal
examples/canvas_test/ellipseunit.pas svneol=native#text/pascal
examples/canvas_test/fonttest.lfm svneol=native#text/pascal
examples/canvas_test/fonttest.lrs svneol=native#text/pascal
examples/canvas_test/fonttest.pas svneol=native#text/pascal
examples/canvas_test/imagetest.lfm svneol=native#text/pascal
examples/canvas_test/imagetest.lrs svneol=native#text/pascal
examples/canvas_test/imagetest.pas svneol=native#text/pascal
examples/canvas_test/pentest.lfm svneol=native#text/pascal
examples/canvas_test/pentest.lrs svneol=native#text/pascal
examples/canvas_test/pentest.pas svneol=native#text/pascal
examples/canvas_test/rectanglestest.lfm svneol=native#text/pascal
examples/canvas_test/rectanglestest.lrs svneol=native#text/pascal
examples/canvas_test/rectanglestest.pas svneol=native#text/pascal
examples/canvas_test/screenshotunit.lfm svneol=native#text/pascal
examples/canvas_test/screenshotunit.lrs svneol=native#text/pascal
examples/canvas_test/screenshotunit.pas svneol=native#text/pascal
examples/canvas_test/shapedwindowtest.lfm svneol=native#text/pascal
examples/canvas_test/shapedwindowtest.lrs svneol=native#text/pascal
examples/canvas_test/shapedwindowtest.pas svneol=native#text/pascal
examples/checkbox.lpi svneol=native#text/plain
examples/checkbox.pp svneol=native#text/pascal

7
examples/canvas_test/brushtest.lrs
View File

@ -1,7 +0,0 @@
{ Das ist eine automatisch erzeugte Lazarus-Ressourcendatei }
LazarusResources.Add('TfrmBrush','FORMDATA',[
'TPF0'#9'TfrmBrush'#8'frmBrush'#4'Left'#3'"'#1#6'Height'#3#130#1#3'Top'#3#171
+#0#5'Width'#3#144#1#7'Caption'#6#8'frmBrush'#7'OnPaint'#7#9'FormPaint'#10'LC'
+'LVersion'#6#6'0.9.29'#0#0
]);

5
examples/canvas_test/brushtest.pas
View File

@ -24,6 +24,8 @@ var
implementation
{$R *.lfm}
{ TfrmBrush }
procedure TfrmBrush.FormPaint(Sender: TObject);
@ -99,8 +101,5 @@ begin
end;
end;
initialization
{$I brushtest.lrs}
end.

232
examples/canvas_test/canvastest.lpi
View File

@ -33,17 +33,17 @@
<PackageName Value="LCL"/>
</Item1>
</RequiredPackages>
<Units Count="63">
<Units Count="73">
<Unit0>
<Filename Value="canvastest.lpr"/>
<IsPartOfProject Value="True"/>
<UnitName Value="canvastest"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="2"/>
<EditorIndex Value="0"/>
<WindowIndex Value="0"/>
<TopLine Value="1"/>
<CursorPos X="1" Y="1"/>
<UsageCount Value="93"/>
<TopLine Value="6"/>
<CursorPos X="33" Y="28"/>
<UsageCount Value="94"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit0>
@ -53,13 +53,10 @@
<ComponentName Value="frmCanvasTest"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="canvastestunit"/>
<EditorIndex Value="0"/>
<WindowIndex Value="0"/>
<TopLine Value="1"/>
<CursorPos X="1" Y="1"/>
<UsageCount Value="93"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
<TopLine Value="81"/>
<CursorPos X="1" Y="106"/>
<UsageCount Value="94"/>
</Unit1>
<Unit2>
<Filename Value="../../../../lazarus/lcl/include/canvas.inc"/>
@ -128,7 +125,7 @@
<UsageCount Value="5"/>
</Unit11>
<Unit12>
<Filename Value="../../../../../usr/local/share/fpcsrc/rtl/objpas/classes/classesh.inc"/>
<Filename Value="../../../../usr/local/share/fpcsrc/rtl/objpas/classes/classesh.inc"/>
<TopLine Value="20"/>
<CursorPos X="35" Y="23"/>
<UsageCount Value="5"/>
@ -139,9 +136,10 @@
<ComponentName Value="frmPen"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="pentest"/>
<TopLine Value="164"/>
<CursorPos X="1" Y="188"/>
<UsageCount Value="92"/>
<WindowIndex Value="0"/>
<TopLine Value="3"/>
<CursorPos X="1" Y="28"/>
<UsageCount Value="93"/>
</Unit13>
<Unit14>
<Filename Value="brushtest.pas"/>
@ -149,13 +147,10 @@
<ComponentName Value="frmBrush"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="brushtest"/>
<EditorIndex Value="4"/>
<WindowIndex Value="0"/>
<TopLine Value="25"/>
<CursorPos X="45" Y="91"/>
<UsageCount Value="92"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
<TopLine Value="79"/>
<CursorPos X="1" Y="104"/>
<UsageCount Value="93"/>
</Unit14>
<Unit15>
<Filename Value="fonttest.pas"/>
@ -163,9 +158,10 @@
<ComponentName Value="frmFont"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="fonttest"/>
<TopLine Value="95"/>
<CursorPos X="94" Y="101"/>
<UsageCount Value="92"/>
<WindowIndex Value="0"/>
<TopLine Value="103"/>
<CursorPos X="1" Y="126"/>
<UsageCount Value="93"/>
</Unit15>
<Unit16>
<Filename Value="rectanglestest.pas"/>
@ -173,21 +169,20 @@
<ComponentName Value="frmRectangles"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="rectanglestest"/>
<TopLine Value="58"/>
<CursorPos X="1" Y="76"/>
<UsageCount Value="92"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
<WindowIndex Value="0"/>
<TopLine Value="56"/>
<CursorPos X="1" Y="79"/>
<UsageCount Value="93"/>
</Unit16>
<Unit17>
<Filename Value="../../../../../usr/local/share/fpcsrc/packages/fcl-image/src/fpcanvas.pp"/>
<Filename Value="../../../../usr/local/share/fpcsrc/packages/fcl-image/src/fpcanvas.pp"/>
<UnitName Value="FPCanvas"/>
<TopLine Value="116"/>
<CursorPos X="13" Y="126"/>
<UsageCount Value="18"/>
</Unit17>
<Unit18>
<Filename Value="../../../../../usr/local/share/fpcsrc/packages/fcl-image/src/FPPen.inc"/>
<Filename Value="../../../../usr/local/share/fpcsrc/packages/fcl-image/src/FPPen.inc"/>
<TopLine Value="30"/>
<CursorPos X="47" Y="34"/>
<UsageCount Value="11"/>
@ -255,14 +250,14 @@
<UsageCount Value="7"/>
</Unit28>
<Unit29>
<Filename Value="../../../../../usr/local/share/fpcsrc/rtl/objpas/math.pp"/>
<Filename Value="../../../../usr/local/share/fpcsrc/rtl/objpas/math.pp"/>
<UnitName Value="math"/>
<TopLine Value="236"/>
<CursorPos X="33" Y="241"/>
<UsageCount Value="11"/>
</Unit29>
<Unit30>
<Filename Value="../../../../../usr/local/share/fpcsrc/packages/univint/src/MacOSAll.pas"/>
<Filename Value="../../../../usr/local/share/fpcsrc/packages/univint/src/MacOSAll.pas"/>
<UnitName Value="MacOSAll"/>
<TopLine Value="406"/>
<CursorPos X="65" Y="409"/>
@ -280,9 +275,10 @@
<ComponentName Value="frmShapedWindow"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="shapedwindowtest"/>
<TopLine Value="28"/>
<CursorPos X="100" Y="36"/>
<UsageCount Value="54"/>
<WindowIndex Value="0"/>
<TopLine Value="21"/>
<CursorPos X="1" Y="53"/>
<UsageCount Value="55"/>
</Unit32>
<Unit33>
<Filename Value="../../../../lazarus/lcl/include/winapih.inc"/>
@ -369,13 +365,10 @@
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="ellipseunit"/>
<EditorIndex Value="5"/>
<WindowIndex Value="0"/>
<TopLine Value="10"/>
<CursorPos X="36" Y="49"/>
<UsageCount Value="34"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
<TopLine Value="32"/>
<CursorPos X="1" Y="55"/>
<UsageCount Value="35"/>
</Unit45>
<Unit46>
<Filename Value="screenshotunit.pas"/>
@ -384,9 +377,10 @@
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="screenshotunit"/>
<TopLine Value="1"/>
<CursorPos X="1" Y="1"/>
<UsageCount Value="34"/>
<WindowIndex Value="0"/>
<TopLine Value="24"/>
<CursorPos X="1" Y="31"/>
<UsageCount Value="35"/>
</Unit46>
<Unit47>
<Filename Value="drawtest.pas"/>
@ -394,13 +388,10 @@
<ComponentName Value="frmDraw"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="drawtest"/>
<EditorIndex Value="6"/>
<WindowIndex Value="0"/>
<TopLine Value="15"/>
<CursorPos X="1" Y="16"/>
<UsageCount Value="33"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
<TopLine Value="31"/>
<CursorPos X="1" Y="54"/>
<UsageCount Value="34"/>
</Unit47>
<Unit48>
<Filename Value="../../../../lazarus/lcl/interfaces/gtk/gtkproc.inc"/>
@ -434,13 +425,13 @@
<ComponentName Value="frmImage"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="imagetest"/>
<EditorIndex Value="1"/>
<WindowIndex Value="0"/>
<TopLine Value="44"/>
<CursorPos X="3" Y="52"/>
<UsageCount Value="26"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
<TopLine Value="222"/>
<CursorPos X="1" Y="247"/>
<UsageCount Value="27"/>
<Bookmarks Count="1">
<Item0 X="39" Y="137" ID="1"/>
</Bookmarks>
</Unit52>
<Unit53>
<Filename Value="../../../../lazarus/lcl/include/jpegimage.inc"/>
@ -507,63 +498,127 @@
</Unit61>
<Unit62>
<Filename Value="../../../../lazarussvn/lcl/interfaces/win32/win32winapi.inc"/>
<EditorIndex Value="3"/>
<WindowIndex Value="0"/>
<TopLine Value="43"/>
<CursorPos X="69" Y="63"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit62>
<Unit63>
<Filename Value="../../lcl/intfgraphics.pas"/>
<UnitName Value="IntfGraphics"/>
<WindowIndex Value="0"/>
<TopLine Value="228"/>
<CursorPos X="25" Y="250"/>
<UsageCount Value="10"/>
</Unit63>
<Unit64>
<Filename Value="../../lcl/include/lclintf.inc"/>
<WindowIndex Value="0"/>
<TopLine Value="166"/>
<CursorPos X="1" Y="180"/>
<UsageCount Value="10"/>
</Unit64>
<Unit65>
<Filename Value="../../lcl/interfaces/win32/win32lclintf.inc"/>
<WindowIndex Value="0"/>
<TopLine Value="1110"/>
<CursorPos X="1" Y="1123"/>
<UsageCount Value="10"/>
</Unit65>
<Unit66>
<Filename Value="../../lcl/include/rasterimage.inc"/>
<WindowIndex Value="0"/>
<TopLine Value="347"/>
<CursorPos X="1" Y="360"/>
<UsageCount Value="10"/>
</Unit66>
<Unit67>
<Filename Value="../../lcl/include/winapi.inc"/>
<WindowIndex Value="0"/>
<TopLine Value="363"/>
<CursorPos X="1" Y="377"/>
<UsageCount Value="10"/>
</Unit67>
<Unit68>
<Filename Value="../../lcl/interfaces/win32/win32winapi.inc"/>
<WindowIndex Value="0"/>
<TopLine Value="1641"/>
<CursorPos X="1" Y="1657"/>
<UsageCount Value="10"/>
</Unit68>
<Unit69>
<Filename Value="../../../fpc/packages/fcl-image/src/fpimage.pp"/>
<UnitName Value="FPimage"/>
<WindowIndex Value="0"/>
<TopLine Value="1"/>
<CursorPos X="10" Y="1"/>
<UsageCount Value="10"/>
</Unit69>
<Unit70>
<Filename Value="../../../fpc/packages/fcl-image/src/fpimage.inc"/>
<WindowIndex Value="0"/>
<TopLine Value="225"/>
<CursorPos X="1" Y="233"/>
<UsageCount Value="10"/>
</Unit70>
<Unit71>
<Filename Value="../../lcl/graphtype.pp"/>
<UnitName Value="GraphType"/>
<WindowIndex Value="0"/>
<TopLine Value="1250"/>
<CursorPos X="3" Y="1239"/>
<UsageCount Value="10"/>
</Unit71>
<Unit72>
<Filename Value="../../../fpc/rtl/objpas/objpas.pp"/>
<UnitName Value="objpas"/>
<WindowIndex Value="0"/>
<TopLine Value="15"/>
<CursorPos X="8" Y="28"/>
<UsageCount Value="10"/>
</Unit72>
</Units>
<JumpHistory Count="12" HistoryIndex="11">
<JumpHistory Count="10" HistoryIndex="9">
<Position1>
<Filename Value="imagetest.pas"/>
<Caret Line="48" Column="20" TopLine="36"/>
<Filename Value="canvastest.lpr"/>
<Caret Line="19" Column="34" TopLine="4"/>
</Position1>
<Position2>
<Filename Value="imagetest.pas"/>
<Caret Line="53" Column="38" TopLine="39"/>
<Filename Value="canvastest.lpr"/>
<Caret Line="20" Column="30" TopLine="4"/>
</Position2>
<Position3>
<Filename Value="imagetest.pas"/>
<Caret Line="56" Column="19" TopLine="40"/>
<Filename Value="canvastest.lpr"/>
<Caret Line="21" Column="32" TopLine="4"/>
</Position3>
<Position4>
<Filename Value="imagetest.pas"/>
<Caret Line="56" Column="20" TopLine="40"/>
<Filename Value="canvastest.lpr"/>
<Caret Line="22" Column="31" TopLine="4"/>
</Position4>
<Position5>
<Filename Value="imagetest.pas"/>
<Caret Line="51" Column="37" TopLine="45"/>
<Filename Value="canvastest.lpr"/>
<Caret Line="23" Column="35" TopLine="4"/>
</Position5>
<Position6>
<Filename Value="imagetest.pas"/>
<Caret Line="48" Column="29" TopLine="39"/>
<Filename Value="canvastest.lpr"/>
<Caret Line="24" Column="39" TopLine="4"/>
</Position6>
<Position7>
<Filename Value="imagetest.pas"/>
<Caret Line="47" Column="18" TopLine="39"/>
<Filename Value="canvastest.lpr"/>
<Caret Line="25" Column="32" TopLine="4"/>
</Position7>
<Position8>
<Filename Value="imagetest.pas"/>
<Caret Line="47" Column="18" TopLine="39"/>
<Filename Value="canvastest.lpr"/>
<Caret Line="26" Column="30" TopLine="4"/>
</Position8>
<Position9>
<Filename Value="imagetest.pas"/>
<Caret Line="51" Column="1" TopLine="44"/>
<Filename Value="canvastest.lpr"/>
<Caret Line="27" Column="32" TopLine="4"/>
</Position9>
<Position10>
<Filename Value="canvastest.lpr"/>
<Caret Line="27" Column="1" TopLine="10"/>
<Caret Line="28" Column="33" TopLine="6"/>
</Position10>
<Position11>
<Filename Value="canvastestunit.pas"/>
<Caret Line="90" Column="40" TopLine="78"/>
</Position11>
<Position12>
<Filename Value="canvastest.lpr"/>
<Caret Line="9" Column="12" TopLine="2"/>
</Position12>
</JumpHistory>
</ProjectOptions>
<CompilerOptions>
@ -585,6 +640,9 @@
</Options>
</Linking>
<Other>
<CompilerMessages>
<UseMsgFile Value="True"/>
</CompilerMessages>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>

3
examples/canvas_test/canvastest.lpr
View File

@ -12,10 +12,9 @@ uses
brushtest, fonttest, rectanglestest, shapedwindowtest, ellipseunit,
screenshotunit, drawtest, imagetest;
//{$IFDEF WINDOWS}{$R canvastest.rc}{$ENDIF}
{$R *.res}
begin
{$I canvastest.lrs}
Application.Initialize;
Application.CreateForm(TfrmCanvasTest, frmCanvasTest);
Application.CreateForm(TfrmPen, frmPen);

5237
examples/canvas_test/canvastest.lrs
View File

File diff suppressed because it is too large Load Diff

7
examples/canvas_test/canvastest.rc
View File

@ -1,7 +0,0 @@
#define RT_MANIFEST 24
#define CREATEPROCESS_MANIFEST_RESOURCE_ID 1
#define ISOLATIONAWARE_MANIFEST_RESOURCE_ID 2
#define ISOLATIONAWARE_NOSTATICIMPORT_MANIFEST_RESOURCE_ID 3
CREATEPROCESS_MANIFEST_RESOURCE_ID RT_MANIFEST "canvastest.manifest"
MAINICON ICON "canvastest.ico"

BIN
examples/canvas_test/canvastest.res Normal file
View File

Binary file not shown.

31
examples/canvas_test/canvastestunit.lrs
View File

@ -1,31 +0,0 @@
{ This is an automatically generated lazarus resource file }
LazarusResources.Add('TfrmCanvasTest','FORMDATA',[
'TPF0'#14'TfrmCanvasTest'#13'frmCanvasTest'#4'Left'#3'"'#1#6'Height'#3#164#1#3
+'Top'#3#171#0#5'Width'#3#233#0#11'BorderIcons'#11#12'biSystemMenu'#10'biMini'
+'mize'#0#11'BorderStyle'#7#8'bsSingle'#7'Caption'#6#19'Canvas Test Program'
+#12'ClientHeight'#3#164#1#11'ClientWidth'#3#233#0#10'LCLVersion'#6#6'0.9.29'
+#0#7'TButton'#8'btnBrush'#4'Left'#2#19#6'Height'#2#25#3'Top'#2'8'#5'Width'#3
+#194#0#7'Caption'#6#19'Show Brushes Dialog'#7'OnClick'#7#13'btnBrushClick'#8
+'TabOrder'#2#0#0#0#7'TButton'#6'btnPen'#4'Left'#2#19#6'Height'#2#25#3'Top'#2
+'`'#5'Width'#3#194#0#7'Caption'#6#16'Show Pens Dialog'#7'OnClick'#7#11'btnPe'
+'nClick'#8'TabOrder'#2#1#0#0#7'TButton'#7'btnFont'#4'Left'#2#19#6'Height'#2
+#25#3'Top'#3#136#0#5'Width'#3#194#0#7'Caption'#6#17'Show Fonts Dialog'#7'OnC'
+'lick'#7#12'btnFontClick'#8'TabOrder'#2#2#0#0#7'TButton'#8'btnClose'#4'Left'
+#2#19#6'Height'#2#25#3'Top'#3#128#1#5'Width'#3#194#0#7'Caption'#6#5'Close'#7
+'OnClick'#7#13'btnCloseClick'#8'TabOrder'#2#3#0#0#7'TButton'#13'btnRectangle'
+'s'#4'Left'#2#19#6'Height'#2#25#3'Top'#2#16#5'Width'#3#194#0#7'Caption'#6#22
+'Show Rectangles Dialog'#7'OnClick'#7#18'btnRectanglesClick'#8'TabOrder'#2#4
+#0#0#7'TButton'#15'btnShapedWindow'#4'Left'#2#19#6'Height'#2#25#3'Top'#3#176
+#0#5'Width'#3#194#0#7'Caption'#6#18'Show Shaped Window'#7'OnClick'#7#20'btnS'
+'hapedWindowClick'#8'TabOrder'#2#5#0#0#7'TButton'#10'btnEllipse'#4'Left'#2#19
+#6'Height'#2#25#3'Top'#3#216#0#5'Width'#3#194#0#7'Caption'#6#19'Show Ellipse'
+' Dialog'#7'OnClick'#7#15'btnEllipseClick'#8'TabOrder'#2#6#0#0#7'TButton'#13
+'btnScreenshot'#4'Left'#2#19#6'Height'#2#25#3'Top'#3#0#1#5'Width'#3#194#0#7
+'Caption'#6#22'Show Screenshot Dialog'#7'OnClick'#7#18'btnScreenshotClick'#8
+'TabOrder'#2#7#0#0#7'TButton'#7'btnDraw'#4'Left'#2#19#6'Height'#2#25#3'Top'#3
+'('#1#5'Width'#3#194#0#7'Caption'#6#16'Show Draw Dialog'#7'OnClick'#7#12'btn'
+'DrawClick'#8'TabOrder'#2#8#0#0#7'TButton'#8'btnImage'#4'Left'#2#19#6'Height'
+#2#25#3'Top'#3'P'#1#5'Width'#3#194#0#7'Caption'#6#17'Show Image Dialog'#7'On'
+'Click'#7#13'btnImageClick'#8'TabOrder'#2#9#0#0#0
]);

5
examples/canvas_test/canvastestunit.pas
View File

@ -48,6 +48,8 @@ var
implementation
{$R *.lfm}
{ TfrmCanvasTest }
procedure TfrmCanvasTest.btnBrushClick(Sender: TObject);
@ -100,8 +102,5 @@ begin
frmShapedWindow.ShowModal;
end;
initialization
{$I canvastestunit.lrs}
end.

5
examples/canvas_test/drawtest.lrs
View File

@ -1,5 +0,0 @@
LazarusResources.Add('TfrmDraw','FORMDATA',[
'TPF0'#8'TfrmDraw'#7'frmDraw'#4'Left'#3'"'#1#6'Height'#3#18#1#3'Top'#3#197#0#5
+'Width'#3#204#1#7'Caption'#6#7'frmDraw'#8'OnCreate'#7#10'FormCreate'#7'OnPai'
+'nt'#7#9'FormPaint'#10'LCLVersion'#6#6'0.9.29'#0#0
]);

5
examples/canvas_test/drawtest.pas
View File

@ -26,6 +26,8 @@ var
implementation
{$R *.lfm}
{ TfrmDraw }
procedure TfrmDraw.FormPaint(Sender: TObject);
@ -50,8 +52,5 @@ begin
end;
initialization
{$I drawtest.lrs}
end.

7
examples/canvas_test/ellipseunit.lrs
View File

@ -1,7 +0,0 @@
{ This is an automatically generated lazarus resource file }
LazarusResources.Add('TfrmEllipse','FORMDATA',[
'TPF0'#11'TfrmEllipse'#10'frmEllipse'#4'Left'#3'"'#1#6'Height'#3#240#0#3'Top'
+#3#197#0#5'Width'#3#177#1#7'Caption'#6#10'frmEllipse'#7'OnPaint'#7#9'FormPai'
+'nt'#10'LCLVersion'#6#6'0.9.31'#0#0
]);

5
examples/canvas_test/ellipseunit.pas
View File

@ -24,6 +24,8 @@ var
implementation
{$R *.lfm}
{ TfrmEllipse }
procedure TfrmEllipse.FormPaint(Sender: TObject);
@ -51,8 +53,5 @@ begin
Canvas.Arc(250, 150, 300, 200, 30*16, -45*16);
end;
initialization
{$I ellipseunit.lrs}
end.

7
examples/canvas_test/fonttest.lrs
View File

@ -1,7 +0,0 @@
{ This is an automatically generated lazarus resource file }
LazarusResources.Add('TfrmFont','FORMDATA',[
'TPF0'#8'TfrmFont'#7'frmFont'#4'Left'#3'"'#1#6'Height'#3'X'#2#3'Top'#3#171#0#5
+'Width'#3'X'#2#7'Caption'#6#10'Fonts Test'#7'OnPaint'#7#9'FormPaint'#10'LCLV'
+'ersion'#6#6'0.9.29'#0#0
]);

5
examples/canvas_test/fonttest.pas
View File

@ -24,6 +24,8 @@ var
implementation
{$R *.lfm}
{ TfrmFont }
procedure TfrmFont.FormPaint(Sender: TObject);
@ -122,8 +124,5 @@ begin
end;
end;
initialization
{$I fonttest.lrs}
end.

20
examples/canvas_test/imagetest.lrs
View File

@ -1,20 +0,0 @@
{ Das ist eine automatisch erzeugte Lazarus-Ressourcendatei }
LazarusResources.Add('TfrmImage','FORMDATA',[
'TPF0'#9'TfrmImage'#8'frmImage'#4'Left'#3'"'#1#6'Height'#3'}'#1#3'Top'#3#197#0
+#5'Width'#3#178#1#7'Caption'#6#8'frmImage'#12'ClientHeight'#3'}'#1#11'Client'
+'Width'#3#178#1#8'OnCreate'#7#10'FormCreate'#10'LCLVersion'#6#6'0.9.29'#0#7
+'TButton'#11'btnSaveJPEG'#4'Left'#2' '#6'Height'#2#25#3'Top'#2'@'#5'Width'#2
+'k'#7'Caption'#6#14'Save JPEG File'#7'OnClick'#7#16'btnSaveJPEGClick'#8'TabO'
+'rder'#2#0#0#0#6'TLabel'#6'Label1'#4'Left'#2#13#6'Height'#2#14#3'Top'#2#20#5
+'Width'#2'B'#7'Caption'#6#13'JPEG Quality:'#11'ParentColor'#8#0#0#9'TTrackBa'
+'r'#9'trackJPEG'#4'Left'#2'h'#6'Height'#2#25#3'Top'#2#16#5'Width'#3'8'#1#3'M'
+'ax'#2'd'#8'Position'#2'K'#8'TabOrder'#2#1#0#0#6'TImage'#7'MyImage'#4'Left'#2
+' '#6'Height'#2'd'#3'Top'#2'e'#5'Width'#3#200#0#0#0#7'TButton'#9'btnResize'#4
+'Left'#2' '#6'Height'#2#25#3'Top'#3#216#0#5'Width'#2'k'#7'Caption'#6#13'Resi'
+'ze Bitmap'#7'OnClick'#7#14'btnResizeClick'#8'TabOrder'#2#2#0#0#7'TButton'#9
+'btnRotate'#4'Left'#3#158#0#6'Height'#2#25#3'Top'#3#216#0#5'Width'#2'j'#7'Ca'
+'ption'#6#12'Rotate Image'#7'OnClick'#7#14'btnRotateClick'#8'TabOrder'#2#3#0
+#0#6'TImage'#11'imageDepths'#4'Left'#2' '#6'Height'#2'Z'#3'Top'#3#0#1#5'Widt'
+'h'#3#200#0#0#0#0
]);

6
examples/canvas_test/imagetest.pas
View File

@ -37,6 +37,8 @@ var
implementation
{$R *.lfm}
{ TfrmImage }
procedure TfrmImage.FormCreate(Sender: TObject);
@ -135,6 +137,7 @@ begin
TempIntfImg.Width :=(MaxX-MinX)+1;
TempIntfImg.Height:=(MaxY-MinY)+1;
TempIntfImg.FillPixels(FPColor(0, 0, 0, 0));
Dx:=(TempIntfImg.Width div 2)-Xo;
Dy:=(TempIntfImg.Height div 2)-Yo;
@ -240,8 +243,5 @@ begin
MyBitmap.Free;
end;
initialization
{$I imagetest.lrs}
end.

7
examples/canvas_test/pentest.lrs
View File

@ -1,7 +0,0 @@
{ This is an automatically generated lazarus resource file }
LazarusResources.Add('TfrmPen','FORMDATA',[
'TPF0'#7'TfrmPen'#6'frmPen'#4'Left'#3'"'#1#6'Height'#3'^'#1#3'Top'#3#171#0#5
+'Width'#3#244#1#7'Caption'#6#6'frmPen'#7'OnPaint'#7#9'FormPaint'#10'LCLVersi'
+'on'#6#6'0.9.29'#0#0
]);

5
examples/canvas_test/pentest.pas
View File

@ -24,6 +24,8 @@ var
implementation
{$R *.lfm}
{ TfrmPen }
procedure TfrmPen.FormPaint(Sender: TObject);
@ -186,8 +188,5 @@ begin
end;
end;
initialization
{$I pentest.lrs}
end.

6
examples/canvas_test/rectanglestest.lrs
View File

@ -1,6 +0,0 @@
LazarusResources.Add('TfrmRectangles','FORMDATA',[
'TPF0'#14'TfrmRectangles'#13'frmRectangles'#4'Left'#3'"'#1#6'Height'#3#150#0#3
+'Top'#3#171#0#5'Width'#3#144#1#11'BorderIcons'#11#12'biSystemMenu'#10'biMini'
+'mize'#0#11'BorderStyle'#7#8'bsSingle'#7'Caption'#6#15'Rectangles Test'#7'On'
+'Paint'#7#9'FormPaint'#10'LCLVersion'#6#6'0.9.27'#0#0
]);

5
examples/canvas_test/rectanglestest.pas
View File

@ -24,6 +24,8 @@ var
implementation
{$R *.lfm}
{ TfrmRectangles }
procedure TfrmRectangles.FormPaint(Sender: TObject);
@ -75,8 +77,5 @@ begin
end;
end;
initialization
{$I rectanglestest.lrs}
end.

7
examples/canvas_test/screenshotunit.lfm
View File

@ -6,13 +6,14 @@ object frmScreenshot: TfrmScreenshot
Caption = 'Screenshot Test'
ClientHeight = 240
ClientWidth = 320
LCLVersion = '0.9.29'
LCLVersion = '0.9.31'
object imgScreenshot: TImage
Left = 0
Height = 168
Top = 72
Height = 176
Top = 64
Width = 320
Align = alBottom
Anchors = [akTop, akLeft, akRight, akBottom]
end
object btnScreenshot: TBitBtn
Left = 17

9
examples/canvas_test/screenshotunit.lrs
View File

@ -1,9 +0,0 @@
LazarusResources.Add('TfrmScreenshot','FORMDATA',[
'TPF0'#14'TfrmScreenshot'#13'frmScreenshot'#4'Left'#3'#'#1#6'Height'#3#240#0#3
+'Top'#3#152#0#5'Width'#3'@'#1#7'Caption'#6#15'Screenshot Test'#12'ClientHeig'
+'ht'#3#240#0#11'ClientWidth'#3'@'#1#10'LCLVersion'#6#6'0.9.29'#0#6'TImage'#13
+'imgScreenshot'#4'Left'#2#0#6'Height'#3#168#0#3'Top'#2'H'#5'Width'#3'@'#1#5
+'Align'#7#8'alBottom'#0#0#7'TBitBtn'#13'btnScreenshot'#4'Left'#2#17#6'Height'
+#2#30#3'Top'#2#15#5'Width'#3#143#0#7'Caption'#6#15'Take Screenshot'#7'OnClic'
+'k'#7#18'btnScreenshotClick'#8'TabOrder'#2#0#0#0#0
]);

15
examples/canvas_test/screenshotunit.pas
View File

@ -6,7 +6,7 @@ interface
uses
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
ExtCtrls, Buttons;
ExtCtrls, Buttons, LCLType, LCLIntf;
type
@ -27,20 +27,25 @@ var
implementation
{$R *.lfm}
{ TfrmScreenshot }
procedure TfrmScreenshot.btnScreenshotClick(Sender: TObject);
var
bmp: TBitmap;
DC: HDC;
begin
bmp := TBitmap.Create;
bmp.LoadFromDevice(0);
DC := GetDC(0);
try
bmp.LoadFromDevice(DC);
finally
ReleaseDC(0, DC);
end;
imgScreenshot.Picture.Bitmap.Assign(bmp);
FreeAndNil(bmp);
end;
initialization
{$I screenshotunit.lrs}
end.

8
examples/canvas_test/shapedwindowtest.lrs
View File

@ -1,8 +0,0 @@
LazarusResources.Add('TfrmShapedWindow','FORMDATA',[
'TPF0'#16'TfrmShapedWindow'#15'frmShapedWindow'#4'Left'#3'"'#1#6'Height'#3#200
+#0#3'Top'#3#171#0#5'Width'#3#200#0#11'BorderIcons'#11#0#11'BorderStyle'#7#6
+'bsNone'#7'Caption'#6#15'frmShapedWindow'#12'ClientHeight'#3#200#0#11'Client'
+'Width'#3#200#0#5'Color'#7#5'clRed'#6'OnShow'#7#8'FormShow'#10'LCLVersion'#6
+#6'0.9.27'#0#7'TButton'#8'btnClose'#4'Left'#2'2'#6'Height'#2' '#3'Top'#2'X'#5
+'Width'#2'd'#7'Caption'#6#5'Close'#11'ModalResult'#2#1#8'TabOrder'#2#0#0#0#0
]);

5
examples/canvas_test/shapedwindowtest.pas
View File

@ -26,6 +26,8 @@ var
implementation
{$R *.lfm}
{ TfrmShapedWindow }
procedure TfrmShapedWindow.FormShow(Sender: TObject);
@ -49,8 +51,5 @@ begin
end;
end;
initialization
{$I shapedwindowtest.lrs}
end.