Entwickler-Ecke

Multimedia / Grafik - TBitmap ohne Grphics.pas


Delete - Do 27.06.02 13:19
Titel: TBitmap ohne Grphics.pas
JOOOOO
schon wieder ein Problem mit Cnavas usw.

Wie erstelle ich ein Bitmap, indem ich malen kann und diese dann nacher in die Form malen kann(OHNE FORMS.PAS).
TBitmap will ich nicht benutzen, die Graphics.pas mach die Datei zu groß.


mortus - Do 27.06.02 15:08

zb so:

Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
var
dc,dctmp:HDC;
bitmap:HBITMAP;
begin
     dc:=GetWindowDC(windowhandle);
     bitmap:=CreateCompatibleBitmap(dc,windowwidth,windowheight);
     dctmp:=CreateCompatibleDC(dc);
     SelectObject(dctmp,bitmap);
     Ellipse(dctmp,10,100,220,400);
     bitblt(dc,0,0,windowwidth,windowheight,dctmp,0,0,srccopy);
     DeleteDC(dctmp);
     DeleteObject(bitmap);
     ReleaseDC(windowhandle,dc);
end;