घर
Top.Mail.Ru Yandeks.Metrika
मंच: "मीडिया";
वर्तमान संग्रह: 2003.09.04;
डाउनलोड करें: [xml.tar.bz2];

नीचे

बीएमपी प्रारूप इसी तरह की शाखाएँ खोजें


dronas555   (2003-05-06 12:08) [0]

Подскажите как определенную область формы(ее изображение)
записать в BMP-файл?
अग्रिम में धन्यवाद।



MBo   (2003-05-06 12:56) [1]

canvas.CopyRect



dronas555   (2003-05-06 17:08) [2]

मैं स्पष्ट करूंगा:
С помощью OpenGl нарисовал сферу ,как средствами Делфи сформировать BMP-файл,
и записать туда изображение сферы(что-то типа Render-а).



Плохой человек   (2003-05-06 18:26) [3]

Дело сводится к копированию экрана в клиентской области формы (иначе практически никак):

इकाई ScrnCap;
इंटरफेस
WinTypes, WinProcs, Forms, Classes, Graphics, Controls का उपयोग करता है;

{स्क्रीन का आयताकार क्षेत्र कॉपी करें}
समारोह कैप्चरस्क्रीनरेक्ट (एरेक्ट: टीआरटी): टीबीटैम्प;
{पूर्ण स्क्रीन कॉपी करें}
कार्य कैप्चरस्क्रीन: टीबीटैम्प;
{फार्म या तत्व के ग्राहक क्षेत्र की प्रतिलिपि बनाएँ}
समारोह कैप्चरिएंटमैज (नियंत्रण: टीसीओन्ट्रोल): टीबीटैम्प;
{एलिमेंट के पूरे फॉर्म को कॉपी करें}
फ़ंक्शन कैप्चरकंट्रोलैमेज (नियंत्रण: टीसीओन्ट्रोल): टीबीटैम्प;

{================================================= ==============}
कार्यान्वयन
फ़ंक्शन GetSystemPalette: HPalette;
था
PaletteSize : integer;
लॉगसाइज़: पूर्णांक;
लॉगपलेट: पोग्लिपेटेट;
डीसी: एचडीसी;
फोकस: HWND;
शुरू करना
परिणाम: = एक्सएनयूएमएक्स;
फोकस: = गेटफोकस;
डीसी: = गेटीडीसी (फोकस);
कोशिश
पैलेटसाइज़: = गेटडेविसैप्स (डीसी, सिज़ेप्लेट);
LogSize: = SizeOf (TLogPalette) + (पैलेटसाइज़-1) * SizeOf (TPaletteEntry);
GetMem (LogPalette, LogSize);
कोशिश
LogPalette के साथ ^ करते हैं
शुरू करना
palVersion: = $ 0300;
palNumEntries: = पैलेटसाइज़;
GetSystemPaletteEntries (DC, 0, PaletteSize, palPalEntry);
अंत;
परिणाम: = CreatePalette (LogPalette ^);
आखिरकार
FreeMem (LogPalette, LogSize);
अंत;
आखिरकार
रिलीजडीसी (फोकस, डीसी);
अंत;
अंत;


समारोह कैप्चरस्क्रीनरेक्ट (एरेक्ट: टीआरटी): टीबीटैम्प;
था
स्क्रीनडीसी: एचडीसी;
शुरू करना
परिणाम: = TBitmap.Create;
परिणाम के साथ, ARect करते हैं
चौड़ाई: = दाएं-बाएं;
ऊँचाई: = नीचे-ऊपर;
ScreenDC: = GetDC (0);
कोशिश
BitBlt (Canvas.Handle, 0,0, Width, Height, ScreenDC, Left, Top, SRCCOPY);
आखिरकार
रिलीज़डीसी (एक्सएनयूएमएक्स, स्क्रीनडीसी);
अंत;
पैलेट: = गेटसिस्टमप्लेट;
अंत;
अंत;

कार्य कैप्चरस्क्रीन: टीबीटैम्प;
शुरू करना
स्क्रीन के साथ करते हैं
परिणाम: = कैप्चरस्क्रीनस्क्रीन (रेक्ट (एक्सएनयूएमएक्स, चौड़ाई, ऊंचाई));
अंत;

