PDA

View Full Version : تغییر Resolution صفحه نمایش



SReza1
چهارشنبه 02 مهر 1382, 11:29 صبح
سلام
چطور میتونم resoltion را به 640*480 تنظیم کنم! یعنی هر وقت برنامم اجرا شه تغییر rESOLTIO بدم
ممنون


عنوان این بحث توسط کاربر DELPHIAREA تغییر داده شد.

(امید)
چهارشنبه 02 مهر 1382, 12:04 عصر
SetResolution(x,y);

SReza1
چهارشنبه 02 مهر 1382, 12:17 عصر
باید چه چیزی رو use کنیم تا این دستور کار کنه
در کدوم دلفی ها کار میکنه؟

Mashatan
چهارشنبه 02 مهر 1382, 15:49 عصر
برای این کار میتونی از ChangeDisplaySettings استفاده کنی
توی Help دلفی کامل توضیح داده
ارادتمند مشاطان

(امید)
چهارشنبه 02 مهر 1382, 16:47 عصر
با سلام
من تو دلفی 5 با اون کد کار می کنم .یونیتی هم لازم به یوزز کردن نبود.

SReza1
سه شنبه 08 مهر 1382, 22:27 عصر
اینم جواب :lol:
procedure TForm1.Button1Click(Sender: TObject);
Var DM : DEVMODE;
begin
DM.dmSize := Sizeof(DEVMODE);
DM.dmPelsWidth := 640;
DM.dmPelsHeight := 480;
DM.dmBitsPerPel := 16;
DM.dmDisplayFlags := DM_PELSHEIGHT Or DM_PELSWIDTH Or DM_BITSPERPEL;
ChangeDisplaySettings(DM,CDS_FULLSCREEN Or CDS_UPDATEREGISTRY Or CDS_RESET);
end;


ولی آقا امید منکه تو delphi 7 نتونستم اون دستوریو که گفتی اجرا کنم!! اگه کسی تونست به منم بگه!!!
:twisted: :P :shock: :D :lol: