Changeset 543 for GraphicTest/UDrawMethod.pas
- Timestamp:
- May 14, 2020, 11:10:24 AM (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
GraphicTest/UDrawMethod.pas
r472 r543 7 7 uses 8 8 Classes, SysUtils, ExtCtrls, UPlatform, UFastBitmap, Graphics, Controls, 9 LCLType, IntfGraphics, fpImage, GraphType, DateUtils, 9 LCLType, IntfGraphics, fpImage, GraphType, DateUtils, Forms, 10 10 {$IFDEF OPENGL}GL, GLExt, OpenGLContext,{$ENDIF} 11 11 LclIntf; 12 12 13 13 type 14 TPaintObject = (poImage, poPaintBox, poOpenGL );14 TPaintObject = (poImage, poPaintBox, poOpenGL, poCanvas); 15 15 16 16 … … 65 65 end; 66 66 67 { TDrawMethodCanvas } 68 69 TDrawMethodCanvas = class(TDrawMethod) 70 Canvas: TCanvas; 71 procedure UpdateSettings; override; 72 procedure Init(Parent: TWinControl; Size: TPoint; PixelFormat: TPixelFormat); override; 73 procedure Done; override; 74 end; 75 67 76 {$IFDEF OPENGL} 68 77 … … 84 93 85 94 implementation 95 96 { TDrawMethodCanvas } 97 98 procedure TDrawMethodCanvas.UpdateSettings; 99 begin 100 inherited UpdateSettings; 101 end; 102 103 procedure TDrawMethodCanvas.Init(Parent: TWinControl; Size: TPoint; 104 PixelFormat: TPixelFormat); 105 begin 106 Canvas := TForm(Parent).Canvas; 107 end; 108 109 procedure TDrawMethodCanvas.Done; 110 begin 111 inherited Done; 112 end; 86 113 87 114
Note:
See TracChangeset
for help on using the changeset viewer.