GUI/Maximum window dimensions: Difference between revisions
Added Delphi example
(Added Wren) |
MaiconSoft (talk | contribs) (Added Delphi example) |
||
Line 240:
Output: Maximum drawing area values: width is 1280 and height is 749.
</lang>
=={{header|Delphi}}==
{{libheader| Winapi.Windows}}
{{libheader| System.SysUtils}}
{{libheader| Vcl.Forms}}
<lang Delphi>
unit Main;
interface
uses
Winapi.Windows, System.SysUtils, Vcl.Forms;
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
var
w,h:Integer;
begin
w := Screen.Monitors[0].WorkareaRect.Width;
h := Screen.Monitors[0].WorkareaRect.Height;
Caption:= format('%d x %d',[w,h]);
SetBounds(0,0,w,h);
end;
end.</lang>
Resources from form:
<lang Delphi>object Form1: TForm1
OnCreate = FormCreate
end</lang>
=={{header|EGL}}==
| |||