घर
Top.Mail.Ru Yandeks.Metrika
फोरम: "विनएपीआई";
वर्तमान संग्रह: 2003.05.01;
डाउनलोड करें: [xml.tar.bz2];

नीचे

स्क्रीन संकल्प इसी तरह की शाखाएँ खोजें


France   (2003-03-04 10:03) [0]

Всем привет! У меня такая ситуация. Мне нужно в процессе работы приложения поменять разрешение экрана. Нашел такую функцию:

function SetResolution(Width,Height,Color:integer):Boolean;
था
DeviceMode : TDevMode;
शुरू करना
DeviceMode के साथ
शुरू करना
dmSize: = SizeOf (DeviceMode);
dmBitsPerPel:=Color;
dmPelsWidth:=Width;
dmPelsHeight:=Height;
dmFields:=DM_BITSPERPEL or DM_PELSWIDTH or DM_PELSHEIGHT;
परिणाम: = गलत;
यदि ChangeDisplaySettings (DeviceMode, CDS_TEST या CDS_FULLSCREEN) <> DISP_CHANGE_SUCCESSFUL
फिर बाहर निकलें;
परिणाम: = ChangeDisplaySettings (DeviceMode, CDS_FULLSCREEN) = DISP_CHANGE_SUCCESSFUL;
अंत;
अंत;

Она работает нормально. Но вернуть прежнее разрешение экрана процедурой
procedure RestoreDefaultResolution;
था
W : TDevMode absolute 0;
शुरू करना
ChangeDisplaySettings( W, CDS_FULLSCREEN);
अंत;

никак не получается. Выдает ошибку в строке W : TDevMode absolute 0; "Variable name expected".

Может, кто советом каким поможет...

P.S. В D3 работало нормально. А в D6 не работает.



Style   (2003-03-04 10:15) [1]

В D5 работает! может у тебя какой глюк?
А можеть это из-за типа данных Absolute

W : TDevMode absolute 0;



France   (2003-03-04 10:21) [2]

2Style (04.03.03 10:15)
> А можеть это из-за типа данных Absolute

Может... А лечить-то чем? :(( Хотелось бы услышать владельцев D6. Что они скажут?



DarkGreen   (2003-03-04 11:16) [3]

2 France (04.03.03 10:03)
Почитай хелп по पूर्ण
В 6 делфях директива absolute работает только с переменными



France   (2003-03-04 11:27) [4]

2DarkGreen © (04.03.03 11:16)
> Почитай хелп по absolute
> В 6 делфях директива absolute работает только с переменными

Читал и помощь и переменные объявлял... Может не так объявлял?
Вот что я делал:
procedure RestoreDefaultResolution;
const
k = 0;
था
W : TDevMode absolute k;
शुरू करना
ChangeDisplaySettings( W, CDS_FULLSCREEN);
अंत;

यह मदद नहीं की ...



France   (2003-03-04 11:33) [5]

УРА!!!!!! ЗАРАБОТАЛО!!!!!!!!!!
Вообщем так, кому надо, берите на заметку:

था
Form1: TForm1;
k : integer = 0; // <--- в этом месте объявляем переменную

कार्यान्वयन

{$ R * .dfm}

procedure RestoreDefaultResolution;
//восстанавливаем прежнее разрешение
था
W : TDevMode absolute k;
शुरू करना
ChangeDisplaySettings( W, CDS_FULLSCREEN);
अंत;




cobalt   (2003-03-04 12:13) [6]

जी।
If lpDevMode is NULL, all the values currently in the registry will be used for the display setting. Passing NULL for the lpDevMode parameter is the easiest way to return to the default mode after a dynamic mode change.



DarkGreen   (2003-03-04 13:15) [7]

2 France (04.03.03 11:27)
> Вот что я делал:
> procedure RestoreDefaultResolution;
> कॉन्स्ट
> k = 0;
> वर

:-) А разве К - переменная?



theodor_iv   (2003-03-04 18:34) [8]

А что это все так прицепились к этому पूर्ण? Вы передаете функции ChangeDisplaySettings указатель на ноль, а документация к WinAPI говорит, что ей нужен указатель = nil.

Вот два более простых и корректных способа решения этой проблемы:

1 विधि:

//немножко асма...
procedure RestoreDefaultResolution;
asm
push CDS_FULLSCREEN
push 0
call ChangeDisplaySettings
end;


2 विधि:

// объявим функцию по-человечески
function ChangeDisplaySettings(lpDevMode: PDeviceMode; dwFlags: DWORD): Longint; stdcall; external user32 name "ChangeDisplaySettingsA";
// и все дела!
procedure RestoreDefaultResolution;
begin
ChangeDisplaySettings(nil, CDS_FULLSCREEN);
end;




पन्ने: 1 पूरी शाखा

फोरम: "विनएपीआई";
वर्तमान संग्रह: 2003.05.01;
डाउनलोड करें: [xml.tar.bz2];

ऊपर









मेमोरी: 0.58 एमबी
समय: 0.035 c
14-683
Dr.Karter
2003-04-15 15:28
2003.05.01
एक रास्ता, और सड़क के दिन


4-826
केवीए
2003-03-03 16:45
2003.05.01
फॉर्म सिस्टम मेनू में पारदर्शी पृष्ठभूमि के साथ चित्र


3-398
v.topalov
2003-04-11 11:53
2003.05.01
अनुरोध काम नहीं करता है


1-543
tv
2003-04-21 10:58
2003.05.01
ट्री व्यू और यूनिकोड


1-630
माउस
2003-04-18 17:25
2003.05.01
अपने गैर-विज़ुअल घटक से प्रपत्र गुण कैसे बदलें





अफ्रीकी अल्बानियन अरबी भाषा अर्मेनियाई आज़रबाइजानी बस्क बेलारूसी बल्गेरियाई कैटलन सरलीकृत चीनी) चीनी पारंपरिक) क्रोएशियाई चेक डेनिश डच अंग्रेज़ी एस्तोनियावासी फिलिपिनो फिनिश फ्रेंच
गैलिशियन् जॉर्जियाई जर्मन यूनानी हाईटियन यहूदी हिंदी हंगरी आइसलैंड का इन्डोनेशियाई आयरिश इतालवी जापानी कोरियाई लात्वीयावासी लिथुआनियाई मेसीडोनियन मलायी मोलतिज़ नार्वेजियन
फ़ारसी पोलिश पुर्तगाली रोमानियाई रूसी सर्बियाई स्लोवाक स्लोवेनियाई स्पेनिश स्वाहिली स्वीडिश थाई तुर्की यूक्रेनी उर्दू वियतनामी वेल्श यहूदी बंगाली बोस्नियाई
सिबुआनो एस्पेरांतो गुजराती हौसा हमोंग ईग्बो जावानीस कन्नड़ खमेर लाओ लैटिन माओरी मराठी मंगोलियन नेपाली पंजाबी सोमाली तामिल तेलुगु योरूबा
ज़ुलु
Английский Французский Немецкий Итальянский Португальский Русский Испанский