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

नीचे

क्लाइंट साइड पर BITMAP फॉर्म कैसे बनाएं (कैनवास नहीं)। इसी तरह की शाखाएँ खोजें


xn0bys   (2003-08-29 08:23) [0]

Мне нужно добраться до scanlines не используя временный битмап.

У меня есть вот что:

procedure OnPaint;
Var
Temp:TBitmap;
begin
Temp:=TBitmap.Create;
Temp.Width:=ClientWidth;
Temp.Height:=ClientHeight;
...
здесь рисую на временном битмапе (через сканлайны)
...
Canvas.Draw(0,0,Temp);
Temp.free;
end;


А нужно чтоб не использовать Temp.
मैंने यह कोशिश की:

procedure OnPaint;
Var
DC1, DC2: HDC;
Temp : TBitmap;
begin
Temp:=TBitmap.Create;
DC1:=CreateCompatibleDC(Canvas.Handle);
DC2:=CreateCompatibleBitmap(Canvas.Handle, nil, nil, nil);
Temp.Handle:=DC2;
...
здесь рисую на временном битмапе (через сканлайны)
...
DeleteDC(DC2);
DeleteDC(DC1);
Temp.free;
end;


Так работает быстрее, но почему-то не рисует (ошибки не выдает).
Может я чего не то делаю? Подскажите.

अग्रिम धन्यवाद !!!



mrAld   (2003-08-29 12:31) [1]

Во втором коде что-то мне подсказывает, что ты забыл забыл привязать DC2 к DC1. Сам посуди, DC1 в этом коде не используется.



xn0bys   (2003-08-29 12:49) [2]

Всё равно не рисует!



Крот   (2003-09-02 10:22) [3]

1. Почему значение, возвращаемое CreateCompabliteBitmap ты помещаешь в переменную типа HDC, ведь возвращается HBITMAP?

2. Где собственно код рисования (в первом примере это Canvas.Draw, а во втором?)



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

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

ऊपर





मेमोरी: 0.55 एमबी
समय: 0.029 c
4-12214
_san_
2003-10-14 10:28
2004.01.05
क्षतिग्रस्त फ़ाइल की प्रतिलिपि कैसे करें


4-12204
एक्स-दिसा
2003-11-04 15:23
2004.01.05
खिड़कियां


7-12183
Ъ
2003-10-25 20:17
2004.01.05
RunServices


7-12185
चतुर
2003-10-24 18:05
2004.01.05
फ़ोल्डर पथ


4-12207
Diman
2003-11-04 08:30
2004.01.05
अदृश्य कंसोल बनाएं





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