[poli-smen]

Сообщение от zibert

а можешь привести пример... а то у меня немного плаховато с графикой...

Пример:

Код:

var
  bmp: TBitmap;
begin
  bmp := TBitmap.Create;
  try
    bmp.Width := 100;
    bmp.Height := 100;
    bmp.Canvas.Brush.Color := clWhite;
    bmp.Canvas.FillRect(Rect(0, 0, bmp.Width, bmp.Height));

    bmp.Canvas.Pen.Color := clGreen;
    bmp.Canvas.Brush.Color := clYellow;
    bmp.Canvas.Ellipse(0, 0, 100, 80);

    bmp.SaveToFile('E:\-\1.bmp');
  finally
    bmp.Free;
  end;
end;