Czesc
Dlaczego nie chce mi rysować tej bmp (komenda Draw), jezeli mam procedure:
procedure TForm1.Button2Click(Sender: TObject);
var
Bat : TBitmap;
begin
Bat := TBitmap.Create;
Bat.Height:=192;
Bat.Width:=192;
Bat.Canvas.Brush.Color := colors[kol];
Bat.Canvas.Pen.Color := colors[kol];
Bat.Canvas.Polygon([Point(x1, y1), Point(x2, y2), Point(x3, y3)]);
Canvas.Draw(0,0, Bat); // i tutaj jest problem
end;
Jezeli zamiast Bat.Canvas.Polygon uzyje Bat.Canvas.Pixel to wszystko jest OK.
</b>