Перемещение рисунков внутри формы

[Marsik]

Респект всем.Мне надо чтобы загруженный рисунок можно было перемещать,менять размер как у окон и вставлять в нужное место формы.И еще чтобы некоторая часть рисунка была прозрачной!Кто нить знает как мне помочь?

[Alex21]

Марсик, на какой книге остановили свой выбор?

[Marsik]

Автора я не помню,а книга наз-ся в стиле "помощь по delphi для нач.програм-ов" А ты шо посоветуешь и откуда?

[Alex21]

Ну поехали:
К качестве рисунка используй компонент Image.
Компонент имеет такие свойства (то, что тебе нужно):
Image1.Picture - путь к графическому файлу.
Image1.Left - положение по горизонтали (до левого верхнего угла)
Image1.Top - положение по вертикали.
Image1.Stretch - пропорциональность картинки (вкл/выкл = true/false)
Image1.Width - ширина картинки
Image1.Height - высота картинки
изменение последниех 2 свойств будут заметны, если Image1.Stretch:=true;

Image1.Transparent - прозрачность (true/false) - если включено то прозрачным становятся цвета, равные цвету левого верхнего пикселя картинки.
Для начала попробуй эксперименты с картинкой BMP с числом цветов 2-3 штуки - это поможет понять принципы работы этих свойств.

Ну и конечно же изменение этих свойств можно обрабатывать при нажатии на кнопку (Button).
Ясно?

[Stilet]

Мне надо чтобы загруженный рисунок можно было перемещать,менять размер как у окон и вставлять в нужное место формы

Я когда-то для контрольной выкрутился так: Сделал две формы, одну главную другую дочернюю. На дочернюю наложил фотку и (уже точно не помнь как) убрал заголовок, чтоб это не выглядело как форма.

Потом само собой Этот "рисунок" у меня и двигался и растягивался.

Вот Если кто заинтересится код дочерней формы с рисунком :

unit Unit2;

interface

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

type
  TForm2 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormPaint(Sender: TObject);
    procedure FormResize(Sender: TObject);
    procedure CreateParams(var Params: TCreateParams); override;
    procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
    j:TBitmap;
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.CreateParams(var Params: TCreateParams);
begin

 inherited CreateParams(Params);
  Params.Style := Params.Style and (not WS_CAPTION);
end;

procedure TForm2.FormCreate(Sender: TObject);
begin

  j:=TBitmap.Create;
  j.LoadFromFile('c:\acd185.bmp');

end;

procedure TForm2.FormPaint(Sender: TObject);
begin
    Canvas.FillRect(ClientRect);
 Canvas.StretchDraw(ClientRect,j);
end;

procedure TForm2.FormResize(Sender: TObject);
begin
Canvas.FillRect(ClientRect);
 Canvas.StretchDraw(ClientRect,j);
end;

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

end.

Там может пара багов, но все путем в общем...

[Marsik]

Алекс,Стилет(надеюсь правильно?!)спасибо,прозрачным я научился делать!Но как же сделать так чтобы этот рисунок пользователь мог спокойно перемещать по форме и изменять размер?

[mutabor]

Посмотри в теме "Курсовая - пасьянс" я там давал пример таскания карты, таскать таким способом можно что угодно, еще поищи тему "Рисование в WinAPI" там был вопрос как эллипс таскать по форме. Обе темы тут в студентах, поиск надеюсь рулит?

[Marsik]

Искал,искал...так и не нашел :-( А на какой странице они расположены не подскажешь?

[mihali4]

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

Искал,искал...так и не нашел :-( А на какой странице они расположены не подскажешь?

На самом верху есть пункт меню "ПОИСК". Там вводим слово "пасьянс" и все...

[Marsik]

Михалыч нашел,спасибо!Как я понял нужно использовать draganddrop,но вот вопрос-как использовать?