procedure TForm1.FormCreate(Sender: TObject);
begin
writeln('startup');
writeln('top ',top,' Left ',Left,' Width ',Width,' Height ', Height);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
self.WindowState:=wsMaximized;
application.ProcessMessages; //just in case
writeln('wsMaximized');
writeln('top ',top,' Left ',Left,' Width ',Width,' Height ', Height);
writeln('ClientRect.Top ',self.ClientRect.Top,' ClientRect.Left ',ClientRect.Left,' ClientRect.Width ',self.ClientRect.Width,' ClientHeight ', self.ClientRect.Height);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
self.WindowState:=wsNormal;
application.ProcessMessages;
writeln('wsNormal');
writeln('top ',top,' Left ',Left,' Width ',Width,' Height ', Height);
writeln('ClientRect.Top ',self.ClientRect.Top,' ClientRect.Left ',ClientRect.Left,' ClientRect.Width ',self.ClientRect.Width,' ClientHeight ', self.ClientRect.Height);
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
self.WindowState:=wsfullscreen;
application.ProcessMessages;
writeln('wsfullscreen');
writeln('top ',top,' Left ',Left,' Width ',Width,' Height ', Height);
writeln('ClientRect.Top ',self.ClientRect.Top,' ClientRect.Left ',ClientRect.Left,' ClientRect.Width ',self.ClientRect.Width,' ClientHeight ', self.ClientRect.Height);
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
writeln('resised');
writeln('top ',top,' Left ',Left,' Width ',Width,' Height ', Height);
writeln('ClientRect.Top ',self.ClientRect.Top,' ClientRect.Left ',ClientRect.Left,' ClientRect.Width ',self.ClientRect.Width,' ClientHeight ', self.ClientRect.Height);
end;