समारोह कैप्चरिएंटमैज (नियंत्रण: टीसीओन्ट्रोल): टीबीटैम्प;
शुरू करना
नियंत्रण के साथ, Control.ClientOrigin करते हैं
परिणाम: = कैप्चरस्क्रीनरेक्ट (सीमाएँ (एक्स, वाई, क्लाइंटविद, क्लाइंटहाइट));
अंत;

फ़ंक्शन कैप्चरकंट्रोलैमेज (नियंत्रण: टीसीओन्ट्रोल): टीबीटैम्प;
शुरू करना
नियंत्रण के साथ करते हैं
if पेरेंट = निल तो
परिणाम: = कैप्चरस्क्रीनरेक्ट (सीमाएँ (बाएं, ऊपर, चौड़ाई, ऊँचाई))
अन्य
साथ Parent.ClientToScreen (प्वाइंट (लेफ्ट, टॉप)) करते हैं
( Bounds(X,Y,Width,Height) Дело сводится к копированию экрана в клиентской области формы (иначе практически никак):

इकाई ScrnCap;
इंटरफेस
WinTypes, WinProcs, Forms, Classes, Graphics, Controls का उपयोग करता है;

{स्क्रीन का आयताकार क्षेत्र कॉपी करें}
समारोह कैप्चरस्क्रीनरेक्ट (एरेक्ट: टीआरटी): टीबीटैम्प;
{पूर्ण स्क्रीन कॉपी करें}
कार्य कैप्चरस्क्रीन: टीबीटैम्प;
{फार्म या तत्व के ग्राहक क्षेत्र की प्रतिलिपि बनाएँ}
समारोह कैप्चरिएंटमैज (नियंत्रण: टीसीओन्ट्रोल): टीबीटैम्प;
{एलिमेंट के पूरे फॉर्म को कॉपी करें}
फ़ंक्शन कैप्चरकंट्रोलैमेज (नियंत्रण: टीसीओन्ट्रोल): टीबीटैम्प;

{================================================= ==============}
कार्यान्वयन
फ़ंक्शन GetSystemPalette: HPalette;
था
PaletteSize : integer;
लॉगसाइज़: पूर्णांक;
लॉगपलेट: पोग्लिपेटेट;
डीसी: एचडीसी;
फोकस: HWND;
शुरू करना
परिणाम: = एक्सएनयूएमएक्स;
फोकस: = गेटफोकस;
डीसी: = गेटीडीसी (फोकस);
कोशिश
पैलेटसाइज़: = गेटडेविसैप्स (डीसी, सिज़ेप्लेट);
LogSize: = SizeOf (TLogPalette) + (पैलेटसाइज़-1) * SizeOf (TPaletteEntry);
GetMem (LogPalette, LogSize);
कोशिश
LogPalette के साथ ^ करते हैं
शुरू करना
palVersion: = $ 0300;
palNumEntries: = पैलेटसाइज़;
GetSystemPaletteEntries (DC, 0, PaletteSize, palPalEntry);
अंत;
परिणाम: = CreatePalette (LogPalette ^);
आखिरकार
FreeMem (LogPalette, LogSize);
अंत;
आखिरकार
रिलीजडीसी (फोकस, डीसी);
अंत;
अंत;


समारोह कैप्चरस्क्रीनरेक्ट (एरेक्ट: टीआरटी): टीबीटैम्प;
था
स्क्रीनडीसी: एचडीसी;
शुरू करना
परिणाम: = TBitmap.Create;
परिणाम के साथ, ARect करते हैं
चौड़ाई: = दाएं-बाएं;
ऊँचाई: = नीचे-ऊपर;
ScreenDC: = GetDC (0);
कोशिश
BitBlt (Canvas.Handle, 0,0, Width, Height, ScreenDC, Left, Top, SRCCOPY);
आखिरकार
रिलीज़डीसी (एक्सएनयूएमएक्स, स्क्रीनडीसी);
अंत;
पैलेट: = गेटसिस्टमप्लेट;
अंत;
अंत;

कार्य कैप्चरस्क्रीन: टीबीटैम्प;
शुरू करना
स्क्रीन के साथ करते हैं
परिणाम: = कैप्चरस्क्रीनस्क्रीन (रेक्ट (एक्सएनयूएमएक्स, चौड़ाई, ऊंचाई));
अंत;

समारोह कैप्चरिएंटमैज (नियंत्रण: टीसीओन्ट्रोल): टीबीटैम्प;
शुरू करना
नियंत्रण के साथ, Control.ClientOrigin करते हैं
परिणाम: = कैप्चरस्क्रीनरेक्ट (सीमाएँ (एक्स, वाई, क्लाइंटविद, क्लाइंटहाइट));
अंत;

फ़ंक्शन कैप्चरकंट्रोलैमेज (नियंत्रण: टीसीओन्ट्रोल): टीबीटैम्प;
शुरू करना
नियंत्रण के साथ करते हैं
if पेरेंट = निल तो
परिणाम: = कैप्चरस्क्रीनरेक्ट (सीमाएँ (बाएं, ऊपर, चौड़ाई, ऊँचाई))
अन्य
साथ Parent.ClientToScreen (प्वाइंट (लेफ्ट, टॉप)) करते हैं
परिणाम: = कैप्चरस्क्रीनरेक्ट (सीमाएँ (एक्स, वाई, चौड़ाई, ऊँचाई));
अंत;
समाप्त।



Плохой человек   (2003-05-06 18:27) [4]

Дело сводится к копированию экрана в клиентской области формы (иначе практически никак):

इकाई ScrnCap;
इंटरफेस
WinTypes, WinProcs, Forms, Classes, Graphics, Controls का उपयोग करता है;

{स्क्रीन का आयताकार क्षेत्र कॉपी करें}
समारोह कैप्चरस्क्रीनरेक्ट (एरेक्ट: टीआरटी): टीबीटैम्प;
{पूर्ण स्क्रीन कॉपी करें}
कार्य कैप्चरस्क्रीन: टीबीटैम्प;
{फार्म या तत्व के ग्राहक क्षेत्र की प्रतिलिपि बनाएँ}
समारोह कैप्चरिएंटमैज (नियंत्रण: टीसीओन्ट्रोल): टीबीटैम्प;
{एलिमेंट के पूरे फॉर्म को कॉपी करें}
फ़ंक्शन कैप्चरकंट्रोलैमेज (नियंत्रण: टीसीओन्ट्रोल): टीबीटैम्प;

{================================================= ==============}
कार्यान्वयन
फ़ंक्शन GetSystemPalette: HPalette;
था
PaletteSize : integer;
लॉगसाइज़: पूर्णांक;
लॉगपलेट: पोग्लिपेटेट;
डीसी: एचडीसी;
फोकस: HWND;
शुरू करना
परिणाम: = एक्सएनयूएमएक्स;
फोकस: = गेटफोकस;
डीसी: = गेटीडीसी (फोकस);
कोशिश
पैलेटसाइज़: = गेटडेविसैप्स (डीसी, सिज़ेप्लेट);
LogSize: = SizeOf (TLogPalette) + (पैलेटसाइज़-1) * SizeOf (TPaletteEntry);
GetMem (LogPalette, LogSize);
कोशिश
LogPalette के साथ ^ करते हैं
शुरू करना
palVersion: = $ 0300;
palNumEntries: = पैलेटसाइज़;
GetSystemPaletteEntries (DC, 0, PaletteSize, palPalEntry);
अंत;
परिणाम: = CreatePalette (LogPalette ^);
आखिरकार
FreeMem (LogPalette, LogSize);
अंत;
आखिरकार
रिलीजडीसी (फोकस, डीसी);
अंत;
अंत;


समारोह कैप्चरस्क्रीनरेक्ट (एरेक्ट: टीआरटी): टीबीटैम्प;
था
स्क्रीनडीसी: एचडीसी;
शुरू करना
परिणाम: = TBitmap.Create;
परिणाम के साथ, ARect करते हैं
चौड़ाई: = दाएं-बाएं;
ऊँचाई: = नीचे-ऊपर;
ScreenDC: = GetDC (0);
कोशिश
BitBlt (Canvas.Handle, 0,0, Width, Height, ScreenDC, Left, Top, SRCCOPY);
आखिरकार
रिलीज़डीसी (एक्सएनयूएमएक्स, स्क्रीनडीसी);
अंत;
पैलेट: = गेटसिस्टमप्लेट;
अंत;
अंत;

कार्य कैप्चरस्क्रीन: टीबीटैम्प;
शुरू करना
स्क्रीन के साथ करते हैं
परिणाम: = कैप्चरस्क्रीनस्क्रीन (रेक्ट (एक्सएनयूएमएक्स, चौड़ाई, ऊंचाई));
अंत;

समारोह कैप्चरिएंटमैज (नियंत्रण: टीसीओन्ट्रोल): टीबीटैम्प;
शुरू करना
नियंत्रण के साथ, Control.ClientOrigin करते हैं
परिणाम: = कैप्चरस्क्रीनरेक्ट (सीमाएँ (एक्स, वाई, क्लाइंटविद, क्लाइंटहाइट));
अंत;

फ़ंक्शन कैप्चरकंट्रोलैमेज (नियंत्रण: टीसीओन्ट्रोल): टीबीटैम्प;
शुरू करना
नियंत्रण के साथ करते हैं
if पेरेंट = निल तो
परिणाम: = कैप्चरस्क्रीनरेक्ट (सीमाएँ (बाएं, ऊपर, चौड़ाई, ऊँचाई))
अन्य
साथ Parent.ClientToScreen (प्वाइंट (लेफ्ट, टॉप)) करते हैं
( Bounds(X,Y,Width,Height) Дело сводится к копированию экрана в клиентской области формы (иначе практически никак):

इकाई ScrnCap;
इंटरफेस
WinTypes, WinProcs, Forms, Classes, Graphics, Controls का उपयोग करता है;

{स्क्रीन का आयताकार क्षेत्र कॉपी करें}
समारोह कैप्चरस्क्रीनरेक्ट (एरेक्ट: टीआरटी): टीबीटैम्प;
{पूर्ण स्क्रीन कॉपी करें}
कार्य कैप्चरस्क्रीन: टीबीटैम्प;
{फार्म या तत्व के ग्राहक क्षेत्र की प्रतिलिपि बनाएँ}
समारोह कैप्चरिएंटमैज (नियंत्रण: टीसीओन्ट्रोल): टीबीटैम्प;
{एलिमेंट के पूरे फॉर्म को कॉपी करें}
फ़ंक्शन कैप्चरकंट्रोलैमेज (नियंत्रण: टीसीओन्ट्रोल): टीबीटैम्प;

{================================================= ==============}
कार्यान्वयन
फ़ंक्शन GetSystemPalette: HPalette;
था
PaletteSize : integer;
लॉगसाइज़: पूर्णांक;
लॉगपलेट: पोग्लिपेटेट;
डीसी: एचडीसी;
फोकस: HWND;
शुरू करना
परिणाम: = एक्सएनयूएमएक्स;
फोकस: = गेटफोकस;
डीसी: = गेटीडीसी (फोकस);
कोशिश
पैलेटसाइज़: = गेटडेविसैप्स (डीसी, सिज़ेप्लेट);
LogSize: = SizeOf (TLogPalette) + (पैलेटसाइज़-1) * SizeOf (TPaletteEntry);
GetMem (LogPalette, LogSize);
कोशिश
LogPalette के साथ ^ करते हैं
शुरू करना
palVersion: = $ 0300;
palNumEntries: = पैलेटसाइज़;
GetSystemPaletteEntries (DC, 0, PaletteSize, palPalEntry);
अंत;
परिणाम: = CreatePalette (LogPalette ^);
आखिरकार
FreeMem (LogPalette, LogSize);
अंत;
आखिरकार
रिलीजडीसी (फोकस, डीसी);
अंत;
अंत;


समारोह कैप्चरस्क्रीनरेक्ट (एरेक्ट: टीआरटी): टीबीटैम्प;
था
स्क्रीनडीसी: एचडीसी;
शुरू करना
परिणाम: = TBitmap.Create;
परिणाम के साथ, ARect करते हैं
चौड़ाई: = दाएं-बाएं;
ऊँचाई: = नीचे-ऊपर;
ScreenDC: = GetDC (0);
कोशिश
BitBlt (Canvas.Handle, 0,0, Width, Height, ScreenDC, Left, Top, SRCCOPY);
आखिरकार
रिलीज़डीसी (एक्सएनयूएमएक्स, स्क्रीनडीसी);
अंत;
पैलेट: = गेटसिस्टमप्लेट;
अंत;
अंत;

कार्य कैप्चरस्क्रीन: टीबीटैम्प;
शुरू करना
स्क्रीन के साथ करते हैं
परिणाम: = कैप्चरस्क्रीनस्क्रीन (रेक्ट (एक्सएनयूएमएक्स, चौड़ाई, ऊंचाई));
अंत;

समारोह कैप्चरिएंटमैज (नियंत्रण: टीसीओन्ट्रोल): टीबीटैम्प;
शुरू करना
नियंत्रण के साथ, Control.ClientOrigin करते हैं
परिणाम: = कैप्चरस्क्रीनरेक्ट (सीमाएँ (एक्स, वाई, क्लाइंटविद, क्लाइंटहाइट));
अंत;

फ़ंक्शन कैप्चरकंट्रोलैमेज (नियंत्रण: टीसीओन्ट्रोल): टीबीटैम्प;
शुरू करना
नियंत्रण के साथ करते हैं
if पेरेंट = निल तो
परिणाम: = कैप्चरस्क्रीनरेक्ट (सीमाएँ (बाएं, ऊपर, चौड़ाई, ऊँचाई))
अन्य
साथ Parent.ClientToScreen (प्वाइंट (लेफ्ट, टॉप)) करते हैं
परिणाम: = कैप्चरस्क्रीनरेक्ट (सीमाएँ (एक्स, वाई, चौड़ाई, ऊँचाई));
अंत;
समाप्त।



Плохой человек   (2003-05-06 18:27) [5]

Дело сводится к копированию экрана в клиентской области формы (иначе практически никак):

इकाई ScrnCap;
इंटरफेस
WinTypes, WinProcs, Forms, Classes, Graphics, Controls का उपयोग करता है;

{स्क्रीन का आयताकार क्षेत्र कॉपी करें}
समारोह कैप्चरस्क्रीनरेक्ट (एरेक्ट: टीआरटी): टीबीटैम्प;
{पूर्ण स्क्रीन कॉपी करें}
कार्य कैप्चरस्क्रीन: टीबीटैम्प;
{फार्म या तत्व के ग्राहक क्षेत्र की प्रतिलिपि बनाएँ}
समारोह कैप्चरिएंटमैज (नियंत्रण: टीसीओन्ट्रोल): टीबीटैम्प;
{एलिमेंट के पूरे फॉर्म को कॉपी करें}
फ़ंक्शन कैप्चरकंट्रोलैमेज (नियंत्रण: टीसीओन्ट्रोल): टीबीटैम्प;

{================================================= ==============}
कार्यान्वयन
फ़ंक्शन GetSystemPalette: HPalette;
था
PaletteSize : integer;
लॉगसाइज़: पूर्णांक;
लॉगपलेट: पोग्लिपेटेट;
डीसी: एचडीसी;
फोकस: HWND;
शुरू करना
परिणाम: = एक्सएनयूएमएक्स;
फोकस: = गेटफोकस;
डीसी: = गेटीडीसी (फोकस);
कोशिश
पैलेटसाइज़: = गेटडेविसैप्स (डीसी, सिज़ेप्लेट);
LogSize: = SizeOf (TLogPalette) + (पैलेटसाइज़-1) * SizeOf (TPaletteEntry);
GetMem (LogPalette, LogSize);
कोशिश
LogPalette के साथ ^ करते हैं
शुरू करना
palVersion: = $ 0300;
palNumEntries: = पैलेटसाइज़;
GetSystemPaletteEntries (DC, 0, PaletteSize, palPalEntry);
अंत;
परिणाम: = CreatePalette (LogPalette ^);
आखिरकार
FreeMem (LogPalette, LogSize);
अंत;
आखिरकार
रिलीजडीसी (फोकस, डीसी);
अंत;
अंत;


समारोह कैप्चरस्क्रीनरेक्ट (एरेक्ट: टीआरटी): टीबीटैम्प;
था
स्क्रीनडीसी: एचडीसी;
शुरू करना
परिणाम: = TBitmap.Create;
परिणाम के साथ, ARect करते हैं
चौड़ाई: = दाएं-बाएं;
ऊँचाई: = नीचे-ऊपर;
ScreenDC: = GetDC (0);
कोशिश
BitBlt (Canvas.Handle, 0,0, Width, Height, ScreenDC, Left, Top, SRCCOPY);
आखिरकार
रिलीज़डीसी (एक्सएनयूएमएक्स, स्क्रीनडीसी);
अंत;
पैलेट: = गेटसिस्टमप्लेट;
अंत;
अंत;

कार्य कैप्चरस्क्रीन: टीबीटैम्प;
शुरू करना
स्क्रीन के साथ करते हैं
परिणाम: = कैप्चरस्क्रीनस्क्रीन (रेक्ट (एक्सएनयूएमएक्स, चौड़ाई, ऊंचाई));
अंत;

समारोह कैप्चरिएंटमैज (नियंत्रण: टीसीओन्ट्रोल): टीबीटैम्प;
शुरू करना
नियंत्रण के साथ, Control.ClientOrigin करते हैं
परिणाम: = कैप्चरस्क्रीनरेक्ट (सीमाएँ (एक्स, वाई, क्लाइंटविद, क्लाइंटहाइट));
अंत;

फ़ंक्शन कैप्चरकंट्रोलैमेज (नियंत्रण: टीसीओन्ट्रोल): टीबीटैम्प;
शुरू करना
नियंत्रण के साथ करते हैं
if पेरेंट = निल तो
परिणाम: = कैप्चरस्क्रीनरेक्ट (सीमाएँ (बाएं, ऊपर, चौड़ाई, ऊँचाई))
अन्य
साथ Parent.ClientToScreen (प्वाइंट (लेफ्ट, टॉप)) करते हैं
( Bounds(X,Y,Width,Height) Дело сводится к копированию экрана в клиентской области формы (иначе практически никак):

इकाई ScrnCap;
इंटरफेस
WinTypes, WinProcs, Forms, Classes, Graphics, Controls का उपयोग करता है;

{स्क्रीन का आयताकार क्षेत्र कॉपी करें}
समारोह कैप्चरस्क्रीनरेक्ट (एरेक्ट: टीआरटी): टीबीटैम्प;
{पूर्ण स्क्रीन कॉपी करें}
कार्य कैप्चरस्क्रीन: टीबीटैम्प;
{फार्म या तत्व के ग्राहक क्षेत्र की प्रतिलिपि बनाएँ}
समारोह कैप्चरिएंटमैज (नियंत्रण: टीसीओन्ट्रोल): टीबीटैम्प;
{एलिमेंट के पूरे फॉर्म को कॉपी करें}
फ़ंक्शन कैप्चरकंट्रोलैमेज (नियंत्रण: टीसीओन्ट्रोल): टीबीटैम्प;

{================================================= ==============}
कार्यान्वयन
फ़ंक्शन GetSystemPalette: HPalette;
था
PaletteSize : integer;
लॉगसाइज़: पूर्णांक;
लॉगपलेट: पोग्लिपेटेट;
डीसी: एचडीसी;
फोकस: HWND;
शुरू करना
परिणाम: = एक्सएनयूएमएक्स;
फोकस: = गेटफोकस;
डीसी: = गेटीडीसी (फोकस);
कोशिश
पैलेटसाइज़: = गेटडेविसैप्स (डीसी, सिज़ेप्लेट);
LogSize: = SizeOf (TLogPalette) + (पैलेटसाइज़-1) * SizeOf (TPaletteEntry);
GetMem (LogPalette, LogSize);
कोशिश
LogPalette के साथ ^ करते हैं
शुरू करना
palVersion: = $ 0300;
palNumEntries: = पैलेटसाइज़;
GetSystemPaletteEntries (DC, 0, PaletteSize, palPalEntry);
अंत;
परिणाम: = CreatePalette (LogPalette ^);
आखिरकार
FreeMem (LogPalette, LogSize);
अंत;
आखिरकार
रिलीजडीसी (फोकस, डीसी);
अंत;
अंत;


समारोह कैप्चरस्क्रीनरेक्ट (एरेक्ट: टीआरटी): टीबीटैम्प;
था
स्क्रीनडीसी: एचडीसी;
शुरू करना
परिणाम: = TBitmap.Create;
परिणाम के साथ, ARect करते हैं
चौड़ाई: = दाएं-बाएं;
ऊँचाई: = नीचे-ऊपर;
ScreenDC: = GetDC (0);
कोशिश
BitBlt (Canvas.Handle, 0,0, Width, Height, ScreenDC, Left, Top, SRCCOPY);
आखिरकार
रिलीज़डीसी (एक्सएनयूएमएक्स, स्क्रीनडीसी);
अंत;
पैलेट: = गेटसिस्टमप्लेट;
अंत;
अंत;

कार्य कैप्चरस्क्रीन: टीबीटैम्प;
शुरू करना
स्क्रीन के साथ करते हैं
परिणाम: = कैप्चरस्क्रीनस्क्रीन (रेक्ट (एक्सएनयूएमएक्स, चौड़ाई, ऊंचाई));
अंत;

समारोह कैप्चरिएंटमैज (नियंत्रण: टीसीओन्ट्रोल): टीबीटैम्प;
शुरू करना
नियंत्रण के साथ, Control.ClientOrigin करते हैं
परिणाम: = कैप्चरस्क्रीनरेक्ट (सीमाएँ (एक्स, वाई, क्लाइंटविद, क्लाइंटहाइट));
अंत;

फ़ंक्शन कैप्चरकंट्रोलैमेज (नियंत्रण: टीसीओन्ट्रोल): टीबीटैम्प;
शुरू करना
नियंत्रण के साथ करते हैं
if पेरेंट = निल तो
परिणाम: = कैप्चरस्क्रीनरेक्ट (सीमाएँ (बाएं, ऊपर, चौड़ाई, ऊँचाई))
अन्य
साथ Parent.ClientToScreen (प्वाइंट (लेफ्ट, टॉप)) करते हैं
परिणाम: = कैप्चरस्क्रीनरेक्ट (सीमाएँ (एक्स, वाई, चौड़ाई, ऊँचाई));
अंत;
समाप्त।



Плохой человек   (2003-05-06 18:27) [6]

Дело сводится к копированию экрана в клиентской области формы (иначе практически никак):

इकाई ScrnCap;
इंटरफेस
WinTypes, WinProcs, Forms, Classes, Graphics, Controls का उपयोग करता है;

{स्क्रीन का आयताकार क्षेत्र कॉपी करें}
समारोह कैप्चरस्क्रीनरेक्ट (एरेक्ट: टीआरटी): टीबीटैम्प;
{पूर्ण स्क्रीन कॉपी करें}
कार्य कैप्चरस्क्रीन: टीबीटैम्प;
{फार्म या तत्व के ग्राहक क्षेत्र की प्रतिलिपि बनाएँ}
समारोह कैप्चरिएंटमैज (नियंत्रण: टीसीओन्ट्रोल): टीबीटैम्प;
{एलिमेंट के पूरे फॉर्म को कॉपी करें}
फ़ंक्शन कैप्चरकंट्रोलैमेज (नियंत्रण: टीसीओन्ट्रोल): टीबीटैम्प;

{================================================= ==============}



Плохой человек   (2003-05-06 18:28) [7]

Я дико извиняюсь перед модераторами, всё произошло случайно.



Дмитрий К.К.   (2003-05-07 06:20) [8]

"Не виноватаЯ Я" (с) "Бриллиантовая рука"



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

मंच: "मीडिया";
वर्तमान संग्रह: 2003.09.04;
डाउनलोड करें: [xml.tar.bz2];

ऊपर





मेमोरी: 0.61 एमबी
समय: 0.041 c
3-10572
Denkop
2003-08-14 12:46
2003.09.04
SQL कनेक्शन


14-10888
अध्ययन
2003-08-14 13:15
2003.09.04
2 प्रश्न


1-10701
ddghy
2003-08-24 17:57
2003.09.04
एक्सेल के साथ काम करने के लिए डेल्फी में घटक?


14-10886
HermitAlex
2003-08-14 15:42
2003.09.04
मोबाइल फोन संसाधन


14-10890
Ru
2003-08-18 14:58
2003.09.04
क्षेत्र की टोही।





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