Загрузка/сохранение рисунков

[Alex21]

Качай.

_______________

[Marsik]

Я скатать пока не могу,я с тела лезу(ГПРС),есть adsl-модем,логин/пароль,но все соединить,настроить незнаю как.А ты случаем не знаешь?А,кстати в какой компонент грузить рисунок.,в хелпе видел на image1,тока там далее loadfromfile писать надо,а у мя после image есть тока ld...(не помню)... и left.Можешь сказать в чем у мя ошибка,или на другой компонент надо загружать?

[Alex21]

Марсик, в первую очередь рекомендую почитать любой учебник по Delphi. Уровень ваших знаний оставляет желать лучшего, прямо таки, и не знаю как ответить на ваши вопросы....

А,кстати в какой компонент грузить рисунок

Можно и в этот компонент Image. Есть еще много способов отображения картинки.
Если читать пока нечего, внимательно изучите код, который привел Стилет, в посте 8.
Т.е. в редакторе кода у вас должно получиться тоже самое (!).
Не забудьте добавить на форму нужные компоненты: Button1: TButton; Opendialog:Topendialog;

[Marsik]

Алекс,а где еще можно отображать рисунок?А на image как отображать,ведь там нет loadfromfile

[Alex21]

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

Алекс,а где еще можно отображать рисунок?А на image как отображать,ведь там нет loadfromfile

image1.Picture.LoadFromFile(); // загрузка рисунка в компонент Image
image1.Canvas.Brush.Bitmap.LoadFromFile(); // рисование на канве компонента Image, т.е. на его "видимой" поверхности, ограниченной его габаритами

Ну вы, что мне предлагаете - вам весь учебник сюда зацитировать?

[mihali4]

Ну что вы все не можете понять?

в какой компонент грузить рисунок.,в хелпе видел на image1,тока там далее loadfromfile писать надо,а у мя после image есть тока ld...(не помню)... и left

Человек пытается влупить некий кусок кода прямо в инспекторе объектов...
Марсику. Все вопросы после прочтения хотя бы пары страниц любой книги по Дельфи...
Иначе - не договоримся никогда.

[Marsik]

Ладно спасибо,о,умнейшие,спасибо.Теперь я умею грузить и сохр.рисунки,но у мя назрел еще один(может и глупый)вопрос:
как загружать сверху уже загр-го риса,еще один рис,причем так чтобы у него можно было менять размер как у окон и распологать в любой области первого риса?,или это нереально?

[Stilet]

Все реально, один рис грузиш в один Image другой в Image2 и выставляешь далее нужный размер хоть первого хоть второго

[Marsik]

Снова мя не поняли(наверно неправильно ставлю вопрос),мне ведь надо чтобы пользователь сам менял размер(как у окон) и потом еще перемещал куда надо 2 рис.,ну так это реально?

[Stilet]

Естесственно
Эх вот не помню кто автор этого кода (кажись даже я) но это один из вариантов решения твоей траблы:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, jpeg, ExtCtrls;

type
  TForm1 = class(TForm)
    Image1: TImage;
    procedure FormCreate(Sender: TObject);
    procedure Image1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var   f:TForm;
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var i:cardinal;
begin
  f:=TForm.Create(form1);
  f.Parent:=Form1;
  f.Show;
  i:=GetWindowLong(f.Handle,GWL_STYLE);
  i:=i and not WS_CAPTION;
  if SetWindowLong(f.Handle,GWL_STYLE,i)=0 then RaiseLastWin32Error;
  Image1.Parent:=f;
  Image1.Align:=alClient;
end;

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
const
  Sc_dragmove = $F012;
begin
  ReleaseCapture;
  f.Perform(WM_SYSCOMMAND, Sc_dragmove, 0);
end;

end.

Загрузиш в дизайнере картинку в TImage и потом при выполнении растягивай ее или перемещай.