VPF::Изменение размера и положения контролов в Run-Time

lukas

Дата 5.12.2007, 20:14 (ссылка)

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

Загрузка ...

Опытный

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

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

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

Я не являюсь автором данного компонента, но внес в исходники кое-какие дополнительные возможности и изменения, которых явно не хватало.

Основные методы и свойства:

GridSize - размерность сетки для перемещения и изменения размеров + рисование сетки

Чтобы добавить компоненты с формы используйте следующие функции... или добавляйте по одному вручную...

Код


procedure RegComponents(aParent: TWinControl; SizeCtrl: TSizeCtrl);
var
  i: integer;
begin
  for i := 0 to aParent.ControlCount -1 do
  begin
    if aParent.Controls[i].Tag = 0 then
      SizeCtrl.RegisterControl(aParent.Controls[i]);
    if aParent.Controls[i] is TWinControl then
      RegComponents(TWinControl(aParent.Controls[i]), SizeCtrl);
  end;
end;

procedure UnregComponents(aParent: TWinControl; SizeCtrl: TSizeCtrl);
var
  i: integer;
begin
  for i := 0 to aParent.ControlCount -1 do
  begin
    SizeCtrl.UnRegisterControl(aParent.Controls[i]);
    if aParent.Controls[i] is TWinControl then
      UnregComponents(TWinControl(aParent.Controls[i]), SizeCtrl);
  end;
end;

Присоединённый файл ( Кол-во скачиваний: 50 )

SizeControl.rar 9,17 Kb

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

http://code.google.com/p/orionphp/ - opensource скриптовой язык Orion (аналог PHP) для freepascal/delphi.

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