اندازه نمایش فرم ها و فونتها

[e_q_sun]

با سلام
چطور میشه کاری کرد که اندازه فرمها و فونتها در تمام سیستم ها یی که آن برنامه اجرا میشه یکی بمونه

[behzad_dr]

دوست عزیز من .

تعییر اندازه فرمها و فونت ها ناشی از تعییر resolution تصویر است .. و برای اینکه برنامه اجرایی شما (فرم هایش)در هر سیستمی که باز می شود یه سایز باشد باید در ابتدای برنامه کدی بنویسی که قبل از اجرا برنامه resolution تصویر دستگاه عوض شود و به 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;


و این کد رو توی formcreate فرم اول بنویسی بهتره


OldWidth := GetSystemMetrics(SM_CXSCREEN);
OldHeight := GetSystemMetrics(SM_CYSCREEN);
SetScreenResolution(1024,768);

و توی formclose فرم اول هم از این کد استفاده کن :


SetScreenResolution(OldWidth,oldHeight);


ضمنا OldWidth و OldHeight هر دو integer تعریف کن .

ضمن اینکه باید توجه داشته باشید اکنون تصویرتون به 1024*768 تغییر کرد .
امیدوارم سوالتون رو درست متوجه شده باشم و درست پاسخ داده باشم .