Diff of /trunk/Library/Libname/Function Blocks/VisuFbMaterialSwitch/ISelectable/SelectElement/svnobj [r4] .. [r5]  Maximize  Restore

Switch to unified view

a/trunk/Library/Libname/Function Blocks/VisuFbMaterialSwitch/ISelectable/SelectElement/svnobj b/trunk/Library/Libname/Function Blocks/VisuFbMaterialSwitch/ISelectable/SelectElement/svnobj
1
Gx_l!0…jüo}UVa‡i!lrSystem.StringL{f8a58466-d7f6-439f-bbb8-d4600e41d099}ImplementationL{3b83b776-fb25-43b8-99f2-3c507c9143fc}TextDocumentL{f3878285-8e4f-490b-bb1b-9acbb7eb04db}TextLinesL{a5de0b0b-1cb5-4913-ac21-9d70293ec00d}    Id
1
Gx_lf!0…jüoÕ¥À/“i!lrSystem.StringL{f8a58466-d7f6-439f-bbb8-d4600e41d099}ImplementationL{3b83b776-fb25-43b8-99f2-3c507c9143fc}TextDocumentL{f3878285-8e4f-490b-bb1b-9acbb7eb04db}TextLinesL{a5de0b0b-1cb5-4913-ac21-9d70293ec00d}    Id
2
longTagText
JSelectElement := VISU_SELECTION_NONE;T__QUERYINTERFACE(THIS^, thisAsVisualElem);.CASE dwSelectionType OF& VISU_SELECTION_AT:\    IF pPosition^[iPositionIndex] = iElemId THEN8       bChangeSelection := TRUE;      END_IF0 VISU_SELECTION_ELEMENT:V      IF iVisualElement = thisAsVisualElem THEN
2
longTagText
JSelectElement := VISU_SELECTION_NONE;T__QUERYINTERFACE(THIS^, thisAsVisualElem);.CASE dwSelectionType OF& VISU_SELECTION_AT:\    IF pPosition^[iPositionIndex] = iElemId THEN8       bChangeSelection := TRUE;      END_IF0 VISU_SELECTION_ELEMENT:V      IF iVisualElement = thisAsVisualElem THEN
3
    ELSEî       IF NOT Visu_FctIsCurrentSelection(pCurrentSelectionData, pNewSelectionData, iElemIndex, iElemId, iPositionIndex) THENEND_CASEIF bChangeSelection AND NOT EffectiveState.bInputDeactivated THEN Z    pNewSelectionData^.SelectedElement := THIS^;„    SelectElement := Visu_FctSetSelection(pClientData, pNewSelectionData, GetSurroundingRect(), iElemIndex, iElemId, iPositionIndex);END_IFInterfaceL{a9ed5b7e-75c5-4651-af16-d2c27e98cb94} Ø(* The selectable element sets the new selection TO the next SUB element OR itself in the pNewSelectionData.!Æ The pCurrentSelectionData is needed TO check whether the current selection is within THIS element."t The selection type can be one of the following constants:#d VISU_SELECTION_TAB : DWORD                    := 16#00000001;$j   VISU_SELECTION_SHIFTTAB : DWORD                := 16#00000002;%f   VISU_SELECTION_FIRST : DWORD                 := 16#00000003;&d   VISU_SELECTION_LAST : DWORD                   := 16#00000004;'d   VISU_SELECTION_LEFT : DWORD                   := 16#00000005;(b   VISU_SELECTION_UP : DWORD                      := 16#00000006;)f   VISU_SELECTION_RIGHT : DWORD                 := 16#00000007;*d   VISU_SELECTION_DOWN : DWORD                   := 16#00000008;+b   VISU_SELECTION_AT : DWORD                      := 16#00000009;,l   VISU_SELECTION_ELEMENT : DWORD                 := 16#000000010;-¦In the case of VISU_SELECTION_AT the input variable pPosition should be considered..ºIn the case of VISU_SELECTION_ELEMENT the input variable iVisualElement should be considered./*)08METHOD SelectElement : DWORD1VAR_INPUT2:   (* The current client data*)3x pClientData : POINTER TO VisuElemBase.VisuStructClientData;4@   (* The current selection data*)5”  pCurrentSelectionData : POINTER TO VisuElemBase.Visu_StructSelectionData;68   (* The new selection data*)7Œ  pNewSelectionData : POINTER TO VisuElemBase.Visu_StructSelectionData;80   (* The selection type*)92   dwSelectionType : DWORD;:( (* The group type*);*   dwGroupType : DWORD;<8 (* The position to select*)=X   pPosition : POINTER TO ARRAY [0..9] OF INT;>D   (* The visual element to select*)?\   iVisualElement   : VisuElemBase.IVisualElement;@> (* The current element index*)A$ iElemIndex   : INT;B: (* The current element id *)C iElemId : INT;D` (* The current position in the position array*)E,   iPositionIndex   : INT;FEND_VARGVARHD bChangeSelection : BOOL := FALSE;IF   thisAsVisualElem : IVisualElement;ÐÐÐEÐÐ  
3
    ELSEî       IF NOT Visu_FctIsCurrentSelection(pCurrentSelectionData, pNewSelectionData, iElemIndex, iElemId, iPositionIndex) THENEND_CASEÜIF bChangeSelection AND_THEN NOT EffectiveState.bInputDeactivated AND_THEN NOT EffectiveState.bInvisible THEN Z    pNewSelectionData^.SelectedElement := THIS^;„    SelectElement := Visu_FctSetSelection(pClientData, pNewSelectionData, GetSurroundingRect(), iElemIndex, iElemId, iPositionIndex);END_IFInterfaceL{a9ed5b7e-75c5-4651-af16-d2c27e98cb94} Ø(* The selectable element sets the new selection TO the next SUB element OR itself in the pNewSelectionData.!Æ The pCurrentSelectionData is needed TO check whether the current selection is within THIS element."t The selection type can be one of the following constants:#d VISU_SELECTION_TAB : DWORD                    := 16#00000001;$j   VISU_SELECTION_SHIFTTAB : DWORD                := 16#00000002;%f   VISU_SELECTION_FIRST : DWORD                 := 16#00000003;&d   VISU_SELECTION_LAST : DWORD                   := 16#00000004;'d   VISU_SELECTION_LEFT : DWORD                   := 16#00000005;(b   VISU_SELECTION_UP : DWORD                      := 16#00000006;)f   VISU_SELECTION_RIGHT : DWORD                 := 16#00000007;*d   VISU_SELECTION_DOWN : DWORD                   := 16#00000008;+b   VISU_SELECTION_AT : DWORD                      := 16#00000009;,l   VISU_SELECTION_ELEMENT : DWORD                 := 16#000000010;-¦In the case of VISU_SELECTION_AT the input variable pPosition should be considered..ºIn the case of VISU_SELECTION_ELEMENT the input variable iVisualElement should be considered./*)08METHOD SelectElement : DWORD1VAR_INPUT2:   (* The current client data*)3x pClientData : POINTER TO VisuElemBase.VisuStructClientData;4@   (* The current selection data*)5”  pCurrentSelectionData : POINTER TO VisuElemBase.Visu_StructSelectionData;68   (* The new selection data*)7Œ  pNewSelectionData : POINTER TO VisuElemBase.Visu_StructSelectionData;80   (* The selection type*)92   dwSelectionType : DWORD;:( (* The group type*);*   dwGroupType : DWORD;<8 (* The position to select*)=X   pPosition : POINTER TO ARRAY [0..9] OF INT;>D   (* The visual element to select*)?\   iVisualElement   : VisuElemBase.IVisualElement;@> (* The current element index*)A$ iElemIndex   : INT;B: (* The current element id *)C iElemId : INT;D` (* The current position in the position array*)E,   iPositionIndex   : INT;FEND_VARGVARHD bChangeSelection : BOOL := FALSE;IF   thisAsVisualElem : IVisualElement;ÐÐÐEÐÐ  
4
­|ÚÐ-
ÐÐ  
4
­|ÚÐ-
ÐÐ  
5
­}ÚÐ-ÐÐ  
5
­}ÚÐ-ÐÐ  
6
­~ÚÐ-ÐÐ  
6
­~ÚÐ-ÐÐ  
7
­ÚÐ-ÐÐ  
7
­ÚÐ-ÐÐ  
8
­€ÚÐ-ÐÐ  
8
­€ÚÐ-ÐÐ  
...
...
66
­xÚÐ-GÐÐ  
66
­xÚÐ-GÐÐ  
67
­yÚÐ-HÐÐ  
67
­yÚÐ-HÐÐ  
68
­zÚÐ-IÐÐ  
68
­zÚÐ-IÐÐ  
69
­{ÚÐ-FÐÐ  
69
­{ÚÐ-FÐÐ  
70
­ÚÐ-
70
­ÚÐ-