Метод PaintTo
Объясните пожалуйста,как использовать метод PaintTo,Вот вариант кода(неработающего):
procedure TForm1.Button1Click(Sender: TObject);
var
btm: TBitmap;
begin
btm := TBitmap.Create;
btm.LoadFromFile(\Путь к битмапу\);
Memo1.PaintTo(btm.Canvas,1,1);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
btm: TBitmap;
begin
btm := TBitmap.Create;
btm.LoadFromFile(\Путь к битмапу\);
Memo1.PaintTo(btm.Canvas,1,1);
end;
Цитата:
Originally posted by Dstr
Объясните пожалуйста,как использовать метод PaintTo,Вот вариант кода(неработающего):
procedure TForm1.Button1Click(Sender: TObject);
var
btm: TBitmap;
begin
btm := TBitmap.Create;
btm.LoadFromFile(\Путь к битмапу\);
Memo1.PaintTo(btm.Canvas,1,1);
end;
Объясните пожалуйста,как использовать метод PaintTo,Вот вариант кода(неработающего):
procedure TForm1.Button1Click(Sender: TObject);
var
btm: TBitmap;
begin
btm := TBitmap.Create;
btm.LoadFromFile(\Путь к битмапу\);
Memo1.PaintTo(btm.Canvas,1,1);
end;
Все работает.
Только ты наверное не понял, для чего этот метод.
Он рисует не битмап на мемо, а наоборот - мемо на битмапе.
Можешь проверить: сохрани после вызова этого метода картинку в другой файл и посмотри его.