Win API рисование

[Granus]

итак
сеьезно я в апи не вникал, ибо для того что я пишу мне это не надо. единственное - это быстрое рисование, которое, как я понял, лучше всего осуществить именно через апи.
собственно вопрос:
вот эта часть кода

procedure TMainForm.Timer1Timer(Sender: TObject);
var M: HDC; x,y:integer;
begin
  MainForm.Caption:=inttostr(M);
  M:=CreateCompatibleDC(GetDC(MainForm.Handle));
  for x:=0 to 100 do
    for y:=0 to 100 do
      SetPixel(M,X,Y,0);
  BitBlt(GetDC(MainForm.Handle),0,0,100,100,M,0,0,SRCCOPY);
  DeleteDC(M);
end;

должна рисовать черный квадрат на форме. но не рисует. почему?

[Somebody]

CreateCompatibleDC

Before an application can use a memory DC for drawing operations, it must select a bitmap of the correct width and height into the DC.

На каждый GetDC должен быть ReleaseDC; получать DC формы и создавать свой DC лучше один раз в FormCreate.

[Granus]

а поконкретнее можно?

[Somebody]

var ...
  hBmp: HBITMAP;
...
hDc := CreateCompatibleDC(...);
hBmp := CreateCompatibleBitmap(hDc, <width>, <height>);
SelectObject(hDc, hBmp);
...

[Granus]

во)))
спасибо большое)

другая проблема
теперь рисунок всегда черный 0_о

var
   m,f: HDC;
   b: HBITMAP;

procedure TMainForm.FormCreate(Sender: TObject);
begin
  f:=GetDC(MainForm.Handle);
  m:=CreateCompatibleDC(f);
  b:=CreateCompatibleBitmap(m,200,200);
  SelectObject(m,b);
end;

procedure TMainForm.Timer1Timer(Sender: TObject);
var x,y:integer;
begin
  for x:=0 to 199 do
    for y:=0 to 199 do
      SetPixel(m,x,y,255);
  BitBlt(f,0,0,200,200,m,0,0,SRCCOPY);
end;

[BaronTreep]

Попробуйте так (ИМХО, с таймером TTimer БЫСТРО не получится):

var
  dc : HDC;

...
procedure TForm1.FormShow(Sender: TObject);
begin
  dc := GetDC (Handle);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
   x, y : integer;
begin
  for x:=0 to 100 do
    for y:=0 to 100 do begin
      SetPixel(dc, x, y, RGB(10,45,222));       // Цвет в RGB
      BitBlt(dc, x, y, 1, 1, dc, 0, 0, SRCCOPY);
    end;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  ReleaseDC (Handle, dc);
end;

[Somebody]

Granus, не всегда, ещё и белый может быть.
См. CreateCompatibleBitmap
BaronTreep, а что от этого могло бы измениться?

[BaronTreep]

Somebody, человек спросил про цвет, у меня (как я написал) цветной получается. Может я плохо понял? Тогда что не так?..

[Somebody]

В таком варианте и просто 255 должно так же работать - это же красный цвет, я имел в виду, что от RGB() в том коде ничего не поменяется. Там используется CreateCompatibleBitmap (так как в DC в памяти рисуется быстрее), а он согласно MSDN в таком варианте создаётся чёрно-белый.

[Granus]

а как сделать не черно-белый?