Цитата:
|
Сообщение от <<D>>
... и еще так:
function ReadBitmapFromFile(FileName:String):TBitmap;
var bmp:TBitmap;
begin
bmp:=TBitmap.Create;
bmp.LoadFromFile(FileName);
Form1.Image1.Picture.LoadFromFile(FileName);;
Result.Assign(bmp);
end;
......
if OpenDialog1.Execute then
map[1].Assign(ReadBitmapFromFile(OpenDialog1.FileName));
|
врорде пашет, тока перед запуском не в тему выскакивает табличка
Сannot assign a TBitmap to a TApplication, но работает правельно
и как пмвязать в этой функции Image1 к map[1] ?