Registriert seit: 2. Aug 2003
Ort: Aschersleben
1.362 Beiträge
Delphi 5 Professional
|
Re: Bildschirmauflösung steuern?
27. Feb 2004, 20:03
pass einfach im create deiner form die größe an
raik
und zwar so
Delphi-Quellcode:
const
screenwidthdev : = 1250;
screenheigthdev: = 960;
var
x,y:integer;
begin
scaled := true;
x:= Screen.width;
y:= Screen.Height;
if(y <> ScreenHeightDev) or (x <> ScreenwidthDev) then
begin
frmMain.Height := (frmMain.ClientHeight* y div ScreenHeightDev) +
frmMain.Height- frmMain.ClientHeight;
frmMain.Width := (frmMain.ClientWidth * x div ScreenWidthDev) +
frmMain.Height - frmMain.ClientHeight;
scaleBy(x,Screenwidthdev);
end;
verhältnisse die einem nicht passen,
muss man verändern oder verlassen
|