سایت تخصصی برنامه نویسی دلفی

آيا براي فهميدن Resolation و تغيير دادن آن راه حلی وجود داره ؟

جواب:

1-     ساده ترين راه تشخيص resolution:

procedure TForm1.Button2Click(Sender: TObject);

var resx,resy:Integer;

begin

ResX:=Screen.Width;

ResY:=Screen.Height;

Label1.Caption:=IntToStr(resx);

Label2.Caption:=IntToStr(resy);

end;

2- تغيير resolution:

procedure SetResolution(ResX, ResY: DWord);

var

lDeviceMode : TDeviceMode;

begin

EnumDisplaySettings(nil, 0, lDeviceMode);

lDeviceMode.dmFields:=DM_PELSWIDTH or DM_PELSHEIGHT;

lDeviceMode.dmPelsWidth :=ResX;

lDeviceMode.dmPelsHeight:=ResY;

ChangeDisplaySettings(lDeviceMode, 0);

end;

 مثال:

procedure TForm1.Button1Click(Sender: TObject);

begin

SetResolution(800,600);

end;

موفق وسربلند باشید . 

***************************************************************