Image

← →
Serjio (2005-08-05 16:20) [0]

Подскажите пожалуйста, что нужно вписать в скобки в этом коде:

Image1.Canvas.Draw();

Вернее не что а как это сделать?

← →
alles © (2005-08-05 16:26) [1]

for example:
procedure TForm1.Button1Click(Sender: TObject);

var
Bitmap : TBitMap;
begin
Bitmap := TBitmap.Create;
try
with Bitmap do begin
LoadFromFile("MyBitmap.png");
Transparent := True;
TransParentColor := BitMap.Canvas.Brush.Color;
Form1.Canvas.Draw(0,0,BitMap);
TransparentMode := tmAuto;
Form1.Canvas.Draw(50,50,BitMap);
end;
finally
Bitmap.Free;
end;
end;

← →
Ega23 © (2005-08-05 16:26) [2]

TCanvas.Draw Renders the graphic specified by the Graphic parameter on the canvas at the location given by the coordinates (X, Y). procedure Draw(X, Y: Integer; Graphic: TGraphic); Description Call Draw to draw a graphic on the canvas. Draw calls the Draw method of the graphic. The image is rendered into a rectangle determined by the size of the graphic, with the upper left corner at the point (X, Y). Graphics can be bitmaps, icons, or metafiles. If the graphic is a TBitmap object, the bitmap is rendered using the value of CopyMode.

Example:

procedure TForm1.Button1Click(Sender: TObject); var Bitmap : TBitMap; begin Bitmap := TBitmap.Create; try with Bitmap do begin LoadFromFile("c:\Program Files\Common Files\Borland Shared\Images\Splash\256color\factory.bmp"); Transparent := True; TransParentColor := BitMap.canvas.pixels[50,50]; Form1.Canvas.Draw(0,0,BitMap); TransparentMode := tmAuto; // Transparent color now is clDefault = TColor($20000000); Form1.Canvas.Draw(50,50,BitMap); end; finally Bitmap.Free; end; end;

← →
McSimm © (2005-08-05 16:26) [3]

Попробуй рисовать на холсте не Image1, а Image1.Picture.Bitmap

А, это TImage.... Мне показалось TPaintBox.... :о)

Image Найти похожие ветки