Gerar Imagem

[Guest Iuri]

Olá, gostaria de saber como eu faço para gerar uma imagem em branco, de preferência em bitmap. Pretendo gerar uma só para resolver o problema citado no meu outro tópico e aí eu apago logo depois. Valeu!

[Micheus]

Se o outro post realmente não ajudou, então...

function CreateClearBitMap(aWidth, aHeight :Integer) :TBitMap;
begin
  Result := TBitmap.Create;
  with Result do
  begin
    Width := aWidth;
    Height := aHeight;
    Canvas.Lock;
    Canvas.FillRect(Rect(0, 0, aWidth-1, aHeight -1));
    Canvas.Unlock;
  end;
end;