Changeset 487 for trunk/Packages/DpiControls/Dpi.Graphics.pas
- Timestamp:
- Dec 8, 2023, 11:39:45 PM (5 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Packages/DpiControls/Dpi.Graphics.pas
r477 r487 270 270 procedure ScreenChanged; override; 271 271 public 272 procedure Assign(Source: TPersistent); override; 272 273 procedure SetSize(AWidth, AHeight: Integer); override; 273 274 end; … … 293 294 constructor Create; override; 294 295 destructor Destroy; override; 295 procedure Assign(Source: TPersistent); override;296 296 property ScanLine[Row: Integer]: Pointer read GetScanLine; 297 297 published … … 418 418 end; 419 419 420 procedure TCustomBitmap.Assign(Source: TPersistent); 421 begin 422 if Source is TCustomBitmap then begin 423 GetNativeCustomBitmap.Assign(TCustomBitmap(Source).GetNativeCustomBitmap); 424 FWidth := TCustomBitmap(Source).FWidth; 425 FHeight := TCustomBitmap(Source).FHeight 426 end else inherited; 427 end; 428 420 429 procedure TCustomBitmap.SetSize(AWidth, AHeight: Integer); 421 430 begin … … 691 700 //Exit; 692 701 Dst.BeginUpdate; 693 SrcPtr := PixelPointer(Src, 0, 0);694 DstPtr := PixelPointer(Dst, 0, 0);702 SrcPtr := TPixelPointer.Create(Src, 0, 0); 703 DstPtr := TPixelPointer.Create(Dst, 0, 0); 695 704 {for yy := 0 to Dst.Height - 1 do begin 696 705 for xx := 0 to Dst.Width - 1 do begin … … 841 850 end; 842 851 843 procedure TBitmap.Assign(Source: TPersistent);844 begin845 if Source is TBitmap then begin846 GetNativeBitmap.Assign((Source as TBitmap).GetNativeBitmap);847 end else inherited;848 end;849 850 852 { TPen } 851 853
Note:
See TracChangeset
for help on using the changeset viewer.