Изменение размеров объектов в Run-Time (как в IDE Delphi)

← →
Zergling (2003-02-06 08:51) [0]

Здраствуйте еще раз! Во время разарботки в Delphi при размещении объекта на форме у данного объекта появляются маркеры для изменения его размеров. Можно ли применить данную уже готовую технологию разработанную Borland в своем приложении, т.е. в Run-Time (дабы не изобретать заного велосипед и применить уже готовое). Если такая возможность есть, то подскжите как. Если кто знает готовые решения на данную тему, поделитесь ссылочкой пожалуйста. Зарнее большое спасибо!

← →
ZeroDivide © (2003-02-06 09:04) [1]

А в чем в общем то проблема Width и Heigth еще никто не отменял.
Для рантайма правда надо самому написать соответствующие примочки.

← →
MBo © (2003-02-06 09:07) [2]

Если самому трудно реализовать, посмотри компонент THandles на torry

← →
Zergling (2003-02-06 13:10) [3]

>> MBo © (06.02.03 09:07)

Лазил по torry но не нашел THandles кинь ссылочку если не сложно или напиши в каком разделе искать.

← →
Skier © (2003-02-06 13:19) [4]

>Zergling
Дай свой адрес, я брошу...

← →
Zergling (2003-02-07 06:02) [5]

>> Skier © (06.02.03 13:19)

Кидай пожалуйста...
uhp_ceh19@TagNet.ru

← →
Dmitry Filippov © (2003-02-07 06:10) [6]

See metod perform

В двух словах: делаешь типа DrawMarker(Obj: TControl); в которой получаешь в TRect размер объекта, затем по углам с помощью Rectagle рисуешь шесть квадратов (на форме), в OnMove смотришь не попала ли мышь в квадрат, если да меняешь курсор и ставишь флаг на изменение размера. Тут же, если флаг стоит - по изменениям позиции меняешь размер (не забывая перерисовывать маркеры).

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

>Saracin © (07.02.03 16:58)
Примерно так...
var C:TCanvas; begin c:=TCanvas.create; c.handle:=GetDC(edit.handle); c.<рисуем>;
Ну и не забываем где-нибудь c.Free

Изменение размеров объектов в Run-Time (как в IDE Delphi) Найти похожие ветки