Сделать procedure в Delphi 7.

[zvygin1964]

В файл .res положил .bmp .
Помогите сделать процедуру:
procedure название(переменная-название фона, переменная-название маленькой картинки, координаты маленькой картинки);//.

Это реализация поста №57 темы http://programmersforum.ru/showthrea...=267214&page=6

procedure TForm1.Button3Click(Sender: TObject);
begin
 //рисую фон
 Back.LoadFromResourceName(HInstance,'fon_degrees_resh_JPG');// Загрузка в BitMap выбранного графического файла
 Form1.Image1.canvas.Draw(0,0,Back); // Перенос изображения на канву формы
 X_bitmap:= 0   ;
 Y_bitmap:=  0;
 // накладываю на него маленькую картинку в нужное мне место
 bitmap.LoadFromResourceName(HInstance,'a45_JPG');
 bitmap.Transparent:= True;
 bitmap.TransParentColor:= bitmap.canvas.pixels[1,1];
 // выведем итоговый рисунок на  Form1
 Form1.image1.canvas.Draw(X_bitmap,Y_bitmap,bitmap);
end;

[BDA]

procedure TForm1.MyProc(const background: String; const imagename: String; X_bitmap, Y_bitmap: Integer);
begin
 //рисую фон
 Back.LoadFromResourceName(HInstance, background);// Загрузка в BitMap выбранного графического файла
 Form1.Image1.canvas.Draw(0,0,Back); // Перенос изображения на канву формы
 // накладываю на него маленькую картинку в нужное мне место
 bitmap.LoadFromResourceName(HInstance, imagename);
 bitmap.Transparent:= True;
 bitmap.TransParentColor:= bitmap.canvas.pixels[1,1];
 // выведем итоговый рисунок на  Form1
 Form1.image1.canvas.Draw(X_bitmap, Y_bitmap, bitmap);
end;

Не проверял.

[zvygin1964]

Сообщение от BDA

const background: String; const imagename: String

Хочется var .
Как в нее вносить данные переменных и вызывать?

[Stilet]

Как в нее вносить данные переменных и вызывать?

Так же, только придется обязательно передавать переменки.
Разница: MyProc(const background: String; const imagename: String; X_bitmap, Y_bitmap: Integer);

 MyProc('Background','Imagename',123,456);

и
MyProc(var background: String; imagename: String; X_bitmap, Y_bitmap: Integer);

var background: String; imagename: String; X_bitmap, Y_bitmap: Integer;
...
 background:='Background';
 imagename:='Imagename';
 X_bitmap:=123; Y_bitmap:=456;
 MyProc(background, imagename, X_bitmap, Y_bitmap);

Т.е. в var случае константы передавать не удастся без отдельной переменной