No correctly rendering and fade for two Bitmaps
Original Reporter info from Mantis: UlliR
-
Reporter name: Ulli Richter
Original Reporter info from Mantis: UlliR
- Reporter name: Ulli Richter
Description:
I want to port a screensaver from Delphi to Lazarus.
After some modifications i could compile the program.without errors:
But it doesnt run correctly.
So i check the code step by step
A routine used for fade over two Bitmaps make Problems..
-
The resultant Bitmap is only monochrome.
-
The Program showes it not of th desktop.
Steps to reproduce:
See the sample Code
Here is the code snip:
.
.
.
pfBmpTmp^.rgbtRed := (pfBmp1^.rgbtRed *( nStepMax - nStep)) div nStepMax +
pfBmp2^.rgbtRed * nStep div nStepMax ;
.
.
.
Self.Canvas.Draw(0,0,BmpTmp);
Inc(nStep);
See the snapshot images from Lazarus and Delphi.
After 25 Steps
Bild_Lazarus_25_Steps.jpg
Bild_Delphi_25_Steps.jpg
and the desktop
LazarusD.jpg
DelphiD:jpg
Additional information:
The same work in Deiphi wifhout errors
Mantis conversion info:
- Mantis ID: 36003
- OS: Windows
- OS Build: Home
- Build: 61665
- Platform: PC
- Version: 2.0.4