Динамическое создание компонентов - История изменений

SYSDBA: /* OnClick */

2009-11-12T08:15:15Z

‎OnClick

SYSDBA: /* OnClose */

2007-03-26T17:47:23Z

‎OnClose

SYSDBA: /* OnCreate */

2007-03-26T17:47:01Z

‎OnCreate

SYSDBA в 17:46, 26 марта 2007

2007-03-26T17:46:14Z

SYSDBA в 17:24, 26 марта 2007

2007-03-26T17:24:02Z

SYSDBA в 17:22, 26 марта 2007

2007-03-26T17:22:54Z

SYSDBA в 16:49, 26 марта 2007

2007-03-26T16:49:30Z

Новая страница

...

← Предыдущая		Версия 08:15, 12 ноября 2009
Строка 127:		Строка 127:

	end function		end function
		+
		+	[[Category:Учебный курс]]

@@ Строка 77: / Строка 77: @@
      Action.Value = ParamArr(1)
    '*** конец кода поддержки встроенного обработчика            ***
-−
      Dim F
      Set F = GlobalStorage.OpenFolder("NewForm", False, False)
@@ Строка 84: / Строка 84: @@
      end if
      GlobalStorage.CloseFolder F, True
-−
      Action.Value = caFree
    end sub

@@ Строка 41: / Строка 41: @@
      call   Inherited(Sender, "OnCreate", Array(Sender))
    '*** конец кода поддержки встроенного обработчика            ***
-−
      const CellSize = 32
      const FieldWidth = 4
-−
      dim I, P, C
      set C = Sender.GetComponent("Field")
-−
      for I = 0 to (FieldWidth * FieldWidth - 2)
        set P = Designer.CreateObject(Sender, "TPanel", "P" & I)
@@ Строка 58: / Строка 58: @@
        SetEventHandler P, "OnClick", "game15_OnClick"
      next
-−
      for I = 1 to 1000
        game15_OnClick Sender.GetComponent("P" & Int((FieldWidth * FieldWidth - 1) * Rnd))
      next
-−
    end sub

