Рисование на форме, используя её хэндл

[ImmortalAlexSan]

Вот код, который нужно чуть-чуть подредактировать:

procedure TForm1.FormPaint(Sender: TObject);
Var
DC:HDC;
Pen:HPEN;
begin
DC:=GetDC(Handle);
pen:=CreatePen(PS_GEOMETRIC and PS_DASH,1,RGB(255,255,255));
SelectObject(DC,pen);
Rectangle(DC,10,10,100,100);
ReleaseDC(Handle,DC);
DeleteDC(DC);
end;

Загвоздка в том, что я не знаю, как мне закрасить нарисованный примитив цветом, который нужен мне. Разобрался только в том, как работать с карандашом. По умолчанию, он заливается белым.

[ImmortalAlexSan]

Разобрался сам если кому интересно, как делать:

Var
DC:HDC;
Pen:HPEN;
Brush:HBRUSH;
LogBrush:tagLOGBRUSH;
begin
DC:=GetDC(Handle);
pen:=CreatePen(PS_GEOMETRIC and PS_DASH,1,RGB(255,255,255));
With LogBrush do begin
lbStyle:=BS_SOLID;
lbColor:=clBlack;
lbHatch:=HS_VERTICAL;
end;
brush:=CreateBrushIndirect(LogBrush);
SelectObject(DC,pen);
Rectangle(DC,10,10,100,100);
FillRect(DC,Rect(15,15,95,95),Brush);
ReleaseDC(Handle,DC);
DeleteDC(DC);
end;

brush:HBRUSH - описали кисть, LogBrush:tagLOGBRUSH; - переменная, которая хранит параметры кисти (её стиль, цвет и направление штриха)
Присвоили этим параметрам значения. brush:=CreateBrushIndirect(LogBrush ); - создали кисть. FillRect(DC,Rect(15,15,95,95),Brush ); - залили нарисованный прямоугольник цветом кисти=) Вот так вот это просто все.

[Alexei91]

DC:=GetDC(Handle);

- получение общего контекста устройства.

Form1.Canvas.Rectangle(10,20,30,40);

- использование холста (просто как 1 из способов рисования на форме).

[DomiNick]

Слегка дополню...

ReleaseDC(Handle,DC);
DeleteDC(DC);

Освобождать память это конечно же хорошо (на каждый вызов GetDC должно быть его освобождение), но насколько я знаю нужно только что-то одно - либо первое, либо второе...

А в справочнике вообще вот что говорят:

Приложение не должно удалять контекст устройства (DC), дескриптор которого был получен при помощи вызова функции GetDC. Вместо этого, оно должно вызвать функцию ReleaseDC, чтобы освободить контекст устройства (DC).