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

नीचे

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


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

सभी को नमस्कार! मेरी ऐसी स्थिति है। मुझे एप्लिकेशन के दौरान स्क्रीन रिज़ॉल्यूशन को बदलना होगा। ऐसा समारोह मिला:

समारोह SetResolution (चौड़ाई, ऊँचाई, रंग: पूर्णांक): बूलियन;
था
DeviceMode: TDevMode;
शुरू करना
DeviceMode के साथ
शुरू करना
dmSize: = SizeOf (DeviceMode);
dmBitsPerPel: = रंग;
dmPelsWidth: = चौड़ाई;
dmPelsHeight: = ऊँचाई;
dmFields: = DM_BITSPERPEL या DM_PELSWIDTH या DM_PELSHEIGHT;
परिणाम: = गलत;
यदि ChangeDisplaySettings (DeviceMode, CDS_TEST या CDS_FULLSCREEN) <> DISP_CHANGE_SUCCESSFUL
फिर बाहर निकलें;
परिणाम: = ChangeDisplaySettings (DeviceMode, CDS_FULLSCREEN) = DISP_CHANGE_SUCCESSFUL;
अंत;
अंत;

वह ठीक काम कर रही है। लेकिन पिछले स्क्रीन रिज़ॉल्यूशन प्रक्रिया को वापस करने के लिए
प्रक्रिया RestoreDefaultResolution;
था
डब्ल्यू: TDevMode निरपेक्ष 0;
शुरू करना
ChangeDisplaySettings (W, CDS_FULLSCREEN);
अंत;

काम नहीं करता पंक्ति W में त्रुटि फेंकता है: TDevMode निरपेक्ष 0; "चर नाम अपेक्षित"।

शायद किसी की सलाह से कोई मदद करेगा ...

PS D3 ने ठीक काम किया। और D6 में काम नहीं करता है।



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

D5 काम करता है! शायद आपके पास कुछ गड़बड़ है?
या हो सकता है कि यह निरपेक्ष डेटा प्रकार के कारण है

डब्ल्यू: TDevMode निरपेक्ष 0;



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

2Style (04.03.03 10: 15)
> या शायद यह एब्सोल्यूट डेटा टाइप के कारण है

शायद ... लेकिन इलाज के लिए कुछ के साथ? : (मैं D6 के मालिकों को सुनना चाहूंगा। वे क्या कहेंगे?



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

2 फ्रांस (04.03.03 10: 03)
मदद पर पढ़ें पूर्ण
6 डेल्फी में, पूर्ण निर्देश केवल चर के साथ काम करता है



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

2DarkGreen © (04.03.03 11: 16)
> निरपेक्ष द्वारा मदद पढ़ें
> एक्सएनयूएमएक्स डेल्फी में, पूर्ण निर्देश केवल चर के साथ काम करता है

मैंने घोषित सहायता और चर दोनों को पढ़ा ... शायद घोषित नहीं किया गया?
यहाँ मैंने क्या किया है:
प्रक्रिया RestoreDefaultResolution;
const
k = 0;
था
डब्ल्यू: TDevMode निरपेक्ष कश्मीर;
शुरू करना
ChangeDisplaySettings (W, CDS_FULLSCREEN);
अंत;

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



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

हुर्रे !!!!!! EARNED !!!!!!!!!!
सामान्य तौर पर, इसलिए किसे इसकी आवश्यकता है, ध्यान दें:

था
Form1: TForm1;
k: पूर्णांक = 0; // <--- इस जगह में हम एक चर घोषित करते हैं

कार्यान्वयन

{$ R * .dfm}

प्रक्रिया RestoreDefaultResolution;
// पिछले रिज़ॉल्यूशन को पुनर्स्थापित करें
था
डब्ल्यू: TDevMode निरपेक्ष कश्मीर;
शुरू करना
ChangeDisplaySettings (W, CDS_FULLSCREEN);
अंत;




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

जी।
यदि lpDevMode NULL है, तो वर्तमान में रजिस्ट्री में सभी मान डिस्प्ले सेटिंग के लिए उपयोग किए जाएंगे। LpDevMode पैरामीटर के लिए NULL पास करना डायनामिक मोड परिवर्तन के बाद डिफ़ॉल्ट मोड पर लौटने का सबसे आसान तरीका है।



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

2 फ्रांस (04.03.03 11: 27)
> यहाँ है कि मैंने क्या किया:
> प्रक्रिया RestoreDefaultResolution;
> कॉन्स्ट
> k = 0;
> वर

:-) क्या K वास्तव में एक चर है?



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

और यह सब इससे कितना जुड़ा हुआ है पूर्ण? आप फ़ंक्शन पास करते हैं ChangeDisplaySettings सूचक शून्य करने के लिए, और WinAPI के लिए प्रलेखन का कहना है कि उसे ज़रूरत है सूचक = नील.

इस समस्या को हल करने के दो सरल और अधिक सही तरीके हैं:

1 विधि:
// थोड़ा सा आसमा ... प्रक्रिया RestoreDefaultResolution; एएसएम CDS_FULLSCREEN पुश करें 0 को धक्का दें कॉल ChangeDisplaySettings अंत;

2 विधि:
// फ़ंक्शन को मानवीय रूप से घोषित करें समारोह ChangeDisplaySettings (lpDevMode: PDeviceMode; dwFlags: DWORD): लॉन्गिंट; stdcall; बाहरी user32 नाम "ChangeDisplaySettingsA"; // और सभी चीजें! प्रक्रिया RestoreDefaultResolution; शुरू करना ChangeDisplaySettings (nil, CDS_FULLSCREEN); अंत;



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

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

ऊपर





मेमोरी: 0.57 एमबी
समय: 0.021 c
3-413
anton2v
2003-04-11 15:59
2003.05.01
ADO जेट के माध्यम से dBase, VFoxPro से कनेक्ट करें


14-726
Tytus
2003-04-12 10:09
2003.05.01
प्रकट


14-778
अनातोली पॉडगोरेट्स्की
2003-04-03 19:30
2003.05.01
रिपोर्ट जेनरेटर रेव एक्सएनयूएमएक्स


6-664
Diablo_al
2003-03-05 17:56
2003.05.01
स्थानीय नेटवर्क पर फाइल फिर से शुरू करने में मदद करें


1-553
Masha
2003-04-21 13:05
2003.05.01
खींचें और छोड़ें





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