@@ Строка 1: / Строка 1: @@
-...
+В Гедымине существует возможность динамического создания компонентов в момент выполнения программы. Рассмотрим данную возможность на примере популярной игры [http://ru.wikipedia.org/wiki/%D0%9F%D1%8F%D1%82%D0%BD%D0%B0%D1%88%D0%BA%D0%B8 Пятнашки]. Создадим глобальный макрос Game15. Его задача -- сформировать DFM окна игры (диалоговая форма квадратной формы с расположенной на ней панелью -- игровое поле). Данный DFM записывается в глобальное хранилище, в папку NewForm. После чего можно создавать экземпляр такой формы используя функцию Creator.GetObject:
   Option Explicit
@@ Строка 30: / Строка 30: @@
   End Sub
    '#include GAME15_ONCLICK
@@ Строка 62: / Строка 65: @@
    end sub
    option explicit
@@ Строка 84: / Строка 88: @@
    end sub
-  option explicit
+=== OnClick ===
    function game15_CanMove(Parent, X, Y)
      game15_CanMove = False
-−
      if (X >= 0) and (X < Parent.Width) and (Y >= 0) and (Y < Parent.Height) then
        dim I, C
@@ Строка 97: / Строка 102: @@
          end if
        next
-−
        game15_CanMove = True
      end if
    end function
-−
    function game15_OnClick(Sender)
      if game15_CanMove(Sender.Parent, Sender.Left + 32 + 1, Sender.Top) then
@@ Строка 112: / Строка 117: @@
        Sender.Top = Sender.Top - 32
      end if
-−
      Dim I
      I = CInt(Sender.Caption) - 1
@@ Строка 120: / Строка 125: @@
        Sender.Color = &HA0A0A0
      end if
-−
    end function

← Предыдущая		Версия 17:24, 26 марта 2007
Строка 29:		Строка 29:
	F.ShowModal		F.ShowModal
	End Sub		End Sub
		+
		+
		+	'#include GAME15_ONCLICK
		+	option explicit
		+	sub usrf_game15OnCreate(ByVal Sender)
		+	'* Данный код необходим для вызова встроенного обработчика *
		+	'* В случае его удаления возможно нарушение работы системы *
		+	call Inherited(Sender, "OnCreate", Array(Sender))
		+	'* конец кода поддержки встроенного обработчика *
		+
		+	const CellSize = 32
		+	const FieldWidth = 4
		+
		+	dim I, P, C
		+	set C = Sender.GetComponent("Field")
		+
		+	for I = 0 to (FieldWidth * FieldWidth - 2)
		+	set P = Designer.CreateObject(Sender, "TPanel", "P" & I)
		+	P.Left = (I mod FieldWidth) * CellSize
		+	P.Top = (I \ FieldWidth) * CellSize
		+	P.Width = CellSize
		+	P.Height = CellSize
		+	P.Caption = I + 1
		+	P.Parent = C
		+	SetEventHandler P, "OnClick", "game15_OnClick"
		+	next
		+
		+	for I = 1 to 1000
		+	game15_OnClick Sender.GetComponent("P" & Int((FieldWidth * FieldWidth - 1) * Rnd))
		+	next
		+
		+	end sub
		+
		+
		+	option explicit
		+	sub usrf_game15OnClose(ByVal Sender, ByRef Action)
		+	'* Данный код необходим для вызова встроенного обработчика *
		+	'* В случае его удаления возможно нарушение работы системы *
		+	Dim ParamArr(1)
		+	Set ParamArr(0) = Sender
		+	ParamArr(1) = Action
		+	call Inherited(Sender, "OnClose", ParamArr)
		+	Action.Value = ParamArr(1)
		+	'* конец кода поддержки встроенного обработчика *
		+
		+	Dim F
		+	Set F = GlobalStorage.OpenFolder("NewForm", False, False)
		+	if Assigned(F) then
		+	F.DeleteFolder "usrf_game15"
		+	end if
		+	GlobalStorage.CloseFolder F, True
		+
		+	Action.Value = caFree
		+	end sub
		+
		+	option explicit
		+
		+	function game15_CanMove(Parent, X, Y)
		+	game15_CanMove = False
		+
		+	if (X >= 0) and (X < Parent.Width) and (Y >= 0) and (Y < Parent.Height) then
		+	dim I, C
		+	for I = 0 to Parent.ControlCount - 1
		+	set C = Parent.Controls(I)
		+	if (X >= C.Left) and (X < C.Left + C.Width) and (Y >= C.Top) and (Y < C.Top + C.Height) then
		+	exit function
		+	end if
		+	next
		+
		+	game15_CanMove = True
		+	end if
		+	end function
		+
		+	function game15_OnClick(Sender)
		+	if game15_CanMove(Sender.Parent, Sender.Left + 32 + 1, Sender.Top) then
		+	Sender.Left = Sender.Left + 32
		+	elseif game15_CanMove(Sender.Parent, Sender.Left - 32 + 1, Sender.Top) then
		+	Sender.Left = Sender.Left - 32
		+	elseif game15_CanMove(Sender.Parent, Sender.Left, Sender.Top + 32 + 1) then
		+	Sender.Top = Sender.Top + 32
		+	elseif game15_CanMove(Sender.Parent, Sender.Left, Sender.Top - 32 + 1) then
		+	Sender.Top = Sender.Top - 32
		+	end if
		+
		+	Dim I
		+	I = CInt(Sender.Caption) - 1
		+	if (Sender.Left = (I mod 4) * 32) and (Sender.Top = (I \ 4) * 32) then
		+	Sender.Color = &HFFFFFF
		+	else
		+	Sender.Color = &HA0A0A0
		+	end if
		+
		+	end function

← Предыдущая		Версия 17:22, 26 марта 2007
Строка 1:		Строка 1:
	...		...
		+
		+	Option Explicit
		+	Sub Game15
		+	Dim St, A(0), F, Creator
		+	Set Creator = new TCreator
		+	A(0) = "" &_
		+	"object usrf_game15: TgdcCreateableForm" & vbCrLf &_
		+	" BorderStyle = bsDialog" & vbCrLf &_
		+	" ClientWidth = 136" & vbCrLf &_
		+	" ClientHeight = 136" & vbCrLf &_
		+	" Position = poScreenCenter" & vbCrLf &_
		+	" object Field: TPanel" & vbCrLf &_
		+	" Left = 4" & vbCrLf &_
		+	" Top = 4" & vbCrLf &_
		+	" Width = 128" & vbCrLf &_
		+	" Height = 128" & vbCrLf &_
		+	" BevelInner = bvNone" & vbCrLf &_
		+	" BevelOuter = bvLowered" & vbCrLf &_
		+	" end" & vbCrLf &_
		+	"end"
		+	Set St = Creator.GetObject(A, "TStringStream", "")
		+
		+	GlobalStorage.WriteInteger "NewForm\usrf_game15", "InternalType", 1
		+	GlobalStorage.WriteString "NewForm\usrf_game15", "Class", "TgdcCreateableForm"
		+	GlobalStorage.WriteStream "NewForm\usrf_game15", "dfm", St
		+
		+	Set F = Creator.GetObject(Application, "usrf_game15", "game15")
		+	F.ShowModal
		+	End Sub