[PaHaNjkee]

Нужна функция чтобы переводило из String в TPicture вот ошибка:

[Error] unit1.pas(28): Incompatible types: 'TPicture' and 'String'

[lmikle]

А что ты хочешь перевести из строки в картинку?

[PaHaNjkee]

да!

т.е я указал Image1.Picture:='mainform.bmp';

[Bargest]

строку в картинку?! хыхы. Прикинь: ввел тут "123.bmp" и оно в картинку превратилось...
Вообще-то надо грузить. Полазий по свойствам, типа Grafics, может там че-то типа LoadFromFile есть

[Bargest]

<сообщение типа удалено>

[PaHaNjkee]

сорри....:/

[v1s2222]

Если еще не нашел

Код:

 Image1.Picture.LoadFromFile('mainform.bmp');

[PaHaNjkee]

нашол...но вот возникла опять проблема:
Нужно чтобы иконка рисовалась в Image2 как это сделать вот исходный код

Код:

uses ShellApi;

procedure TForm1.Button1Click(Sender: TObject);
var
  IconIndex: word;
  h: hIcon;
begin
  IconIndex := 0;
  h := ExtractAssociatedIcon(hInstance,
    'C:\WINDOWS\NOTEPAD.EXE', IconINdex);

  DrawIcon(Form1.Canvas.Handle, 10, 10, h);
end;

[Bargest]

Рисовать надо не на Form1.Canvas а на Image2.Canvas как минимум.

[PaHaNjkee]

Написал DrawIcon(Image2.Canvas.Handle, 10, 10, h); ну фурычит!(((

[v1s2222]

Код:

uses ShellApi;

procedure TForm1.Button1Click(Sender: TObject);
var
  IconIndex: word;
  h: hIcon;
begin
  IconIndex := 0;
  h := ExtractIcon(hInstance,
    'C:\WINDOWS\NOTEPAD.EXE', IconINdex);

  DrawIcon(Form1.Canvas.Handle, 10, 10, h);
end;