Форум: "Начинающим";
Текущий архив: 2005.09.04;
Скачать: [xml.tar.bz2];
Вниз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
← →
Ega23 © (2005-08-05 16:53) [4]2 McSimm © (05.08.05 16:26) [3]
Почему?????
← →
Ega23 © (2005-08-05 16:54) [5]А, это TImage.... Мне показалось TPaintBox.... :о)
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2005.09.04;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.011 c