<![CDATA[Fox4um - Grid'e procedure ekleme]]> 2008-07-25T12:03:00Z PunBB http://www.fox4um.com/topic/1057/gride-procedure-ekleme/ <![CDATA[Re: Grid'e procedure ekleme]]> Burada header degistiren MultiSelectGrid class var.

http://www.universalthread.com/Report.a … 6E725A3731

]]> http://www.fox4um.com/user/11/ 2008-07-25T12:03:00Z http://www.fox4um.com/post/6381/#p6381 <![CDATA[Re: Grid'e procedure ekleme]]>
Visual Fox Pro
1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

Public oForm

oForm  = Createobject('myForm')

oForm.Show()

 

Define Class myForm As Form

  DataSession = 2

  Add Object myGrid As Grid

 

  Procedure Load

    Use (_samples+'data\customer')

  Endproc

 

  Procedure Init

    With This.myGrid

      For ix=1 To .ColumnCount

        .Columns(m.ix).RemoveObject('Header1')

        .Columns(m.ix).Newobject('myHeader', 'myHeader')

      Endfor

    Endwith

  Endproc

Enddefine

 

Define Class myHeader As Header

  Procedure Init

    This.Caption = This.Parent.ControlSource

  Endproc

  Procedure Click

    Wait Window Timeout 2 Transform(Evaluate(This.Parent.ControlSource))

  Endproc

Enddefine

VFP9 kullandigina gore Memberclass*  propertylerini de incele.

]]> http://www.fox4um.com/user/11/ 2008-07-25T11:53:42Z http://www.fox4um.com/post/6380/#p6380 <![CDATA[Re: Grid'e procedure ekleme]]> Oluşturulan header1 class'ini var olan grid'de kullanmaya/monte etmeye basit/sade bir örnek rica edebilir miyim.

]]> http://www.fox4um.com/user/94/ 2008-07-25T09:42:38Z http://www.fox4um.com/post/6379/#p6379 <![CDATA[Re: Grid'e procedure ekleme]]> Tarkan'in soyledigi gibi kodu zaten biliyorsun, header class kullan. Yine de BindEvent() ornegi:

Visual Fox Pro
1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

Public oForm

oForm = Createobject('myForm')

oForm.Show()

 

Define Class myForm As Form

  DataSession = 2

  Add Object myGrid As Grid With RecordSource = 'customer', Left = 100

 

  Procedure Load

    Use _samples+'data\customer'

  Endproc

 

  Procedure myGrid.Init

    Local ix

    For ix=1 To This.ColumnCount

      Bindevent(This.Columns(m.ix).Header1,'Click',Thisform,'HeaderClick')

    Endfor

  Endproc

 

  Procedure HeaderClick

    Amouseobj(aMo,1)

    Local nWhere,nRelRow, nRelCol, lnColOrder, ix, lcControl

    This.myGrid.GridHitTest(aMo[3],aMo[4],@nWhere,@nRelRow, @nRelCol)

    With This.myGrid

      lnColOrder = .LeftColumn-1+m.nRelCol

      For ix = 1 To .ColumnCount

        If .Columns(m.ix).ColumnOrder = m.lnColOrder

          lcControl = .Columns(m.ix).ControlSource

        Endif

      Endfor

    Endwith

    Set Message To m.lcControl

  Endproc

Enddefine
]]> http://www.fox4um.com/user/11/ 2008-07-25T09:05:55Z http://www.fox4um.com/post/6377/#p6377 <![CDATA[Re: Grid'e procedure ekleme]]> Header'ı Class yapsan ve kodunu da class'a yazsan

]]> http://www.fox4um.com/user/32/ 2008-07-24T19:41:28Z http://www.fox4um.com/post/6375/#p6375 <![CDATA[Re: Grid'e procedure ekleme]]> VFP9 kullanıyorum hocam. BindEvent() nasıl kullanacağım. Command.click de kodların içinde gridteki header'in click metodunu nasıl yazabilirim.

]]> http://www.fox4um.com/user/94/ 2008-07-24T17:38:35Z http://www.fox4um.com/post/6374/#p6374 <![CDATA[Re: Grid'e procedure ekleme]]> Nasil yapacagin biraz elindeki versiyona bagli. VFP9'da ornegin BindEvent() var.

]]> http://www.fox4um.com/user/11/ 2008-07-24T16:28:38Z http://www.fox4um.com/post/6373/#p6373 <![CDATA[Grid'e procedure ekleme]]> Design Time'da oluşturulmuş olan bir gride örneğin header1.click() fonksiyonu nasıl eklenir. Bir command buttonun click'inde bunu yazarak bu gride metod yazılabilir mi.
Kısacası grid1.header1.click() metodunu duruma göre değişik olacak şekilde müdahale edebilir miyim.

]]> http://www.fox4um.com/user/94/ 2008-07-24T11:44:48Z http://www.fox4um.com/post/6370/#p6370