VPF::Изменить размер Image - Форум программистов

asset_s

Дата 18.2.2005, 11:29 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 12
Регистрация: 17.2.2005

Репутация: нет
Всего: нет

Как изменить размер Image мышкрой . например как в Delphi при разработке

mvdr

Дата 18.2.2005, 11:33 (ссылка)

(нет голосов)

Загрузка ...

физик

Профиль
Группа: Участник
Сообщений: 1349
Регистрация: 31.12.2004
Где: Волгоград, Россия

Репутация: нет
Всего: 42

можно попробовать сделать изменять размер при зажатии кнопки мыши.

--------------------

Появляюсь редко, но часто метко

Изображать идиота сложнее, чем изображать умного: полезнее и не каждому дано

Snowy

Дата 18.2.2005, 12:27 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 30
Всего: 484

Поместить TImage в панель, сделать на всю панель, а панель обложить сплитерами.

Girder

Дата 19.2.2005, 20:30 (ссылка)

(нет голосов)

Загрузка ...

Лентяй 2

Профиль
Группа: Участник Клуба
Сообщений: 1993
Регистрация: 12.5.2004

Репутация: 25
Всего: 155

Snowy зачем так сложно? smile

asset_s береш панел (TPanel) бросаеш его на форму. На панель бросаеш TImage. Ну и конечно... загрузи в него какую нить картинку.

Подцепляеш на OnCreate формы вот енто:

Код

procedure TForm1.FormCreate(Sender: TObject);
var Style:integer;
begin
 Panel1.Align:=alNone;
 Style:=GetWindowLong(Panel1.Handle,GWL_Style);
 Style:=Style or WS_THICKFRAME;
 SetWindowLong(Panel1.Handle,GWL_Style,Style);
 SetWindowPos(Panel1.Handle,HWND_TOP,Panel1.Left,Panel1.Top,
                          Panel1.Width,Panel1.Height,SWP_FRAMECHANGED);
 Image1.AutoSize:=false;
 Image1.Align:=alClient;
 Image1.Stretch:=true;
end;

Ну и так... до кучи smile

Код

procedure TForm1.Button1Click(Sender: TObject);
var Style:integer;
begin
 Style:=GetWindowLong(Panel1.Handle,GWL_Style);
 Style:=Style or WS_MINIMIZEBOX or WS_MAXIMIZEBOX or WS_SYSMENU
            or WS_BORDER or WS_DLGFRAME or WS_THICKFRAME;
 SetWindowLong(Panel1.Handle,GWL_Style,Style);
 SetWindowPos(Panel1.Handle,HWND_TOP,Panel1.Left,Panel1.Top,
                          Panel1.Width,Panel1.Height,SWP_FRAMECHANGED);
 PostMessage(Panel1.Handle,WM_SetIcon,0,Application.Icon.Handle);
end;

PS: asset_s твой вопрос... не для ентого раздела smile

Это сообщение отредактировал(а) Girder - 20.2.2005, 00:22

--------------------

Как слышим, так и пишим.
Истина где-то там...

asset_s

Дата 21.2.2005, 09:55 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 12
Регистрация: 17.2.2005

Репутация: нет
Всего: нет

Girder спасибо за грамотный ответ !!!

p0s0l

Дата 26.2.2005, 12:35 (ссылка)

(нет голосов)

Загрузка ...

Г-н Посол

Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

Репутация: 14
Всего: 112

Перенесенно из раздела Delphi

--------------------

С уважением, г-н Посол.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »