Timage

cześć
mam wczytaną bitmapę; teraz chciałbym ją programowo przesunąć w inne miejsce na TImage; teraz udaje mi się tylko wyświtlić drugą bitmapę w innym miejscu, ale tamata pozostaje.

var
Form1: TForm1;Picture:TPicture;Graphic:TGraphic;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
Canvas.Draw(0,70,picture.Graphic);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Canvas.Draw(70,0,picture.Graphic);
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
Picture:=TPicture.Create;
Picture.LoadFromFile('picture.bmp');
end;

z góry dziękuje za pomoc

cześć
mam wczytaną bitmapę; teraz chciałbym ją programowo przesunąć w inne miejsce na TImage; teraz udaje mi się tylko wyświtlić drugą bitmapę w innym miejscu, ale tamata pozostaje.

No coz..skoro chcesz to nie widzac problemu pozostaje mi zyczyc tobie powodzenia :)

oczywiście, że jest problem :-) nie wiem jak zrobić żeby ta pierwsza zniknęła; jeśli ktoś potrafi, to bardzo proszę o pomoc

Zamaluj ją wypełnionym prostokątem.

with canvas do

1. Ustawiamy kolor pędzla.

brush.color := kolorTla;

2. Ustawiamy rodzaj pędzla na "pełny"

brush.style := bsSolid;

3. Rysujemy prostokąt

rectangle(koordynatyZamalowywanegoObrazka);

W większości przypadków punkty 1 i 2 wykonujesz tylko raz (np w onCreate formy).

// i jeszcze jedno.. piszesz coś o TImage, a nigdzie w kodzie nie widzę do niego odwołania..

dziękuję