Changeset 573
- Timestamp:
- Jun 25, 2024, 10:49:43 AM (4 months ago)
- Location:
- GraphicTest
- Files:
-
- 5 edited
- 21 moved
Legend:
- Unmodified
- Added
- Removed
-
GraphicTest/DrawMethod.pas
r572 r573 1 unit UDrawMethod; 2 3 {$mode delphi}{$H+} 1 unit DrawMethod; 4 2 5 3 interface 6 4 7 5 uses 8 Classes, SysUtils, ExtCtrls, UPlatform, UFastBitmap, Graphics, Controls,6 Classes, SysUtils, ExtCtrls, Platform, FastBitmap, Graphics, Controls, 9 7 LCLType, IntfGraphics, fpImage, GraphType, DateUtils, Forms, 10 8 {$IFDEF OPENGL}GL, GLExt, OpenGLContext,{$ENDIF} … … 13 11 type 14 12 TPaintObject = (poImage, poPaintBox, poOpenGL, poCanvas); 15 16 13 17 14 { TDrawMethod } … … 98 95 procedure TDrawMethodCanvas.UpdateSettings; 99 96 begin 100 inherited UpdateSettings;97 inherited; 101 98 end; 102 99 … … 109 106 procedure TDrawMethodCanvas.Done; 110 107 begin 111 inherited Done; 112 end; 113 108 inherited; 109 end; 114 110 115 111 { TDrawMethodPaintBox } … … 117 113 procedure TDrawMethodPaintBox.Paint(Sender: TObject); 118 114 begin 119 120 115 end; 121 116 122 117 procedure TDrawMethodPaintBox.UpdateSettings; 123 118 begin 124 inherited UpdateSettings;119 inherited; 125 120 PaintBox.ControlStyle := FParent.ControlStyle; 126 121 end; … … 140 135 begin 141 136 FreeAndNil(PaintBox); 142 inherited Done;137 inherited; 143 138 end; 144 139 … … 166 161 begin 167 162 FreeAndNil(Image); 168 inherited Done; 169 end; 170 163 inherited; 164 end; 171 165 172 166 {$IFDEF OPENGL} … … 204 198 procedure TDrawMethodOpenGL.UpdateSettings; 205 199 begin 206 inherited UpdateSettings;200 inherited; 207 201 OpenGLControl.ControlStyle := FParent.ControlStyle; 208 202 end; … … 230 224 {$ENDIF} 231 225 232 233 226 { TDrawMethod } 234 227 … … 253 246 procedure TDrawMethod.Done; 254 247 begin 255 256 248 end; 257 249 … … 269 261 procedure TDrawMethod.DrawFrame(FastBitmap: TFastBitmap); 270 262 begin 271 272 263 end; 273 264 -
GraphicTest/FastBitmap.pas
r572 r573 1 unit UFastBitmap; 2 3 {$mode objfpc}{$H+} 1 unit FastBitmap; 4 2 5 3 interface … … 73 71 function NoSwapBRComponent(Value: Cardinal): Cardinal; inline; 74 72 73 75 74 implementation 76 75 … … 109 108 begin 110 109 FreeMem(FPixelsData); 111 inherited Destroy;110 inherited; 112 111 end; 113 112 … … 143 142 function TFastBitmap3.GetPixelAddress(X, Y: Integer): PFastBitmapPixel; 144 143 begin 145 Result := PFastBitmapPixel(FPixelsData ) + Y * FSize.X + X;144 Result := PFastBitmapPixel(FPixelsData + Y * FSize.X + X); 146 145 end; 147 146 … … 201 200 begin 202 201 FreeMem(FPixelsData); 203 inherited Destroy;202 inherited; 204 203 end; 205 204 … … 227 226 end; 228 227 229 230 228 end. 231 229 -
GraphicTest/Forms/FormDraw.pas
r572 r573 1 unit UFormDraw; 2 3 {$mode delphi} 1 unit FormDraw; 4 2 5 3 interface … … 23 21 end; 24 22 25 var26 FormDraw: TFormDraw;27 23 28 24 implementation … … 38 34 begin 39 35 if EraseBackgroundEnabled then 40 inherited EraseBackground(DC);36 inherited; 41 37 end; 42 38 43 39 initialization 44 {$I UFormDraw.lrs}40 {$I FormDraw.lrs} 45 41 46 42 end. -
GraphicTest/Forms/FormMain.pas
r572 r573 1 unit UFormMain; 2 3 {$mode delphi}{$H+} 1 unit FormMain; 4 2 5 3 interface … … 7 5 uses 8 6 Classes, SysUtils, LazFileUtils, SynHighlighterPas, SynMemo, Forms, Controls, 9 Graphics, Dialogs, ComCtrls, ExtCtrls, StdCtrls, DateUtils, UPlatform,7 Graphics, Dialogs, ComCtrls, ExtCtrls, StdCtrls, DateUtils, Platform, 10 8 LCLType, IntfGraphics, fpImage, Math, GraphType, Contnrs, LclIntf, Spin, 11 ActnList, Menus, StdActns, UFastBitmap, UDrawMethod, typinfo;9 ActnList, Menus, StdActns, FastBitmap, DrawMethod, TypInfo, FormDraw; 12 10 13 11 const … … 107 105 Scenes: TObjectList; // TObjectList<TFastBitmap> 108 106 SceneIndex: Integer; 107 FormDraw: TFormDraw; 109 108 property CurrentMethod: TDrawMethod read FCurrentMethod; 110 109 end; … … 113 112 FormMain: TFormMain; 114 113 114 115 115 implementation 116 116 … … 118 118 119 119 uses 120 UFormDraw, UMethodLazIntfImageColorsCopy, UMethodLazIntfImageColorsNoCopy, UMethodCanvasPixels, 121 UMethodCanvasPixelsUpdateLock, UMethodBGRABitmap, UMethodBitmapRawImageDataPaintBox, 122 UMethodBitmapRawImageData, UMethodBitmapRawImageDataMove, UMethodDummy, UMethodOpenGL, 123 UMethodOpenGLPBO{$IFDEF GRAPHICS32}, UGraphics32Method{$ENDIF}, 124 UMethodBitmapScanline, UMethodMove; 120 MethodLazIntfImageColorsCopy, MethodLazIntfImageColorsNoCopy, 121 MethodCanvasPixels, MethodCanvasPixelsUpdateLock, MethodBGRABitmap, 122 MethodBitmapRawImageDataPaintBox, MethodBitmapRawImageData, 123 MethodBitmapRawImageDataMove, MethodDummy, MethodOpenGL, 124 MethodOpenGLPBO{$IFDEF GRAPHICS32}, UGraphics32Method{$ENDIF}, 125 MethodBitmapScanline, MethodMove; 125 126 126 127 { TFormMain } … … 132 133 PF: TPixelFormat; 133 134 begin 135 FormDraw := TFormDraw.Create(nil); 136 134 137 Scenes := TObjectList.Create; 135 138 … … 294 297 FreeAndNil(DrawMethods); 295 298 FreeAndNil(Scenes); 299 FreeAndNil(FormDraw); 296 300 end; 297 301 -
GraphicTest/GraphicTest.lpi
r543 r573 2 2 <CONFIG> 3 3 <ProjectOptions> 4 <Version Value="1 1"/>4 <Version Value="12"/> 5 5 <General> 6 <Flags> 7 <CompatibilityMode Value="True"/> 8 </Flags> 6 9 <SessionStorage Value="InProjectDir"/> 7 <MainUnit Value="0"/>8 10 <Scaled Value="True"/> 9 11 <UseXPManifest Value="True"/> … … 31 33 <CStyleOperator Value="False"/> 32 34 <AllowLabel Value="False"/> 35 <UseAnsiStrings Value="False"/> 33 36 <CPPInline Value="False"/> 34 <UseAnsiStrings Value="False"/>35 37 </SyntaxOptions> 36 38 </Parsing> … … 95 97 </Unit0> 96 98 <Unit1> 97 <Filename Value="Forms/ UFormMain.pas"/>99 <Filename Value="Forms/FormMain.pas"/> 98 100 <IsPartOfProject Value="True"/> 99 101 <ComponentName Value="FormMain"/> … … 102 104 </Unit1> 103 105 <Unit2> 104 <Filename Value=" UPlatform.pas"/>106 <Filename Value="Platform.pas"/> 105 107 <IsPartOfProject Value="True"/> 106 108 </Unit2> 107 109 <Unit3> 108 <Filename Value=" UDrawMethod.pas"/>110 <Filename Value="DrawMethod.pas"/> 109 111 <IsPartOfProject Value="True"/> 110 112 </Unit3> 111 113 <Unit4> 112 <Filename Value=" UFastBitmap.pas"/>114 <Filename Value="FastBitmap.pas"/> 113 115 <IsPartOfProject Value="True"/> 114 116 </Unit4> 115 117 <Unit5> 116 <Filename Value="Forms/ UFormDraw.pas"/>118 <Filename Value="Forms/FormDraw.pas"/> 117 119 <IsPartOfProject Value="True"/> 118 120 <ComponentName Value="FormDraw"/> … … 121 123 </Unit5> 122 124 <Unit6> 123 <Filename Value="Methods/ UMethodCanvasPixels.pas"/>125 <Filename Value="Methods/MethodCanvasPixels.pas"/> 124 126 <IsPartOfProject Value="True"/> 125 127 </Unit6> 126 128 <Unit7> 127 <Filename Value="Methods/ UMethodCanvasPixelsUpdateLock.pas"/>129 <Filename Value="Methods/MethodCanvasPixelsUpdateLock.pas"/> 128 130 <IsPartOfProject Value="True"/> 129 131 </Unit7> 130 132 <Unit8> 131 <Filename Value="Methods/ UMethodLazIntfImageColorsCopy.pas"/>133 <Filename Value="Methods/MethodLazIntfImageColorsCopy.pas"/> 132 134 <IsPartOfProject Value="True"/> 133 135 </Unit8> 134 136 <Unit9> 135 <Filename Value="Methods/ UMethodLazIntfImageColorsNoCopy.pas"/>137 <Filename Value="Methods/MethodLazIntfImageColorsNoCopy.pas"/> 136 138 <IsPartOfProject Value="True"/> 137 139 </Unit9> 138 140 <Unit10> 139 <Filename Value="Methods/ UMethodBGRABitmap.pas"/>141 <Filename Value="Methods/MethodBGRABitmap.pas"/> 140 142 <IsPartOfProject Value="True"/> 141 143 </Unit10> 142 144 <Unit11> 143 <Filename Value="Methods/ UMethodBitmapRawImageDataPaintBox.pas"/>145 <Filename Value="Methods/MethodBitmapRawImageDataPaintBox.pas"/> 144 146 <IsPartOfProject Value="True"/> 145 147 </Unit11> 146 148 <Unit12> 147 <Filename Value="Methods/ UMethodBitmapRawImageData.pas"/>149 <Filename Value="Methods/MethodBitmapRawImageData.pas"/> 148 150 <IsPartOfProject Value="True"/> 149 151 </Unit12> 150 152 <Unit13> 151 <Filename Value="Methods/ UMethodDummy.pas"/>153 <Filename Value="Methods/MethodDummy.pas"/> 152 154 <IsPartOfProject Value="True"/> 153 155 </Unit13> 154 156 <Unit14> 155 <Filename Value="Methods/ UMethodBitmapRawImageDataMove.pas"/>157 <Filename Value="Methods/MethodBitmapRawImageDataMove.pas"/> 156 158 <IsPartOfProject Value="True"/> 157 159 </Unit14> 158 160 <Unit15> 159 <Filename Value="Methods/ UMethodOpenGL.pas"/>161 <Filename Value="Methods/MethodOpenGL.pas"/> 160 162 <IsPartOfProject Value="True"/> 161 163 </Unit15> 162 164 <Unit16> 163 <Filename Value="Methods/ UMethodOpenGLPBO.pas"/>165 <Filename Value="Methods/MethodOpenGLPBO.pas"/> 164 166 <IsPartOfProject Value="True"/> 165 167 </Unit16> 166 168 <Unit17> 167 <Filename Value="Methods/ UMethodGraphics32.pas"/>169 <Filename Value="Methods/MethodGraphics32.pas"/> 168 170 <IsPartOfProject Value="True"/> 169 171 </Unit17> 170 172 <Unit18> 171 <Filename Value="Methods/ UMethodBitmapScanline.pas"/>173 <Filename Value="Methods/MethodBitmapScanline.pas"/> 172 174 <IsPartOfProject Value="True"/> 173 175 </Unit18> 174 176 <Unit19> 175 <Filename Value="Methods/ UMethodMove.pas"/>177 <Filename Value="Methods/MethodMove.pas"/> 176 178 <IsPartOfProject Value="True"/> 177 179 </Unit19> … … 194 196 <IncludeAssertionCode Value="True"/> 195 197 <AllowLabel Value="False"/> 198 <UseAnsiStrings Value="False"/> 196 199 <CPPInline Value="False"/> 197 <UseAnsiStrings Value="False"/>198 200 </SyntaxOptions> 199 201 </Parsing> … … 209 211 <Linking> 210 212 <Debugging> 213 <DebugInfoType Value="dsDwarf3"/> 211 214 <UseHeaptrc Value="True"/> 212 215 </Debugging> -
GraphicTest/GraphicTest.lpr
r543 r573 1 1 program GraphicTest; 2 3 {$mode objfpc}{$H+}4 2 5 3 uses … … 8 6 {$ENDIF}{$ENDIF} 9 7 Interfaces, // this includes the LCL widgetset 10 Forms, SysUtils, openglcontext, UFormMain, UPlatform, UDrawMethod,11 UFastBitmap, UFormDraw, bgrabitmappack, UMethodCanvasPixels,12 UMethodCanvasPixelsUpdateLock, UMethodLazIntfImageColorsCopy, UMethodLazIntfImageColorsNoCopy,13 UMethodBGRABitmap, UMethodBitmapRawImageDataPaintBox, UMethodBitmapRawImageData,14 UMethodDummy, UMethodBitmapRawImageDataMove, UMethodOpenGL, UMethodOpenGLPBO,15 UMethodGraphics32, UMethodBitmapScanline;8 Forms, SysUtils, openglcontext, FormMain, Platform, DrawMethod, 9 FastBitmap, FormDraw, bgrabitmappack, MethodCanvasPixels, 10 MethodCanvasPixelsUpdateLock, MethodLazIntfImageColorsCopy, MethodLazIntfImageColorsNoCopy, 11 MethodBGRABitmap, MethodBitmapRawImageDataPaintBox, MethodBitmapRawImageData, 12 MethodDummy, MethodBitmapRawImageDataMove, MethodOpenGL, MethodOpenGLPBO, 13 MethodGraphics32, MethodBitmapScanline; 16 14 17 15 {$R *.res} … … 30 28 31 29 RequireDerivedFormResource := True; 30 Application.Title:=''; 32 31 Application.Scaled:=True; 33 32 Application.Initialize; 34 Application.CreateForm(TFormMain, FormMain); 35 Application.CreateForm(TFormDraw, FormDraw); 33 Application.CreateForm(TFormMain, FormMain.FormMain); 36 34 Application.Run; 37 35 end. -
GraphicTest/Methods/MethodBGRABitmap.pas
r572 r573 1 unit UMethodBGRABitmap; 2 3 {$mode delphi} 1 unit MethodBGRABitmap; 4 2 5 3 interface 6 4 7 5 uses 8 Classes, SysUtils, UDrawMethod, UFastBitmap, BGRABitmap, BGRABitmapTypes,6 Classes, SysUtils, DrawMethod, FastBitmap, BGRABitmap, BGRABitmapTypes, 9 7 Controls, Graphics; 10 8 … … 44 42 begin 45 43 BGRABitmap.Free; 46 inherited Destroy;44 inherited; 47 45 end; 48 46 … … 64 62 end; 65 63 66 67 64 end. 68 65 -
GraphicTest/Methods/MethodBitmapRawImageData.pas
r572 r573 1 unit UMethodBitmapRawImageData; 2 3 {$mode delphi} 1 unit MethodBitmapRawImageData; 4 2 5 3 interface 6 4 7 5 uses 8 Classes, SysUtils, UDrawMethod, UFastBitmap, Graphics, GraphType;6 Classes, SysUtils, DrawMethod, FastBitmap, Graphics, GraphType; 9 7 10 8 type … … 60 58 end; 61 59 62 63 60 end. 64 61 -
GraphicTest/Methods/MethodBitmapRawImageDataMove.pas
r572 r573 1 unit UMethodBitmapRawImageDataMove; 2 3 {$mode delphi} 1 unit MethodBitmapRawImageDataMove; 4 2 5 3 interface 6 4 7 5 uses 8 Classes, SysUtils, UDrawMethod, UFastBitmap, Graphics, GraphType;6 Classes, SysUtils, DrawMethod, FastBitmap, Graphics, GraphType; 9 7 10 8 type … … 48 46 end; 49 47 50 51 48 end. 52 49 -
GraphicTest/Methods/MethodBitmapRawImageDataPaintBox.pas
r572 r573 1 unit UMethodBitmapRawImageDataPaintBox; 2 3 {$mode delphi} 1 unit MethodBitmapRawImageDataPaintBox; 4 2 5 3 interface 6 4 7 5 uses 8 {$IFDEF windows}Windows,{$ENDIF}Classes, SysUtils, Controls, UDrawMethod, UFastBitmap, Graphics, LCLType,9 F Pimage, IntfGraphics, GraphType;6 {$IFDEF windows}Windows,{$ENDIF}Classes, SysUtils, Controls, DrawMethod, 7 FastBitmap, Graphics, LCLType, FPimage, IntfGraphics, GraphType; 10 8 11 9 type … … 47 45 begin 48 46 FreeAndNil(TempBitmap); 49 inherited Done;47 inherited; 50 48 end; 51 49 … … 94 92 end; 95 93 96 97 94 end. 98 95 -
GraphicTest/Methods/MethodBitmapScanline.pas
r572 r573 1 unit UMethodBitmapScanline; 2 3 {$mode delphi} 1 unit MethodBitmapScanline; 4 2 5 3 interface 6 4 7 5 uses 8 LCLIntf, LCLType, Classes, SysUtils, UDrawMethod, UFastBitmap, Controls, Graphics;6 LCLIntf, LCLType, Classes, SysUtils, DrawMethod, FastBitmap, Controls, Graphics; 9 7 10 8 type -
GraphicTest/Methods/MethodCanvasPixels.pas
r572 r573 1 unit UMethodCanvasPixels; 2 3 {$mode delphi} 1 unit MethodCanvasPixels; 4 2 5 3 interface 6 4 7 5 uses 8 Classes, SysUtils, UDrawMethod, UFastBitmap, Graphics;6 Classes, SysUtils, DrawMethod, FastBitmap, Graphics; 9 7 10 8 type … … 41 39 end; 42 40 43 44 41 end. 45 42 -
GraphicTest/Methods/MethodCanvasPixelsUpdateLock.pas
r572 r573 1 unit UMethodCanvasPixelsUpdateLock; 2 3 {$mode delphi} 1 unit MethodCanvasPixelsUpdateLock; 4 2 5 3 interface 6 4 7 5 uses 8 Classes, SysUtils, UDrawMethod, UFastBitmap, Graphics;6 Classes, SysUtils, DrawMethod, FastBitmap, Graphics; 9 7 10 8 type … … 45 43 end; 46 44 47 48 45 end. 49 46 -
GraphicTest/Methods/MethodDummy.pas
r572 r573 1 unit UMethodDummy; 2 3 {$mode delphi} 1 unit MethodDummy; 4 2 5 3 interface 6 4 7 5 uses 8 Classes, SysUtils, UDrawMethod, UFastBitmap;6 Classes, SysUtils, DrawMethod, FastBitmap; 9 7 10 8 type … … 23 21 constructor TMethodDummy.Create; 24 22 begin 25 inherited Create;23 inherited; 26 24 Caption := 'Dummy'; 27 25 Description.Add('This method doesn''t draw anything. It''s purpose is to measure ' + … … 33 31 end; 34 32 35 36 33 end. 37 34 -
GraphicTest/Methods/MethodGraphics32.pas
r572 r573 1 unit UMethodGraphics32; 2 3 {$mode delphi} 1 unit MethodGraphics32; 4 2 5 3 interface 6 4 7 5 uses 8 Classes, SysUtils, UFastBitmap, UDrawMethod,6 Classes, SysUtils, FastBitmap, DrawMethod, 9 7 {$IFDEF GRAPHICS32}GR32, GR32_Image,{$ENDIF} 10 8 Controls, Graphics; … … 31 29 constructor TMethodGraphics32.Create; 32 30 begin 33 inherited Create;31 inherited; 34 32 Caption := 'TGR32Image'; 35 33 Description.Add('Graphics32 is well implemented highly optimized Delphi graphic ' + … … 46 44 destructor TMethodGraphics32.Destroy; 47 45 begin 48 inherited Destroy;46 inherited; 49 47 end; 50 48 … … 92 90 begin 93 91 FreeAndNil(Image); 94 inherited Done;92 inherited; 95 93 end; 96 94 -
GraphicTest/Methods/MethodLazIntfImageColorsCopy.pas
r572 r573 1 unit UMethodLazIntfImageColorsCopy; 2 3 {$mode delphi} 1 unit MethodLazIntfImageColorsCopy; 4 2 5 3 interface 6 4 7 5 uses 8 Classes, SysUtils, UDrawMethod, UFastBitmap, IntfGraphics, GraphType,6 Classes, SysUtils, DrawMethod, FastBitmap, IntfGraphics, GraphType, 9 7 fpImage, Graphics; 10 8 … … 33 31 destructor TMethodLazIntfImageColorsCopy.Destroy; 34 32 begin 35 inherited Destroy;33 inherited; 36 34 end; 37 35 … … 53 51 end; 54 52 55 56 53 end. 57 54 -
GraphicTest/Methods/MethodLazIntfImageColorsNoCopy.pas
r572 r573 1 unit UMethodLazIntfImageColorsNoCopy; 2 3 {$mode delphi} 1 unit MethodLazIntfImageColorsNoCopy; 4 2 5 3 interface 6 4 7 5 uses 8 Classes, SysUtils, UDrawMethod, UFastBitmap, IntfGraphics, Graphics, Controls;6 Classes, SysUtils, DrawMethod, FastBitmap, IntfGraphics, Graphics, Controls; 9 7 10 8 type … … 42 40 begin 43 41 TempIntfImage.Free; 44 inherited Destroy;42 inherited; 45 43 end; 46 44 … … 57 55 end; 58 56 59 60 57 end. 61 58 -
GraphicTest/Methods/MethodMove.pas
r572 r573 1 unit UMethodMove; 2 3 {$mode delphi} 1 unit MethodMove; 4 2 5 3 interface 6 4 7 5 uses 8 LCLIntf, LCLType, Classes, SysUtils, UDrawMethod, UFastBitmap, Controls, Graphics;6 LCLIntf, LCLType, Classes, SysUtils, DrawMethod, FastBitmap, Controls, Graphics; 9 7 10 8 type … … 27 25 constructor TMethodMove.Create; 28 26 begin 29 inherited Create;27 inherited; 30 28 FastBitmap2 := TFastBitmap.Create; 31 29 Caption := 'Move'; … … 37 35 begin 38 36 FreeAndNil(FastBitmap2); 39 inherited Destroy;37 inherited; 40 38 end; 41 39 … … 49 47 procedure TMethodMove.UpdateSettings; 50 48 begin 51 inherited UpdateSettings;49 inherited; 52 50 end; 53 51 … … 60 58 end; 61 59 62 63 60 end. 64 61 -
GraphicTest/Methods/MethodOpenGL.pas
r572 r573 1 unit UMethodOpenGL; 2 3 {$mode delphi} 1 unit MethodOpenGL; 4 2 5 3 interface 6 4 7 5 uses 8 Classes, SysUtils, UDrawMethod, UFastBitmap6 Classes, SysUtils, DrawMethod, FastBitmap 9 7 {$IFDEF OPENGL}, GL, GLExt, OpenGLContext{$ENDIF}; 10 8 … … 18 16 procedure DrawFrame(FastBitmap: TFastBitmap); override; 19 17 end; 20 18 {$ENDIF} 21 19 22 20 … … 28 26 constructor TMethodOpenGL.Create; 29 27 begin 30 inherited Create;28 inherited; 31 29 Caption := 'OpenGL'; 32 30 PaintObject := poOpenGL; … … 37 35 destructor TMethodOpenGL.Destroy; 38 36 begin 39 inherited Destroy;37 inherited; 40 38 end; 41 39 -
GraphicTest/Methods/MethodOpenGLPBO.pas
r572 r573 1 unit UMethodOpenGLPBO; 2 3 {$mode delphi} 1 unit MethodOpenGLPBO; 4 2 5 3 interface 6 4 7 5 uses 8 Classes, SysUtils, UDrawMethod, UFastBitmap, Controls, Graphics6 Classes, SysUtils, DrawMethod, FastBitmap, Controls, Graphics 9 7 {$IFDEF OPENGL}, GL, GLExt, OpenGLContext{$ENDIF}; 10 8 … … 63 61 constructor TMethodOpenGLPBO.Create; 64 62 begin 65 inherited Create;63 inherited; 66 64 Caption := 'OpenGL PBO'; 67 65 PaintObject := poOpenGL; … … 75 73 destructor TMethodOpenGLPBO.Destroy; 76 74 begin 77 inherited Destroy;75 inherited; 78 76 end; 79 77 -
GraphicTest/Packages/bgrabitmap/bgrautf8.pas
r521 r573 7 7 8 8 uses 9 Classes, SysUtils, BGRAUnicode{$IFDEF BGRABITMAP_USE_LCL}, laz utf8classes{$ENDIF};9 Classes, SysUtils, BGRAUnicode{$IFDEF BGRABITMAP_USE_LCL}, lazclasses{$ENDIF}; 10 10 11 11 {$IFDEF BGRABITMAP_USE_LCL} 12 12 type 13 TFileStreamUTF8 = lazutf8classes.TFileStreamUTF8;14 TStringListUTF8 = lazutf8classes.TStringListUTF8;13 TFileStreamUTF8 = TFileStream; 14 TStringListUTF8 = TStringList; 15 15 {$ELSE} 16 16 type … … 105 105 procedure LoadStringsFromFileUTF8(List: TStrings; const FileName: string); 106 106 begin 107 lazutf8classes.LoadStringsFromFileUTF8(List,FileName);107 LoadStringsFromFileUTF8(List,FileName); 108 108 end; 109 109 110 110 procedure SaveStringsToFileUTF8(List: TStrings; const FileName: string); 111 111 begin 112 lazutf8classes.SaveStringsToFileUTF8(List,FileName);112 SaveStringsToFileUTF8(List,FileName); 113 113 end; 114 114 -
GraphicTest/Packages/bgracontrols/bgrapanel.pas
r452 r573 244 244 procedure TBGRAPanel.FontChanged(Sender: TObject); 245 245 begin 246 inherited FontChanged(Sender);246 inherited; 247 247 Changed; 248 248 Invalidate; … … 344 344 procedure TBGRAPanel.Resize; 345 345 begin 346 inherited Resize;346 inherited; 347 347 if FBGRA <> nil then 348 348 PrepareBGRA; 349 349 end; 350 350 351 procedure TBGRAPanel.SetEnabled(Value: boolean);352 begin 353 inherited SetEnabled(Value);351 procedure TBGRAPanel.SetEnabled(Value: Boolean); 352 begin 353 inherited; 354 354 Changed; 355 355 end; -
GraphicTest/Platform.pas
r572 r573 1 unit UPlatform; 2 3 {$mode delphi}{$H+} 1 unit Platform; 4 2 5 3 interface … … 71 69 finalization 72 70 73 NowPreciseLock.Free;71 FreeAndNil(NowPreciseLock); 74 72 75 73 end.
Note:
See TracChangeset
for help on using the changeset viewer.