Watch, Follow, &
Connect with Us

For forums, blogs and more please visit our
Developer Tools Community.


Welcome, Guest
Guest Settings
Help

Thread: Bitmap flips after SaveToFile



Permlink Replies: 0
Rael Bauer

Posts: 228
Registered: 10/10/02
Bitmap flips after SaveToFile
Click to report abuse...   Click to reply to this thread Reply
  Posted: Feb 5, 2018 10:08 AM
procedure TForm1.Button2Click(Sender: TObject);
var
Bmp: TBitmap;
begin
Bmp := TBitmap.Create;
bmp.LoadFromFile(ExtractFilePath(Application.ExeName)+'small.bmp');
bmp.SaveToFile(ExtractFilePath(Application.ExeName)+'_test.bmp');
bmp.LoadFromFile(ExtractFilePath(Application.ExeName)+'_test.bmp');
Image1.Picture.Graphic := bmp;
Bmp.Free;
end;

Bitmap ends up upside down in Image1.

Using Delphi XE4.

Any ideas?

-Rael
Legend
Helpful Answer (5 pts)
Correct Answer (10 pts)

Server Response from: ETNAJIVE02