farideh_en
چهارشنبه 03 خرداد 1385, 08:34 صبح
سلام
کسی می دونه چطور میشه صفحات برنامه تو همه resolution ها ثابت بمونه.البته این کد از سایت http://www.webrah.com پیدا کردم.این برنامه یه resolution مشخص میکنیم که برنامه با اون کار کنه .
function SetScreenResolution(Width, Height: integer): Longint; var DeviceMode: TDeviceMode; begin with DeviceMode do begin dmSize := SizeOf(TDeviceMode); dmPelsWidth := Width; dmPelsHeight := Height; dmFields := DM_PELSWIDTH or DM_PELSHEIGHT; end; Result := ChangeDisplaySettings(DeviceMode, CDS_UPDATEREGISTRY); end;
با کمک سورس کد زیر هم میشه این روتین را صدا زد :
var OldWidth, OldHeight: integer; procedure TForm1.Button1Click(Sender: TObject); begin OldWidth := GetSystemMetrics(SM_CXSCREEN); OldHeight := GetSystemMetrics(SM_CYSCREEN); SetScreenResolution(800, 600); end;
کسی می دونه چطور میشه صفحات برنامه تو همه resolution ها ثابت بمونه.البته این کد از سایت http://www.webrah.com پیدا کردم.این برنامه یه resolution مشخص میکنیم که برنامه با اون کار کنه .
function SetScreenResolution(Width, Height: integer): Longint; var DeviceMode: TDeviceMode; begin with DeviceMode do begin dmSize := SizeOf(TDeviceMode); dmPelsWidth := Width; dmPelsHeight := Height; dmFields := DM_PELSWIDTH or DM_PELSHEIGHT; end; Result := ChangeDisplaySettings(DeviceMode, CDS_UPDATEREGISTRY); end;
با کمک سورس کد زیر هم میشه این روتین را صدا زد :
var OldWidth, OldHeight: integer; procedure TForm1.Button1Click(Sender: TObject); begin OldWidth := GetSystemMetrics(SM_CXSCREEN); OldHeight := GetSystemMetrics(SM_CYSCREEN); SetScreenResolution(800, 600); end;