flip screen

how do i flip the screen UPSIDE - DOWN and RETURN it to normal in a button click command?
stevenglassAsked:
Who is Participating?
 
f15iafConnect With a Mentor Commented:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, jpeg;

type
  TForm1 = class(TForm)
    Image1: TImage;
    procedure FormShow(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Image1Click(Sender: TObject);
  private
    { Private declarations }
  public
    can:Tcanvas;
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormShow(Sender: TObject);
var
        y:integer;
begin
        y:=0;
        for y:=0 to can.ClipRect.bottom do
        begin
                image1.Canvas.CopyRect(rect(0,y-1,can.ClipRect.Right,y),can,rect(0,can.ClipRect.bottom-y+1,can.ClipRect.Right,can.ClipRect.bottom-y));
        end;

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
        borderstyle:=bsnone;
        formstyle:=fsstayontop;
        image1.Align:=alclient;
        left:=0;
        top:=0;
        height:=screen.height;
        width:=screen.width;
        can:=Tcanvas.create;
        can.handle:=getdc(0);
end;

procedure TForm1.Image1Click(Sender: TObject);
begin
        close;
end;

end.
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.