تحكم البرنامج في اعدادات الشاشة

أنصحك بملائمة برنامجك ليقبل إعدادات الشاشات المختلفة . (أضبط جيدا خصائص align لجميع العناصر .. وتأكد من وجود عنصر على الأقل alclient "هذا هو الذي سيكبر مع تغيير حجم الفورم أو دقة الشاشة" )

لكن على كل حال هذة شفرة تغيير دقة الشاشة .. (مشكلة تغيير دقة الشاشه أنها تأخذ وقت . وتسود الشاشه قليلا (تغب) قبل تطبيق الإعدادات .. وهذة الطريقة تستخدم عادة في الألعاب ثلاثية الأبعاد .. حيث تشعرين بفترة التحويل ) :

procedure TForm1.setscreen(width, hight, deep, Hz: integer);

var OldVal: _devicemodeA;

begin


  while EnumDisplaySettings(nil, i, OldVal) do
  begin

    if OldVal.dmPelsWidth = width then
      if OldVal.dmPelsHeight = hight then
        if OldVal.dmBitsPerPel = deep then
          if OldVal.dmDisplayFrequency = Hz then begin
            if EnumDisplaySettings(nil, i, OldVal) then
              ChangeDisplaySettings(OldVal, 0);
            break;
          end;
    I := I + 1;
  end;
end;

ثم للإستدعاء بإمكانك :

public :
 dsWidth, dsHeight, dsBPP, dsHz: integer;
.
.
.

DC := GetDC(0);

  dsWidth := GetDeviceCaps(DC, HORZRES);

  dsHeight := GetDeviceCaps(DC, VERTRES);

  dsBPP := GetDeviceCaps(DC, BITSPIXEL);
  dsHz := GetDeviceCaps(DC, VREFRESH);




  setscreen(800, 600, 16, 70);

وعند إغلاتق البرنامج بإعادة الإعدادات كما كانت :

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin

  setscreen(dsWidth, dsHeight, dsBPP, dsHz);
end;

بارك الله فيك اخي عروة

اشكرك اخي عروة

ابو محمد

الأخ العزيز / عرة

ممكن ترفق مثال بهذا الكود حتى يتم تحميلة , حيث انني اردت تطبيق هذا الكود و لكن لم يشتغل معي .

أرجوا منك الرد سريعا.

وألف شكر على مجهوداتك و ما تقدمة لهذا المنتدى الرائع

اخوك / خالد