Скачать: CL | DM;

Изменение размеров объектов в 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

---

← →
Real ©   (2003-02-07 13:48) [7]

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

---

← →
Saracin ©   (2003-02-07 16:58) [8]

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

---

← →
Pat ©   (2003-02-07 18:27) [9]

>Saracin © (07.02.03 16:58)
Примерно так...

var C:TCanvas;
begin
c:=TCanvas.create;
c.handle:=GetDC(edit.handle);
c.<рисуем>;

Ну и не забываем где-нибудь c.Free

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.011 c