как загрузить в paintbox картинку?

[blackstersl]

Вот и весь вопрос -)

[Sazary]

procedure TForm1.Button1Click(Sender: TObject);
var Bitmap : TBitmap;
begin
Bitmap := TBitmap.Create;
Bitmap.Width := PaintBox1.Width;
Bitmap.Height := PaintBox1.Height;
Bitmap.LoadFromFile('1.bmp');
PaintBox1.Canvas.Draw(0,0,Bitmap);
Bitmap.Free;
end;

[Alex Cones]

Можно "нарисовать" на канве:

Var
IMG:TBitMap;
Begin
IMG:=TBitMap.Create;
IMG.LoadFromFile('путь'); или IMG.LoadFromResource(HInstance,'Имя файла в ресе');
PaintBox1.Canvas.Draw(0,0,IMG); 0 и 0 - X и Y (сколько отступать)
IMG.Free; (Очистили память от изображения)

Не успел(

[blackstersl]

Спаибо всем за помощь -)

[blackstersl]

Ток есть одно НО: когда изменяется форма то изображение пропадает -(
Что делать?

[Sazary]

Может, вам лучше использовать TImage? Ничего пропадать не будет.

[blackstersl]

я просто с графикой никогда не работал. Я вот пытаюсь делать что то типа paint - a, какой там компонент исспользуется?

[Sazary]

Так уж PaintBox устроен.
Посмотрите пример граф. редактора в Delphi7\Demos\Doc\Graphex\

А Paint уж явно не на Делфях написан