تغییر فضای صفحه [بایگانی]

ehsan_ansaripoor

شنبه 30 مهر 1384, 19:21 عصر

با سلام به همه دوستان
می خواستم ببینم برای تغییر صفحه کاری مثلا به 800 و 600 دستوری وجود داره که این کار را به راحتی انجام بده

mzjahromi

شنبه 30 مهر 1384, 19:53 عصر

تو همین ساثت هستش با این حال

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;

ehsan_ansaripoor

یک شنبه 01 آبان 1384, 20:32 عصر

با تشکر از شما دوست عزیز