PC World 1997 November

home *** CD-ROM | disk | FTP | other *** search

/ PC World 1997 November / PCWorld_1997-11_cd.bin / software / programy / komix / DATA.Z / DelphiVCL.tcl < prev next >

Wrap

Text File | 1997-04-11 | 343KB | 9,040 lines

# Generator: et.tcl /main/hindenburg/19 # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl # Interpreter to use: Otsh V6.1.1/B1 # OTShRegister::importTool set diag [CDM new TBitBtn "DelphiVCL" "" "" "" "" "" 1] set row1 [$diag addRow method 0.0] $row1 setLabel "name_type" "Click()\n" $row1 setProp "has_parmlist" "1" $row1 setProp "is_event" "1" set cell2 [$row1 addCell parameter 0.0] $cell2 setLabel "name_type" "Sender: TObject" $cell2 setScope "name_type" "cl" "scopePhase" $cell2 setProp "is_vcl" "1" "name_type" "cl" $cell2 setProp "libunit" "System" "name_type" "cl" $cell2 setScope "name_type" "de" "scopeSystem" set row3 [$diag addRow method 0.0] $row3 setLabel "name_type" "DragDrop()\n" $row3 setProp "has_parmlist" "1" $row3 setProp "is_event" "1" set cell4 [$row3 addCell parameter 0.0] $cell4 setLabel "name_type" "Sender: TObject, " $cell4 setScope "name_type" "cl" "scopePhase" $cell4 setProp "is_vcl" "1" "name_type" "cl" $cell4 setProp "libunit" "System" "name_type" "cl" $cell4 setScope "name_type" "de" "scopeSystem" set cell5 [$row3 addCell parameter 0.0] $cell5 setLabel "name_type" "Source: TObject, " $cell5 setScope "name_type" "cl" "scopePhase" $cell5 setProp "is_vcl" "1" "name_type" "cl" $cell5 setProp "libunit" "System" "name_type" "cl" $cell5 setScope "name_type" "de" "scopeSystem" set cell6 [$row3 addCell parameter 0.0] $cell6 setLabel "name_type" "X: int, " $cell6 setScope "name_type" "cl" "scopePhase" $cell6 setScope "name_type" "de" "scopeSystem" set cell7 [$row3 addCell parameter 0.0] $cell7 setLabel "name_type" "Y: int" $cell7 setScope "name_type" "cl" "scopePhase" $cell7 setScope "name_type" "de" "scopeSystem" set row8 [$diag addRow method 0.0] $row8 setLabel "name_type" "DragOver()\n" $row8 setProp "has_parmlist" "1" $row8 setProp "is_event" "1" set cell9 [$row8 addCell parameter 0.0] $cell9 setLabel "name_type" "Sender: TObject, " $cell9 setScope "name_type" "cl" "scopePhase" $cell9 setProp "is_vcl" "1" "name_type" "cl" $cell9 setProp "libunit" "System" "name_type" "cl" $cell9 setScope "name_type" "de" "scopeSystem" set cell10 [$row8 addCell parameter 0.0] $cell10 setLabel "name_type" "Source: TObject, " $cell10 setScope "name_type" "cl" "scopePhase" $cell10 setProp "is_vcl" "1" "name_type" "cl" $cell10 setProp "libunit" "System" "name_type" "cl" $cell10 setScope "name_type" "de" "scopeSystem" set cell11 [$row8 addCell parameter 0.0] $cell11 setLabel "name_type" "X: int, " $cell11 setScope "name_type" "cl" "scopePhase" $cell11 setScope "name_type" "de" "scopeSystem" set cell12 [$row8 addCell parameter 0.0] $cell12 setLabel "name_type" "Y: int, " $cell12 setScope "name_type" "cl" "scopePhase" $cell12 setScope "name_type" "de" "scopeSystem" set cell13 [$row8 addCell parameter 0.0] $cell13 setLabel "name_type" "State: TDragState, " $cell13 setScope "name_type" "cl" "scopePhase" $cell13 setProp "is_vcl" "1" "name_type" "cl" $cell13 setProp "libunit" "Controls" "name_type" "cl" $cell13 setScope "name_type" "de" "scopeSystem" set cell14 [$row8 addCell parameter 0.0] $cell14 setLabel "name_type" "Accept: bool" $cell14 setProp "pass_by" "Variable" $cell14 setScope "name_type" "cl" "scopePhase" $cell14 setScope "name_type" "de" "scopeSystem" set row15 [$diag addRow method 0.0] $row15 setLabel "name_type" "EndDrag()\n" $row15 setProp "has_parmlist" "1" $row15 setProp "is_event" "1" set cell16 [$row15 addCell parameter 0.0] $cell16 setLabel "name_type" "Sender: TObject, " $cell16 setScope "name_type" "cl" "scopePhase" $cell16 setProp "is_vcl" "1" "name_type" "cl" $cell16 setProp "libunit" "System" "name_type" "cl" $cell16 setScope "name_type" "de" "scopeSystem" set cell17 [$row15 addCell parameter 0.0] $cell17 setLabel "name_type" "Source: TObject, " $cell17 setScope "name_type" "cl" "scopePhase" $cell17 setProp "is_vcl" "1" "name_type" "cl" $cell17 setProp "libunit" "System" "name_type" "cl" $cell17 setScope "name_type" "de" "scopeSystem" set cell18 [$row15 addCell parameter 0.0] $cell18 setLabel "name_type" "X: int, " $cell18 setScope "name_type" "cl" "scopePhase" $cell18 setScope "name_type" "de" "scopeSystem" set cell19 [$row15 addCell parameter 0.0] $cell19 setLabel "name_type" "Y: int" $cell19 setScope "name_type" "cl" "scopePhase" $cell19 setScope "name_type" "de" "scopeSystem" set row20 [$diag addRow method 0.0] $row20 setLabel "name_type" "Enter()\n" $row20 setProp "has_parmlist" "1" $row20 setProp "is_event" "1" set cell21 [$row20 addCell parameter 0.0] $cell21 setLabel "name_type" "Sender: TObject" $cell21 setScope "name_type" "cl" "scopePhase" $cell21 setProp "is_vcl" "1" "name_type" "cl" $cell21 setProp "libunit" "System" "name_type" "cl" $cell21 setScope "name_type" "de" "scopeSystem" set row22 [$diag addRow method 0.0] $row22 setLabel "name_type" "Exit()\n" $row22 setProp "has_parmlist" "1" $row22 setProp "is_event" "1" set cell23 [$row22 addCell parameter 0.0] $cell23 setLabel "name_type" "Sender: TObject" $cell23 setScope "name_type" "cl" "scopePhase" $cell23 setProp "is_vcl" "1" "name_type" "cl" $cell23 setProp "libunit" "System" "name_type" "cl" $cell23 setScope "name_type" "de" "scopeSystem" set row24 [$diag addRow method 0.0] $row24 setLabel "name_type" "KeyDown()\n" $row24 setProp "has_parmlist" "1" $row24 setProp "is_event" "1" set cell25 [$row24 addCell parameter 0.0] $cell25 setLabel "name_type" "Sender: TObject, " $cell25 setScope "name_type" "cl" "scopePhase" $cell25 setProp "is_vcl" "1" "name_type" "cl" $cell25 setProp "libunit" "System" "name_type" "cl" $cell25 setScope "name_type" "de" "scopeSystem" set cell26 [$row24 addCell parameter 0.0] $cell26 setLabel "name_type" "Key: word, " $cell26 setProp "pass_by" "Variable" $cell26 setScope "name_type" "cl" "scopePhase" $cell26 setScope "name_type" "de" "scopeSystem" set cell27 [$row24 addCell parameter 0.0] $cell27 setLabel "name_type" "Shift: TShiftState" $cell27 setScope "name_type" "cl" "scopePhase" $cell27 setProp "is_vcl" "1" "name_type" "cl" $cell27 setProp "libunit" "Classes" "name_type" "cl" $cell27 setScope "name_type" "de" "scopeSystem" set row28 [$diag addRow method 0.0] $row28 setLabel "name_type" "KeyPress()\n" $row28 setProp "has_parmlist" "1" $row28 setProp "is_event" "1" set cell29 [$row28 addCell parameter 0.0] $cell29 setLabel "name_type" "Sender: TObject, " $cell29 setScope "name_type" "cl" "scopePhase" $cell29 setProp "is_vcl" "1" "name_type" "cl" $cell29 setProp "libunit" "System" "name_type" "cl" $cell29 setScope "name_type" "de" "scopeSystem" set cell30 [$row28 addCell parameter 0.0] $cell30 setLabel "name_type" "Key: char" $cell30 setProp "pass_by" "Variable" $cell30 setScope "name_type" "cl" "scopePhase" $cell30 setScope "name_type" "de" "scopeSystem" set row31 [$diag addRow method 0.0] $row31 setLabel "name_type" "KeyUp()\n" $row31 setProp "has_parmlist" "1" set cell32 [$row31 addCell parameter 0.0] $cell32 setLabel "name_type" "Sender: TObject, " $cell32 setScope "name_type" "cl" "scopePhase" $cell32 setProp "is_vcl" "1" "name_type" "cl" $cell32 setProp "libunit" "System" "name_type" "cl" $cell32 setScope "name_type" "de" "scopeSystem" set cell33 [$row31 addCell parameter 0.0] $cell33 setLabel "name_type" "Key: word, " $cell33 setScope "name_type" "cl" "scopePhase" $cell33 setScope "name_type" "de" "scopeSystem" set cell34 [$row31 addCell parameter 0.0] $cell34 setLabel "name_type" "Shift: TShiftState" $cell34 setScope "name_type" "cl" "scopePhase" $cell34 setProp "is_vcl" "1" "name_type" "cl" $cell34 setProp "libunit" "Classes" "name_type" "cl" $cell34 setScope "name_type" "de" "scopeSystem" set row35 [$diag addRow method 0.0] $row35 setLabel "name_type" "MouseDown()\n" $row35 setProp "has_parmlist" "1" $row35 setProp "is_event" "1" set cell36 [$row35 addCell parameter 0.0] $cell36 setLabel "name_type" "Sender: TObject, " $cell36 setScope "name_type" "cl" "scopePhase" $cell36 setProp "is_vcl" "1" "name_type" "cl" $cell36 setProp "libunit" "System" "name_type" "cl" $cell36 setScope "name_type" "de" "scopeSystem" set cell37 [$row35 addCell parameter 0.0] $cell37 setLabel "name_type" "Button: TMouseButton, " $cell37 setScope "name_type" "cl" "scopePhase" $cell37 setProp "is_vcl" "1" "name_type" "cl" $cell37 setProp "libunit" "Controls" "name_type" "cl" $cell37 setScope "name_type" "de" "scopeSystem" set cell38 [$row35 addCell parameter 0.0] $cell38 setLabel "name_type" "Shift: TShiftState, " $cell38 setScope "name_type" "cl" "scopePhase" $cell38 setProp "is_vcl" "1" "name_type" "cl" $cell38 setProp "libunit" "Classes" "name_type" "cl" $cell38 setScope "name_type" "de" "scopeSystem" set cell39 [$row35 addCell parameter 0.0] $cell39 setLabel "name_type" "X: int, " $cell39 setScope "name_type" "cl" "scopePhase" $cell39 setScope "name_type" "de" "scopeSystem" set cell40 [$row35 addCell parameter 0.0] $cell40 setLabel "name_type" "Y: int" $cell40 setScope "name_type" "cl" "scopePhase" $cell40 setScope "name_type" "de" "scopeSystem" set row41 [$diag addRow method 0.0] $row41 setLabel "name_type" "MouseMove()\n" $row41 setProp "has_parmlist" "1" $row41 setProp "is_event" "1" set cell42 [$row41 addCell parameter 0.0] $cell42 setLabel "name_type" "Sender: TObject, " $cell42 setScope "name_type" "cl" "scopePhase" $cell42 setProp "is_vcl" "1" "name_type" "cl" $cell42 setProp "libunit" "System" "name_type" "cl" $cell42 setScope "name_type" "de" "scopeSystem" set cell43 [$row41 addCell parameter 0.0] $cell43 setLabel "name_type" "Shift: TShiftState, " $cell43 setScope "name_type" "cl" "scopePhase" $cell43 setProp "is_vcl" "1" "name_type" "cl" $cell43 setProp "libunit" "Classes" "name_type" "cl" $cell43 setScope "name_type" "de" "scopeSystem" set cell44 [$row41 addCell parameter 0.0] $cell44 setLabel "name_type" "X: int, " $cell44 setScope "name_type" "cl" "scopePhase" $cell44 setScope "name_type" "de" "scopeSystem" set cell45 [$row41 addCell parameter 0.0] $cell45 setLabel "name_type" "Y: int" $cell45 setScope "name_type" "cl" "scopePhase" $cell45 setScope "name_type" "de" "scopeSystem" set row46 [$diag addRow method 0.0] $row46 setLabel "name_type" "MouseUp()" $row46 setProp "has_parmlist" "1" $row46 setProp "is_event" "1" set cell47 [$row46 addCell parameter 0.0] $cell47 setLabel "name_type" "Sender: TObject, " $cell47 setScope "name_type" "cl" "scopePhase" $cell47 setProp "is_vcl" "1" "name_type" "cl" $cell47 setProp "libunit" "System" "name_type" "cl" $cell47 setScope "name_type" "de" "scopeSystem" set cell48 [$row46 addCell parameter 0.0] $cell48 setLabel "name_type" "Button: TMouseButton, " $cell48 setScope "name_type" "cl" "scopePhase" $cell48 setProp "is_vcl" "1" "name_type" "cl" $cell48 setProp "libunit" "Controls" "name_type" "cl" $cell48 setScope "name_type" "de" "scopeSystem" set cell49 [$row46 addCell parameter 0.0] $cell49 setLabel "name_type" "Shift: TShiftState, " $cell49 setScope "name_type" "cl" "scopePhase" $cell49 setProp "is_vcl" "1" "name_type" "cl" $cell49 setProp "libunit" "Classes" "name_type" "cl" $cell49 setScope "name_type" "de" "scopeSystem" set cell50 [$row46 addCell parameter 0.0] $cell50 setLabel "name_type" "X: int, " $cell50 setScope "name_type" "cl" "scopePhase" $cell50 setScope "name_type" "de" "scopeSystem" set cell51 [$row46 addCell parameter 0.0] $cell51 setLabel "name_type" "Y: int" $cell51 setScope "name_type" "cl" "scopePhase" $cell51 setScope "name_type" "de" "scopeSystem" $diag save # Generator: et.tcl /main/hindenburg/19 # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl # Interpreter to use: Otsh V6.1.1/B1 # OTShRegister::importTool set diag [CAD new ButtonsClasses "DelphiVCL" "" "" "" "" "" 1] set node54 [$diag addNode cad_class 768.0 768.0 120.0 33.0] $node54 setLabel "name" "TSpeedButton" $node54 setProp "is_folded" "1" $node54 setScope "name" "cl" "scopePhase" $node54 setProp "is_vcl" "1" "name" "cl" $node54 setProp "libunit" "Other" "name" "cl" $node54 setProp "userlib" "Buttons" "name" "cl" set node55 [$diag addNode cad_class 768.0 656.0 131.0 33.0] $node55 setLabel "name" "TGraphicControl" $node55 setProp "is_folded" "1" $node55 setScope "name" "cl" "scopePhase" $node55 setProp "is_vcl" "1" "name" "cl" $node55 setProp "libunit" "Controls" "name" "cl" set node56 [$diag addNode cad_class 560.0 656.0 120.0 33.0] $node56 setLabel "name" "TButton" $node56 setProp "is_folded" "1" $node56 setScope "name" "cl" "scopePhase" $node56 setProp "is_vcl" "1" "name" "cl" $node56 setProp "libunit" "StdCtrls" "name" "cl" set node57 [$diag addNode cad_class 560.0 768.0 120.0 33.0] $node57 setLabel "name" "TBitBtn" $node57 setProp "is_folded" "1" $node57 setScope "name" "cl" "scopePhase" $node57 setProp "is_vcl" "1" "name" "cl" $node57 setProp "libunit" "Other" "name" "cl" $node57 setProp "userlib" "Buttons" "name" "cl" set node52 [$diag addRake generalization $node55 $node54 832.0 688.0 832.0 784.0 735.5] set conn58 [$node52 getInConn] set segm59 [$conn58 getFirstSegm] set conn60 [$node52 getFirstOutConn] set segm61 [$conn60 getFirstSegm] set node53 [$diag addRake generalization $node56 $node57 624.0 688.0 624.0 768.0 728.0] set conn62 [$node53 getInConn] set segm63 [$conn62 getFirstSegm] set conn64 [$node53 getFirstOutConn] set segm65 [$conn64 getFirstSegm] $diag save # Generator: et.tcl /main/hindenburg/19 # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl # Interpreter to use: Otsh V6.1.1/B1 # OTShRegister::importTool set diag [CDM new TSpeedButton "DelphiVCL" "" "" "" "" "" 1] set row66 [$diag addRow method 0.0] $row66 setLabel "name_type" "Click()\n" $row66 setProp "has_parmlist" "1" $row66 setProp "is_event" "1" set cell67 [$row66 addCell parameter 0.0] $cell67 setLabel "name_type" "Sender: TObject" $cell67 setScope "name_type" "cl" "scopePhase" $cell67 setProp "is_vcl" "1" "name_type" "cl" $cell67 setProp "libunit" "System" "name_type" "cl" $cell67 setScope "name_type" "de" "scopeSystem" set row68 [$diag addRow method 0.0] $row68 setLabel "name_type" "DblClick()\n" $row68 setProp "has_parmlist" "1" $row68 setProp "is_event" "1" set cell69 [$row68 addCell parameter 0.0] $cell69 setLabel "name_type" "Sender: TObject" $cell69 setScope "name_type" "cl" "scopePhase" $cell69 setProp "is_vcl" "1" "name_type" "cl" $cell69 setProp "libunit" "System" "name_type" "cl" $cell69 setScope "name_type" "de" "scopeSystem" set row70 [$diag addRow method 0.0] $row70 setLabel "name_type" "MouseDown()\n" $row70 setProp "has_parmlist" "1" $row70 setProp "is_event" "1" set cell71 [$row70 addCell parameter 0.0] $cell71 setLabel "name_type" "Sender: TObject, " $cell71 setScope "name_type" "cl" "scopePhase" $cell71 setProp "is_vcl" "1" "name_type" "cl" $cell71 setProp "libunit" "System" "name_type" "cl" $cell71 setScope "name_type" "de" "scopeSystem" set cell72 [$row70 addCell parameter 0.0] $cell72 setLabel "name_type" "Button: TMouseButton, " $cell72 setScope "name_type" "cl" "scopePhase" $cell72 setProp "is_vcl" "1" "name_type" "cl" $cell72 setProp "libunit" "Controls" "name_type" "cl" $cell72 setScope "name_type" "de" "scopeSystem" set cell73 [$row70 addCell parameter 0.0] $cell73 setLabel "name_type" "Shift: TShiftState, " $cell73 setScope "name_type" "cl" "scopePhase" $cell73 setProp "is_vcl" "1" "name_type" "cl" $cell73 setProp "libunit" "Classes" "name_type" "cl" $cell73 setScope "name_type" "de" "scopeSystem" set cell74 [$row70 addCell parameter 0.0] $cell74 setLabel "name_type" "X: int, " $cell74 setScope "name_type" "cl" "scopePhase" $cell74 setScope "name_type" "de" "scopeSystem" set cell75 [$row70 addCell parameter 0.0] $cell75 setLabel "name_type" "Y: int" $cell75 setScope "name_type" "cl" "scopePhase" $cell75 setScope "name_type" "de" "scopeSystem" set row76 [$diag addRow method 0.0] $row76 setLabel "name_type" "MouseMove()\n" $row76 setProp "has_parmlist" "1" $row76 setProp "is_event" "1" set cell77 [$row76 addCell parameter 0.0] $cell77 setLabel "name_type" "Sender: TObject, " $cell77 setScope "name_type" "cl" "scopePhase" $cell77 setProp "is_vcl" "1" "name_type" "cl" $cell77 setProp "libunit" "System" "name_type" "cl" $cell77 setScope "name_type" "de" "scopeSystem" set cell78 [$row76 addCell parameter 0.0] $cell78 setLabel "name_type" "Shift: TShiftState, " $cell78 setScope "name_type" "cl" "scopePhase" $cell78 setProp "is_vcl" "1" "name_type" "cl" $cell78 setProp "libunit" "Classes" "name_type" "cl" $cell78 setScope "name_type" "de" "scopeSystem" set cell79 [$row76 addCell parameter 0.0] $cell79 setLabel "name_type" "X: int, " $cell79 setScope "name_type" "cl" "scopePhase" $cell79 setScope "name_type" "de" "scopeSystem" set cell80 [$row76 addCell parameter 0.0] $cell80 setLabel "name_type" "Y: int" $cell80 setScope "name_type" "cl" "scopePhase" $cell80 setScope "name_type" "de" "scopeSystem" set row81 [$diag addRow method 0.0] $row81 setLabel "name_type" "MouseUp()" $row81 setProp "has_parmlist" "1" $row81 setProp "is_event" "1" set cell82 [$row81 addCell parameter 0.0] $cell82 setLabel "name_type" "Sender: TObject, " $cell82 setScope "name_type" "cl" "scopePhase" $cell82 setProp "is_vcl" "1" "name_type" "cl" $cell82 setProp "libunit" "System" "name_type" "cl" $cell82 setScope "name_type" "de" "scopeSystem" set cell83 [$row81 addCell parameter 0.0] $cell83 setLabel "name_type" "Button: TMouseButton, " $cell83 setScope "name_type" "cl" "scopePhase" $cell83 setProp "is_vcl" "1" "name_type" "cl" $cell83 setProp "libunit" "Controls" "name_type" "cl" $cell83 setScope "name_type" "de" "scopeSystem" set cell84 [$row81 addCell parameter 0.0] $cell84 setLabel "name_type" "Shift: TShiftState, " $cell84 setScope "name_type" "cl" "scopePhase" $cell84 setProp "is_vcl" "1" "name_type" "cl" $cell84 setProp "libunit" "Classes" "name_type" "cl" $cell84 setScope "name_type" "de" "scopeSystem" set cell85 [$row81 addCell parameter 0.0] $cell85 setLabel "name_type" "X: int, " $cell85 setScope "name_type" "cl" "scopePhase" $cell85 setScope "name_type" "de" "scopeSystem" set cell86 [$row81 addCell parameter 0.0] $cell86 setLabel "name_type" "Y: int" $cell86 setScope "name_type" "cl" "scopePhase" $cell86 setScope "name_type" "de" "scopeSystem" $diag save # Generator: et.tcl /main/hindenburg/19 # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl # Interpreter to use: Otsh V6.1.1/B1 # OTShRegister::importTool set diag [CAD new DBClasses "DelphiVCL" "" "" "" "" "" 1] set node88 [$diag addNode cad_class 1280.0 896.0 120.0 33.0] $node88 setLabel "name" "TDataBase" $node88 setProp "is_folded" "1" $node88 setScope "name" "cl" "scopePhase" $node88 setProp "is_vcl" "1" "name" "cl" $node88 setProp "libunit" "Other" "name" "cl" $node88 setProp "userlib" "DB" "name" "cl" set node89 [$diag addNode cad_class 1120.0 896.0 120.0 33.0] $node89 setLabel "name" "TDataSource" $node89 setProp "is_folded" "1" $node89 setScope "name" "cl" "scopePhase" $node89 setProp "is_vcl" "1" "name" "cl" $node89 setProp "libunit" "Other" "name" "cl" $node89 setProp "userlib" "DB" "name" "cl" set node90 [$diag addNode cad_class 1040.0 800.0 120.0 33.0] $node90 setLabel "name" "TComponent" $node90 setProp "is_folded" "1" $node90 setScope "name" "cl" "scopePhase" $node90 setProp "is_vcl" "1" "name" "cl" $node90 setProp "libunit" "Classes" "name" "cl" set node91 [$diag addNode cad_class 960.0 896.0 120.0 33.0] $node91 setLabel "name" "TSession" $node91 setProp "is_folded" "1" $node91 setScope "name" "cl" "scopePhase" $node91 setProp "is_vcl" "1" "name" "cl" $node91 setProp "libunit" "Other" "name" "cl" $node91 setProp "userlib" "DB" "name" "cl" set node92 [$diag addNode cad_class 800.0 896.0 120.0 33.0] $node92 setLabel "name" "TField" $node92 setProp "is_folded" "1" $node92 setScope "name" "cl" "scopePhase" $node92 setProp "is_vcl" "1" "name" "cl" $node92 setProp "libunit" "Other" "name" "cl" $node92 setProp "userlib" "DB" "name" "cl" set node87 [$diag addRake generalization $node90 $node88 1104.0 832.0 1344.0 912.0 872.0] set conn93 [$node87 getInConn] set segm94 [$conn93 getFirstSegm] set conn95 [$node87 getFirstOutConn] set segm96 [$conn95 getFirstSegm] set conn97 [$diag addConn generalization_conn $node87 $node89 1136.0 872.5 1184.0 896.0] set segm98 [$conn97 getFirstSegm] set conn99 [$diag addConn generalization_conn $node87 $node91 1136.0 872.5 1024.0 912.0] set segm100 [$conn99 getFirstSegm] set conn101 [$diag addConn generalization_conn $node87 $node92 1114.0 872.5 864.0 912.0] set segm102 [$conn101 getFirstSegm] $diag save # Generator: et.tcl /main/hindenburg/19 # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl # Interpreter to use: Otsh V6.1.1/B1 # OTShRegister::importTool set diag [CAD new DialogsClasses "DelphiVCL" "" "" "" "" "" 1] set node107 [$diag addNode cad_class 1280.0 752.0 157.0 33.0] $node107 setLabel "name" "TPrinterSetupDialog" $node107 setProp "is_folded" "1" $node107 setScope "name" "cl" "scopePhase" $node107 setProp "is_vcl" "1" "name" "cl" $node107 setProp "libunit" "Other" "name" "cl" $node107 setProp "userlib" "Dialogs" "name" "cl" set node108 [$diag addNode cad_class 1136.0 752.0 120.0 33.0] $node108 setLabel "name" "TPrintDialog" $node108 setProp "is_folded" "1" $node108 setScope "name" "cl" "scopePhase" $node108 setProp "is_vcl" "1" "name" "cl" $node108 setProp "libunit" "Other" "name" "cl" $node108 setProp "userlib" "Dialogs" "name" "cl" set node109 [$diag addNode cad_class 992.0 848.0 120.0 33.0] $node109 setLabel "name" "TSaveDialog" $node109 setProp "is_folded" "1" $node109 setScope "name" "cl" "scopePhase" $node109 setProp "is_vcl" "1" "name" "cl" $node109 setProp "libunit" "Other" "name" "cl" $node109 setProp "userlib" "Dialogs" "name" "cl" set node110 [$diag addNode cad_class 992.0 752.0 120.0 33.0] $node110 setLabel "name" "TOpenDialog" $node110 setProp "is_folded" "1" $node110 setScope "name" "cl" "scopePhase" $node110 setProp "is_vcl" "1" "name" "cl" $node110 setProp "libunit" "Other" "name" "cl" $node110 setProp "userlib" "Dialogs" "name" "cl" set node111 [$diag addNode cad_class 848.0 752.0 120.0 33.0] $node111 setLabel "name" "TFontDialog" $node111 setProp "is_folded" "1" $node111 setScope "name" "cl" "scopePhase" $node111 setProp "is_vcl" "1" "name" "cl" $node111 setProp "libunit" "Other" "name" "cl" $node111 setProp "userlib" "Dialogs" "name" "cl" set node112 [$diag addNode cad_class 704.0 848.0 124.0 33.0] $node112 setLabel "name" "TReplaceDialog" $node112 setProp "is_folded" "1" $node112 setScope "name" "cl" "scopePhase" $node112 setProp "is_vcl" "1" "name" "cl" $node112 setProp "libunit" "Other" "name" "cl" $node112 setProp "userlib" "Dialogs" "name" "cl" set node113 [$diag addNode cad_class 704.0 752.0 120.0 33.0] $node113 setLabel "name" "TFindDialog" $node113 setProp "is_folded" "1" $node113 setScope "name" "cl" "scopePhase" $node113 setProp "is_vcl" "1" "name" "cl" $node113 setProp "libunit" "Other" "name" "cl" $node113 setProp "userlib" "Dialogs" "name" "cl" set node114 [$diag addNode cad_class 560.0 752.0 120.0 33.0] $node114 setLabel "name" "TColorDialog" $node114 setProp "is_folded" "1" $node114 setScope "name" "cl" "scopePhase" $node114 setProp "is_vcl" "1" "name" "cl" $node114 setProp "libunit" "Other" "name" "cl" $node114 setProp "userlib" "Dialogs" "name" "cl" set node115 [$diag addNode cad_class 912.0 656.0 130.0 33.0] $node115 setLabel "name" "TCommonDialog" $node115 setProp "is_folded" "1" $node115 setScope "name" "cl" "scopePhase" $node115 setProp "is_vcl" "1" "name" "cl" $node115 setProp "libunit" "Other" "name" "cl" $node115 setProp "userlib" "Dialogs" "name" "cl" set node116 [$diag addNode cad_class 912.0 560.0 120.0 33.0] $node116 setLabel "name" "TComponent" $node116 setProp "is_folded" "1" $node116 setScope "name" "cl" "scopePhase" $node116 setProp "is_vcl" "1" "name" "cl" $node116 setProp "libunit" "Classes" "name" "cl" set node103 [$diag addRake generalization $node110 $node109 1056.0 784.0 1056.0 864.0 824.0] set conn117 [$node103 getInConn] set segm118 [$conn117 getFirstSegm] set conn119 [$node103 getFirstOutConn] set segm120 [$conn119 getFirstSegm] set node104 [$diag addRake generalization $node113 $node112 768.0 784.0 768.0 864.0 824.0] set conn121 [$node104 getInConn] set segm122 [$conn121 getFirstSegm] set conn123 [$node104 getFirstOutConn] set segm124 [$conn123 getFirstSegm] set node105 [$diag addRake generalization $node115 $node114 976.0 688.0 624.0 752.0 720.0] set conn125 [$node105 getInConn] set segm126 [$conn125 getFirstSegm] set conn127 [$node105 getFirstOutConn] set segm128 [$conn127 getFirstSegm] set conn129 [$diag addConn generalization_conn $node105 $node107 976.0 720.5 1360.0 768.0] set segm130 [$conn129 getFirstSegm] set conn131 [$diag addConn generalization_conn $node105 $node108 976.0 720.5 1200.0 768.0] set segm132 [$conn131 getFirstSegm] set conn133 [$diag addConn generalization_conn $node105 $node110 976.0 720.5 1056.0 752.0] set segm134 [$conn133 getFirstSegm] set conn135 [$diag addConn generalization_conn $node105 $node111 976.0 720.5 912.0 768.0] set segm136 [$conn135 getFirstSegm] set conn137 [$diag addConn generalization_conn $node105 $node113 986.0 720.5 768.0 752.0] set segm138 [$conn137 getFirstSegm] set node106 [$diag addRake generalization $node116 $node115 976.0 592.0 976.0 672.0 632.0] set conn139 [$node106 getInConn] set segm140 [$conn139 getFirstSegm] set conn141 [$node106 getFirstOutConn] set segm142 [$conn141 getFirstSegm] $diag save # Generator: et.tcl /main/hindenburg/19 # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl # Interpreter to use: Otsh V6.1.1/B1 # OTShRegister::importTool set diag [CDM new TFindDialog "DelphiVCL" "" "" "" "" "" 1] set row143 [$diag addRow method 0.0] $row143 setLabel "name_type" "Find()" $row143 setProp "has_parmlist" "1" $row143 setProp "is_event" "1" set cell144 [$row143 addCell parameter 0.0] $cell144 setLabel "name_type" "Sender: TObject" $cell144 setScope "name_type" "cl" "scopePhase" $cell144 setProp "is_vcl" "1" "name_type" "cl" $cell144 setProp "libunit" "System" "name_type" "cl" $cell144 setScope "name_type" "de" "scopeSystem" $diag save # Generator: et.tcl /main/hindenburg/19 # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl # Interpreter to use: Otsh V6.1.1/B1 # OTShRegister::importTool set diag [CDM new TReplaceDialog "DelphiVCL" "" "" "" "" "" 1] set row145 [$diag addRow method 0.0] $row145 setLabel "name_type" "Find()\n" $row145 setProp "has_parmlist" "1" $row145 setProp "is_event" "1" set cell146 [$row145 addCell parameter 0.0] $cell146 setLabel "name_type" "Sender: TObject" $cell146 setScope "name_type" "cl" "scopePhase" $cell146 setProp "is_vcl" "1" "name_type" "cl" $cell146 setProp "libunit" "System" "name_type" "cl" $cell146 setScope "name_type" "de" "scopeSystem" set row147 [$diag addRow method 0.0] $row147 setLabel "name_type" "Replace()" $row147 setProp "has_parmlist" "1" $row147 setProp "is_event" "1" set cell148 [$row147 addCell parameter 0.0] $cell148 setLabel "name_type" "Sender: TObject" $cell148 setScope "name_type" "cl" "scopePhase" $cell148 setProp "is_vcl" "1" "name_type" "cl" $cell148 setProp "libunit" "System" "name_type" "cl" $cell148 setScope "name_type" "de" "scopeSystem" $diag save # Generator: et.tcl /main/hindenburg/19 # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl # Interpreter to use: Otsh V6.1.1/B1 # OTShRegister::importTool set diag [CDM new TFontDialog "DelphiVCL" "" "" "" "" "" 1] set row149 [$diag addRow method 0.0] $row149 setLabel "name_type" "Apply()" $row149 setProp "has_parmlist" "1" $row149 setProp "is_event" "1" set cell150 [$row149 addCell parameter 0.0] $cell150 setLabel "name_type" "Sender: TObject, " $cell150 setScope "name_type" "cl" "scopePhase" $cell150 setProp "is_vcl" "1" "name_type" "cl" $cell150 setProp "libunit" "System" "name_type" "cl" $cell150 setScope "name_type" "de" "scopeSystem" set cell151 [$row149 addCell parameter 0.0] $cell151 setLabel "name_type" "Wnd: HWND" $cell151 setScope "name_type" "cl" "scopePhase" $cell151 setProp "is_vcl" "1" "name_type" "cl" $cell151 setProp "libunit" "System" "name_type" "cl" $cell151 setScope "name_type" "de" "scopeSystem" $diag save # Generator: et.tcl /main/hindenburg/19 # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl # Interpreter to use: Otsh V6.1.1/B1 # OTShRegister::importTool set diag [CAD new RTLTypes "DelphiVCL" "" "" "" "" "" 1] set node152 [$diag addNode cad_class 640.0 624.0 120.0 33.0] $node152 setLabel "name" "TObject" $node152 setProp "is_folded" "1" $node152 setScope "name" "cl" "scopePhase" $node152 setProp "is_vcl" "1" "name" "cl" $node152 setProp "libunit" "System" "name" "cl" set node153 [$diag addNode cad_class 480.0 624.0 120.0 33.0] $node153 setLabel "name" "HWND" $node153 setProp "is_folded" "1" $node153 setScope "name" "cl" "scopePhase" $node153 setProp "is_vcl" "1" "name" "cl" $node153 setProp "libunit" "System" "name" "cl" set node154 [$diag addNode cad_class 320.0 624.0 120.0 33.0] $node154 setLabel "name" "TRect" $node154 setProp "is_folded" "1" $node154 setScope "name" "cl" "scopePhase" $node154 setProp "is_vcl" "1" "name" "cl" $node154 setProp "libunit" "Other" "name" "cl" $node154 setProp "userlib" "Windows" "name" "cl" $diag save # Generator: et.tcl /main/hindenburg/19 # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl # Interpreter to use: Otsh V6.1.1/B1 # OTShRegister::importTool set diag [CDM new TObject "DelphiVCL" "" "" "" "" "" 1] $diag save # Generator: et.tcl /main/hindenburg/19 # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl # Interpreter to use: Otsh V6.1.1/B1 # OTShRegister::importTool set diag [CAD new ClassDict "DelphiVCL" "" "" "" "" "" 1] set node155 [$diag addNode cad_class 864.0 704.0 123.0 119.0] $node155 setLabel "name" "TClassDictElem" $node155 setScope "name" "cl" "scopePhase" $node155 setProp "is_vcl" "1" "name" "cl" $node155 setProp "libunit" "Other" "name" "cl" $node155 setProp "userlib" "ClassDict" "name" "cl" set node156 [$diag addNode cad_class 512.0 704.0 212.0 231.0] $node156 setLabel "name" "TClassDict" $node156 setScope "name" "cl" "scopePhase" $node156 setProp "is_vcl" "1" "name" "cl" $node156 setProp "libunit" "Other" "name" "cl" $node156 setProp "userlib" "ClassDict" "name" "cl" set conn157 [$diag addConn association $node156 $node155 720.0 768.0 880.0 768.0] $conn157 setLabel "role_end" "elem" $conn157 setProp "mult_kind_end" "many" $conn157 setProp "mult_kind_start" "optional" set segm158 [$conn157 getFirstSegm] $diag save # Generator: et.tcl /main/hindenburg/19 # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl # Interpreter to use: Otsh V6.1.1/B1 # OTShRegister::importTool set diag [CAD new FormsClasses "DelphiVCL" "" "" "" "" "" 1] set node160 [$diag addNode cad_class 1376.0 800.0 120.0 33.0] $node160 setLabel "name" "TDesigner" $node160 setProp "is_folded" "1" $node160 setScope "name" "cl" "scopePhase" $node160 setProp "is_vcl" "1" "name" "cl" $node160 setProp "libunit" "Forms" "name" "cl" set node161 [$diag addNode cad_class 1216.0 688.0 120.0 33.0] $node161 setLabel "name" "TObject" $node161 setProp "is_folded" "1" $node161 setScope "name" "cl" "scopePhase" $node161 setProp "is_vcl" "1" "name" "cl" $node161 setProp "libunit" "System" "name" "cl" set node166 [$diag addNode cad_class 1104.0 1312.0 120.0 33.0] $node166 setLabel "name" "TScrollBox" $node166 setProp "is_folded" "1" $node166 setScope "name" "cl" "scopePhase" $node166 setProp "is_vcl" "1" "name" "cl" $node166 setProp "libunit" "Forms" "name" "cl" set node167 [$diag addNode cad_class 1312.0 1008.0 120.0 33.0] $node167 setLabel "name" "TScreen" $node167 setProp "is_folded" "1" $node167 setScope "name" "cl" "scopePhase" $node167 setProp "is_vcl" "1" "name" "cl" $node167 setProp "libunit" "Forms" "name" "cl" set node168 [$diag addNode cad_class 944.0 1312.0 120.0 33.0] $node168 setLabel "name" "TForm" $node168 setProp "is_folded" "1" $node168 setScope "name" "cl" "scopePhase" $node168 setProp "is_declaration" "1" "name" "cl" $node168 setProp "is_vcl" "1" "name" "cl" $node168 setProp "libunit" "Forms" "name" "cl" set node169 [$diag addNode cad_class 1008.0 1200.0 166.0 35.0] $node169 setLabel "name" "TScrollingWinControl" $node169 setProp "is_folded" "1" $node169 setScope "name" "cl" "scopePhase" $node169 setProp "is_vcl" "1" "name" "cl" $node169 setProp "libunit" "Forms" "name" "cl" set node170 [$diag addNode cad_class 960.0 912.0 141.0 33.0] $node170 setLabel "name" "TControlScrollBar" $node170 setProp "is_folded" "1" $node170 setScope "name" "cl" "scopePhase" $node170 setProp "is_vcl" "1" "name" "cl" $node170 setProp "libunit" "Forms" "name" "cl" set node171 [$diag addNode cad_class 1168.0 1008.0 120.0 33.0] $node171 setLabel "name" "TApplication" $node171 setProp "is_folded" "1" $node171 setScope "name" "cl" "scopePhase" $node171 setProp "is_vcl" "1" "name" "cl" $node171 setProp "libunit" "Forms" "name" "cl" set node172 [$diag addNode cad_class 1024.0 1104.0 120.0 33.0] $node172 setLabel "name" "TWinControl" $node172 setProp "is_folded" "1" $node172 setScope "name" "cl" "scopePhase" $node172 setProp "is_vcl" "1" "name" "cl" $node172 setProp "libunit" "Controls" "name" "cl" set node173 [$diag addNode cad_class 1056.0 800.0 120.0 33.0] $node173 setLabel "name" "TPersistent" $node173 setProp "is_folded" "1" $node173 setScope "name" "cl" "scopePhase" $node173 setProp "is_vcl" "1" "name" "cl" $node173 setProp "libunit" "Classes" "name" "cl" set node174 [$diag addNode cad_class 1216.0 912.0 120.0 33.0] $node174 setLabel "name" "TComponent" $node174 setProp "is_folded" "1" $node174 setScope "name" "cl" "scopePhase" $node174 setProp "is_vcl" "1" "name" "cl" $node174 setProp "libunit" "Classes" "name" "cl" set node159 [$diag addRake generalization $node161 $node160 1280.0 720.0 1440.0 816.0 768.0] set conn175 [$node159 getInConn] set segm176 [$conn175 getFirstSegm] set conn177 [$node159 getFirstOutConn] set segm178 [$conn177 getFirstSegm] set node162 [$diag addRake generalization $node169 $node166 1088.0 1235.0 1168.0 1328.0 1279.5] set conn179 [$node162 getInConn] set segm180 [$conn179 getFirstSegm] set conn181 [$node162 getFirstOutConn] set segm182 [$conn181 getFirstSegm] set conn183 [$diag addConn generalization_conn $node162 $node168 1098.0 1280.0 1008.0 1328.0] set segm184 [$conn183 getFirstSegm] set node163 [$diag addRake generalization $node172 $node169 1088.0 1136.0 1088.0 1216.0 1167.5] set conn185 [$node163 getInConn] set segm186 [$conn185 getFirstSegm] set conn187 [$node163 getFirstOutConn] set segm188 [$conn187 getFirstSegm] set node164 [$diag addRake generalization $node173 $node170 1120.0 832.0 1040.0 928.0 863.5] set conn189 [$node164 getInConn] set segm190 [$conn189 getFirstSegm] set conn191 [$node164 getFirstOutConn] set segm192 [$conn191 getFirstSegm] set node165 [$diag addRake generalization $node174 $node167 1280.0 944.0 1392.0 1024.0 975.5] set conn193 [$node165 getInConn] set segm194 [$conn193 getFirstSegm] set conn195 [$node165 getFirstOutConn] set segm196 [$conn195 getFirstSegm] set conn197 [$diag addConn generalization_conn $node165 $node171 1248.0 976.0 1248.0 1024.0] set segm198 [$conn197 getFirstSegm] $diag save # Generator: et.tcl /main/hindenburg/19 # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl # Interpreter to use: Otsh V6.1.1/B1 # OTShRegister::importTool set diag [CDM new TScreen "DelphiVCL" "" "" "" "" "" 1] set row199 [$diag addRow method 0.0] $row199 setLabel "name_type" "ActiveControlChange()\n" $row199 setProp "has_parmlist" "1" $row199 setProp "is_event" "1" set cell200 [$row199 addCell parameter 0.0] $cell200 setLabel "name_type" "Sender: TObject" $cell200 setScope "name_type" "cl" "scopePhase" $cell200 setProp "is_vcl" "1" "name_type" "cl" $cell200 setProp "libunit" "System" "name_type" "cl" $cell200 setScope "name_type" "de" "scopeSystem" set row201 [$diag addRow method 0.0] $row201 setLabel "name_type" "ActiveFormChange()" $row201 setProp "has_parmlist" "1" $row201 setProp "is_event" "1" set cell202 [$row201 addCell parameter 0.0] $cell202 setLabel "name_type" "Sender: TObject" $cell202 setScope "name_type" "cl" "scopePhase" $cell202 setProp "is_vcl" "1" "name_type" "cl" $cell202 setProp "libunit" "System" "name_type" "cl" $cell202 setScope "name_type" "de" "scopeSystem" $diag save # Generator: et.tcl /main/hindenburg/19 # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl # Interpreter to use: Otsh V6.1.1/B1 # OTShRegister::importTool set diag [CDM new TApplication "DelphiVCL" "" "" "" "" "" 1] set row203 [$diag addRow method 0.0] $row203 setLabel "name_type" "Activate()\n" $row203 setProp "has_parmlist" "1" $row203 setProp "is_event" "1" set cell204 [$row203 addCell parameter 0.0] $cell204 setLabel "name_type" "Sender: TObject" $cell204 setScope "name_type" "cl" "scopePhase" $cell204 setProp "is_vcl" "1" "name_type" "cl" $cell204 setProp "libunit" "System" "name_type" "cl" $cell204 setScope "name_type" "de" "scopeSystem" set row205 [$diag addRow method 0.0] $row205 setLabel "name_type" "Deactivate()\n" $row205 setProp "has_parmlist" "1" $row205 setProp "is_event" "1" set cell206 [$row205 addCell parameter 0.0] $cell206 setLabel "name_type" "Sender: TObject" $cell206 setScope "name_type" "cl" "scopePhase" $cell206 setProp "is_vcl" "1" "name_type" "cl" $cell206 setProp "libunit" "System" "name_type" "cl" $cell206 setScope "name_type" "de" "scopeSystem" set row207 [$diag addRow method 0.0] $row207 setLabel "name_type" "Exception()\n" $row207 setProp "has_parmlist" "1" $row207 setProp "is_event" "1" set cell208 [$row207 addCell parameter 0.0] $cell208 setLabel "name_type" "Sender: TObject, " $cell208 setScope "name_type" "cl" "scopePhase" $cell208 setProp "is_vcl" "1" "name_type" "cl" $cell208 setProp "libunit" "System" "name_type" "cl" $cell208 setScope "name_type" "de" "scopeSystem" set cell209 [$row207 addCell parameter 0.0] $cell209 setLabel "name_type" "E: Exception" $cell209 setScope "name_type" "cl" "scopePhase" $cell209 setProp "is_vcl" "1" "name_type" "cl" $cell209 setProp "libunit" "SysUtils" "name_type" "cl" $cell209 setScope "name_type" "de" "scopeSystem" set row210 [$diag addRow method 0.0] $row210 setLabel "name_type" "Help()\n" $row210 setProp "has_parmlist" "1" $row210 setProp "is_event" "1" set cell211 [$row210 addCell parameter 0.0] $cell211 setLabel "name_type" "Command: word, " $cell211 setScope "name_type" "cl" "scopePhase" $cell211 setScope "name_type" "de" "scopeSystem" set cell212 [$row210 addCell parameter 0.0] $cell212 setLabel "name_type" "Data: longint, " $cell212 setScope "name_type" "cl" "scopePhase" $cell212 setScope "name_type" "de" "scopeSystem" set cell213 [$row210 addCell parameter 0.0] $cell213 setLabel "name_type" "CallHelp: boolean" $cell213 setProp "pass_by" "Variable" $cell213 setScope "name_type" "cl" "scopePhase" $cell213 setScope "name_type" "de" "scopeSystem" set row214 [$diag addRow method 0.0] $row214 setLabel "name_type" "Hint()\n" $row214 setProp "has_parmlist" "1" $row214 setProp "is_event" "1" set cell215 [$row214 addCell parameter 0.0] $cell215 setLabel "name_type" "Sender: TObject" $cell215 setScope "name_type" "cl" "scopePhase" $cell215 setProp "is_vcl" "1" "name_type" "cl" $cell215 setProp "libunit" "System" "name_type" "cl" $cell215 setScope "name_type" "de" "scopeSystem" set row216 [$diag addRow method 0.0] $row216 setLabel "name_type" "Idle()\n" $row216 setProp "has_parmlist" "1" $row216 setProp "is_event" "1" set cell217 [$row216 addCell parameter 0.0] $cell217 setLabel "name_type" "Sender: TObject, " $cell217 setScope "name_type" "cl" "scopePhase" $cell217 setProp "is_vcl" "1" "name_type" "cl" $cell217 setProp "libunit" "System" "name_type" "cl" $cell217 setScope "name_type" "de" "scopeSystem" set cell218 [$row216 addCell parameter 0.0] $cell218 setLabel "name_type" "Done: boolean" $cell218 setProp "pass_by" "Variable" $cell218 setScope "name_type" "cl" "scopePhase" $cell218 setScope "name_type" "de" "scopeSystem" set row219 [$diag addRow method 0.0] $row219 setLabel "name_type" "Message()" $row219 setProp "has_parmlist" "1" $row219 setProp "is_event" "1" set cell220 [$row219 addCell parameter 0.0] $cell220 setLabel "name_type" "Msg: TMsg, " $cell220 setProp "pass_by" "Variable" $cell220 setScope "name_type" "cl" "scopePhase" $cell220 setProp "is_vcl" "1" "name_type" "cl" $cell220 setProp "libunit" "Forms" "name_type" "cl" $cell220 setScope "name_type" "de" "scopeSystem" set cell221 [$row219 addCell parameter 0.0] $cell221 setLabel "name_type" "Handled: boolean" $cell221 setProp "pass_by" "Variable" $cell221 setScope "name_type" "cl" "scopePhase" $cell221 setScope "name_type" "de" "scopeSystem" $diag save # Generator: et.tcl /main/hindenburg/19 # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl # Interpreter to use: Otsh V6.1.1/B1 # OTShRegister::importTool set diag [CDM new TScrollBox "DelphiVCL" "" "" "" "" "" 1] set row222 [$diag addRow method 0.0] $row222 setLabel "name_type" "Click()\n" $row222 setProp "has_parmlist" "1" $row222 setProp "is_event" "1" set cell223 [$row222 addCell parameter 0.0] $cell223 setLabel "name_type" "Sender: TObject" $cell223 setScope "name_type" "cl" "scopePhase" $cell223 setProp "is_vcl" "1" "name_type" "cl" $cell223 setProp "libunit" "System" "name_type" "cl" $cell223 setScope "name_type" "de" "scopeSystem" set row224 [$diag addRow method 0.0] $row224 setLabel "name_type" "DblClick()\n" $row224 setProp "has_parmlist" "1" $row224 setProp "is_event" "1" set cell225 [$row224 addCell parameter 0.0] $cell225 setLabel "name_type" "Sender: TObject" $cell225 setScope "name_type" "cl" "scopePhase" $cell225 setProp "is_vcl" "1" "name_type" "cl" $cell225 setProp "libunit" "System" "name_type" "cl" $cell225 setScope "name_type" "de" "scopeSystem" set row226 [$diag addRow method 0.0] $row226 setLabel "name_type" "DragDrop()\n" $row226 setProp "has_parmlist" "1" $row226 setProp "is_event" "1" set cell227 [$row226 addCell parameter 0.0] $cell227 setLabel "name_type" "Sender: TObject, " $cell227 setScope "name_type" "cl" "scopePhase" $cell227 setProp "is_vcl" "1" "name_type" "cl" $cell227 setProp "libunit" "System" "name_type" "cl" $cell227 setScope "name_type" "de" "scopeSystem" set cell228 [$row226 addCell parameter 0.0] $cell228 setLabel "name_type" "Source: TObject, " $cell228 setScope "name_type" "cl" "scopePhase" $cell228 setProp "is_vcl" "1" "name_type" "cl" $cell228 setProp "libunit" "System" "name_type" "cl" $cell228 setScope "name_type" "de" "scopeSystem" set cell229 [$row226 addCell parameter 0.0] $cell229 setLabel "name_type" "X: int, " $cell229 setScope "name_type" "cl" "scopePhase" $cell229 setScope "name_type" "de" "scopeSystem" set cell230 [$row226 addCell parameter 0.0] $cell230 setLabel "name_type" "Y: int" $cell230 setScope "name_type" "cl" "scopePhase" $cell230 setScope "name_type" "de" "scopeSystem" set row231 [$diag addRow method 0.0] $row231 setLabel "name_type" "DragOver()\n" $row231 setProp "has_parmlist" "1" $row231 setProp "is_event" "1" set cell232 [$row231 addCell parameter 0.0] $cell232 setLabel "name_type" "Sender: TObject, " $cell232 setScope "name_type" "cl" "scopePhase" $cell232 setProp "is_vcl" "1" "name_type" "cl" $cell232 setProp "libunit" "System" "name_type" "cl" $cell232 setScope "name_type" "de" "scopeSystem" set cell233 [$row231 addCell parameter 0.0] $cell233 setLabel "name_type" "Source: TObject, " $cell233 setScope "name_type" "cl" "scopePhase" $cell233 setProp "is_vcl" "1" "name_type" "cl" $cell233 setProp "libunit" "System" "name_type" "cl" $cell233 setScope "name_type" "de" "scopeSystem" set cell234 [$row231 addCell parameter 0.0] $cell234 setLabel "name_type" "X: int, " $cell234 setScope "name_type" "cl" "scopePhase" $cell234 setScope "name_type" "de" "scopeSystem" set cell235 [$row231 addCell parameter 0.0] $cell235 setLabel "name_type" "Y: int, " $cell235 setScope "name_type" "cl" "scopePhase" $cell235 setScope "name_type" "de" "scopeSystem" set cell236 [$row231 addCell parameter 0.0] $cell236 setLabel "name_type" "State: TDragState, " $cell236 setScope "name_type" "cl" "scopePhase" $cell236 setProp "is_vcl" "1" "name_type" "cl" $cell236 setProp "libunit" "Controls" "name_type" "cl" $cell236 setScope "name_type" "de" "scopeSystem" set cell237 [$row231 addCell parameter 0.0] $cell237 setLabel "name_type" "Accept: bool" $cell237 setProp "pass_by" "Variable" $cell237 setScope "name_type" "cl" "scopePhase" $cell237 setScope "name_type" "de" "scopeSystem" set row238 [$diag addRow method 0.0] $row238 setLabel "name_type" "EndDrag()\n" $row238 setProp "has_parmlist" "1" $row238 setProp "is_event" "1" set cell239 [$row238 addCell parameter 0.0] $cell239 setLabel "name_type" "Sender: TObject, " $cell239 setScope "name_type" "cl" "scopePhase" $cell239 setProp "is_vcl" "1" "name_type" "cl" $cell239 setProp "libunit" "System" "name_type" "cl" $cell239 setScope "name_type" "de" "scopeSystem" set cell240 [$row238 addCell parameter 0.0] $cell240 setLabel "name_type" "Source: TObject, " $cell240 setScope "name_type" "cl" "scopePhase" $cell240 setProp "is_vcl" "1" "name_type" "cl" $cell240 setProp "libunit" "System" "name_type" "cl" $cell240 setScope "name_type" "de" "scopeSystem" set cell241 [$row238 addCell parameter 0.0] $cell241 setLabel "name_type" "X: int, " $cell241 setScope "name_type" "cl" "scopePhase" $cell241 setScope "name_type" "de" "scopeSystem" set cell242 [$row238 addCell parameter 0.0] $cell242 setLabel "name_type" "Y: int" $cell242 setScope "name_type" "cl" "scopePhase" $cell242 setScope "name_type" "de" "scopeSystem" set row243 [$diag addRow method 0.0] $row243 setLabel "name_type" "Enter()\n" $row243 setProp "has_parmlist" "1" $row243 setProp "is_event" "1" set cell244 [$row243 addCell parameter 0.0] $cell244 setLabel "name_type" "Sender: TObject" $cell244 setScope "name_type" "cl" "scopePhase" $cell244 setProp "is_vcl" "1" "name_type" "cl" $cell244 setProp "libunit" "System" "name_type" "cl" $cell244 setScope "name_type" "de" "scopeSystem" set row245 [$diag addRow method 0.0] $row245 setLabel "name_type" "Exit()\n" $row245 setProp "has_parmlist" "1" $row245 setProp "is_event" "1" set cell246 [$row245 addCell parameter 0.0] $cell246 setLabel "name_type" "Sender: TObject" $cell246 setScope "name_type" "cl" "scopePhase" $cell246 setProp "is_vcl" "1" "name_type" "cl" $cell246 setProp "libunit" "System" "name_type" "cl" $cell246 setScope "name_type" "de" "scopeSystem" set row247 [$diag addRow method 0.0] $row247 setLabel "name_type" "MouseDown()\n" $row247 setProp "has_parmlist" "1" $row247 setProp "is_event" "1" set cell248 [$row247 addCell parameter 0.0] $cell248 setLabel "name_type" "Sender: TObject, " $cell248 setScope "name_type" "cl" "scopePhase" $cell248 setProp "is_vcl" "1" "name_type" "cl" $cell248 setProp "libunit" "System" "name_type" "cl" $cell248 setScope "name_type" "de" "scopeSystem" set cell249 [$row247 addCell parameter 0.0] $cell249 setLabel "name_type" "Button: TMouseButton, " $cell249 setScope "name_type" "cl" "scopePhase" $cell249 setProp "is_vcl" "1" "name_type" "cl" $cell249 setProp "libunit" "Controls" "name_type" "cl" $cell249 setScope "name_type" "de" "scopeSystem" set cell250 [$row247 addCell parameter 0.0] $cell250 setLabel "name_type" "Shift: TShiftState, " $cell250 setScope "name_type" "cl" "scopePhase" $cell250 setProp "is_vcl" "1" "name_type" "cl" $cell250 setProp "libunit" "Classes" "name_type" "cl" $cell250 setScope "name_type" "de" "scopeSystem" set cell251 [$row247 addCell parameter 0.0] $cell251 setLabel "name_type" "X: int, " $cell251 setScope "name_type" "cl" "scopePhase" $cell251 setScope "name_type" "de" "scopeSystem" set cell252 [$row247 addCell parameter 0.0] $cell252 setLabel "name_type" "Y: int" $cell252 setScope "name_type" "cl" "scopePhase" $cell252 setScope "name_type" "de" "scopeSystem" set row253 [$diag addRow method 0.0] $row253 setLabel "name_type" "MouseMove()\n" $row253 setProp "has_parmlist" "1" $row253 setProp "is_event" "1" set cell254 [$row253 addCell parameter 0.0] $cell254 setLabel "name_type" "Sender: TObject, " $cell254 setScope "name_type" "cl" "scopePhase" $cell254 setProp "is_vcl" "1" "name_type" "cl" $cell254 setProp "libunit" "System" "name_type" "cl" $cell254 setScope "name_type" "de" "scopeSystem" set cell255 [$row253 addCell parameter 0.0] $cell255 setLabel "name_type" "Shift: TShiftState, " $cell255 setScope "name_type" "cl" "scopePhase" $cell255 setProp "is_vcl" "1" "name_type" "cl" $cell255 setProp "libunit" "Classes" "name_type" "cl" $cell255 setScope "name_type" "de" "scopeSystem" set cell256 [$row253 addCell parameter 0.0] $cell256 setLabel "name_type" "X: int, " $cell256 setScope "name_type" "cl" "scopePhase" $cell256 setScope "name_type" "de" "scopeSystem" set cell257 [$row253 addCell parameter 0.0] $cell257 setLabel "name_type" "Y: int" $cell257 setScope "name_type" "cl" "scopePhase" $cell257 setScope "name_type" "de" "scopeSystem" set row258 [$diag addRow method 0.0] $row258 setLabel "name_type" "MouseUp()\n" $row258 setProp "has_parmlist" "1" $row258 setProp "is_event" "1" set cell259 [$row258 addCell parameter 0.0] $cell259 setLabel "name_type" "Sender: TObject, " $cell259 setScope "name_type" "cl" "scopePhase" $cell259 setProp "is_vcl" "1" "name_type" "cl" $cell259 setProp "libunit" "System" "name_type" "cl" $cell259 setScope "name_type" "de" "scopeSystem" set cell260 [$row258 addCell parameter 0.0] $cell260 setLabel "name_type" "Button: TMouseButton, " $cell260 setScope "name_type" "cl" "scopePhase" $cell260 setProp "is_vcl" "1" "name_type" "cl" $cell260 setProp "libunit" "Controls" "name_type" "cl" $cell260 setScope "name_type" "de" "scopeSystem" set cell261 [$row258 addCell parameter 0.0] $cell261 setLabel "name_type" "Shift: TShiftState, " $cell261 setScope "name_type" "cl" "scopePhase" $cell261 setProp "is_vcl" "1" "name_type" "cl" $cell261 setProp "libunit" "Classes" "name_type" "cl" $cell261 setScope "name_type" "de" "scopeSystem" set cell262 [$row258 addCell parameter 0.0] $cell262 setLabel "name_type" "X: int, " $cell262 setScope "name_type" "cl" "scopePhase" $cell262 setScope "name_type" "de" "scopeSystem" set cell263 [$row258 addCell parameter 0.0] $cell263 setLabel "name_type" "Y: int" $cell263 setScope "name_type" "cl" "scopePhase" $cell263 setScope "name_type" "de" "scopeSystem" set row264 [$diag addRow method 0.0] $row264 setLabel "name_type" "Resize()" $row264 setProp "has_parmlist" "1" $row264 setProp "is_event" "1" set cell265 [$row264 addCell parameter 0.0] $cell265 setLabel "name_type" "Sender: TObject" $cell265 setScope "name_type" "cl" "scopePhase" $cell265 setProp "is_vcl" "1" "name_type" "cl" $cell265 setProp "libunit" "System" "name_type" "cl" $cell265 setScope "name_type" "de" "scopeSystem" $diag save # Generator: et.tcl /main/hindenburg/19 # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl # Interpreter to use: Otsh V6.1.1/B1 # OTShRegister::importTool set diag [CDM new TForm "DelphiVCL" "" "" "" "" "" 1] set row266 [$diag addRow method 0.0] $row266 setLabel "name_type" "Activate()\n" $row266 setProp "has_parmlist" "1" $row266 setProp "is_event" "1" set cell267 [$row266 addCell parameter 0.0] $cell267 setLabel "name_type" "Sender: TObject" $cell267 setScope "name_type" "cl" "scopePhase" $cell267 setProp "is_vcl" "1" "name_type" "cl" $cell267 setProp "libunit" "System" "name_type" "cl" $cell267 setScope "name_type" "de" "scopeSystem" set row268 [$diag addRow method 0.0] $row268 setLabel "name_type" "Click()\n" $row268 setProp "has_parmlist" "1" $row268 setProp "is_event" "1" set cell269 [$row268 addCell parameter 0.0] $cell269 setLabel "name_type" "Sender: TObject" $cell269 setScope "name_type" "cl" "scopePhase" $cell269 setProp "is_vcl" "1" "name_type" "cl" $cell269 setProp "libunit" "System" "name_type" "cl" $cell269 setScope "name_type" "de" "scopeSystem" set row270 [$diag addRow method 0.0] $row270 setLabel "name_type" "Close()\n" $row270 setProp "has_parmlist" "1" $row270 setProp "is_event" "1" set cell271 [$row270 addCell parameter 0.0] $cell271 setLabel "name_type" "Sender: TObject, " $cell271 setScope "name_type" "cl" "scopePhase" $cell271 setProp "is_vcl" "1" "name_type" "cl" $cell271 setProp "libunit" "System" "name_type" "cl" $cell271 setScope "name_type" "de" "scopeSystem" set cell272 [$row270 addCell parameter 0.0] $cell272 setLabel "name_type" "Action: TCloseAction" $cell272 setScope "name_type" "cl" "scopePhase" $cell272 setProp "is_vcl" "1" "name_type" "cl" $cell272 setScope "name_type" "de" "scopeSystem" set row273 [$diag addRow method 0.0] $row273 setLabel "name_type" "CloseQuery()\n" $row273 setProp "has_parmlist" "1" $row273 setProp "is_event" "1" set cell274 [$row273 addCell parameter 0.0] $cell274 setLabel "name_type" "Sender: TObject, " $cell274 setScope "name_type" "cl" "scopePhase" $cell274 setProp "is_vcl" "1" "name_type" "cl" $cell274 setProp "libunit" "System" "name_type" "cl" $cell274 setScope "name_type" "de" "scopeSystem" set cell275 [$row273 addCell parameter 0.0] $cell275 setLabel "name_type" "CanClose: bool" $cell275 setScope "name_type" "cl" "scopePhase" $cell275 setScope "name_type" "de" "scopeSystem" set row276 [$diag addRow method 0.0] $row276 setLabel "name_type" "Create()\n" $row276 setProp "has_parmlist" "1" $row276 setProp "is_event" "1" set cell277 [$row276 addCell parameter 0.0] $cell277 setLabel "name_type" "Sender: TObject" $cell277 setScope "name_type" "cl" "scopePhase" $cell277 setProp "is_vcl" "1" "name_type" "cl" $cell277 setProp "libunit" "System" "name_type" "cl" $cell277 setScope "name_type" "de" "scopeSystem" set row278 [$diag addRow method 0.0] $row278 setLabel "name_type" "Destroy()\n" $row278 setProp "has_parmlist" "1" $row278 setProp "is_event" "1" set cell279 [$row278 addCell parameter 0.0] $cell279 setLabel "name_type" "Sender: TObject" $cell279 setScope "name_type" "cl" "scopePhase" $cell279 setProp "is_vcl" "1" "name_type" "cl" $cell279 setProp "libunit" "System" "name_type" "cl" $cell279 setScope "name_type" "de" "scopeSystem" set row280 [$diag addRow method 0.0] $row280 setLabel "name_type" "DblClick()\n" $row280 setProp "has_parmlist" "1" $row280 setProp "is_event" "1" set cell281 [$row280 addCell parameter 0.0] $cell281 setLabel "name_type" "Sender: TObject" $cell281 setScope "name_type" "cl" "scopePhase" $cell281 setProp "is_vcl" "1" "name_type" "cl" $cell281 setProp "libunit" "System" "name_type" "cl" $cell281 setScope "name_type" "de" "scopeSystem" set row282 [$diag addRow method 0.0] $row282 setLabel "name_type" "Deactivate()\n" $row282 setProp "has_parmlist" "1" $row282 setProp "is_event" "1" set cell283 [$row282 addCell parameter 0.0] $cell283 setLabel "name_type" "Sender: TObject" $cell283 setScope "name_type" "cl" "scopePhase" $cell283 setProp "is_vcl" "1" "name_type" "cl" $cell283 setProp "libunit" "System" "name_type" "cl" $cell283 setScope "name_type" "de" "scopeSystem" set row284 [$diag addRow method 0.0] $row284 setLabel "name_type" "DragDrop()\n" $row284 setProp "has_parmlist" "1" $row284 setProp "is_event" "1" set cell285 [$row284 addCell parameter 0.0] $cell285 setLabel "name_type" "Sender: TObject, " $cell285 setScope "name_type" "cl" "scopePhase" $cell285 setProp "is_vcl" "1" "name_type" "cl" $cell285 setProp "libunit" "System" "name_type" "cl" $cell285 setScope "name_type" "de" "scopeSystem" set cell286 [$row284 addCell parameter 0.0] $cell286 setLabel "name_type" "Source: TObject, " $cell286 setScope "name_type" "cl" "scopePhase" $cell286 setProp "is_vcl" "1" "name_type" "cl" $cell286 setProp "libunit" "System" "name_type" "cl" $cell286 setScope "name_type" "de" "scopeSystem" set cell287 [$row284 addCell parameter 0.0] $cell287 setLabel "name_type" "X: int, " $cell287 setScope "name_type" "cl" "scopePhase" $cell287 setScope "name_type" "de" "scopeSystem" set cell288 [$row284 addCell parameter 0.0] $cell288 setLabel "name_type" "Y: int" $cell288 setScope "name_type" "cl" "scopePhase" $cell288 setScope "name_type" "de" "scopeSystem" set row289 [$diag addRow method 0.0] $row289 setLabel "name_type" "DragOver()\n" $row289 setProp "has_parmlist" "1" $row289 setProp "is_event" "1" set cell290 [$row289 addCell parameter 0.0] $cell290 setLabel "name_type" "Sender: TObject, " $cell290 setScope "name_type" "cl" "scopePhase" $cell290 setProp "is_vcl" "1" "name_type" "cl" $cell290 setProp "libunit" "System" "name_type" "cl" $cell290 setScope "name_type" "de" "scopeSystem" set cell291 [$row289 addCell parameter 0.0] $cell291 setLabel "name_type" "Source: TObject, " $cell291 setScope "name_type" "cl" "scopePhase" $cell291 setProp "is_vcl" "1" "name_type" "cl" $cell291 setProp "libunit" "System" "name_type" "cl" $cell291 setScope "name_type" "de" "scopeSystem" set cell292 [$row289 addCell parameter 0.0] $cell292 setLabel "name_type" "X: int, " $cell292 setScope "name_type" "cl" "scopePhase" $cell292 setScope "name_type" "de" "scopeSystem" set cell293 [$row289 addCell parameter 0.0] $cell293 setLabel "name_type" "Y: int, " $cell293 setScope "name_type" "cl" "scopePhase" $cell293 setScope "name_type" "de" "scopeSystem" set cell294 [$row289 addCell parameter 0.0] $cell294 setLabel "name_type" "State: TDragState, " $cell294 setScope "name_type" "cl" "scopePhase" $cell294 setProp "is_vcl" "1" "name_type" "cl" $cell294 setProp "libunit" "Controls" "name_type" "cl" $cell294 setScope "name_type" "de" "scopeSystem" set cell295 [$row289 addCell parameter 0.0] $cell295 setLabel "name_type" "Accept: bool" $cell295 setProp "pass_by" "Variable" $cell295 setScope "name_type" "cl" "scopePhase" $cell295 setScope "name_type" "de" "scopeSystem" set row296 [$diag addRow method 0.0] $row296 setLabel "name_type" "Enter()\n" $row296 setProp "has_parmlist" "1" $row296 setProp "is_event" "1" set cell297 [$row296 addCell parameter 0.0] $cell297 setLabel "name_type" "Sender: TObject" $cell297 setScope "name_type" "cl" "scopePhase" $cell297 setProp "is_vcl" "1" "name_type" "cl" $cell297 setProp "libunit" "System" "name_type" "cl" $cell297 setScope "name_type" "de" "scopeSystem" set row298 [$diag addRow method 0.0] $row298 setLabel "name_type" "Exit()\n" $row298 setProp "has_parmlist" "1" $row298 setProp "is_event" "1" set cell299 [$row298 addCell parameter 0.0] $cell299 setLabel "name_type" "Sender: TObject" $cell299 setScope "name_type" "cl" "scopePhase" $cell299 setProp "is_vcl" "1" "name_type" "cl" $cell299 setProp "libunit" "System" "name_type" "cl" $cell299 setScope "name_type" "de" "scopeSystem" set row300 [$diag addRow method 0.0] $row300 setLabel "name_type" "Hide()\n" $row300 setProp "has_parmlist" "1" $row300 setProp "is_event" "1" set cell301 [$row300 addCell parameter 0.0] $cell301 setLabel "name_type" "Sender: TObject" $cell301 setScope "name_type" "cl" "scopePhase" $cell301 setProp "is_vcl" "1" "name_type" "cl" $cell301 setProp "libunit" "System" "name_type" "cl" $cell301 setScope "name_type" "de" "scopeSystem" set row302 [$diag addRow method 0.0] $row302 setLabel "name_type" "KeyDown()\n" $row302 setProp "has_parmlist" "1" $row302 setProp "is_event" "1" set cell303 [$row302 addCell parameter 0.0] $cell303 setLabel "name_type" "Sender: TObject, " $cell303 setScope "name_type" "cl" "scopePhase" $cell303 setProp "is_vcl" "1" "name_type" "cl" $cell303 setProp "libunit" "System" "name_type" "cl" $cell303 setScope "name_type" "de" "scopeSystem" set cell304 [$row302 addCell parameter 0.0] $cell304 setLabel "name_type" "Key: word, " $cell304 setProp "pass_by" "Variable" $cell304 setScope "name_type" "cl" "scopePhase" $cell304 setScope "name_type" "de" "scopeSystem" set cell305 [$row302 addCell parameter 0.0] $cell305 setLabel "name_type" "Shift: TShiftState" $cell305 setScope "name_type" "cl" "scopePhase" $cell305 setProp "is_vcl" "1" "name_type" "cl" $cell305 setProp "libunit" "Classes" "name_type" "cl" $cell305 setScope "name_type" "de" "scopeSystem" set row306 [$diag addRow method 0.0] $row306 setLabel "name_type" "KeyPress()\n" $row306 setProp "has_parmlist" "1" $row306 setProp "is_event" "1" set cell307 [$row306 addCell parameter 0.0] $cell307 setLabel "name_type" "Sender: TObject, " $cell307 setScope "name_type" "cl" "scopePhase" $cell307 setProp "is_vcl" "1" "name_type" "cl" $cell307 setProp "libunit" "System" "name_type" "cl" $cell307 setScope "name_type" "de" "scopeSystem" set cell308 [$row306 addCell parameter 0.0] $cell308 setLabel "name_type" "Key: char" $cell308 setScope "name_type" "cl" "scopePhase" $cell308 setScope "name_type" "de" "scopeSystem" set row309 [$diag addRow method 0.0] $row309 setLabel "name_type" "KeyUp()\n" $row309 setProp "has_parmlist" "1" $row309 setProp "is_event" "1" set cell310 [$row309 addCell parameter 0.0] $cell310 setLabel "name_type" "Sender: TObject, " $cell310 setScope "name_type" "cl" "scopePhase" $cell310 setProp "is_vcl" "1" "name_type" "cl" $cell310 setProp "libunit" "System" "name_type" "cl" $cell310 setScope "name_type" "de" "scopeSystem" set cell311 [$row309 addCell parameter 0.0] $cell311 setLabel "name_type" "Key: word, " $cell311 setScope "name_type" "cl" "scopePhase" $cell311 setScope "name_type" "de" "scopeSystem" set cell312 [$row309 addCell parameter 0.0] $cell312 setLabel "name_type" "Shift: TShiftState" $cell312 setScope "name_type" "cl" "scopePhase" $cell312 setProp "is_vcl" "1" "name_type" "cl" $cell312 setProp "libunit" "Classes" "name_type" "cl" $cell312 setScope "name_type" "de" "scopeSystem" set row313 [$diag addRow method 0.0] $row313 setLabel "name_type" "MouseDown()\n" $row313 setProp "has_parmlist" "1" $row313 setProp "is_event" "1" set cell314 [$row313 addCell parameter 0.0] $cell314 setLabel "name_type" "Sender: TObject, " $cell314 setScope "name_type" "cl" "scopePhase" $cell314 setProp "is_vcl" "1" "name_type" "cl" $cell314 setProp "libunit" "System" "name_type" "cl" $cell314 setScope "name_type" "de" "scopeSystem" set cell315 [$row313 addCell parameter 0.0] $cell315 setLabel "name_type" "Button: TMouseButton, " $cell315 setScope "name_type" "cl" "scopePhase" $cell315 setProp "is_vcl" "1" "name_type" "cl" $cell315 setProp "libunit" "Controls" "name_type" "cl" $cell315 setScope "name_type" "de" "scopeSystem" set cell316 [$row313 addCell parameter 0.0] $cell316 setLabel "name_type" "Shift: TShiftState, " $cell316 setScope "name_type" "cl" "scopePhase" $cell316 setProp "is_vcl" "1" "name_type" "cl" $cell316 setProp "libunit" "Classes" "name_type" "cl" $cell316 setScope "name_type" "de" "scopeSystem" set cell317 [$row313 addCell parameter 0.0] $cell317 setLabel "name_type" "X: int, " $cell317 setScope "name_type" "cl" "scopePhase" $cell317 setScope "name_type" "de" "scopeSystem" set cell318 [$row313 addCell parameter 0.0] $cell318 setLabel "name_type" "Y: int" $cell318 setScope "name_type" "cl" "scopePhase" $cell318 setScope "name_type" "de" "scopeSystem" set row319 [$diag addRow method 0.0] $row319 setLabel "name_type" "MouseMove()\n" $row319 setProp "has_parmlist" "1" $row319 setProp "is_event" "1" set cell320 [$row319 addCell parameter 0.0] $cell320 setLabel "name_type" "Sender: TObject, " $cell320 setScope "name_type" "cl" "scopePhase" $cell320 setProp "is_vcl" "1" "name_type" "cl" $cell320 setProp "libunit" "System" "name_type" "cl" $cell320 setScope "name_type" "de" "scopeSystem" set cell321 [$row319 addCell parameter 0.0] $cell321 setLabel "name_type" "Shift: TShiftState, " $cell321 setScope "name_type" "cl" "scopePhase" $cell321 setProp "is_vcl" "1" "name_type" "cl" $cell321 setProp "libunit" "Classes" "name_type" "cl" $cell321 setScope "name_type" "de" "scopeSystem" set cell322 [$row319 addCell parameter 0.0] $cell322 setLabel "name_type" "X: int, " $cell322 setScope "name_type" "cl" "scopePhase" $cell322 setScope "name_type" "de" "scopeSystem" set cell323 [$row319 addCell parameter 0.0] $cell323 setLabel "name_type" "Y: int" $cell323 setScope "name_type" "cl" "scopePhase" $cell323 setScope "name_type" "de" "scopeSystem" set row324 [$diag addRow method 0.0] $row324 setLabel "name_type" "MouseUp()\n" $row324 setProp "has_parmlist" "1" $row324 setProp "is_event" "1" set cell325 [$row324 addCell parameter 0.0] $cell325 setLabel "name_type" "Sender: TObject, " $cell325 setScope "name_type" "cl" "scopePhase" $cell325 setProp "is_vcl" "1" "name_type" "cl" $cell325 setProp "libunit" "System" "name_type" "cl" $cell325 setScope "name_type" "de" "scopeSystem" set cell326 [$row324 addCell parameter 0.0] $cell326 setLabel "name_type" "Button: TMouseButton, " $cell326 setScope "name_type" "cl" "scopePhase" $cell326 setProp "is_vcl" "1" "name_type" "cl" $cell326 setProp "libunit" "Controls" "name_type" "cl" $cell326 setScope "name_type" "de" "scopeSystem" set cell327 [$row324 addCell parameter 0.0] $cell327 setLabel "name_type" "Shift: TShiftState, " $cell327 setScope "name_type" "cl" "scopePhase" $cell327 setProp "is_vcl" "1" "name_type" "cl" $cell327 setProp "libunit" "Classes" "name_type" "cl" $cell327 setScope "name_type" "de" "scopeSystem" set cell328 [$row324 addCell parameter 0.0] $cell328 setLabel "name_type" "X: int, " $cell328 setScope "name_type" "cl" "scopePhase" $cell328 setScope "name_type" "de" "scopeSystem" set cell329 [$row324 addCell parameter 0.0] $cell329 setLabel "name_type" "Y: int" $cell329 setScope "name_type" "cl" "scopePhase" $cell329 setScope "name_type" "de" "scopeSystem" set row330 [$diag addRow method 0.0] $row330 setLabel "name_type" "Paint()\n" $row330 setProp "has_parmlist" "1" $row330 setProp "is_event" "1" set cell331 [$row330 addCell parameter 0.0] $cell331 setLabel "name_type" "Sender: TObject" $cell331 setScope "name_type" "cl" "scopePhase" $cell331 setProp "is_vcl" "1" "name_type" "cl" $cell331 setProp "libunit" "System" "name_type" "cl" $cell331 setScope "name_type" "de" "scopeSystem" set row332 [$diag addRow method 0.0] $row332 setLabel "name_type" "Resize()\n" $row332 setProp "has_parmlist" "1" $row332 setProp "is_event" "1" set cell333 [$row332 addCell parameter 0.0] $cell333 setLabel "name_type" "Sender: TObject" $cell333 setScope "name_type" "cl" "scopePhase" $cell333 setProp "is_vcl" "1" "name_type" "cl" $cell333 setProp "libunit" "System" "name_type" "cl" $cell333 setScope "name_type" "de" "scopeSystem" set row334 [$diag addRow method 0.0] $row334 setLabel "name_type" "Show()" $row334 setProp "has_parmlist" "1" $row334 setProp "is_event" "1" set cell335 [$row334 addCell parameter 0.0] $cell335 setLabel "name_type" "Sender: TObject" $cell335 setScope "name_type" "cl" "scopePhase" $cell335 setProp "is_vcl" "1" "name_type" "cl" $cell335 setProp "libunit" "System" "name_type" "cl" $cell335 setScope "name_type" "de" "scopeSystem" $diag save # Generator: et.tcl /main/hindenburg/19 # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl # Interpreter to use: Otsh V6.1.1/B1 # OTShRegister::importTool set diag [CAD new StdCtrlsClasses "DelphiVCL" "" "" "" "" "" 1] set node336 [$diag addNode cad_class 768.0 896.0 120.0 33.0] $node336 setLabel "name" "TScrollBar" $node336 setProp "is_folded" "1" $node336 setScope "name" "cl" "scopePhase" $node336 setProp "is_vcl" "1" "name" "cl" $node336 setProp "libunit" "StdCtrls" "name" "cl" set node337 [$diag addNode cad_class 1808.0 992.0 120.0 33.0] $node337 setLabel "name" "TRadioButton" $node337 setProp "is_folded" "1" $node337 setScope "name" "cl" "scopePhase" $node337 setProp "is_vcl" "1" "name" "cl" $node337 setProp "libunit" "StdCtrls" "name" "cl" set node338 [$diag addNode cad_class 864.0 1088.0 120.0 33.0] $node338 setLabel "name" "TMemo" $node338 setProp "is_folded" "1" $node338 setScope "name" "cl" "scopePhase" $node338 setProp "is_vcl" "1" "name" "cl" $node338 setProp "libunit" "StdCtrls" "name" "cl" set node339 [$diag addNode cad_class 1200.0 992.0 120.0 33.0] $node339 setLabel "name" "TListBox" $node339 setProp "is_folded" "1" $node339 setScope "name" "cl" "scopePhase" $node339 setProp "is_vcl" "1" "name" "cl" $node339 setProp "libunit" "StdCtrls" "name" "cl" set node340 [$diag addNode cad_class 2384.0 992.0 120.0 33.0] $node340 setLabel "name" "TLabel" $node340 setProp "is_folded" "1" $node340 setScope "name" "cl" "scopePhase" $node340 setProp "is_vcl" "1" "name" "cl" $node340 setProp "libunit" "StdCtrls" "name" "cl" set node341 [$diag addNode cad_class 2192.0 1088.0 120.0 33.0] $node341 setLabel "name" "TGroupBox" $node341 setProp "is_folded" "1" $node341 setScope "name" "cl" "scopePhase" $node341 setProp "is_vcl" "1" "name" "cl" $node341 setProp "libunit" "StdCtrls" "name" "cl" set node342 [$diag addNode cad_class 1008.0 992.0 120.0 33.0] $node342 setLabel "name" "TEdit" $node342 setProp "is_folded" "1" $node342 setScope "name" "cl" "scopePhase" $node342 setProp "is_vcl" "1" "name" "cl" $node342 setProp "libunit" "StdCtrls" "name" "cl" set node343 [$diag addNode cad_class 864.0 992.0 120.0 33.0] $node343 setLabel "name" "TCustomMemo" $node343 setProp "is_folded" "1" $node343 setScope "name" "cl" "scopePhase" $node343 setProp "is_vcl" "1" "name" "cl" $node343 setProp "libunit" "StdCtrls" "name" "cl" set node344 [$diag addNode cad_class 1200.0 896.0 128.0 33.0] $node344 setLabel "name" "TCustomListBox" $node344 setProp "is_folded" "1" $node344 setScope "name" "cl" "scopePhase" $node344 setProp "is_vcl" "1" "name" "cl" $node344 setProp "libunit" "StdCtrls" "name" "cl" set node345 [$diag addNode cad_class 2384.0 896.0 120.0 33.0] $node345 setLabel "name" "TCustomLabel" $node345 setProp "is_folded" "1" $node345 setScope "name" "cl" "scopePhase" $node345 setProp "is_vcl" "1" "name" "cl" $node345 setProp "libunit" "StdCtrls" "name" "cl" set node346 [$diag addNode cad_class 928.0 896.0 120.0 33.0] $node346 setLabel "name" "TCustomEdit" $node346 setProp "is_folded" "1" $node346 setScope "name" "cl" "scopePhase" $node346 setProp "is_vcl" "1" "name" "cl" $node346 setProp "libunit" "StdCtrls" "name" "cl" set node347 [$diag addNode cad_class 1984.0 896.0 153.0 33.0] $node347 setLabel "name" "TCustomComboBox" $node347 setProp "is_folded" "1" $node347 setScope "name" "cl" "scopePhase" $node347 setProp "is_vcl" "1" "name" "cl" $node347 setProp "libunit" "StdCtrls" "name" "cl" set node348 [$diag addNode cad_class 1584.0 992.0 147.0 33.0] $node348 setLabel "name" "TCustomCheckBox" $node348 setProp "is_folded" "1" $node348 setScope "name" "cl" "scopePhase" $node348 setProp "is_vcl" "1" "name" "cl" $node348 setProp "libunit" "StdCtrls" "name" "cl" set node349 [$diag addNode cad_class 2000.0 992.0 120.0 33.0] $node349 setLabel "name" "TComboBox" $node349 setProp "is_folded" "1" $node349 setScope "name" "cl" "scopePhase" $node349 setProp "is_vcl" "1" "name" "cl" $node349 setProp "libunit" "StdCtrls" "name" "cl" set node350 [$diag addNode cad_class 1600.0 1088.0 120.0 33.0] $node350 setLabel "name" "TCheckBox" $node350 setProp "is_folded" "1" $node350 setScope "name" "cl" "scopePhase" $node350 setProp "is_vcl" "1" "name" "cl" $node350 setProp "libunit" "StdCtrls" "name" "cl" set node351 [$diag addNode cad_class 1600.0 896.0 123.0 33.0] $node351 setLabel "name" "TButtonControl" $node351 setProp "is_folded" "1" $node351 setScope "name" "cl" "scopePhase" $node351 setProp "is_vcl" "1" "name" "cl" $node351 setProp "libunit" "StdCtrls" "name" "cl" set node352 [$diag addNode cad_class 1392.0 992.0 120.0 33.0] $node352 setLabel "name" "TButton" $node352 setProp "is_folded" "1" $node352 setScope "name" "cl" "scopePhase" $node352 setProp "is_vcl" "1" "name" "cl" $node352 setProp "libunit" "StdCtrls" "name" "cl" set node364 [$diag addNode cad_class 2384.0 800.0 131.0 33.0] $node364 setLabel "name" "TGraphicControl" $node364 setProp "is_folded" "1" $node364 setScope "name" "cl" "scopePhase" $node364 setProp "is_vcl" "1" "name" "cl" $node364 setProp "libunit" "Controls" "name" "cl" set node365 [$diag addNode cad_class 2192.0 896.0 130.0 33.0] $node365 setLabel "name" "TCustomControl" $node365 setProp "is_folded" "1" $node365 setScope "name" "cl" "scopePhase" $node365 setProp "is_vcl" "1" "name" "cl" $node365 setProp "libunit" "Controls" "name" "cl" set node366 [$diag addNode cad_class 2176.0 992.0 147.0 33.0] $node366 setLabel "name" "TCustomGroupBox" $node366 setProp "is_folded" "1" $node366 setScope "name" "cl" "scopePhase" $node366 setProp "is_vcl" "1" "name" "cl" $node366 setProp "libunit" "StdCtrls" "name" "cl" set node367 [$diag addNode cad_class 1600.0 800.0 120.0 33.0] $node367 setLabel "name" "TWinControl" $node367 setProp "is_folded" "1" $node367 setScope "name" "cl" "scopePhase" $node367 setProp "is_vcl" "1" "name" "cl" $node367 setProp "libunit" "Controls" "name" "cl" set node353 [$diag addRake generalization $node345 $node340 2448.0 928.0 2448.0 1008.0 959.5] set conn368 [$node353 getInConn] set segm369 [$conn368 getFirstSegm] set conn370 [$node353 getFirstOutConn] set segm371 [$conn370 getFirstSegm] set node354 [$diag addRake generalization $node364 $node345 2448.0 832.0 2448.0 912.0 863.5] set conn372 [$node354 getInConn] set segm373 [$conn372 getFirstSegm] set conn374 [$node354 getFirstOutConn] set segm375 [$conn374 getFirstSegm] set node355 [$diag addRake generalization $node343 $node338 928.0 1024.0 928.0 1104.0 1064.0] set conn376 [$node355 getInConn] set segm377 [$conn376 getFirstSegm] set conn378 [$node355 getFirstOutConn] set segm379 [$conn378 getFirstSegm] set node356 [$diag addRake generalization $node346 $node342 992.0 928.0 1072.0 1008.0 968.0] set conn380 [$node356 getInConn] set segm381 [$conn380 getFirstSegm] set conn382 [$node356 getFirstOutConn] set segm383 [$conn382 getFirstSegm] set conn384 [$diag addConn generalization_conn $node356 $node343 1002.0 968.5 928.0 1008.0] set segm385 [$conn384 getFirstSegm] set node357 [$diag addRake generalization $node344 $node339 1264.0 928.0 1264.0 1008.0 968.0] set conn386 [$node357 getInConn] set segm387 [$conn386 getFirstSegm] set conn388 [$node357 getFirstOutConn] set segm389 [$conn388 getFirstSegm] set node358 [$diag addRake generalization $node348 $node350 1664.0 1024.0 1664.0 1104.0 1064.0] set conn390 [$node358 getInConn] set segm391 [$conn390 getFirstSegm] set conn392 [$node358 getFirstOutConn] set segm393 [$conn392 getFirstSegm] set node359 [$diag addRake generalization $node351 $node337 1664.0 928.0 1872.0 1024.0 968.0] set conn394 [$node359 getInConn] set segm395 [$conn394 getFirstSegm] set conn396 [$node359 getFirstOutConn] set segm397 [$conn396 getFirstSegm] set conn398 [$diag addConn generalization_conn $node359 $node348 1664.0 968.5 1664.0 1008.0] set segm399 [$conn398 getFirstSegm] set conn400 [$diag addConn generalization_conn $node359 $node352 1674.0 968.5 1456.0 1008.0] set segm401 [$conn400 getFirstSegm] set node360 [$diag addRake generalization $node366 $node341 2256.0 1024.0 2256.0 1104.0 1064.0] set conn402 [$node360 getInConn] set segm403 [$conn402 getFirstSegm] set conn404 [$node360 getFirstOutConn] set segm405 [$conn404 getFirstSegm] set node361 [$diag addRake generalization $node365 $node366 2256.0 928.0 2256.0 1008.0 968.0] set conn406 [$node361 getInConn] set segm407 [$conn406 getFirstSegm] set conn408 [$node361 getFirstOutConn] set segm409 [$conn408 getFirstSegm] set node362 [$diag addRake generalization $node347 $node349 2064.0 928.0 2064.0 1008.0 968.0] set conn410 [$node362 getInConn] set segm411 [$conn410 getFirstSegm] set conn412 [$node362 getFirstOutConn] set segm413 [$conn412 getFirstSegm] set node363 [$diag addRake generalization $node367 $node336 1664.0 832.0 832.0 912.0 872.0] set conn414 [$node363 getInConn] set segm415 [$conn414 getFirstSegm] set conn416 [$node363 getFirstOutConn] set segm417 [$conn416 getFirstSegm] set conn418 [$diag addConn generalization_conn $node363 $node346 1664.0 872.5 992.0 912.0] set segm419 [$conn418 getFirstSegm] set conn420 [$diag addConn generalization_conn $node363 $node347 1664.0 872.5 2064.0 912.0] set segm421 [$conn420 getFirstSegm] set conn422 [$diag addConn generalization_conn $node363 $node344 1664.0 872.5 1264.0 896.0] set segm423 [$conn422 getFirstSegm] set conn424 [$diag addConn generalization_conn $node363 $node351 1674.0 872.5 1664.0 912.0] set segm425 [$conn424 getFirstSegm] $diag save # Generator: et.tcl /main/hindenburg/19 # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl # Interpreter to use: Otsh V6.1.1/B1 # OTShRegister::importTool set diag [CDM new TComboBox "DelphiVCL" "" "" "" "" "" 1] set row426 [$diag addRow method 0.0] $row426 setLabel "name_type" "Change()\n" $row426 setProp "has_parmlist" "1" $row426 setProp "is_event" "1" set cell427 [$row426 addCell parameter 0.0] $cell427 setLabel "name_type" "Sender: TField" $cell427 setScope "name_type" "cl" "scopePhase" $cell427 setProp "is_vcl" "1" "name_type" "cl" $cell427 setProp "libunit" "Other" "name_type" "cl" $cell427 setProp "userlib" "DB" "name_type" "cl" $cell427 setScope "name_type" "de" "scopeSystem" set row428 [$diag addRow method 0.0] $row428 setLabel "name_type" "Click()\n" $row428 setProp "has_parmlist" "1" $row428 setProp "is_event" "1" set cell429 [$row428 addCell parameter 0.0] $cell429 setLabel "name_type" "Sender: TObject" $cell429 setScope "name_type" "cl" "scopePhase" $cell429 setProp "is_vcl" "1" "name_type" "cl" $cell429 setProp "libunit" "System" "name_type" "cl" $cell429 setScope "name_type" "de" "scopeSystem" set row430 [$diag addRow method 0.0] $row430 setLabel "name_type" "DblClick()\n" $row430 setProp "has_parmlist" "1" set cell431 [$row430 addCell parameter 0.0] $cell431 setLabel "name_type" "Sender: TObject" $cell431 setScope "name_type" "cl" "scopePhase" $cell431 setProp "is_vcl" "1" "name_type" "cl" $cell431 setProp "libunit" "System" "name_type" "cl" $cell431 setScope "name_type" "de" "scopeSystem" set row432 [$diag addRow method 0.0] $row432 setLabel "name_type" "DragDrop()\n" $row432 setProp "has_parmlist" "1" $row432 setProp "is_event" "1" set cell433 [$row432 addCell parameter 0.0] $cell433 setLabel "name_type" "Sender: TObject, " $cell433 setScope "name_type" "cl" "scopePhase" $cell433 setProp "is_vcl" "1" "name_type" "cl" $cell433 setProp "libunit" "System" "name_type" "cl" $cell433 setScope "name_type" "de" "scopeSystem" set cell434 [$row432 addCell parameter 0.0] $cell434 setLabel "name_type" "Source: TObject, " $cell434 setScope "name_type" "cl" "scopePhase" $cell434 setProp "is_vcl" "1" "name_type" "cl" $cell434 setProp "libunit" "System" "name_type" "cl" $cell434 setScope "name_type" "de" "scopeSystem" set cell435 [$row432 addCell parameter 0.0] $cell435 setLabel "name_type" "X: int, " $cell435 setScope "name_type" "cl" "scopePhase" $cell435 setScope "name_type" "de" "scopeSystem" set cell436 [$row432 addCell parameter 0.0] $cell436 setLabel "name_type" "Y: int" $cell436 setScope "name_type" "cl" "scopePhase" $cell436 setScope "name_type" "de" "scopeSystem" set row437 [$diag addRow method 0.0] $row437 setLabel "name_type" "DragOver()\n" $row437 setProp "has_parmlist" "1" set cell438 [$row437 addCell parameter 0.0] $cell438 setLabel "name_type" "Sender: TObject, " $cell438 setScope "name_type" "cl" "scopePhase" $cell438 setProp "is_vcl" "1" "name_type" "cl" $cell438 setProp "libunit" "System" "name_type" "cl" $cell438 setScope "name_type" "de" "scopeSystem" set cell439 [$row437 addCell parameter 0.0] $cell439 setLabel "name_type" "Source: TObject, " $cell439 setScope "name_type" "cl" "scopePhase" $cell439 setProp "is_vcl" "1" "name_type" "cl" $cell439 setProp "libunit" "System" "name_type" "cl" $cell439 setScope "name_type" "de" "scopeSystem" set cell440 [$row437 addCell parameter 0.0] $cell440 setLabel "name_type" "X: int, " $cell440 setScope "name_type" "cl" "scopePhase" $cell440 setScope "name_type" "de" "scopeSystem" set cell441 [$row437 addCell parameter 0.0] $cell441 setLabel "name_type" "Y: int, " $cell441 setScope "name_type" "cl" "scopePhase" $cell441 setScope "name_type" "de" "scopeSystem" set cell442 [$row437 addCell parameter 0.0] $cell442 setLabel "name_type" "State: TDragState, " $cell442 setScope "name_type" "cl" "scopePhase" $cell442 setProp "is_vcl" "1" "name_type" "cl" $cell442 setProp "libunit" "Controls" "name_type" "cl" $cell442 setScope "name_type" "de" "scopeSystem" set cell443 [$row437 addCell parameter 0.0] $cell443 setLabel "name_type" "Accept: bool" $cell443 setProp "pass_by" "Variable" $cell443 setScope "name_type" "cl" "scopePhase" $cell443 setScope "name_type" "de" "scopeSystem" set row444 [$diag addRow method 0.0] $row444 setLabel "name_type" "DrawItem()\n" $row444 setProp "has_parmlist" "1" $row444 setProp "is_event" "1" set cell445 [$row444 addCell parameter 0.0] $cell445 setLabel "name_type" "ListBox: TListBox, " $cell445 setScope "name_type" "cl" "scopePhase" $cell445 setProp "is_vcl" "1" "name_type" "cl" $cell445 setProp "libunit" "StdCtrls" "name_type" "cl" $cell445 setScope "name_type" "de" "scopeSystem" set cell446 [$row444 addCell parameter 0.0] $cell446 setLabel "name_type" "Index: int, " $cell446 setScope "name_type" "cl" "scopePhase" $cell446 setScope "name_type" "de" "scopeSystem" set cell447 [$row444 addCell parameter 0.0] $cell447 setLabel "name_type" "Rect: TRect, " $cell447 setScope "name_type" "cl" "scopePhase" $cell447 setProp "is_vcl" "1" "name_type" "cl" $cell447 setProp "libunit" "Other" "name_type" "cl" $cell447 setProp "userlib" "Windows" "name_type" "cl" $cell447 setScope "name_type" "de" "scopeSystem" set cell448 [$row444 addCell parameter 0.0] $cell448 setLabel "name_type" "State: TOwnerDrawState" $cell448 setScope "name_type" "cl" "scopePhase" $cell448 setProp "is_vcl" "1" "name_type" "cl" $cell448 setProp "libunit" "StdCtrls" "name_type" "cl" $cell448 setScope "name_type" "de" "scopeSystem" set row449 [$diag addRow method 0.0] $row449 setLabel "name_type" "DropDown()\n" $row449 setProp "has_parmlist" "1" $row449 setProp "is_event" "1" set cell450 [$row449 addCell parameter 0.0] $cell450 setLabel "name_type" "Sender: TObject" $cell450 setScope "name_type" "cl" "scopePhase" $cell450 setProp "is_vcl" "1" "name_type" "cl" $cell450 setProp "libunit" "System" "name_type" "cl" $cell450 setScope "name_type" "de" "scopeSystem" set row451 [$diag addRow method 0.0] $row451 setLabel "name_type" "EndDrag()\n" $row451 setProp "has_parmlist" "1" $row451 setProp "is_event" "1" set cell452 [$row451 addCell parameter 0.0] $cell452 setLabel "name_type" "Sender: TObject, " $cell452 setScope "name_type" "cl" "scopePhase" $cell452 setProp "is_vcl" "1" "name_type" "cl" $cell452 setProp "libunit" "System" "name_type" "cl" $cell452 setScope "name_type" "de" "scopeSystem" set cell453 [$row451 addCell parameter 0.0] $cell453 setLabel "name_type" "Source: TObject, " $cell453 setScope "name_type" "cl" "scopePhase" $cell453 setProp "is_vcl" "1" "name_type" "cl" $cell453 setProp "libunit" "System" "name_type" "cl" $cell453 setScope "name_type" "de" "scopeSystem" set cell454 [$row451 addCell parameter 0.0] $cell454 setLabel "name_type" "X: int, " $cell454 setScope "name_type" "cl" "scopePhase" $cell454 setScope "name_type" "de" "scopeSystem" set cell455 [$row451 addCell parameter 0.0] $cell455 setLabel "name_type" "Y: int" $cell455 setScope "name_type" "cl" "scopePhase" $cell455 setScope "name_type" "de" "scopeSystem" set row456 [$diag addRow method 0.0] $row456 setLabel "name_type" "Enter()\n" $row456 setProp "has_parmlist" "1" $row456 setProp "is_event" "1" set cell457 [$row456 addCell parameter 0.0] $cell457 setLabel "name_type" "Sender: TObject" $cell457 setScope "name_type" "cl" "scopePhase" $cell457 setProp "is_vcl" "1" "name_type" "cl" $cell457 setProp "libunit" "System" "name_type" "cl" $cell457 setScope "name_type" "de" "scopeSystem" set row458 [$diag addRow method 0.0] $row458 setLabel "name_type" "Exit()\n" $row458 setProp "has_parmlist" "1" $row458 setProp "is_event" "1" set cell459 [$row458 addCell parameter 0.0] $cell459 setLabel "name_type" "Sender: TObject" $cell459 setScope "name_type" "cl" "scopePhase" $cell459 setProp "is_vcl" "1" "name_type" "cl" $cell459 setProp "libunit" "System" "name_type" "cl" $cell459 setScope "name_type" "de" "scopeSystem" set row460 [$diag addRow method 0.0] $row460 setLabel "name_type" "KeyDown()\n" $row460 setProp "has_parmlist" "1" $row460 setProp "is_event" "1" set cell461 [$row460 addCell parameter 0.0] $cell461 setLabel "name_type" "Sender: TObject, " $cell461 setScope "name_type" "cl" "scopePhase" $cell461 setProp "is_vcl" "1" "name_type" "cl" $cell461 setProp "libunit" "System" "name_type" "cl" $cell461 setScope "name_type" "de" "scopeSystem" set cell462 [$row460 addCell parameter 0.0] $cell462 setLabel "name_type" "Key: word, " $cell462 setProp "pass_by" "Variable" $cell462 setScope "name_type" "cl" "scopePhase" $cell462 setScope "name_type" "de" "scopeSystem" set cell463 [$row460 addCell parameter 0.0] $cell463 setLabel "name_type" "Shift: TShiftState" $cell463 setScope "name_type" "cl" "scopePhase" $cell463 setProp "is_vcl" "1" "name_type" "cl" $cell463 setProp "libunit" "Classes" "name_type" "cl" $cell463 setScope "name_type" "de" "scopeSystem" set row464 [$diag addRow method 0.0] $row464 setLabel "name_type" "KeyPress()\n" $row464 setProp "has_parmlist" "1" $row464 setProp "is_event" "1" set cell465 [$row464 addCell parameter 0.0] $cell465 setLabel "name_type" "Sender: TObject, " $cell465 setScope "name_type" "cl" "scopePhase" $cell465 setProp "is_vcl" "1" "name_type" "cl" $cell465 setProp "libunit" "System" "name_type" "cl" $cell465 setScope "name_type" "de" "scopeSystem" set cell466 [$row464 addCell parameter 0.0] $cell466 setLabel "name_type" "Key: char" $cell466 setProp "pass_by" "Variable" $cell466 setScope "name_type" "cl" "scopePhase" $cell466 setScope "name_type" "de" "scopeSystem" set row467 [$diag addRow method 0.0] $row467 setLabel "name_type" "KeyUp()\n" $row467 setProp "has_parmlist" "1" $row467 setProp "is_event" "1" set cell468 [$row467 addCell parameter 0.0] $cell468 setLabel "name_type" "Sender: TObject, " $cell468 setScope "name_type" "cl" "scopePhase" $cell468 setProp "is_vcl" "1" "name_type" "cl" $cell468 setProp "libunit" "System" "name_type" "cl" $cell468 setScope "name_type" "de" "scopeSystem" set cell469 [$row467 addCell parameter 0.0] $cell469 setLabel "name_type" "Key: word, " $cell469 setProp "pass_by" "Variable" $cell469 setScope "name_type" "cl" "scopePhase" $cell469 setScope "name_type" "de" "scopeSystem" set cell470 [$row467 addCell parameter 0.0] $cell470 setLabel "name_type" "Shift: TShiftState" $cell470 setScope "name_type" "cl" "scopePhase" $cell470 setProp "is_vcl" "1" "name_type" "cl" $cell470 setProp "libunit" "Classes" "name_type" "cl" $cell470 setScope "name_type" "de" "scopeSystem" set row471 [$diag addRow method 0.0] $row471 setLabel "name_type" "MeasureItem()\n" $row471 setProp "has_parmlist" "1" set cell472 [$row471 addCell parameter 0.0] $cell472 setLabel "name_type" "Control: TWinControl, " $cell472 setScope "name_type" "cl" "scopePhase" $cell472 setProp "is_vcl" "1" "name_type" "cl" $cell472 setProp "libunit" "Controls" "name_type" "cl" $cell472 setScope "name_type" "de" "scopeSystem" set cell473 [$row471 addCell parameter 0.0] $cell473 setLabel "name_type" "Index: int, " $cell473 setScope "name_type" "cl" "scopePhase" $cell473 setScope "name_type" "de" "scopeSystem" set cell474 [$row471 addCell parameter 0.0] $cell474 setLabel "name_type" "Height: int" $cell474 setProp "pass_by" "Variable" $cell474 setScope "name_type" "cl" "scopePhase" $cell474 setScope "name_type" "de" "scopeSystem" set row475 [$diag addRow method 0.0] $row475 setLabel "name_type" "StartDrag()" $row475 setProp "has_parmlist" "1" $row475 setProp "is_event" "1" set cell476 [$row475 addCell parameter 0.0] $cell476 setLabel "name_type" "Sender: TObject, " $cell476 setScope "name_type" "cl" "scopePhase" $cell476 setProp "is_vcl" "1" "name_type" "cl" $cell476 setProp "libunit" "System" "name_type" "cl" $cell476 setScope "name_type" "de" "scopeSystem" set cell477 [$row475 addCell parameter 0.0] $cell477 setLabel "name_type" "DragObject: TDragObject" $cell477 setProp "pass_by" "Variable" $cell477 setScope "name_type" "cl" "scopePhase" $cell477 setProp "is_vcl" "1" "name_type" "cl" $cell477 setProp "libunit" "Controls" "name_type" "cl" $cell477 setScope "name_type" "de" "scopeSystem" $diag save # Generator: et.tcl /main/hindenburg/19 # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl # Interpreter to use: Otsh V6.1.1/B1 # OTShRegister::importTool set diag [CDM new TButton "DelphiVCL" "" "" "" "" "" 1] set row478 [$diag addRow method 0.0] $row478 setLabel "name_type" "Click()\n" $row478 setProp "has_parmlist" "1" set cell479 [$row478 addCell parameter 0.0] $cell479 setLabel "name_type" "Sender: TObject" $cell479 setScope "name_type" "cl" "scopePhase" $cell479 setProp "is_vcl" "1" "name_type" "cl" $cell479 setProp "libunit" "System" "name_type" "cl" $cell479 setScope "name_type" "de" "scopeSystem" set row480 [$diag addRow method 0.0] $row480 setLabel "name_type" "DragDrop()\n" $row480 setProp "has_parmlist" "1" $row480 setProp "is_event" "1" set cell481 [$row480 addCell parameter 0.0] $cell481 setLabel "name_type" "Sender: TObject, " $cell481 setScope "name_type" "cl" "scopePhase" $cell481 setProp "is_vcl" "1" "name_type" "cl" $cell481 setProp "libunit" "System" "name_type" "cl" $cell481 setScope "name_type" "de" "scopeSystem" set cell482 [$row480 addCell parameter 0.0] $cell482 setLabel "name_type" "Source: TObject, " $cell482 setScope "name_type" "cl" "scopePhase" $cell482 setProp "is_vcl" "1" "name_type" "cl" $cell482 setProp "libunit" "System" "name_type" "cl" $cell482 setScope "name_type" "de" "scopeSystem" set cell483 [$row480 addCell parameter 0.0] $cell483 setLabel "name_type" "X: int, " $cell483 setScope "name_type" "cl" "scopePhase" $cell483 setScope "name_type" "de" "scopeSystem" set cell484 [$row480 addCell parameter 0.0] $cell484 setLabel "name_type" "Y: int" $cell484 setScope "name_type" "cl" "scopePhase" $cell484 setScope "name_type" "de" "scopeSystem" set row485 [$diag addRow method 0.0] $row485 setLabel "name_type" "DragOver()\n" $row485 setProp "has_parmlist" "1" $row485 setProp "is_event" "1" set cell486 [$row485 addCell parameter 0.0] $cell486 setLabel "name_type" "Sender: TObject, " $cell486 setScope "name_type" "cl" "scopePhase" $cell486 setProp "is_vcl" "1" "name_type" "cl" $cell486 setProp "libunit" "System" "name_type" "cl" $cell486 setScope "name_type" "de" "scopeSystem" set cell487 [$row485 addCell parameter 0.0] $cell487 setLabel "name_type" "Source: TObject, " $cell487 setScope "name_type" "cl" "scopePhase" $cell487 setProp "is_vcl" "1" "name_type" "cl" $cell487 setProp "libunit" "System" "name_type" "cl" $cell487 setScope "name_type" "de" "scopeSystem" set cell488 [$row485 addCell parameter 0.0] $cell488 setLabel "name_type" "X: int, " $cell488 setScope "name_type" "cl" "scopePhase" $cell488 setScope "name_type" "de" "scopeSystem" set cell489 [$row485 addCell parameter 0.0] $cell489 setLabel "name_type" "Y: int, " $cell489 setScope "name_type" "cl" "scopePhase" $cell489 setScope "name_type" "de" "scopeSystem" set cell490 [$row485 addCell parameter 0.0] $cell490 setLabel "name_type" "State: TDragState, " $cell490 setScope "name_type" "cl" "scopePhase" $cell490 setProp "is_vcl" "1" "name_type" "cl" $cell490 setProp "libunit" "Controls" "name_type" "cl" $cell490 setScope "name_type" "de" "scopeSystem" set cell491 [$row485 addCell parameter 0.0] $cell491 setLabel "name_type" "Accept: bool" $cell491 setProp "pass_by" "Variable" $cell491 setScope "name_type" "cl" "scopePhase" $cell491 setScope "name_type" "de" "scopeSystem" set row492 [$diag addRow method 0.0] $row492 setLabel "name_type" "EndDrag()\n" $row492 setProp "has_parmlist" "1" $row492 setProp "is_event" "1" set cell493 [$row492 addCell parameter 0.0] $cell493 setLabel "name_type" "Sender: TObject, " $cell493 setScope "name_type" "cl" "scopePhase" $cell493 setProp "is_vcl" "1" "name_type" "cl" $cell493 setProp "libunit" "System" "name_type" "cl" $cell493 setScope "name_type" "de" "scopeSystem" set cell494 [$row492 addCell parameter 0.0] $cell494 setLabel "name_type" "Source: TObject, " $cell494 setScope "name_type" "cl" "scopePhase" $cell494 setProp "is_vcl" "1" "name_type" "cl" $cell494 setProp "libunit" "System" "name_type" "cl" $cell494 setScope "name_type" "de" "scopeSystem" set cell495 [$row492 addCell parameter 0.0] $cell495 setLabel "name_type" "X: int, " $cell495 setScope "name_type" "cl" "scopePhase" $cell495 setScope "name_type" "de" "scopeSystem" set cell496 [$row492 addCell parameter 0.0] $cell496 setLabel "name_type" "Y: int" $cell496 setScope "name_type" "cl" "scopePhase" $cell496 setScope "name_type" "de" "scopeSystem" set row497 [$diag addRow method 0.0] $row497 setLabel "name_type" "Enter()\n" $row497 setProp "has_parmlist" "1" $row497 setProp "is_event" "1" set cell498 [$row497 addCell parameter 0.0] $cell498 setLabel "name_type" "Sender: TObject" $cell498 setScope "name_type" "cl" "scopePhase" $cell498 setProp "is_vcl" "1" "name_type" "cl" $cell498 setProp "libunit" "System" "name_type" "cl" $cell498 setScope "name_type" "de" "scopeSystem" set row499 [$diag addRow method 0.0] $row499 setLabel "name_type" "Exit()\n" $row499 setProp "has_parmlist" "1" $row499 setProp "is_event" "1" set cell500 [$row499 addCell parameter 0.0] $cell500 setLabel "name_type" "Sender: TObject" $cell500 setScope "name_type" "cl" "scopePhase" $cell500 setProp "is_vcl" "1" "name_type" "cl" $cell500 setProp "libunit" "System" "name_type" "cl" $cell500 setScope "name_type" "de" "scopeSystem" set row501 [$diag addRow method 0.0] $row501 setLabel "name_type" "KeyDown()\n" $row501 setProp "has_parmlist" "1" $row501 setProp "is_event" "1" set cell502 [$row501 addCell parameter 0.0] $cell502 setLabel "name_type" "Sender: TObject, " $cell502 setScope "name_type" "cl" "scopePhase" $cell502 setProp "is_vcl" "1" "name_type" "cl" $cell502 setProp "libunit" "System" "name_type" "cl" $cell502 setScope "name_type" "de" "scopeSystem" set cell503 [$row501 addCell parameter 0.0] $cell503 setLabel "name_type" "Key: word, " $cell503 setProp "pass_by" "Variable" $cell503 setScope "name_type" "cl" "scopePhase" $cell503 setScope "name_type" "de" "scopeSystem" set cell504 [$row501 addCell parameter 0.0] $cell504 setLabel "name_type" "Shift: TShiftState" $cell504 setScope "name_type" "cl" "scopePhase" $cell504 setProp "is_vcl" "1" "name_type" "cl" $cell504 setProp "libunit" "Classes" "name_type" "cl" $cell504 setScope "name_type" "de" "scopeSystem" set row505 [$diag addRow method 0.0] $row505 setLabel "name_type" "KeyPress()\n" $row505 setProp "has_parmlist" "1" $row505 setProp "is_event" "1" set cell506 [$row505 addCell parameter 0.0] $cell506 setLabel "name_type" "Sender: TObject, " $cell506 setScope "name_type" "cl" "scopePhase" $cell506 setProp "is_vcl" "1" "name_type" "cl" $cell506 setProp "libunit" "System" "name_type" "cl" $cell506 setScope "name_type" "de" "scopeSystem" set cell507 [$row505 addCell parameter 0.0] $cell507 setLabel "name_type" "Key: char" $cell507 setProp "pass_by" "Variable" $cell507 setScope "name_type" "cl" "scopePhase" $cell507 setScope "name_type" "de" "scopeSystem" set row508 [$diag addRow method 0.0] $row508 setLabel "name_type" "KeyUp()\n" $row508 setProp "has_parmlist" "1" $row508 setProp "is_event" "1" set cell509 [$row508 addCell parameter 0.0] $cell509 setLabel "name_type" "Sender: TObject, " $cell509 setScope "name_type" "cl" "scopePhase" $cell509 setProp "is_vcl" "1" "name_type" "cl" $cell509 setProp "libunit" "System" "name_type" "cl" $cell509 setScope "name_type" "de" "scopeSystem" set cell510 [$row508 addCell parameter 0.0] $cell510 setLabel "name_type" "Key: word, " $cell510 setProp "pass_by" "Variable" $cell510 setScope "name_type" "cl" "scopePhase" $cell510 setScope "name_type" "de" "scopeSystem" set cell511 [$row508 addCell parameter 0.0] $cell511 setLabel "name_type" "Shift: TShiftState" $cell511 setScope "name_type" "cl" "scopePhase" $cell511 setProp "is_vcl" "1" "name_type" "cl" $cell511 setProp "libunit" "Classes" "name_type" "cl" $cell511 setScope "name_type" "de" "scopeSystem" set row512 [$diag addRow method 0.0] $row512 setLabel "name_type" "MouseDown()\n" $row512 setProp "has_parmlist" "1" $row512 setProp "is_event" "1" set cell513 [$row512 addCell parameter 0.0] $cell513 setLabel "name_type" "Sender: TObject, " $cell513 setScope "name_type" "cl" "scopePhase" $cell513 setProp "is_vcl" "1" "name_type" "cl" $cell513 setProp "libunit" "System" "name_type" "cl" $cell513 setScope "name_type" "de" "scopeSystem" set cell514 [$row512 addCell parameter 0.0] $cell514 setLabel "name_type" "Button: TMouseButton, " $cell514 setScope "name_type" "cl" "scopePhase" $cell514 setProp "is_vcl" "1" "name_type" "cl" $cell514 setProp "libunit" "Controls" "name_type" "cl" $cell514 setScope "name_type" "de" "scopeSystem" set cell515 [$row512 addCell parameter 0.0] $cell515 setLabel "name_type" "Shift: TShiftState, " $cell515 setScope "name_type" "cl" "scopePhase" $cell515 setProp "is_vcl" "1" "name_type" "cl" $cell515 setProp "libunit" "Classes" "name_type" "cl" $cell515 setScope "name_type" "de" "scopeSystem" set cell516 [$row512 addCell parameter 0.0] $cell516 setLabel "name_type" "X: int, " $cell516 setScope "name_type" "cl" "scopePhase" $cell516 setScope "name_type" "de" "scopeSystem" set cell517 [$row512 addCell parameter 0.0] $cell517 setLabel "name_type" "Y: int" $cell517 setScope "name_type" "cl" "scopePhase" $cell517 setScope "name_type" "de" "scopeSystem" set row518 [$diag addRow method 0.0] $row518 setLabel "name_type" "MouseMove()\n" $row518 setProp "has_parmlist" "1" $row518 setProp "is_event" "1" set cell519 [$row518 addCell parameter 0.0] $cell519 setLabel "name_type" "Sender: TObject, " $cell519 setScope "name_type" "cl" "scopePhase" $cell519 setProp "is_vcl" "1" "name_type" "cl" $cell519 setProp "libunit" "System" "name_type" "cl" $cell519 setScope "name_type" "de" "scopeSystem" set cell520 [$row518 addCell parameter 0.0] $cell520 setLabel "name_type" "Shift: TShiftState, " $cell520 setScope "name_type" "cl" "scopePhase" $cell520 setProp "is_vcl" "1" "name_type" "cl" $cell520 setProp "libunit" "Classes" "name_type" "cl" $cell520 setScope "name_type" "de" "scopeSystem" set cell521 [$row518 addCell parameter 0.0] $cell521 setLabel "name_type" "X: int, " $cell521 setScope "name_type" "cl" "scopePhase" $cell521 setScope "name_type" "de" "scopeSystem" set cell522 [$row518 addCell parameter 0.0] $cell522 setLabel "name_type" "Y: int" $cell522 setScope "name_type" "cl" "scopePhase" $cell522 setScope "name_type" "de" "scopeSystem" set row523 [$diag addRow method 0.0] $row523 setLabel "name_type" "MouseUp()\n" $row523 setProp "has_parmlist" "1" $row523 setProp "is_event" "1" set cell524 [$row523 addCell parameter 0.0] $cell524 setLabel "name_type" "Sender: TObject, " $cell524 setScope "name_type" "cl" "scopePhase" $cell524 setProp "is_vcl" "1" "name_type" "cl" $cell524 setProp "libunit" "System" "name_type" "cl" $cell524 setScope "name_type" "de" "scopeSystem" set cell525 [$row523 addCell parameter 0.0] $cell525 setLabel "name_type" "Button: TMouseButton, " $cell525 setScope "name_type" "cl" "scopePhase" $cell525 setProp "is_vcl" "1" "name_type" "cl" $cell525 setProp "libunit" "Controls" "name_type" "cl" $cell525 setScope "name_type" "de" "scopeSystem" set cell526 [$row523 addCell parameter 0.0] $cell526 setLabel "name_type" "Shift: TShiftState, " $cell526 setScope "name_type" "cl" "scopePhase" $cell526 setProp "is_vcl" "1" "name_type" "cl" $cell526 setProp "libunit" "Classes" "name_type" "cl" $cell526 setScope "name_type" "de" "scopeSystem" set cell527 [$row523 addCell parameter 0.0] $cell527 setLabel "name_type" "X: int, " $cell527 setScope "name_type" "cl" "scopePhase" $cell527 setScope "name_type" "de" "scopeSystem" set cell528 [$row523 addCell parameter 0.0] $cell528 setLabel "name_type" "Y: int" $cell528 setScope "name_type" "cl" "scopePhase" $cell528 setScope "name_type" "de" "scopeSystem" set row529 [$diag addRow method 0.0] $row529 setLabel "name_type" "StartDrag()" $row529 setProp "has_parmlist" "1" $row529 setProp "is_event" "1" set cell530 [$row529 addCell parameter 0.0] $cell530 setLabel "name_type" "Sender: TObject, " $cell530 setScope "name_type" "cl" "scopePhase" $cell530 setProp "is_vcl" "1" "name_type" "cl" $cell530 setProp "libunit" "System" "name_type" "cl" $cell530 setScope "name_type" "de" "scopeSystem" set cell531 [$row529 addCell parameter 0.0] $cell531 setLabel "name_type" "DragObject: TDragObject" $cell531 setProp "pass_by" "Variable" $cell531 setScope "name_type" "cl" "scopePhase" $cell531 setProp "is_vcl" "1" "name_type" "cl" $cell531 setProp "libunit" "Controls" "name_type" "cl" $cell531 setScope "name_type" "de" "scopeSystem" $diag save # Generator: et.tcl /main/hindenburg/19 # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl # Interpreter to use: Otsh V6.1.1/B1 # OTShRegister::importTool set diag [CDM new TEdit "DelphiVCL" "" "" "" "" "" 1] set row532 [$diag addRow method 0.0] $row532 setLabel "name_type" "Change()\n" $row532 setProp "has_parmlist" "1" $row532 setProp "is_event" "1" set cell533 [$row532 addCell parameter 0.0] $cell533 setLabel "name_type" "Sender: TField" $cell533 setScope "name_type" "cl" "scopePhase" $cell533 setProp "is_vcl" "1" "name_type" "cl" $cell533 setProp "libunit" "Other" "name_type" "cl" $cell533 setProp "userlib" "DB" "name_type" "cl" $cell533 setScope "name_type" "de" "scopeSystem" set row534 [$diag addRow method 0.0] $row534 setLabel "name_type" "DblClick()\n" $row534 setProp "has_parmlist" "1" $row534 setProp "is_event" "1" set cell535 [$row534 addCell parameter 0.0] $cell535 setLabel "name_type" "Sender: TObject" $cell535 setScope "name_type" "cl" "scopePhase" $cell535 setProp "is_vcl" "1" "name_type" "cl" $cell535 setProp "libunit" "System" "name_type" "cl" $cell535 setScope "name_type" "de" "scopeSystem" set row536 [$diag addRow method 0.0] $row536 setLabel "name_type" "DragDrop()\n" $row536 setProp "has_parmlist" "1" $row536 setProp "is_event" "1" set cell537 [$row536 addCell parameter 0.0] $cell537 setLabel "name_type" "Sender: TObject, " $cell537 setScope "name_type" "cl" "scopePhase" $cell537 setProp "is_vcl" "1" "name_type" "cl" $cell537 setProp "libunit" "System" "name_type" "cl" $cell537 setScope "name_type" "de" "scopeSystem" set cell538 [$row536 addCell parameter 0.0] $cell538 setLabel "name_type" "Source: TObject, " $cell538 setScope "name_type" "cl" "scopePhase" $cell538 setProp "is_vcl" "1" "name_type" "cl" $cell538 setProp "libunit" "System" "name_type" "cl" $cell538 setScope "name_type" "de" "scopeSystem" set cell539 [$row536 addCell parameter 0.0] $cell539 setLabel "name_type" "X: int, " $cell539 setScope "name_type" "cl" "scopePhase" $cell539 setScope "name_type" "de" "scopeSystem" set cell540 [$row536 addCell parameter 0.0] $cell540 setLabel "name_type" "Y: int" $cell540 setScope "name_type" "cl" "scopePhase" $cell540 setScope "name_type" "de" "scopeSystem" set row541 [$diag addRow method 0.0] $row541 setLabel "name_type" "DragOver()\n" $row541 setProp "has_parmlist" "1" $row541 setProp "is_event" "1" set cell542 [$row541 addCell parameter 0.0] $cell542 setLabel "name_type" "Sender: TObject, " $cell542 setScope "name_type" "cl" "scopePhase" $cell542 setProp "is_vcl" "1" "name_type" "cl" $cell542 setProp "libunit" "System" "name_type" "cl" $cell542 setScope "name_type" "de" "scopeSystem" set cell543 [$row541 addCell parameter 0.0] $cell543 setLabel "name_type" "Source: TObject, " $cell543 setScope "name_type" "cl" "scopePhase" $cell543 setProp "is_vcl" "1" "name_type" "cl" $cell543 setProp "libunit" "System" "name_type" "cl" $cell543 setScope "name_type" "de" "scopeSystem" set cell544 [$row541 addCell parameter 0.0] $cell544 setLabel "name_type" "X: int, " $cell544 setScope "name_type" "cl" "scopePhase" $cell544 setScope "name_type" "de" "scopeSystem" set cell545 [$row541 addCell parameter 0.0] $cell545 setLabel "name_type" "Y: int, " $cell545 setScope "name_type" "cl" "scopePhase" $cell545 setScope "name_type" "de" "scopeSystem" set cell546 [$row541 addCell parameter 0.0] $cell546 setLabel "name_type" "State: TDragState, " $cell546 setScope "name_type" "cl" "scopePhase" $cell546 setProp "is_vcl" "1" "name_type" "cl" $cell546 setProp "libunit" "Controls" "name_type" "cl" $cell546 setScope "name_type" "de" "scopeSystem" set cell547 [$row541 addCell parameter 0.0] $cell547 setLabel "name_type" "Accept: bool" $cell547 setProp "pass_by" "Variable" $cell547 setScope "name_type" "cl" "scopePhase" $cell547 setScope "name_type" "de" "scopeSystem" set row548 [$diag addRow method 0.0] $row548 setLabel "name_type" "EndDrag()\n" $row548 setProp "has_parmlist" "1" $row548 setProp "is_event" "1" set cell549 [$row548 addCell parameter 0.0] $cell549 setLabel "name_type" "Sender: TObject, " $cell549 setScope "name_type" "cl" "scopePhase" $cell549 setProp "is_vcl" "1" "name_type" "cl" $cell549 setProp "libunit" "System" "name_type" "cl" $cell549 setScope "name_type" "de" "scopeSystem" set cell550 [$row548 addCell parameter 0.0] $cell550 setLabel "name_type" "Source: TObject, " $cell550 setScope "name_type" "cl" "scopePhase" $cell550 setProp "is_vcl" "1" "name_type" "cl" $cell550 setProp "libunit" "System" "name_type" "cl" $cell550 setScope "name_type" "de" "scopeSystem" set cell551 [$row548 addCell parameter 0.0] $cell551 setLabel "name_type" "X: int, " $cell551 setScope "name_type" "cl" "scopePhase" $cell551 setScope "name_type" "de" "scopeSystem" set cell552 [$row548 addCell parameter 0.0] $cell552 setLabel "name_type" "Y: int" $cell552 setScope "name_type" "cl" "scopePhase" $cell552 setScope "name_type" "de" "scopeSystem" set row553 [$diag addRow method 0.0] $row553 setLabel "name_type" "Enter()\n" $row553 setProp "has_parmlist" "1" $row553 setProp "is_event" "1" set cell554 [$row553 addCell parameter 0.0] $cell554 setLabel "name_type" "Sender: TObject" $cell554 setScope "name_type" "cl" "scopePhase" $cell554 setProp "is_vcl" "1" "name_type" "cl" $cell554 setProp "libunit" "System" "name_type" "cl" $cell554 setScope "name_type" "de" "scopeSystem" set row555 [$diag addRow method 0.0] $row555 setLabel "name_type" "Exit()\n" $row555 setProp "has_parmlist" "1" $row555 setProp "is_event" "1" set cell556 [$row555 addCell parameter 0.0] $cell556 setLabel "name_type" "Sender: TObject" $cell556 setScope "name_type" "cl" "scopePhase" $cell556 setProp "is_vcl" "1" "name_type" "cl" $cell556 setProp "libunit" "System" "name_type" "cl" $cell556 setScope "name_type" "de" "scopeSystem" set row557 [$diag addRow method 0.0] $row557 setLabel "name_type" "KeyDown()\n" $row557 setProp "has_parmlist" "1" $row557 setProp "is_event" "1" set cell558 [$row557 addCell parameter 0.0] $cell558 setLabel "name_type" "Sender: TObject, " $cell558 setScope "name_type" "cl" "scopePhase" $cell558 setProp "is_vcl" "1" "name_type" "cl" $cell558 setProp "libunit" "System" "name_type" "cl" $cell558 setScope "name_type" "de" "scopeSystem" set cell559 [$row557 addCell parameter 0.0] $cell559 setLabel "name_type" "Key: word, " $cell559 setProp "pass_by" "Variable" $cell559 setScope "name_type" "cl" "scopePhase" $cell559 setScope "name_type" "de" "scopeSystem" set cell560 [$row557 addCell parameter 0.0] $cell560 setLabel "name_type" "Shift: TShiftState" $cell560 setScope "name_type" "cl" "scopePhase" $cell560 setProp "is_vcl" "1" "name_type" "cl" $cell560 setProp "libunit" "Classes" "name_type" "cl" $cell560 setScope "name_type" "de" "scopeSystem" set row561 [$diag addRow method 0.0] $row561 setLabel "name_type" "KeyPress()\n" $row561 setProp "has_parmlist" "1" $row561 setProp "is_event" "1" set cell562 [$row561 addCell parameter 0.0] $cell562 setLabel "name_type" "Sender: TObject, " $cell562 setScope "name_type" "cl" "scopePhase" $cell562 setProp "is_vcl" "1" "name_type" "cl" $cell562 setProp "libunit" "System" "name_type" "cl" $cell562 setScope "name_type" "de" "scopeSystem" set cell563 [$row561 addCell parameter 0.0] $cell563 setLabel "name_type" "Key: char" $cell563 setProp "pass_by" "Variable" $cell563 setScope "name_type" "cl" "scopePhase" $cell563 setScope "name_type" "de" "scopeSystem" set row564 [$diag addRow method 0.0] $row564 setLabel "name_type" "KeyUp()\n" $row564 setProp "has_parmlist" "1" $row564 setProp "is_event" "1" set cell565 [$row564 addCell parameter 0.0] $cell565 setLabel "name_type" "Sender: TObject, " $cell565 setScope "name_type" "cl" "scopePhase" $cell565 setProp "is_vcl" "1" "name_type" "cl" $cell565 setProp "libunit" "System" "name_type" "cl" $cell565 setScope "name_type" "de" "scopeSystem" set cell566 [$row564 addCell parameter 0.0] $cell566 setLabel "name_type" "Key: word, " $cell566 setProp "pass_by" "Variable" $cell566 setScope "name_type" "cl" "scopePhase" $cell566 setScope "name_type" "de" "scopeSystem" set cell567 [$row564 addCell parameter 0.0] $cell567 setLabel "name_type" "Shift: TShiftState" $cell567 setScope "name_type" "cl" "scopePhase" $cell567 setProp "is_vcl" "1" "name_type" "cl" $cell567 setProp "libunit" "Classes" "name_type" "cl" $cell567 setScope "name_type" "de" "scopeSystem" set row568 [$diag addRow method 0.0] $row568 setLabel "name_type" "MouseDown()\n" $row568 setProp "has_parmlist" "1" $row568 setProp "is_event" "1" set cell569 [$row568 addCell parameter 0.0] $cell569 setLabel "name_type" "Sender: TObject, " $cell569 setScope "name_type" "cl" "scopePhase" $cell569 setProp "is_vcl" "1" "name_type" "cl" $cell569 setProp "libunit" "System" "name_type" "cl" $cell569 setScope "name_type" "de" "scopeSystem" set cell570 [$row568 addCell parameter 0.0] $cell570 setLabel "name_type" "Button: TMouseButton, " $cell570 setScope "name_type" "cl" "scopePhase" $cell570 setProp "is_vcl" "1" "name_type" "cl" $cell570 setProp "libunit" "Controls" "name_type" "cl" $cell570 setScope "name_type" "de" "scopeSystem" set cell571 [$row568 addCell parameter 0.0] $cell571 setLabel "name_type" "Shift: TShiftState, " $cell571 setScope "name_type" "cl" "scopePhase" $cell571 setProp "is_vcl" "1" "name_type" "cl" $cell571 setProp "libunit" "Classes" "name_type" "cl" $cell571 setScope "name_type" "de" "scopeSystem" set cell572 [$row568 addCell parameter 0.0] $cell572 setLabel "name_type" "X: int, " $cell572 setScope "name_type" "cl" "scopePhase" $cell572 setScope "name_type" "de" "scopeSystem" set cell573 [$row568 addCell parameter 0.0] $cell573 setLabel "name_type" "Y: int" $cell573 setScope "name_type" "cl" "scopePhase" $cell573 setScope "name_type" "de" "scopeSystem" set row574 [$diag addRow method 0.0] $row574 setLabel "name_type" "MouseMove()\n" $row574 setProp "has_parmlist" "1" $row574 setProp "is_event" "1" set cell575 [$row574 addCell parameter 0.0] $cell575 setLabel "name_type" "Sender: TObject, " $cell575 setScope "name_type" "cl" "scopePhase" $cell575 setProp "is_vcl" "1" "name_type" "cl" $cell575 setProp "libunit" "System" "name_type" "cl" $cell575 setScope "name_type" "de" "scopeSystem" set cell576 [$row574 addCell parameter 0.0] $cell576 setLabel "name_type" "Shift: TShiftState, " $cell576 setScope "name_type" "cl" "scopePhase" $cell576 setProp "is_vcl" "1" "name_type" "cl" $cell576 setProp "libunit" "Classes" "name_type" "cl" $cell576 setScope "name_type" "de" "scopeSystem" set cell577 [$row574 addCell parameter 0.0] $cell577 setLabel "name_type" "X: int, " $cell577 setScope "name_type" "cl" "scopePhase" $cell577 setScope "name_type" "de" "scopeSystem" set cell578 [$row574 addCell parameter 0.0] $cell578 setLabel "name_type" "Y: int" $cell578 setScope "name_type" "cl" "scopePhase" $cell578 setScope "name_type" "de" "scopeSystem" set row579 [$diag addRow method 0.0] $row579 setLabel "name_type" "MouseUp()\n" $row579 setProp "has_parmlist" "1" $row579 setProp "is_event" "1" set cell580 [$row579 addCell parameter 0.0] $cell580 setLabel "name_type" "Sender: TObject, " $cell580 setScope "name_type" "cl" "scopePhase" $cell580 setProp "is_vcl" "1" "name_type" "cl" $cell580 setProp "libunit" "System" "name_type" "cl" $cell580 setScope "name_type" "de" "scopeSystem" set cell581 [$row579 addCell parameter 0.0] $cell581 setLabel "name_type" "Button: TMouseButton, " $cell581 setScope "name_type" "cl" "scopePhase" $cell581 setProp "is_vcl" "1" "name_type" "cl" $cell581 setProp "libunit" "Controls" "name_type" "cl" $cell581 setScope "name_type" "de" "scopeSystem" set cell582 [$row579 addCell parameter 0.0] $cell582 setLabel "name_type" "Shift: TShiftState, " $cell582 setScope "name_type" "cl" "scopePhase" $cell582 setProp "is_vcl" "1" "name_type" "cl" $cell582 setProp "libunit" "Classes" "name_type" "cl" $cell582 setScope "name_type" "de" "scopeSystem" set cell583 [$row579 addCell parameter 0.0] $cell583 setLabel "name_type" "X: int, " $cell583 setScope "name_type" "cl" "scopePhase" $cell583 setScope "name_type" "de" "scopeSystem" set cell584 [$row579 addCell parameter 0.0] $cell584 setLabel "name_type" "Y: int" $cell584 setScope "name_type" "cl" "scopePhase" $cell584 setScope "name_type" "de" "scopeSystem" set row585 [$diag addRow method 0.0] $row585 setLabel "name_type" "StartDrag()" $row585 setProp "has_parmlist" "1" $row585 setProp "is_event" "1" set cell586 [$row585 addCell parameter 0.0] $cell586 setLabel "name_type" "Sender: TObject, " $cell586 setScope "name_type" "cl" "scopePhase" $cell586 setProp "is_vcl" "1" "name_type" "cl" $cell586 setProp "libunit" "System" "name_type" "cl" $cell586 setScope "name_type" "de" "scopeSystem" set cell587 [$row585 addCell parameter 0.0] $cell587 setLabel "name_type" "DragObject: TDragObject" $cell587 setProp "pass_by" "Variable" $cell587 setScope "name_type" "cl" "scopePhase" $cell587 setProp "is_vcl" "1" "name_type" "cl" $cell587 setProp "libunit" "Controls" "name_type" "cl" $cell587 setScope "name_type" "de" "scopeSystem" $diag save # Generator: et.tcl /main/hindenburg/19 # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl # Interpreter to use: Otsh V6.1.1/B1 # OTShRegister::importTool set diag [CDM new TMemo "DelphiVCL" "" "" "" "" "" 1] set row588 [$diag addRow method 0.0] $row588 setLabel "name_type" "Change()\n" $row588 setProp "has_parmlist" "1" $row588 setProp "is_event" "1" set cell589 [$row588 addCell parameter 0.0] $cell589 setLabel "name_type" "Sender: TField" $cell589 setScope "name_type" "cl" "scopePhase" $cell589 setProp "is_vcl" "1" "name_type" "cl" $cell589 setProp "libunit" "Other" "name_type" "cl" $cell589 setProp "userlib" "DB" "name_type" "cl" $cell589 setScope "name_type" "de" "scopeSystem" set row590 [$diag addRow method 0.0] $row590 setLabel "name_type" "Click()\n" $row590 setProp "has_parmlist" "1" $row590 setProp "is_event" "1" set cell591 [$row590 addCell parameter 0.0] $cell591 setLabel "name_type" "Sender: TObject" $cell591 setScope "name_type" "cl" "scopePhase" $cell591 setProp "is_vcl" "1" "name_type" "cl" $cell591 setProp "libunit" "System" "name_type" "cl" $cell591 setScope "name_type" "de" "scopeSystem" set row592 [$diag addRow method 0.0] $row592 setLabel "name_type" "DblClick()\n" $row592 setProp "has_parmlist" "1" $row592 setProp "is_event" "1" set cell593 [$row592 addCell parameter 0.0] $cell593 setLabel "name_type" "Sender: TObject" $cell593 setScope "name_type" "cl" "scopePhase" $cell593 setProp "is_vcl" "1" "name_type" "cl" $cell593 setProp "libunit" "System" "name_type" "cl" $cell593 setScope "name_type" "de" "scopeSystem" set row594 [$diag addRow method 0.0] $row594 setLabel "name_type" "DragDrop()\n" $row594 setProp "has_parmlist" "1" $row594 setProp "is_event" "1" set cell595 [$row594 addCell parameter 0.0] $cell595 setLabel "name_type" "Sender: TObject, " $cell595 setScope "name_type" "cl" "scopePhase" $cell595 setProp "is_vcl" "1" "name_type" "cl" $cell595 setProp "libunit" "System" "name_type" "cl" $cell595 setScope "name_type" "de" "scopeSystem" set cell596 [$row594 addCell parameter 0.0] $cell596 setLabel "name_type" "Source: TObject, " $cell596 setScope "name_type" "cl" "scopePhase" $cell596 setProp "is_vcl" "1" "name_type" "cl" $cell596 setProp "libunit" "System" "name_type" "cl" $cell596 setScope "name_type" "de" "scopeSystem" set cell597 [$row594 addCell parameter 0.0] $cell597 setLabel "name_type" "X: int, " $cell597 setScope "name_type" "cl" "scopePhase" $cell597 setScope "name_type" "de" "scopeSystem" set cell598 [$row594 addCell parameter 0.0] $cell598 setLabel "name_type" "Y: int" $cell598 setScope "name_type" "cl" "scopePhase" $cell598 setScope "name_type" "de" "scopeSystem" set row599 [$diag addRow method 0.0] $row599 setLabel "name_type" "DragOver()\n" $row599 setProp "has_parmlist" "1" $row599 setProp "is_event" "1" set cell600 [$row599 addCell parameter 0.0] $cell600 setLabel "name_type" "Sender: TObject, " $cell600 setScope "name_type" "cl" "scopePhase" $cell600 setProp "is_vcl" "1" "name_type" "cl" $cell600 setProp "libunit" "System" "name_type" "cl" $cell600 setScope "name_type" "de" "scopeSystem" set cell601 [$row599 addCell parameter 0.0] $cell601 setLabel "name_type" "Source: TObject, " $cell601 setScope "name_type" "cl" "scopePhase" $cell601 setProp "is_vcl" "1" "name_type" "cl" $cell601 setProp "libunit" "System" "name_type" "cl" $cell601 setScope "name_type" "de" "scopeSystem" set cell602 [$row599 addCell parameter 0.0] $cell602 setLabel "name_type" "X: int, " $cell602 setScope "name_type" "cl" "scopePhase" $cell602 setScope "name_type" "de" "scopeSystem" set cell603 [$row599 addCell parameter 0.0] $cell603 setLabel "name_type" "Y: int, " $cell603 setScope "name_type" "cl" "scopePhase" $cell603 setScope "name_type" "de" "scopeSystem" set cell604 [$row599 addCell parameter 0.0] $cell604 setLabel "name_type" "State: TDragState, " $cell604 setScope "name_type" "cl" "scopePhase" $cell604 setProp "is_vcl" "1" "name_type" "cl" $cell604 setProp "libunit" "Controls" "name_type" "cl" $cell604 setScope "name_type" "de" "scopeSystem" set cell605 [$row599 addCell parameter 0.0] $cell605 setLabel "name_type" "Accept: bool" $cell605 setProp "pass_by" "Variable" $cell605 setScope "name_type" "cl" "scopePhase" $cell605 setScope "name_type" "de" "scopeSystem" set row606 [$diag addRow method 0.0] $row606 setLabel "name_type" "EndDrag()\n" $row606 setProp "has_parmlist" "1" $row606 setProp "is_event" "1" set cell607 [$row606 addCell parameter 0.0] $cell607 setLabel "name_type" "Sender: TObject, " $cell607 setScope "name_type" "cl" "scopePhase" $cell607 setProp "is_vcl" "1" "name_type" "cl" $cell607 setProp "libunit" "System" "name_type" "cl" $cell607 setScope "name_type" "de" "scopeSystem" set cell608 [$row606 addCell parameter 0.0] $cell608 setLabel "name_type" "Source: TObject, " $cell608 setScope "name_type" "cl" "scopePhase" $cell608 setProp "is_vcl" "1" "name_type" "cl" $cell608 setProp "libunit" "System" "name_type" "cl" $cell608 setScope "name_type" "de" "scopeSystem" set cell609 [$row606 addCell parameter 0.0] $cell609 setLabel "name_type" "X: int, " $cell609 setScope "name_type" "cl" "scopePhase" $cell609 setScope "name_type" "de" "scopeSystem" set cell610 [$row606 addCell parameter 0.0] $cell610 setLabel "name_type" "Y: int" $cell610 setScope "name_type" "cl" "scopePhase" $cell610 setScope "name_type" "de" "scopeSystem" set row611 [$diag addRow method 0.0] $row611 setLabel "name_type" "Enter()\n" $row611 setProp "has_parmlist" "1" $row611 setProp "is_event" "1" set cell612 [$row611 addCell parameter 0.0] $cell612 setLabel "name_type" "Sender: TObject" $cell612 setScope "name_type" "cl" "scopePhase" $cell612 setProp "is_vcl" "1" "name_type" "cl" $cell612 setProp "libunit" "System" "name_type" "cl" $cell612 setScope "name_type" "de" "scopeSystem" set row613 [$diag addRow method 0.0] $row613 setLabel "name_type" "Exit()\n" $row613 setProp "has_parmlist" "1" $row613 setProp "is_event" "1" set cell614 [$row613 addCell parameter 0.0] $cell614 setLabel "name_type" "Sender: TObject" $cell614 setScope "name_type" "cl" "scopePhase" $cell614 setProp "is_vcl" "1" "name_type" "cl" $cell614 setProp "libunit" "System" "name_type" "cl" $cell614 setScope "name_type" "de" "scopeSystem" set row615 [$diag addRow method 0.0] $row615 setLabel "name_type" "KeyDown()\n" $row615 setProp "has_parmlist" "1" $row615 setProp "is_event" "1" set cell616 [$row615 addCell parameter 0.0] $cell616 setLabel "name_type" "Sender: TObject, " $cell616 setScope "name_type" "cl" "scopePhase" $cell616 setProp "is_vcl" "1" "name_type" "cl" $cell616 setProp "libunit" "System" "name_type" "cl" $cell616 setScope "name_type" "de" "scopeSystem" set cell617 [$row615 addCell parameter 0.0] $cell617 setLabel "name_type" "Key: word, " $cell617 setProp "pass_by" "Variable" $cell617 setScope "name_type" "cl" "scopePhase" $cell617 setScope "name_type" "de" "scopeSystem" set cell618 [$row615 addCell parameter 0.0] $cell618 setLabel "name_type" "Shift: TShiftState" $cell618 setScope "name_type" "cl" "scopePhase" $cell618 setProp "is_vcl" "1" "name_type" "cl" $cell618 setProp "libunit" "Classes" "name_type" "cl" $cell618 setScope "name_type" "de" "scopeSystem" set row619 [$diag addRow method 0.0] $row619 setLabel "name_type" "KeyPress()\n" $row619 setProp "has_parmlist" "1" $row619 setProp "is_event" "1" set cell620 [$row619 addCell parameter 0.0] $cell620 setLabel "name_type" "Sender: TObject, " $cell620 setScope "name_type" "cl" "scopePhase" $cell620 setProp "is_vcl" "1" "name_type" "cl" $cell620 setProp "libunit" "System" "name_type" "cl" $cell620 setScope "name_type" "de" "scopeSystem" set cell621 [$row619 addCell parameter 0.0] $cell621 setLabel "name_type" "Key: char" $cell621 setProp "pass_by" "Variable" $cell621 setScope "name_type" "cl" "scopePhase" $cell621 setScope "name_type" "de" "scopeSystem" set row622 [$diag addRow method 0.0] $row622 setLabel "name_type" "KeyUp()\n" $row622 setProp "has_parmlist" "1" $row622 setProp "is_event" "1" set cell623 [$row622 addCell parameter 0.0] $cell623 setLabel "name_type" "Sender: TObject, " $cell623 setScope "name_type" "cl" "scopePhase" $cell623 setProp "is_vcl" "1" "name_type" "cl" $cell623 setProp "libunit" "System" "name_type" "cl" $cell623 setScope "name_type" "de" "scopeSystem" set cell624 [$row622 addCell parameter 0.0] $cell624 setLabel "name_type" "Key: word, " $cell624 setProp "pass_by" "Variable" $cell624 setScope "name_type" "cl" "scopePhase" $cell624 setScope "name_type" "de" "scopeSystem" set cell625 [$row622 addCell parameter 0.0] $cell625 setLabel "name_type" "Shift: TShiftState" $cell625 setScope "name_type" "cl" "scopePhase" $cell625 setProp "is_vcl" "1" "name_type" "cl" $cell625 setProp "libunit" "Classes" "name_type" "cl" $cell625 setScope "name_type" "de" "scopeSystem" set row626 [$diag addRow method 0.0] $row626 setLabel "name_type" "MouseDown()\n" $row626 setProp "has_parmlist" "1" $row626 setProp "is_event" "1" set cell627 [$row626 addCell parameter 0.0] $cell627 setLabel "name_type" "Sender: TObject, " $cell627 setScope "name_type" "cl" "scopePhase" $cell627 setProp "is_vcl" "1" "name_type" "cl" $cell627 setProp "libunit" "System" "name_type" "cl" $cell627 setScope "name_type" "de" "scopeSystem" set cell628 [$row626 addCell parameter 0.0] $cell628 setLabel "name_type" "Button: TMouseButton, " $cell628 setScope "name_type" "cl" "scopePhase" $cell628 setProp "is_vcl" "1" "name_type" "cl" $cell628 setProp "libunit" "Controls" "name_type" "cl" $cell628 setScope "name_type" "de" "scopeSystem" set cell629 [$row626 addCell parameter 0.0] $cell629 setLabel "name_type" "Shift: TShiftState, " $cell629 setScope "name_type" "cl" "scopePhase" $cell629 setProp "is_vcl" "1" "name_type" "cl" $cell629 setProp "libunit" "Classes" "name_type" "cl" $cell629 setScope "name_type" "de" "scopeSystem" set cell630 [$row626 addCell parameter 0.0] $cell630 setLabel "name_type" "X: int, " $cell630 setScope "name_type" "cl" "scopePhase" $cell630 setScope "name_type" "de" "scopeSystem" set cell631 [$row626 addCell parameter 0.0] $cell631 setLabel "name_type" "Y: int" $cell631 setScope "name_type" "cl" "scopePhase" $cell631 setScope "name_type" "de" "scopeSystem" set row632 [$diag addRow method 0.0] $row632 setLabel "name_type" "MouseMove()\n" $row632 setProp "has_parmlist" "1" $row632 setProp "is_event" "1" set cell633 [$row632 addCell parameter 0.0] $cell633 setLabel "name_type" "Sender: TObject, " $cell633 setScope "name_type" "cl" "scopePhase" $cell633 setProp "is_vcl" "1" "name_type" "cl" $cell633 setProp "libunit" "System" "name_type" "cl" $cell633 setScope "name_type" "de" "scopeSystem" set cell634 [$row632 addCell parameter 0.0] $cell634 setLabel "name_type" "Shift: TShiftState, " $cell634 setScope "name_type" "cl" "scopePhase" $cell634 setProp "is_vcl" "1" "name_type" "cl" $cell634 setProp "libunit" "Classes" "name_type" "cl" $cell634 setScope "name_type" "de" "scopeSystem" set cell635 [$row632 addCell parameter 0.0] $cell635 setLabel "name_type" "X: int, " $cell635 setScope "name_type" "cl" "scopePhase" $cell635 setScope "name_type" "de" "scopeSystem" set cell636 [$row632 addCell parameter 0.0] $cell636 setLabel "name_type" "Y: int" $cell636 setScope "name_type" "cl" "scopePhase" $cell636 setScope "name_type" "de" "scopeSystem" set row637 [$diag addRow method 0.0] $row637 setLabel "name_type" "MouseUp()\n" $row637 setProp "has_parmlist" "1" $row637 setProp "is_event" "1" set cell638 [$row637 addCell parameter 0.0] $cell638 setLabel "name_type" "Sender: TObject, " $cell638 setScope "name_type" "cl" "scopePhase" $cell638 setProp "is_vcl" "1" "name_type" "cl" $cell638 setProp "libunit" "System" "name_type" "cl" $cell638 setScope "name_type" "de" "scopeSystem" set cell639 [$row637 addCell parameter 0.0] $cell639 setLabel "name_type" "Button: TMouseButton, " $cell639 setScope "name_type" "cl" "scopePhase" $cell639 setProp "is_vcl" "1" "name_type" "cl" $cell639 setProp "libunit" "Controls" "name_type" "cl" $cell639 setScope "name_type" "de" "scopeSystem" set cell640 [$row637 addCell parameter 0.0] $cell640 setLabel "name_type" "Shift: TShiftState, " $cell640 setScope "name_type" "cl" "scopePhase" $cell640 setProp "is_vcl" "1" "name_type" "cl" $cell640 setProp "libunit" "Classes" "name_type" "cl" $cell640 setScope "name_type" "de" "scopeSystem" set cell641 [$row637 addCell parameter 0.0] $cell641 setLabel "name_type" "X: int, " $cell641 setScope "name_type" "cl" "scopePhase" $cell641 setScope "name_type" "de" "scopeSystem" set cell642 [$row637 addCell parameter 0.0] $cell642 setLabel "name_type" "Y: int" $cell642 setScope "name_type" "cl" "scopePhase" $cell642 setScope "name_type" "de" "scopeSystem" set row643 [$diag addRow method 0.0] $row643 setLabel "name_type" "StartDrag()" $row643 setProp "has_parmlist" "1" $row643 setProp "is_event" "1" set cell644 [$row643 addCell parameter 0.0] $cell644 setLabel "name_type" "Sender: TObject, " $cell644 setScope "name_type" "cl" "scopePhase" $cell644 setProp "is_vcl" "1" "name_type" "cl" $cell644 setProp "libunit" "System" "name_type" "cl" $cell644 setScope "name_type" "de" "scopeSystem" set cell645 [$row643 addCell parameter 0.0] $cell645 setLabel "name_type" "DragObject: TDragObject" $cell645 setProp "pass_by" "Variable" $cell645 setScope "name_type" "cl" "scopePhase" $cell645 setProp "is_vcl" "1" "name_type" "cl" $cell645 setProp "libunit" "Controls" "name_type" "cl" $cell645 setScope "name_type" "de" "scopeSystem" $diag save # Generator: et.tcl /main/hindenburg/19 # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl # Interpreter to use: Otsh V6.1.1/B1 # OTShRegister::importTool set diag [CDM new TLabel "DelphiVCL" "" "" "" "" "" 1] set row646 [$diag addRow method 0.0] $row646 setLabel "name_type" "Click()\n" $row646 setProp "has_parmlist" "1" $row646 setProp "is_event" "1" set cell647 [$row646 addCell parameter 0.0] $cell647 setLabel "name_type" "Sender: TObject" $cell647 setScope "name_type" "cl" "scopePhase" $cell647 setProp "is_vcl" "1" "name_type" "cl" $cell647 setProp "libunit" "System" "name_type" "cl" $cell647 setScope "name_type" "de" "scopeSystem" set row648 [$diag addRow method 0.0] $row648 setLabel "name_type" "DblClick()\n" $row648 setProp "has_parmlist" "1" set cell649 [$row648 addCell parameter 0.0] $cell649 setLabel "name_type" "Sender: TObject" $cell649 setScope "name_type" "cl" "scopePhase" $cell649 setProp "is_vcl" "1" "name_type" "cl" $cell649 setProp "libunit" "System" "name_type" "cl" $cell649 setScope "name_type" "de" "scopeSystem" set row650 [$diag addRow method 0.0] $row650 setLabel "name_type" "DragDrop()\n" $row650 setProp "has_parmlist" "1" $row650 setProp "is_event" "1" set cell651 [$row650 addCell parameter 0.0] $cell651 setLabel "name_type" "Sender: TObject, " $cell651 setScope "name_type" "cl" "scopePhase" $cell651 setProp "is_vcl" "1" "name_type" "cl" $cell651 setProp "libunit" "System" "name_type" "cl" $cell651 setScope "name_type" "de" "scopeSystem" set cell652 [$row650 addCell parameter 0.0] $cell652 setLabel "name_type" "Source: TObject, " $cell652 setScope "name_type" "cl" "scopePhase" $cell652 setProp "is_vcl" "1" "name_type" "cl" $cell652 setProp "libunit" "System" "name_type" "cl" $cell652 setScope "name_type" "de" "scopeSystem" set cell653 [$row650 addCell parameter 0.0] $cell653 setLabel "name_type" "X: int, " $cell653 setScope "name_type" "cl" "scopePhase" $cell653 setScope "name_type" "de" "scopeSystem" set cell654 [$row650 addCell parameter 0.0] $cell654 setLabel "name_type" "Y: int" $cell654 setScope "name_type" "cl" "scopePhase" $cell654 setScope "name_type" "de" "scopeSystem" set row655 [$diag addRow method 0.0] $row655 setLabel "name_type" "DragOver()\n" $row655 setProp "has_parmlist" "1" $row655 setProp "is_event" "1" set cell656 [$row655 addCell parameter 0.0] $cell656 setLabel "name_type" "Sender: TObject, " $cell656 setScope "name_type" "cl" "scopePhase" $cell656 setProp "is_vcl" "1" "name_type" "cl" $cell656 setProp "libunit" "System" "name_type" "cl" $cell656 setScope "name_type" "de" "scopeSystem" set cell657 [$row655 addCell parameter 0.0] $cell657 setLabel "name_type" "Source: TObject, " $cell657 setScope "name_type" "cl" "scopePhase" $cell657 setProp "is_vcl" "1" "name_type" "cl" $cell657 setProp "libunit" "System" "name_type" "cl" $cell657 setScope "name_type" "de" "scopeSystem" set cell658 [$row655 addCell parameter 0.0] $cell658 setLabel "name_type" "X: int, " $cell658 setScope "name_type" "cl" "scopePhase" $cell658 setScope "name_type" "de" "scopeSystem" set cell659 [$row655 addCell parameter 0.0] $cell659 setLabel "name_type" "Y: int, " $cell659 setScope "name_type" "cl" "scopePhase" $cell659 setScope "name_type" "de" "scopeSystem" set cell660 [$row655 addCell parameter 0.0] $cell660 setLabel "name_type" "State: TDragState, " $cell660 setScope "name_type" "cl" "scopePhase" $cell660 setProp "is_vcl" "1" "name_type" "cl" $cell660 setProp "libunit" "Controls" "name_type" "cl" $cell660 setScope "name_type" "de" "scopeSystem" set cell661 [$row655 addCell parameter 0.0] $cell661 setLabel "name_type" "Accept: bool" $cell661 setProp "pass_by" "Variable" $cell661 setScope "name_type" "cl" "scopePhase" $cell661 setScope "name_type" "de" "scopeSystem" set row662 [$diag addRow method 0.0] $row662 setLabel "name_type" "EndDrag()\n" $row662 setProp "has_parmlist" "1" $row662 setProp "is_event" "1" set cell663 [$row662 addCell parameter 0.0] $cell663 setLabel "name_type" "Sender: TObject, " $cell663 setScope "name_type" "cl" "scopePhase" $cell663 setProp "is_vcl" "1" "name_type" "cl" $cell663 setProp "libunit" "System" "name_type" "cl" $cell663 setScope "name_type" "de" "scopeSystem" set cell664 [$row662 addCell parameter 0.0] $cell664 setLabel "name_type" "Source: TObject, " $cell664 setScope "name_type" "cl" "scopePhase" $cell664 setProp "is_vcl" "1" "name_type" "cl" $cell664 setProp "libunit" "System" "name_type" "cl" $cell664 setScope "name_type" "de" "scopeSystem" set cell665 [$row662 addCell parameter 0.0] $cell665 setLabel "name_type" "X: int, " $cell665 setScope "name_type" "cl" "scopePhase" $cell665 setScope "name_type" "de" "scopeSystem" set cell666 [$row662 addCell parameter 0.0] $cell666 setLabel "name_type" "Y: int" $cell666 setScope "name_type" "cl" "scopePhase" $cell666 setScope "name_type" "de" "scopeSystem" set row667 [$diag addRow method 0.0] $row667 setLabel "name_type" "MouseDown()\n" $row667 setProp "has_parmlist" "1" $row667 setProp "is_event" "1" set cell668 [$row667 addCell parameter 0.0] $cell668 setLabel "name_type" "Sender: TObject, " $cell668 setScope "name_type" "cl" "scopePhase" $cell668 setProp "is_vcl" "1" "name_type" "cl" $cell668 setProp "libunit" "System" "name_type" "cl" $cell668 setScope "name_type" "de" "scopeSystem" set cell669 [$row667 addCell parameter 0.0] $cell669 setLabel "name_type" "Button: TMouseButton, " $cell669 setScope "name_type" "cl" "scopePhase" $cell669 setProp "is_vcl" "1" "name_type" "cl" $cell669 setProp "libunit" "Controls" "name_type" "cl" $cell669 setScope "name_type" "de" "scopeSystem" set cell670 [$row667 addCell parameter 0.0] $cell670 setLabel "name_type" "Shift: TShiftState, " $cell670 setScope "name_type" "cl" "scopePhase" $cell670 setProp "is_vcl" "1" "name_type" "cl" $cell670 setProp "libunit" "Classes" "name_type" "cl" $cell670 setScope "name_type" "de" "scopeSystem" set cell671 [$row667 addCell parameter 0.0] $cell671 setLabel "name_type" "X: int, " $cell671 setScope "name_type" "cl" "scopePhase" $cell671 setScope "name_type" "de" "scopeSystem" set cell672 [$row667 addCell parameter 0.0] $cell672 setLabel "name_type" "Y: int" $cell672 setScope "name_type" "cl" "scopePhase" $cell672 setScope "name_type" "de" "scopeSystem" set row673 [$diag addRow method 0.0] $row673 setLabel "name_type" "MouseMove()\n" $row673 setProp "has_parmlist" "1" $row673 setProp "is_event" "1" set cell674 [$row673 addCell parameter 0.0] $cell674 setLabel "name_type" "Sender: TObject, " $cell674 setScope "name_type" "cl" "scopePhase" $cell674 setProp "is_vcl" "1" "name_type" "cl" $cell674 setProp "libunit" "System" "name_type" "cl" $cell674 setScope "name_type" "de" "scopeSystem" set cell675 [$row673 addCell parameter 0.0] $cell675 setLabel "name_type" "Shift: TShiftState, " $cell675 setScope "name_type" "cl" "scopePhase" $cell675 setProp "is_vcl" "1" "name_type" "cl" $cell675 setProp "libunit" "Classes" "name_type" "cl" $cell675 setScope "name_type" "de" "scopeSystem" set cell676 [$row673 addCell parameter 0.0] $cell676 setLabel "name_type" "X: int, " $cell676 setScope "name_type" "cl" "scopePhase" $cell676 setScope "name_type" "de" "scopeSystem" set cell677 [$row673 addCell parameter 0.0] $cell677 setLabel "name_type" "Y: int" $cell677 setScope "name_type" "cl" "scopePhase" $cell677 setScope "name_type" "de" "scopeSystem" set row678 [$diag addRow method 0.0] $row678 setLabel "name_type" "MouseUp()\n" $row678 setProp "has_parmlist" "1" $row678 setProp "is_event" "1" set cell679 [$row678 addCell parameter 0.0] $cell679 setLabel "name_type" "Sender: TObject, " $cell679 setScope "name_type" "cl" "scopePhase" $cell679 setProp "is_vcl" "1" "name_type" "cl" $cell679 setProp "libunit" "System" "name_type" "cl" $cell679 setScope "name_type" "de" "scopeSystem" set cell680 [$row678 addCell parameter 0.0] $cell680 setLabel "name_type" "Button: TMouseButton, " $cell680 setScope "name_type" "cl" "scopePhase" $cell680 setProp "is_vcl" "1" "name_type" "cl" $cell680 setProp "libunit" "Controls" "name_type" "cl" $cell680 setScope "name_type" "de" "scopeSystem" set cell681 [$row678 addCell parameter 0.0] $cell681 setLabel "name_type" "Shift: TShiftState, " $cell681 setScope "name_type" "cl" "scopePhase" $cell681 setProp "is_vcl" "1" "name_type" "cl" $cell681 setProp "libunit" "Classes" "name_type" "cl" $cell681 setScope "name_type" "de" "scopeSystem" set cell682 [$row678 addCell parameter 0.0] $cell682 setLabel "name_type" "X: int, " $cell682 setScope "name_type" "cl" "scopePhase" $cell682 setScope "name_type" "de" "scopeSystem" set cell683 [$row678 addCell parameter 0.0] $cell683 setLabel "name_type" "Y: int" $cell683 setScope "name_type" "cl" "scopePhase" $cell683 setScope "name_type" "de" "scopeSystem" set row684 [$diag addRow method 0.0] $row684 setLabel "name_type" "StartDrag()" $row684 setProp "has_parmlist" "1" $row684 setProp "is_event" "1" set cell685 [$row684 addCell parameter 0.0] $cell685 setLabel "name_type" "Sender: TObject, " $cell685 setScope "name_type" "cl" "scopePhase" $cell685 setProp "is_vcl" "1" "name_type" "cl" $cell685 setProp "libunit" "System" "name_type" "cl" $cell685 setScope "name_type" "de" "scopeSystem" set cell686 [$row684 addCell parameter 0.0] $cell686 setLabel "name_type" "DragObject: TDragObject" $cell686 setProp "pass_by" "Variable" $cell686 setScope "name_type" "cl" "scopePhase" $cell686 setProp "is_vcl" "1" "name_type" "cl" $cell686 setProp "libunit" "Controls" "name_type" "cl" $cell686 setScope "name_type" "de" "scopeSystem" $diag save # Generator: et.tcl /main/hindenburg/19 # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl # Interpreter to use: Otsh V6.1.1/B1 # OTShRegister::importTool set diag [CDM new TCheckBox "DelphiVCL" "" "" "" "" "" 1] set row687 [$diag addRow method 0.0] $row687 setLabel "name_type" "Click()\n" $row687 setProp "has_parmlist" "1" $row687 setProp "is_event" "1" set cell688 [$row687 addCell parameter 0.0] $cell688 setLabel "name_type" "Sender: TObject" $cell688 setScope "name_type" "cl" "scopePhase" $cell688 setProp "is_vcl" "1" "name_type" "cl" $cell688 setProp "libunit" "System" "name_type" "cl" $cell688 setScope "name_type" "de" "scopeSystem" set row689 [$diag addRow method 0.0] $row689 setLabel "name_type" "DragDrop()\n" $row689 setProp "has_parmlist" "1" $row689 setProp "is_event" "1" set cell690 [$row689 addCell parameter 0.0] $cell690 setLabel "name_type" "Sender: TObject, " $cell690 setScope "name_type" "cl" "scopePhase" $cell690 setProp "is_vcl" "1" "name_type" "cl" $cell690 setProp "libunit" "System" "name_type" "cl" $cell690 setScope "name_type" "de" "scopeSystem" set cell691 [$row689 addCell parameter 0.0] $cell691 setLabel "name_type" "Source: TObject, " $cell691 setScope "name_type" "cl" "scopePhase" $cell691 setProp "is_vcl" "1" "name_type" "cl" $cell691 setProp "libunit" "System" "name_type" "cl" $cell691 setScope "name_type" "de" "scopeSystem" set cell692 [$row689 addCell parameter 0.0] $cell692 setLabel "name_type" "X: int, " $cell692 setScope "name_type" "cl" "scopePhase" $cell692 setScope "name_type" "de" "scopeSystem" set cell693 [$row689 addCell parameter 0.0] $cell693 setLabel "name_type" "Y: int" $cell693 setScope "name_type" "cl" "scopePhase" $cell693 setScope "name_type" "de" "scopeSystem" set row694 [$diag addRow method 0.0] $row694 setLabel "name_type" "DragOver()\n" $row694 setProp "has_parmlist" "1" $row694 setProp "is_event" "1" set cell695 [$row694 addCell parameter 0.0] $cell695 setLabel "name_type" "Sender: TObject, " $cell695 setScope "name_type" "cl" "scopePhase" $cell695 setProp "is_vcl" "1" "name_type" "cl" $cell695 setProp "libunit" "System" "name_type" "cl" $cell695 setScope "name_type" "de" "scopeSystem" set cell696 [$row694 addCell parameter 0.0] $cell696 setLabel "name_type" "Source: TObject, " $cell696 setScope "name_type" "cl" "scopePhase" $cell696 setProp "is_vcl" "1" "name_type" "cl" $cell696 setProp "libunit" "System" "name_type" "cl" $cell696 setScope "name_type" "de" "scopeSystem" set cell697 [$row694 addCell parameter 0.0] $cell697 setLabel "name_type" "X: int, " $cell697 setScope "name_type" "cl" "scopePhase" $cell697 setScope "name_type" "de" "scopeSystem" set cell698 [$row694 addCell parameter 0.0] $cell698 setLabel "name_type" "Y: int, " $cell698 setScope "name_type" "cl" "scopePhase" $cell698 setScope "name_type" "de" "scopeSystem" set cell699 [$row694 addCell parameter 0.0] $cell699 setLabel "name_type" "State: TDragState, " $cell699 setScope "name_type" "cl" "scopePhase" $cell699 setProp "is_vcl" "1" "name_type" "cl" $cell699 setProp "libunit" "Controls" "name_type" "cl" $cell699 setScope "name_type" "de" "scopeSystem" set cell700 [$row694 addCell parameter 0.0] $cell700 setLabel "name_type" "Accept: bool" $cell700 setProp "pass_by" "Variable" $cell700 setScope "name_type" "cl" "scopePhase" $cell700 setScope "name_type" "de" "scopeSystem" set row701 [$diag addRow method 0.0] $row701 setLabel "name_type" "EndDrag()\n" $row701 setProp "has_parmlist" "1" $row701 setProp "is_event" "1" set cell702 [$row701 addCell parameter 0.0] $cell702 setLabel "name_type" "Sender: TObject, " $cell702 setScope "name_type" "cl" "scopePhase" $cell702 setProp "is_vcl" "1" "name_type" "cl" $cell702 setProp "libunit" "System" "name_type" "cl" $cell702 setScope "name_type" "de" "scopeSystem" set cell703 [$row701 addCell parameter 0.0] $cell703 setLabel "name_type" "Source: TObject, " $cell703 setScope "name_type" "cl" "scopePhase" $cell703 setProp "is_vcl" "1" "name_type" "cl" $cell703 setProp "libunit" "System" "name_type" "cl" $cell703 setScope "name_type" "de" "scopeSystem" set cell704 [$row701 addCell parameter 0.0] $cell704 setLabel "name_type" "X: int, " $cell704 setScope "name_type" "cl" "scopePhase" $cell704 setScope "name_type" "de" "scopeSystem" set cell705 [$row701 addCell parameter 0.0] $cell705 setLabel "name_type" "Y: int" $cell705 setScope "name_type" "cl" "scopePhase" $cell705 setScope "name_type" "de" "scopeSystem" set row706 [$diag addRow method 0.0] $row706 setLabel "name_type" "Enter()\n" $row706 setProp "has_parmlist" "1" $row706 setProp "is_event" "1" set cell707 [$row706 addCell parameter 0.0] $cell707 setLabel "name_type" "Sender: TObject" $cell707 setScope "name_type" "cl" "scopePhase" $cell707 setProp "is_vcl" "1" "name_type" "cl" $cell707 setProp "libunit" "System" "name_type" "cl" $cell707 setScope "name_type" "de" "scopeSystem" set row708 [$diag addRow method 0.0] $row708 setLabel "name_type" "Exit()\n" $row708 setProp "has_parmlist" "1" $row708 setProp "is_event" "1" set cell709 [$row708 addCell parameter 0.0] $cell709 setLabel "name_type" "Sender: TObject" $cell709 setScope "name_type" "cl" "scopePhase" $cell709 setProp "is_vcl" "1" "name_type" "cl" $cell709 setProp "libunit" "System" "name_type" "cl" $cell709 setScope "name_type" "de" "scopeSystem" set row710 [$diag addRow method 0.0] $row710 setLabel "name_type" "KeyDown()\n" $row710 setProp "has_parmlist" "1" $row710 setProp "is_event" "1" set cell711 [$row710 addCell parameter 0.0] $cell711 setLabel "name_type" "Sender: TObject, " $cell711 setScope "name_type" "cl" "scopePhase" $cell711 setProp "is_vcl" "1" "name_type" "cl" $cell711 setProp "libunit" "System" "name_type" "cl" $cell711 setScope "name_type" "de" "scopeSystem" set cell712 [$row710 addCell parameter 0.0] $cell712 setLabel "name_type" "Key: word, " $cell712 setProp "pass_by" "Variable" $cell712 setScope "name_type" "cl" "scopePhase" $cell712 setScope "name_type" "de" "scopeSystem" set cell713 [$row710 addCell parameter 0.0] $cell713 setLabel "name_type" "Shift: TShiftState" $cell713 setScope "name_type" "cl" "scopePhase" $cell713 setProp "is_vcl" "1" "name_type" "cl" $cell713 setProp "libunit" "Classes" "name_type" "cl" $cell713 setScope "name_type" "de" "scopeSystem" set row714 [$diag addRow method 0.0] $row714 setLabel "name_type" "KeyPress()\n" $row714 setProp "has_parmlist" "1" $row714 setProp "is_event" "1" set cell715 [$row714 addCell parameter 0.0] $cell715 setLabel "name_type" "Sender: TObject, " $cell715 setScope "name_type" "cl" "scopePhase" $cell715 setProp "is_vcl" "1" "name_type" "cl" $cell715 setProp "libunit" "System" "name_type" "cl" $cell715 setScope "name_type" "de" "scopeSystem" set cell716 [$row714 addCell parameter 0.0] $cell716 setLabel "name_type" "Key: char" $cell716 setProp "pass_by" "Variable" $cell716 setScope "name_type" "cl" "scopePhase" $cell716 setScope "name_type" "de" "scopeSystem" set row717 [$diag addRow method 0.0] $row717 setLabel "name_type" "KeyUp()\n" $row717 setProp "has_parmlist" "1" $row717 setProp "is_event" "1" set cell718 [$row717 addCell parameter 0.0] $cell718 setLabel "name_type" "Sender: TObject, " $cell718 setScope "name_type" "cl" "scopePhase" $cell718 setProp "is_vcl" "1" "name_type" "cl" $cell718 setProp "libunit" "System" "name_type" "cl" $cell718 setScope "name_type" "de" "scopeSystem" set cell719 [$row717 addCell parameter 0.0] $cell719 setLabel "name_type" "Key: word, " $cell719 setProp "pass_by" "Variable" $cell719 setScope "name_type" "cl" "scopePhase" $cell719 setScope "name_type" "de" "scopeSystem" set cell720 [$row717 addCell parameter 0.0] $cell720 setLabel "name_type" "Shift: TShiftState" $cell720 setScope "name_type" "cl" "scopePhase" $cell720 setProp "is_vcl" "1" "name_type" "cl" $cell720 setProp "libunit" "Classes" "name_type" "cl" $cell720 setScope "name_type" "de" "scopeSystem" set row721 [$diag addRow method 0.0] $row721 setLabel "name_type" "MouseDown()\n" $row721 setProp "has_parmlist" "1" $row721 setProp "is_event" "1" set cell722 [$row721 addCell parameter 0.0] $cell722 setLabel "name_type" "Sender: TObject, " $cell722 setScope "name_type" "cl" "scopePhase" $cell722 setProp "is_vcl" "1" "name_type" "cl" $cell722 setProp "libunit" "System" "name_type" "cl" $cell722 setScope "name_type" "de" "scopeSystem" set cell723 [$row721 addCell parameter 0.0] $cell723 setLabel "name_type" "Button: TMouseButton, " $cell723 setScope "name_type" "cl" "scopePhase" $cell723 setProp "is_vcl" "1" "name_type" "cl" $cell723 setProp "libunit" "Controls" "name_type" "cl" $cell723 setScope "name_type" "de" "scopeSystem" set cell724 [$row721 addCell parameter 0.0] $cell724 setLabel "name_type" "Shift: TShiftState, " $cell724 setScope "name_type" "cl" "scopePhase" $cell724 setProp "is_vcl" "1" "name_type" "cl" $cell724 setProp "libunit" "Classes" "name_type" "cl" $cell724 setScope "name_type" "de" "scopeSystem" set cell725 [$row721 addCell parameter 0.0] $cell725 setLabel "name_type" "X: int, " $cell725 setScope "name_type" "cl" "scopePhase" $cell725 setScope "name_type" "de" "scopeSystem" set cell726 [$row721 addCell parameter 0.0] $cell726 setLabel "name_type" "Y: int" $cell726 setScope "name_type" "cl" "scopePhase" $cell726 setScope "name_type" "de" "scopeSystem" set row727 [$diag addRow method 0.0] $row727 setLabel "name_type" "MouseMove()\n" $row727 setProp "has_parmlist" "1" $row727 setProp "is_event" "1" set cell728 [$row727 addCell parameter 0.0] $cell728 setLabel "name_type" "Sender: TObject, " $cell728 setScope "name_type" "cl" "scopePhase" $cell728 setProp "is_vcl" "1" "name_type" "cl" $cell728 setProp "libunit" "System" "name_type" "cl" $cell728 setScope "name_type" "de" "scopeSystem" set cell729 [$row727 addCell parameter 0.0] $cell729 setLabel "name_type" "Shift: TShiftState, " $cell729 setScope "name_type" "cl" "scopePhase" $cell729 setProp "is_vcl" "1" "name_type" "cl" $cell729 setProp "libunit" "Classes" "name_type" "cl" $cell729 setScope "name_type" "de" "scopeSystem" set cell730 [$row727 addCell parameter 0.0] $cell730 setLabel "name_type" "X: int, " $cell730 setScope "name_type" "cl" "scopePhase" $cell730 setScope "name_type" "de" "scopeSystem" set cell731 [$row727 addCell parameter 0.0] $cell731 setLabel "name_type" "Y: int" $cell731 setScope "name_type" "cl" "scopePhase" $cell731 setScope "name_type" "de" "scopeSystem" set row732 [$diag addRow method 0.0] $row732 setLabel "name_type" "MouseUp()\n" $row732 setProp "has_parmlist" "1" $row732 setProp "is_event" "1" set cell733 [$row732 addCell parameter 0.0] $cell733 setLabel "name_type" "Sender: TObject, " $cell733 setScope "name_type" "cl" "scopePhase" $cell733 setProp "is_vcl" "1" "name_type" "cl" $cell733 setProp "libunit" "System" "name_type" "cl" $cell733 setScope "name_type" "de" "scopeSystem" set cell734 [$row732 addCell parameter 0.0] $cell734 setLabel "name_type" "Button: TMouseButton, " $cell734 setScope "name_type" "cl" "scopePhase" $cell734 setProp "is_vcl" "1" "name_type" "cl" $cell734 setProp "libunit" "Controls" "name_type" "cl" $cell734 setScope "name_type" "de" "scopeSystem" set cell735 [$row732 addCell parameter 0.0] $cell735 setLabel "name_type" "Shift: TShiftState, " $cell735 setScope "name_type" "cl" "scopePhase" $cell735 setProp "is_vcl" "1" "name_type" "cl" $cell735 setProp "libunit" "Classes" "name_type" "cl" $cell735 setScope "name_type" "de" "scopeSystem" set cell736 [$row732 addCell parameter 0.0] $cell736 setLabel "name_type" "X: int, " $cell736 setScope "name_type" "cl" "scopePhase" $cell736 setScope "name_type" "de" "scopeSystem" set cell737 [$row732 addCell parameter 0.0] $cell737 setLabel "name_type" "Y: int" $cell737 setScope "name_type" "cl" "scopePhase" $cell737 setScope "name_type" "de" "scopeSystem" set row738 [$diag addRow method 0.0] $row738 setLabel "name_type" "StartDrag()" $row738 setProp "has_parmlist" "1" $row738 setProp "is_event" "1" set cell739 [$row738 addCell parameter 0.0] $cell739 setLabel "name_type" "Sender: TObject, " $cell739 setScope "name_type" "cl" "scopePhase" $cell739 setProp "is_vcl" "1" "name_type" "cl" $cell739 setProp "libunit" "System" "name_type" "cl" $cell739 setScope "name_type" "de" "scopeSystem" set cell740 [$row738 addCell parameter 0.0] $cell740 setLabel "name_type" "DragObject: TDragObject" $cell740 setProp "pass_by" "Variable" $cell740 setScope "name_type" "cl" "scopePhase" $cell740 setProp "is_vcl" "1" "name_type" "cl" $cell740 setProp "libunit" "Controls" "name_type" "cl" $cell740 setScope "name_type" "de" "scopeSystem" $diag save # Generator: et.tcl /main/hindenburg/19 # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl # Interpreter to use: Otsh V6.1.1/B1 # OTShRegister::importTool set diag [CDM new TPaintBox "DelphiVCL" "" "" "" "" "" 1] set row741 [$diag addRow method 0.0] $row741 setLabel "name_type" "Click()\n" $row741 setProp "has_parmlist" "1" $row741 setProp "is_event" "1" set cell742 [$row741 addCell parameter 0.0] $cell742 setLabel "name_type" "Sender: TObject" $cell742 setScope "name_type" "cl" "scopePhase" $cell742 setProp "is_vcl" "1" "name_type" "cl" $cell742 setProp "libunit" "System" "name_type" "cl" $cell742 setScope "name_type" "de" "scopeSystem" set row743 [$diag addRow method 0.0] $row743 setLabel "name_type" "DblClick()\n" $row743 setProp "has_parmlist" "1" $row743 setProp "is_event" "1" set cell744 [$row743 addCell parameter 0.0] $cell744 setLabel "name_type" "Sender: TObject" $cell744 setScope "name_type" "cl" "scopePhase" $cell744 setProp "is_vcl" "1" "name_type" "cl" $cell744 setProp "libunit" "System" "name_type" "cl" $cell744 setScope "name_type" "de" "scopeSystem" set row745 [$diag addRow method 0.0] $row745 setLabel "name_type" "DragDrop()\n" $row745 setProp "has_parmlist" "1" $row745 setProp "is_event" "1" set cell746 [$row745 addCell parameter 0.0] $cell746 setLabel "name_type" "Sender: TObject, " $cell746 setScope "name_type" "cl" "scopePhase" $cell746 setProp "is_vcl" "1" "name_type" "cl" $cell746 setProp "libunit" "System" "name_type" "cl" $cell746 setScope "name_type" "de" "scopeSystem" set cell747 [$row745 addCell parameter 0.0] $cell747 setLabel "name_type" "Source: TObject, " $cell747 setScope "name_type" "cl" "scopePhase" $cell747 setProp "is_vcl" "1" "name_type" "cl" $cell747 setProp "libunit" "System" "name_type" "cl" $cell747 setScope "name_type" "de" "scopeSystem" set cell748 [$row745 addCell parameter 0.0] $cell748 setLabel "name_type" "X: int, " $cell748 setScope "name_type" "cl" "scopePhase" $cell748 setScope "name_type" "de" "scopeSystem" set cell749 [$row745 addCell parameter 0.0] $cell749 setLabel "name_type" "Y: int" $cell749 setScope "name_type" "cl" "scopePhase" $cell749 setScope "name_type" "de" "scopeSystem" set row750 [$diag addRow method 0.0] $row750 setLabel "name_type" "DragOver()\n" $row750 setProp "has_parmlist" "1" $row750 setProp "is_event" "1" set cell751 [$row750 addCell parameter 0.0] $cell751 setLabel "name_type" "Sender: TObject, " $cell751 setScope "name_type" "cl" "scopePhase" $cell751 setProp "is_vcl" "1" "name_type" "cl" $cell751 setProp "libunit" "System" "name_type" "cl" $cell751 setScope "name_type" "de" "scopeSystem" set cell752 [$row750 addCell parameter 0.0] $cell752 setLabel "name_type" "Source: TObject, " $cell752 setScope "name_type" "cl" "scopePhase" $cell752 setProp "is_vcl" "1" "name_type" "cl" $cell752 setProp "libunit" "System" "name_type" "cl" $cell752 setScope "name_type" "de" "scopeSystem" set cell753 [$row750 addCell parameter 0.0] $cell753 setLabel "name_type" "X: int, " $cell753 setScope "name_type" "cl" "scopePhase" $cell753 setScope "name_type" "de" "scopeSystem" set cell754 [$row750 addCell parameter 0.0] $cell754 setLabel "name_type" "Y: int, " $cell754 setScope "name_type" "cl" "scopePhase" $cell754 setScope "name_type" "de" "scopeSystem" set cell755 [$row750 addCell parameter 0.0] $cell755 setLabel "name_type" "State: TDragState, " $cell755 setScope "name_type" "cl" "scopePhase" $cell755 setProp "is_vcl" "1" "name_type" "cl" $cell755 setProp "libunit" "Controls" "name_type" "cl" $cell755 setScope "name_type" "de" "scopeSystem" set cell756 [$row750 addCell parameter 0.0] $cell756 setLabel "name_type" "Accept: bool" $cell756 setProp "pass_by" "Variable" $cell756 setScope "name_type" "cl" "scopePhase" $cell756 setScope "name_type" "de" "scopeSystem" set row757 [$diag addRow method 0.0] $row757 setLabel "name_type" "EndDrag()\n" $row757 setProp "has_parmlist" "1" $row757 setProp "is_event" "1" set cell758 [$row757 addCell parameter 0.0] $cell758 setLabel "name_type" "Sender: TObject, " $cell758 setScope "name_type" "cl" "scopePhase" $cell758 setProp "is_vcl" "1" "name_type" "cl" $cell758 setProp "libunit" "System" "name_type" "cl" $cell758 setScope "name_type" "de" "scopeSystem" set cell759 [$row757 addCell parameter 0.0] $cell759 setLabel "name_type" "Source: TObject, " $cell759 setScope "name_type" "cl" "scopePhase" $cell759 setProp "is_vcl" "1" "name_type" "cl" $cell759 setProp "libunit" "System" "name_type" "cl" $cell759 setScope "name_type" "de" "scopeSystem" set cell760 [$row757 addCell parameter 0.0] $cell760 setLabel "name_type" "X: int, " $cell760 setScope "name_type" "cl" "scopePhase" $cell760 setScope "name_type" "de" "scopeSystem" set cell761 [$row757 addCell parameter 0.0] $cell761 setLabel "name_type" "Y: int" $cell761 setScope "name_type" "cl" "scopePhase" $cell761 setScope "name_type" "de" "scopeSystem" set row762 [$diag addRow method 0.0] $row762 setLabel "name_type" "MouseDown()\n" $row762 setProp "has_parmlist" "1" $row762 setProp "is_event" "1" set cell763 [$row762 addCell parameter 0.0] $cell763 setLabel "name_type" "Sender: TObject, " $cell763 setScope "name_type" "cl" "scopePhase" $cell763 setProp "is_vcl" "1" "name_type" "cl" $cell763 setProp "libunit" "System" "name_type" "cl" $cell763 setScope "name_type" "de" "scopeSystem" set cell764 [$row762 addCell parameter 0.0] $cell764 setLabel "name_type" "Button: TMouseButton, " $cell764 setScope "name_type" "cl" "scopePhase" $cell764 setProp "is_vcl" "1" "name_type" "cl" $cell764 setProp "libunit" "Controls" "name_type" "cl" $cell764 setScope "name_type" "de" "scopeSystem" set cell765 [$row762 addCell parameter 0.0] $cell765 setLabel "name_type" "Shift: TShiftState, " $cell765 setScope "name_type" "cl" "scopePhase" $cell765 setProp "is_vcl" "1" "name_type" "cl" $cell765 setProp "libunit" "Classes" "name_type" "cl" $cell765 setScope "name_type" "de" "scopeSystem" set cell766 [$row762 addCell parameter 0.0] $cell766 setLabel "name_type" "X: int, " $cell766 setScope "name_type" "cl" "scopePhase" $cell766 setScope "name_type" "de" "scopeSystem" set cell767 [$row762 addCell parameter 0.0] $cell767 setLabel "name_type" "Y: int" $cell767 setScope "name_type" "cl" "scopePhase" $cell767 setScope "name_type" "de" "scopeSystem" set row768 [$diag addRow method 0.0] $row768 setLabel "name_type" "MouseMove()\n" $row768 setProp "has_parmlist" "1" $row768 setProp "is_event" "1" set cell769 [$row768 addCell parameter 0.0] $cell769 setLabel "name_type" "Sender: TObject, " $cell769 setScope "name_type" "cl" "scopePhase" $cell769 setProp "is_vcl" "1" "name_type" "cl" $cell769 setProp "libunit" "System" "name_type" "cl" $cell769 setScope "name_type" "de" "scopeSystem" set cell770 [$row768 addCell parameter 0.0] $cell770 setLabel "name_type" "Shift: TShiftState, " $cell770 setScope "name_type" "cl" "scopePhase" $cell770 setProp "is_vcl" "1" "name_type" "cl" $cell770 setProp "libunit" "Classes" "name_type" "cl" $cell770 setScope "name_type" "de" "scopeSystem" set cell771 [$row768 addCell parameter 0.0] $cell771 setLabel "name_type" "X: int, " $cell771 setScope "name_type" "cl" "scopePhase" $cell771 setScope "name_type" "de" "scopeSystem" set cell772 [$row768 addCell parameter 0.0] $cell772 setLabel "name_type" "Y: int" $cell772 setScope "name_type" "cl" "scopePhase" $cell772 setScope "name_type" "de" "scopeSystem" set row773 [$diag addRow method 0.0] $row773 setLabel "name_type" "MouseUp()\n" $row773 setProp "has_parmlist" "1" $row773 setProp "is_event" "1" set cell774 [$row773 addCell parameter 0.0] $cell774 setLabel "name_type" "Sender: TObject, " $cell774 setScope "name_type" "cl" "scopePhase" $cell774 setProp "is_vcl" "1" "name_type" "cl" $cell774 setProp "libunit" "System" "name_type" "cl" $cell774 setScope "name_type" "de" "scopeSystem" set cell775 [$row773 addCell parameter 0.0] $cell775 setLabel "name_type" "Button: TMouseButton, " $cell775 setScope "name_type" "cl" "scopePhase" $cell775 setProp "is_vcl" "1" "name_type" "cl" $cell775 setProp "libunit" "Controls" "name_type" "cl" $cell775 setScope "name_type" "de" "scopeSystem" set cell776 [$row773 addCell parameter 0.0] $cell776 setLabel "name_type" "Shift: TShiftState, " $cell776 setScope "name_type" "cl" "scopePhase" $cell776 setProp "is_vcl" "1" "name_type" "cl" $cell776 setProp "libunit" "Classes" "name_type" "cl" $cell776 setScope "name_type" "de" "scopeSystem" set cell777 [$row773 addCell parameter 0.0] $cell777 setLabel "name_type" "X: int, " $cell777 setScope "name_type" "cl" "scopePhase" $cell777 setScope "name_type" "de" "scopeSystem" set cell778 [$row773 addCell parameter 0.0] $cell778 setLabel "name_type" "Y: int" $cell778 setScope "name_type" "cl" "scopePhase" $cell778 setScope "name_type" "de" "scopeSystem" set row779 [$diag addRow method 0.0] $row779 setLabel "name_type" "Paint()\n" $row779 setProp "has_parmlist" "1" $row779 setProp "is_event" "1" set cell780 [$row779 addCell parameter 0.0] $cell780 setLabel "name_type" "Sender: TObject" $cell780 setScope "name_type" "cl" "scopePhase" $cell780 setProp "is_vcl" "1" "name_type" "cl" $cell780 setProp "libunit" "System" "name_type" "cl" $cell780 setScope "name_type" "de" "scopeSystem" set row781 [$diag addRow method 0.0] $row781 setLabel "name_type" "StartDrag()" $row781 setProp "has_parmlist" "1" $row781 setProp "is_event" "1" set cell782 [$row781 addCell parameter 0.0] $cell782 setLabel "name_type" "Sender: TObject, " $cell782 setScope "name_type" "cl" "scopePhase" $cell782 setProp "is_vcl" "1" "name_type" "cl" $cell782 setProp "libunit" "System" "name_type" "cl" $cell782 setScope "name_type" "de" "scopeSystem" set cell783 [$row781 addCell parameter 0.0] $cell783 setLabel "name_type" "DragObject: TDragObject" $cell783 setProp "pass_by" "Variable" $cell783 setScope "name_type" "cl" "scopePhase" $cell783 setProp "is_vcl" "1" "name_type" "cl" $cell783 setProp "libunit" "Controls" "name_type" "cl" $cell783 setScope "name_type" "de" "scopeSystem" $diag save # Generator: et.tcl /main/hindenburg/19 # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl # Interpreter to use: Otsh V6.1.1/B1 # OTShRegister::importTool set diag [CDM new TListBox "DelphiVCL" "" "" "" "" "" 1] set row784 [$diag addRow method 0.0] $row784 setLabel "name_type" "Click()\n" $row784 setProp "has_parmlist" "1" $row784 setProp "is_event" "1" set cell785 [$row784 addCell parameter 0.0] $cell785 setLabel "name_type" "Sender: TObject" $cell785 setScope "name_type" "cl" "scopePhase" $cell785 setProp "is_vcl" "1" "name_type" "cl" $cell785 setProp "libunit" "System" "name_type" "cl" $cell785 setScope "name_type" "de" "scopeSystem" set row786 [$diag addRow method 0.0] $row786 setLabel "name_type" "DblClick()\n" $row786 setProp "has_parmlist" "1" set cell787 [$row786 addCell parameter 0.0] $cell787 setLabel "name_type" "Sender: TObject" $cell787 setScope "name_type" "cl" "scopePhase" $cell787 setProp "is_vcl" "1" "name_type" "cl" $cell787 setProp "libunit" "System" "name_type" "cl" $cell787 setScope "name_type" "de" "scopeSystem" set row788 [$diag addRow method 0.0] $row788 setLabel "name_type" "DragDrop()\n" $row788 setProp "has_parmlist" "1" $row788 setProp "is_event" "1" set cell789 [$row788 addCell parameter 0.0] $cell789 setLabel "name_type" "Sender: TObject, " $cell789 setScope "name_type" "cl" "scopePhase" $cell789 setProp "is_vcl" "1" "name_type" "cl" $cell789 setProp "libunit" "System" "name_type" "cl" $cell789 setScope "name_type" "de" "scopeSystem" set cell790 [$row788 addCell parameter 0.0] $cell790 setLabel "name_type" "Source: TObject, " $cell790 setScope "name_type" "cl" "scopePhase" $cell790 setProp "is_vcl" "1" "name_type" "cl" $cell790 setProp "libunit" "System" "name_type" "cl" $cell790 setScope "name_type" "de" "scopeSystem" set cell791 [$row788 addCell parameter 0.0] $cell791 setLabel "name_type" "X: int, " $cell791 setScope "name_type" "cl" "scopePhase" $cell791 setScope "name_type" "de" "scopeSystem" set cell792 [$row788 addCell parameter 0.0] $cell792 setLabel "name_type" "Y: int" $cell792 setScope "name_type" "cl" "scopePhase" $cell792 setScope "name_type" "de" "scopeSystem" set row793 [$diag addRow method 0.0] $row793 setLabel "name_type" "DragOver()\n" $row793 setProp "has_parmlist" "1" $row793 setProp "is_event" "1" set cell794 [$row793 addCell parameter 0.0] $cell794 setLabel "name_type" "Sender: TObject, " $cell794 setScope "name_type" "cl" "scopePhase" $cell794 setProp "is_vcl" "1" "name_type" "cl" $cell794 setProp "libunit" "System" "name_type" "cl" $cell794 setScope "name_type" "de" "scopeSystem" set cell795 [$row793 addCell parameter 0.0] $cell795 setLabel "name_type" "Source: TObject, " $cell795 setScope "name_type" "cl" "scopePhase" $cell795 setProp "is_vcl" "1" "name_type" "cl" $cell795 setProp "libunit" "System" "name_type" "cl" $cell795 setScope "name_type" "de" "scopeSystem" set cell796 [$row793 addCell parameter 0.0] $cell796 setLabel "name_type" "X: int, " $cell796 setScope "name_type" "cl" "scopePhase" $cell796 setScope "name_type" "de" "scopeSystem" set cell797 [$row793 addCell parameter 0.0] $cell797 setLabel "name_type" "Y: int, " $cell797 setScope "name_type" "cl" "scopePhase" $cell797 setScope "name_type" "de" "scopeSystem" set cell798 [$row793 addCell parameter 0.0] $cell798 setLabel "name_type" "State: TDragState, " $cell798 setScope "name_type" "cl" "scopePhase" $cell798 setProp "is_vcl" "1" "name_type" "cl" $cell798 setProp "libunit" "Controls" "name_type" "cl" $cell798 setScope "name_type" "de" "scopeSystem" set cell799 [$row793 addCell parameter 0.0] $cell799 setLabel "name_type" "Accept: bool" $cell799 setProp "pass_by" "Variable" $cell799 setScope "name_type" "cl" "scopePhase" $cell799 setScope "name_type" "de" "scopeSystem" set row800 [$diag addRow method 0.0] $row800 setLabel "name_type" "DrawItem()\n" $row800 setProp "has_parmlist" "1" $row800 setProp "is_event" "1" set cell801 [$row800 addCell parameter 0.0] $cell801 setLabel "name_type" "ListBox: TListBox, " $cell801 setScope "name_type" "cl" "scopePhase" $cell801 setProp "is_vcl" "1" "name_type" "cl" $cell801 setProp "libunit" "StdCtrls" "name_type" "cl" $cell801 setScope "name_type" "de" "scopeSystem" set cell802 [$row800 addCell parameter 0.0] $cell802 setLabel "name_type" "Index: int, " $cell802 setScope "name_type" "cl" "scopePhase" $cell802 setScope "name_type" "de" "scopeSystem" set cell803 [$row800 addCell parameter 0.0] $cell803 setLabel "name_type" "Rect: TRect, " $cell803 setScope "name_type" "cl" "scopePhase" $cell803 setProp "is_vcl" "1" "name_type" "cl" $cell803 setProp "libunit" "Other" "name_type" "cl" $cell803 setProp "userlib" "Windows" "name_type" "cl" $cell803 setScope "name_type" "de" "scopeSystem" set cell804 [$row800 addCell parameter 0.0] $cell804 setLabel "name_type" "State: TOwnerDrawState" $cell804 setScope "name_type" "cl" "scopePhase" $cell804 setProp "is_vcl" "1" "name_type" "cl" $cell804 setProp "libunit" "StdCtrls" "name_type" "cl" $cell804 setScope "name_type" "de" "scopeSystem" set row805 [$diag addRow method 0.0] $row805 setLabel "name_type" "EndDrag()\n" $row805 setProp "has_parmlist" "1" $row805 setProp "is_event" "1" set cell806 [$row805 addCell parameter 0.0] $cell806 setLabel "name_type" "Sender: TObject, " $cell806 setScope "name_type" "cl" "scopePhase" $cell806 setProp "is_vcl" "1" "name_type" "cl" $cell806 setProp "libunit" "System" "name_type" "cl" $cell806 setScope "name_type" "de" "scopeSystem" set cell807 [$row805 addCell parameter 0.0] $cell807 setLabel "name_type" "Source: TObject, " $cell807 setScope "name_type" "cl" "scopePhase" $cell807 setProp "is_vcl" "1" "name_type" "cl" $cell807 setProp "libunit" "System" "name_type" "cl" $cell807 setScope "name_type" "de" "scopeSystem" set cell808 [$row805 addCell parameter 0.0] $cell808 setLabel "name_type" "X: int, " $cell808 setScope "name_type" "cl" "scopePhase" $cell808 setScope "name_type" "de" "scopeSystem" set cell809 [$row805 addCell parameter 0.0] $cell809 setLabel "name_type" "Y: int" $cell809 setScope "name_type" "cl" "scopePhase" $cell809 setScope "name_type" "de" "scopeSystem" set row810 [$diag addRow method 0.0] $row810 setLabel "name_type" "Enter()\n" $row810 setProp "has_parmlist" "1" $row810 setProp "is_event" "1" set cell811 [$row810 addCell parameter 0.0] $cell811 setLabel "name_type" "Sender: TObject" $cell811 setScope "name_type" "cl" "scopePhase" $cell811 setProp "is_vcl" "1" "name_type" "cl" $cell811 setProp "libunit" "System" "name_type" "cl" $cell811 setScope "name_type" "de" "scopeSystem" set row812 [$diag addRow method 0.0] $row812 setLabel "name_type" "Exit()\n" $row812 setProp "has_parmlist" "1" $row812 setProp "is_event" "1" set cell813 [$row812 addCell parameter 0.0] $cell813 setLabel "name_type" "Sender: TObject" $cell813 setScope "name_type" "cl" "scopePhase" $cell813 setProp "is_vcl" "1" "name_type" "cl" $cell813 setProp "libunit" "System" "name_type" "cl" $cell813 setScope "name_type" "de" "scopeSystem" set row814 [$diag addRow method 0.0] $row814 setLabel "name_type" "KeyDown()\n" $row814 setProp "has_parmlist" "1" $row814 setProp "is_event" "1" set cell815 [$row814 addCell parameter 0.0] $cell815 setLabel "name_type" "Sender: TObject, " $cell815 setScope "name_type" "cl" "scopePhase" $cell815 setProp "is_vcl" "1" "name_type" "cl" $cell815 setProp "libunit" "System" "name_type" "cl" $cell815 setScope "name_type" "de" "scopeSystem" set cell816 [$row814 addCell parameter 0.0] $cell816 setLabel "name_type" "Key: word, " $cell816 setProp "pass_by" "Variable" $cell816 setScope "name_type" "cl" "scopePhase" $cell816 setScope "name_type" "de" "scopeSystem" set cell817 [$row814 addCell parameter 0.0] $cell817 setLabel "name_type" "Shift: TShiftState" $cell817 setScope "name_type" "cl" "scopePhase" $cell817 setProp "is_vcl" "1" "name_type" "cl" $cell817 setProp "libunit" "Classes" "name_type" "cl" $cell817 setScope "name_type" "de" "scopeSystem" set row818 [$diag addRow method 0.0] $row818 setLabel "name_type" "KeyPress()\n" $row818 setProp "has_parmlist" "1" $row818 setProp "is_event" "1" set cell819 [$row818 addCell parameter 0.0] $cell819 setLabel "name_type" "Sender: TObject, " $cell819 setScope "name_type" "cl" "scopePhase" $cell819 setProp "is_vcl" "1" "name_type" "cl" $cell819 setProp "libunit" "System" "name_type" "cl" $cell819 setScope "name_type" "de" "scopeSystem" set cell820 [$row818 addCell parameter 0.0] $cell820 setLabel "name_type" "Key: char" $cell820 setProp "pass_by" "Variable" $cell820 setScope "name_type" "cl" "scopePhase" $cell820 setScope "name_type" "de" "scopeSystem" set row821 [$diag addRow method 0.0] $row821 setLabel "name_type" "KeyUp()\n" $row821 setProp "has_parmlist" "1" $row821 setProp "is_event" "1" set cell822 [$row821 addCell parameter 0.0] $cell822 setLabel "name_type" "Sender: TObject, " $cell822 setScope "name_type" "cl" "scopePhase" $cell822 setProp "is_vcl" "1" "name_type" "cl" $cell822 setProp "libunit" "System" "name_type" "cl" $cell822 setScope "name_type" "de" "scopeSystem" set cell823 [$row821 addCell parameter 0.0] $cell823 setLabel "name_type" "Key: word, " $cell823 setProp "pass_by" "Variable" $cell823 setScope "name_type" "cl" "scopePhase" $cell823 setScope "name_type" "de" "scopeSystem" set cell824 [$row821 addCell parameter 0.0] $cell824 setLabel "name_type" "Shift: TShiftState" $cell824 setScope "name_type" "cl" "scopePhase" $cell824 setProp "is_vcl" "1" "name_type" "cl" $cell824 setProp "libunit" "Classes" "name_type" "cl" $cell824 setScope "name_type" "de" "scopeSystem" set row825 [$diag addRow method 0.0] $row825 setLabel "name_type" "MeasureItem()\n" $row825 setProp "has_parmlist" "1" $row825 setProp "is_event" "1" set cell826 [$row825 addCell parameter 0.0] $cell826 setLabel "name_type" "Control: TWinControl, " $cell826 setScope "name_type" "cl" "scopePhase" $cell826 setProp "is_vcl" "1" "name_type" "cl" $cell826 setProp "libunit" "Controls" "name_type" "cl" $cell826 setScope "name_type" "de" "scopeSystem" set cell827 [$row825 addCell parameter 0.0] $cell827 setLabel "name_type" "Index: int, " $cell827 setScope "name_type" "cl" "scopePhase" $cell827 setScope "name_type" "de" "scopeSystem" set cell828 [$row825 addCell parameter 0.0] $cell828 setLabel "name_type" "Height: int" $cell828 setScope "name_type" "cl" "scopePhase" $cell828 setScope "name_type" "de" "scopeSystem" set row829 [$diag addRow method 0.0] $row829 setLabel "name_type" "MouseDown()\n" $row829 setProp "has_parmlist" "1" $row829 setProp "is_event" "1" set cell830 [$row829 addCell parameter 0.0] $cell830 setLabel "name_type" "Sender: TObject, " $cell830 setScope "name_type" "cl" "scopePhase" $cell830 setProp "is_vcl" "1" "name_type" "cl" $cell830 setProp "libunit" "System" "name_type" "cl" $cell830 setScope "name_type" "de" "scopeSystem" set cell831 [$row829 addCell parameter 0.0] $cell831 setLabel "name_type" "Button: TMouseButton, " $cell831 setScope "name_type" "cl" "scopePhase" $cell831 setProp "is_vcl" "1" "name_type" "cl" $cell831 setProp "libunit" "Controls" "name_type" "cl" $cell831 setScope "name_type" "de" "scopeSystem" set cell832 [$row829 addCell parameter 0.0] $cell832 setLabel "name_type" "Shift: TShiftState, " $cell832 setScope "name_type" "cl" "scopePhase" $cell832 setProp "is_vcl" "1" "name_type" "cl" $cell832 setProp "libunit" "Classes" "name_type" "cl" $cell832 setScope "name_type" "de" "scopeSystem" set cell833 [$row829 addCell parameter 0.0] $cell833 setLabel "name_type" "X: int, " $cell833 setScope "name_type" "cl" "scopePhase" $cell833 setScope "name_type" "de" "scopeSystem" set cell834 [$row829 addCell parameter 0.0] $cell834 setLabel "name_type" "Y: int" $cell834 setScope "name_type" "cl" "scopePhase" $cell834 setScope "name_type" "de" "scopeSystem" set row835 [$diag addRow method 0.0] $row835 setLabel "name_type" "MouseMove()\n" $row835 setProp "has_parmlist" "1" $row835 setProp "is_event" "1" set cell836 [$row835 addCell parameter 0.0] $cell836 setLabel "name_type" "Sender: TObject, " $cell836 setScope "name_type" "cl" "scopePhase" $cell836 setProp "is_vcl" "1" "name_type" "cl" $cell836 setProp "libunit" "System" "name_type" "cl" $cell836 setScope "name_type" "de" "scopeSystem" set cell837 [$row835 addCell parameter 0.0] $cell837 setLabel "name_type" "Shift: TShiftState, " $cell837 setScope "name_type" "cl" "scopePhase" $cell837 setProp "is_vcl" "1" "name_type" "cl" $cell837 setProp "libunit" "Classes" "name_type" "cl" $cell837 setScope "name_type" "de" "scopeSystem" set cell838 [$row835 addCell parameter 0.0] $cell838 setLabel "name_type" "X: int, " $cell838 setScope "name_type" "cl" "scopePhase" $cell838 setScope "name_type" "de" "scopeSystem" set cell839 [$row835 addCell parameter 0.0] $cell839 setLabel "name_type" "Y: int" $cell839 setScope "name_type" "cl" "scopePhase" $cell839 setScope "name_type" "de" "scopeSystem" set row840 [$diag addRow method 0.0] $row840 setLabel "name_type" "MouseUp()\n" $row840 setProp "has_parmlist" "1" $row840 setProp "is_event" "1" set cell841 [$row840 addCell parameter 0.0] $cell841 setLabel "name_type" "Sender: TObject, " $cell841 setScope "name_type" "cl" "scopePhase" $cell841 setProp "is_vcl" "1" "name_type" "cl" $cell841 setProp "libunit" "System" "name_type" "cl" $cell841 setScope "name_type" "de" "scopeSystem" set cell842 [$row840 addCell parameter 0.0] $cell842 setLabel "name_type" "Button: TMouseButton, " $cell842 setScope "name_type" "cl" "scopePhase" $cell842 setProp "is_vcl" "1" "name_type" "cl" $cell842 setProp "libunit" "Controls" "name_type" "cl" $cell842 setScope "name_type" "de" "scopeSystem" set cell843 [$row840 addCell parameter 0.0] $cell843 setLabel "name_type" "Shift: TShiftState, " $cell843 setScope "name_type" "cl" "scopePhase" $cell843 setProp "is_vcl" "1" "name_type" "cl" $cell843 setProp "libunit" "Classes" "name_type" "cl" $cell843 setScope "name_type" "de" "scopeSystem" set cell844 [$row840 addCell parameter 0.0] $cell844 setLabel "name_type" "X: int, " $cell844 setScope "name_type" "cl" "scopePhase" $cell844 setScope "name_type" "de" "scopeSystem" set cell845 [$row840 addCell parameter 0.0] $cell845 setLabel "name_type" "Y: int" $cell845 setScope "name_type" "cl" "scopePhase" $cell845 setScope "name_type" "de" "scopeSystem" set row846 [$diag addRow method 0.0] $row846 setLabel "name_type" "StartDrag()" $row846 setProp "has_parmlist" "1" $row846 setProp "is_event" "1" set cell847 [$row846 addCell parameter 0.0] $cell847 setLabel "name_type" "Sender: TObject, " $cell847 setScope "name_type" "cl" "scopePhase" $cell847 setProp "is_vcl" "1" "name_type" "cl" $cell847 setProp "libunit" "System" "name_type" "cl" $cell847 setScope "name_type" "de" "scopeSystem" set cell848 [$row846 addCell parameter 0.0] $cell848 setLabel "name_type" "DragObject: TDragObject" $cell848 setProp "pass_by" "Variable" $cell848 setScope "name_type" "cl" "scopePhase" $cell848 setProp "is_vcl" "1" "name_type" "cl" $cell848 setProp "libunit" "Controls" "name_type" "cl" $cell848 setScope "name_type" "de" "scopeSystem" $diag save # Generator: et.tcl /main/hindenburg/19 # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl # Interpreter to use: Otsh V6.1.1/B1 # OTShRegister::importTool set diag [CDM new TRadioButton "DelphiVCL" "" "" "" "" "" 1] set row849 [$diag addRow method 0.0] $row849 setLabel "name_type" "Click()\n" $row849 setProp "has_parmlist" "1" $row849 setProp "is_event" "1" set cell850 [$row849 addCell parameter 0.0] $cell850 setLabel "name_type" "Sender: TObject" $cell850 setScope "name_type" "cl" "scopePhase" $cell850 setProp "is_vcl" "1" "name_type" "cl" $cell850 setProp "libunit" "System" "name_type" "cl" $cell850 setScope "name_type" "de" "scopeSystem" set row851 [$diag addRow method 0.0] $row851 setLabel "name_type" "DblClick()\n" $row851 setProp "has_parmlist" "1" $row851 setProp "is_event" "1" set cell852 [$row851 addCell parameter 0.0] $cell852 setLabel "name_type" "Sender: TObject" $cell852 setScope "name_type" "cl" "scopePhase" $cell852 setProp "is_vcl" "1" "name_type" "cl" $cell852 setProp "libunit" "System" "name_type" "cl" $cell852 setScope "name_type" "de" "scopeSystem" set row853 [$diag addRow method 0.0] $row853 setLabel "name_type" "DragDrop()\n" $row853 setProp "has_parmlist" "1" $row853 setProp "is_event" "1" set cell854 [$row853 addCell parameter 0.0] $cell854 setLabel "name_type" "Sender: TObject, " $cell854 setScope "name_type" "cl" "scopePhase" $cell854 setProp "is_vcl" "1" "name_type" "cl" $cell854 setProp "libunit" "System" "name_type" "cl" $cell854 setScope "name_type" "de" "scopeSystem" set cell855 [$row853 addCell parameter 0.0] $cell855 setLabel "name_type" "Source: TObject, " $cell855 setScope "name_type" "cl" "scopePhase" $cell855 setProp "is_vcl" "1" "name_type" "cl" $cell855 setProp "libunit" "System" "name_type" "cl" $cell855 setScope "name_type" "de" "scopeSystem" set cell856 [$row853 addCell parameter 0.0] $cell856 setLabel "name_type" "X: int, " $cell856 setScope "name_type" "cl" "scopePhase" $cell856 setScope "name_type" "de" "scopeSystem" set cell857 [$row853 addCell parameter 0.0] $cell857 setLabel "name_type" "Y: int" $cell857 setScope "name_type" "cl" "scopePhase" $cell857 setScope "name_type" "de" "scopeSystem" set row858 [$diag addRow method 0.0] $row858 setLabel "name_type" "DragOver()\n" $row858 setProp "has_parmlist" "1" $row858 setProp "is_event" "1" set cell859 [$row858 addCell parameter 0.0] $cell859 setLabel "name_type" "Sender: TObject, " $cell859 setScope "name_type" "cl" "scopePhase" $cell859 setProp "is_vcl" "1" "name_type" "cl" $cell859 setProp "libunit" "System" "name_type" "cl" $cell859 setScope "name_type" "de" "scopeSystem" set cell860 [$row858 addCell parameter 0.0] $cell860 setLabel "name_type" "Source: TObject, " $cell860 setScope "name_type" "cl" "scopePhase" $cell860 setProp "is_vcl" "1" "name_type" "cl" $cell860 setProp "libunit" "System" "name_type" "cl" $cell860 setScope "name_type" "de" "scopeSystem" set cell861 [$row858 addCell parameter 0.0] $cell861 setLabel "name_type" "X: int, " $cell861 setScope "name_type" "cl" "scopePhase" $cell861 setScope "name_type" "de" "scopeSystem" set cell862 [$row858 addCell parameter 0.0] $cell862 setLabel "name_type" "Y: int, " $cell862 setScope "name_type" "cl" "scopePhase" $cell862 setScope "name_type" "de" "scopeSystem" set cell863 [$row858 addCell parameter 0.0] $cell863 setLabel "name_type" "State: TDragState, " $cell863 setScope "name_type" "cl" "scopePhase" $cell863 setProp "is_vcl" "1" "name_type" "cl" $cell863 setProp "libunit" "Controls" "name_type" "cl" $cell863 setScope "name_type" "de" "scopeSystem" set cell864 [$row858 addCell parameter 0.0] $cell864 setLabel "name_type" "Accept: bool" $cell864 setProp "pass_by" "Variable" $cell864 setScope "name_type" "cl" "scopePhase" $cell864 setScope "name_type" "de" "scopeSystem" set row865 [$diag addRow method 0.0] $row865 setLabel "name_type" "EndDrag()\n" $row865 setProp "has_parmlist" "1" $row865 setProp "is_event" "1" set cell866 [$row865 addCell parameter 0.0] $cell866 setLabel "name_type" "Sender: TObject, " $cell866 setScope "name_type" "cl" "scopePhase" $cell866 setProp "is_vcl" "1" "name_type" "cl" $cell866 setProp "libunit" "System" "name_type" "cl" $cell866 setScope "name_type" "de" "scopeSystem" set cell867 [$row865 addCell parameter 0.0] $cell867 setLabel "name_type" "Source: TObject, " $cell867 setScope "name_type" "cl" "scopePhase" $cell867 setProp "is_vcl" "1" "name_type" "cl" $cell867 setProp "libunit" "System" "name_type" "cl" $cell867 setScope "name_type" "de" "scopeSystem" set cell868 [$row865 addCell parameter 0.0] $cell868 setLabel "name_type" "X: int, " $cell868 setScope "name_type" "cl" "scopePhase" $cell868 setScope "name_type" "de" "scopeSystem" set cell869 [$row865 addCell parameter 0.0] $cell869 setLabel "name_type" "Y: int" $cell869 setScope "name_type" "cl" "scopePhase" $cell869 setScope "name_type" "de" "scopeSystem" set row870 [$diag addRow method 0.0] $row870 setLabel "name_type" "Enter()\n" $row870 setProp "has_parmlist" "1" $row870 setProp "is_event" "1" set cell871 [$row870 addCell parameter 0.0] $cell871 setLabel "name_type" "Sender: TObject" $cell871 setScope "name_type" "cl" "scopePhase" $cell871 setProp "is_vcl" "1" "name_type" "cl" $cell871 setProp "libunit" "System" "name_type" "cl" $cell871 setScope "name_type" "de" "scopeSystem" set row872 [$diag addRow method 0.0] $row872 setLabel "name_type" "Exit()\n" $row872 setProp "has_parmlist" "1" $row872 setProp "is_event" "1" set cell873 [$row872 addCell parameter 0.0] $cell873 setLabel "name_type" "Sender: TObject" $cell873 setScope "name_type" "cl" "scopePhase" $cell873 setProp "is_vcl" "1" "name_type" "cl" $cell873 setProp "libunit" "System" "name_type" "cl" $cell873 setScope "name_type" "de" "scopeSystem" set row874 [$diag addRow method 0.0] $row874 setLabel "name_type" "KeyDown()\n" $row874 setProp "has_parmlist" "1" $row874 setProp "is_event" "1" set cell875 [$row874 addCell parameter 0.0] $cell875 setLabel "name_type" "Sender: TObject, " $cell875 setScope "name_type" "cl" "scopePhase" $cell875 setProp "is_vcl" "1" "name_type" "cl" $cell875 setProp "libunit" "System" "name_type" "cl" $cell875 setScope "name_type" "de" "scopeSystem" set cell876 [$row874 addCell parameter 0.0] $cell876 setLabel "name_type" "Key: word, " $cell876 setProp "pass_by" "Variable" $cell876 setScope "name_type" "cl" "scopePhase" $cell876 setScope "name_type" "de" "scopeSystem" set cell877 [$row874 addCell parameter 0.0] $cell877 setLabel "name_type" "Shift: TShiftState" $cell877 setScope "name_type" "cl" "scopePhase" $cell877 setProp "is_vcl" "1" "name_type" "cl" $cell877 setProp "libunit" "Classes" "name_type" "cl" $cell877 setScope "name_type" "de" "scopeSystem" set row878 [$diag addRow method 0.0] $row878 setLabel "name_type" "KeyPress()\n" $row878 setProp "has_parmlist" "1" $row878 setProp "is_event" "1" set cell879 [$row878 addCell parameter 0.0] $cell879 setLabel "name_type" "Sender: TObject, " $cell879 setScope "name_type" "cl" "scopePhase" $cell879 setProp "is_vcl" "1" "name_type" "cl" $cell879 setProp "libunit" "System" "name_type" "cl" $cell879 setScope "name_type" "de" "scopeSystem" set cell880 [$row878 addCell parameter 0.0] $cell880 setLabel "name_type" "Key: char" $cell880 setProp "pass_by" "Variable" $cell880 setScope "name_type" "cl" "scopePhase" $cell880 setScope "name_type" "de" "scopeSystem" set row881 [$diag addRow method 0.0] $row881 setLabel "name_type" "KeyUp()\n" $row881 setProp "has_parmlist" "1" $row881 setProp "is_event" "1" set cell882 [$row881 addCell parameter 0.0] $cell882 setLabel "name_type" "Sender: TObject, " $cell882 setScope "name_type" "cl" "scopePhase" $cell882 setProp "is_vcl" "1" "name_type" "cl" $cell882 setProp "libunit" "System" "name_type" "cl" $cell882 setScope "name_type" "de" "scopeSystem" set cell883 [$row881 addCell parameter 0.0] $cell883 setLabel "name_type" "Key: word, " $cell883 setProp "pass_by" "Variable" $cell883 setScope "name_type" "cl" "scopePhase" $cell883 setScope "name_type" "de" "scopeSystem" set cell884 [$row881 addCell parameter 0.0] $cell884 setLabel "name_type" "Shift: TShiftState" $cell884 setScope "name_type" "cl" "scopePhase" $cell884 setProp "is_vcl" "1" "name_type" "cl" $cell884 setProp "libunit" "Classes" "name_type" "cl" $cell884 setScope "name_type" "de" "scopeSystem" set row885 [$diag addRow method 0.0] $row885 setLabel "name_type" "MouseDown()\n" $row885 setProp "has_parmlist" "1" $row885 setProp "is_event" "1" set cell886 [$row885 addCell parameter 0.0] $cell886 setLabel "name_type" "Sender: TObject, " $cell886 setScope "name_type" "cl" "scopePhase" $cell886 setProp "is_vcl" "1" "name_type" "cl" $cell886 setProp "libunit" "System" "name_type" "cl" $cell886 setScope "name_type" "de" "scopeSystem" set cell887 [$row885 addCell parameter 0.0] $cell887 setLabel "name_type" "Button: TMouseButton, " $cell887 setScope "name_type" "cl" "scopePhase" $cell887 setProp "is_vcl" "1" "name_type" "cl" $cell887 setProp "libunit" "Controls" "name_type" "cl" $cell887 setScope "name_type" "de" "scopeSystem" set cell888 [$row885 addCell parameter 0.0] $cell888 setLabel "name_type" "Shift: TShiftState, " $cell888 setScope "name_type" "cl" "scopePhase" $cell888 setProp "is_vcl" "1" "name_type" "cl" $cell888 setProp "libunit" "Classes" "name_type" "cl" $cell888 setScope "name_type" "de" "scopeSystem" set cell889 [$row885 addCell parameter 0.0] $cell889 setLabel "name_type" "X: int, " $cell889 setScope "name_type" "cl" "scopePhase" $cell889 setScope "name_type" "de" "scopeSystem" set cell890 [$row885 addCell parameter 0.0] $cell890 setLabel "name_type" "Y: int" $cell890 setScope "name_type" "cl" "scopePhase" $cell890 setScope "name_type" "de" "scopeSystem" set row891 [$diag addRow method 0.0] $row891 setLabel "name_type" "MouseMove()\n" $row891 setProp "has_parmlist" "1" $row891 setProp "is_event" "1" set cell892 [$row891 addCell parameter 0.0] $cell892 setLabel "name_type" "Sender: TObject, " $cell892 setScope "name_type" "cl" "scopePhase" $cell892 setProp "is_vcl" "1" "name_type" "cl" $cell892 setProp "libunit" "System" "name_type" "cl" $cell892 setScope "name_type" "de" "scopeSystem" set cell893 [$row891 addCell parameter 0.0] $cell893 setLabel "name_type" "Shift: TShiftState, " $cell893 setScope "name_type" "cl" "scopePhase" $cell893 setProp "is_vcl" "1" "name_type" "cl" $cell893 setProp "libunit" "Classes" "name_type" "cl" $cell893 setScope "name_type" "de" "scopeSystem" set cell894 [$row891 addCell parameter 0.0] $cell894 setLabel "name_type" "X: int, " $cell894 setScope "name_type" "cl" "scopePhase" $cell894 setScope "name_type" "de" "scopeSystem" set cell895 [$row891 addCell parameter 0.0] $cell895 setLabel "name_type" "Y: int" $cell895 setScope "name_type" "cl" "scopePhase" $cell895 setScope "name_type" "de" "scopeSystem" set row896 [$diag addRow method 0.0] $row896 setLabel "name_type" "MouseUp()\n" $row896 setProp "has_parmlist" "1" $row896 setProp "is_event" "1" set cell897 [$row896 addCell parameter 0.0] $cell897 setLabel "name_type" "Sender: TObject, " $cell897 setScope "name_type" "cl" "scopePhase" $cell897 setProp "is_vcl" "1" "name_type" "cl" $cell897 setProp "libunit" "System" "name_type" "cl" $cell897 setScope "name_type" "de" "scopeSystem" set cell898 [$row896 addCell parameter 0.0] $cell898 setLabel "name_type" "Button: TMouseButton, " $cell898 setScope "name_type" "cl" "scopePhase" $cell898 setProp "is_vcl" "1" "name_type" "cl" $cell898 setProp "libunit" "Controls" "name_type" "cl" $cell898 setScope "name_type" "de" "scopeSystem" set cell899 [$row896 addCell parameter 0.0] $cell899 setLabel "name_type" "Shift: TShiftState, " $cell899 setScope "name_type" "cl" "scopePhase" $cell899 setProp "is_vcl" "1" "name_type" "cl" $cell899 setProp "libunit" "Classes" "name_type" "cl" $cell899 setScope "name_type" "de" "scopeSystem" set cell900 [$row896 addCell parameter 0.0] $cell900 setLabel "name_type" "X: int, " $cell900 setScope "name_type" "cl" "scopePhase" $cell900 setScope "name_type" "de" "scopeSystem" set cell901 [$row896 addCell parameter 0.0] $cell901 setLabel "name_type" "Y: int" $cell901 setScope "name_type" "cl" "scopePhase" $cell901 setScope "name_type" "de" "scopeSystem" set row902 [$diag addRow method 0.0] $row902 setLabel "name_type" "StartDrag()" $row902 setProp "has_parmlist" "1" $row902 setProp "is_event" "1" set cell903 [$row902 addCell parameter 0.0] $cell903 setLabel "name_type" "Sender: TObject, " $cell903 setScope "name_type" "cl" "scopePhase" $cell903 setProp "is_vcl" "1" "name_type" "cl" $cell903 setProp "libunit" "System" "name_type" "cl" $cell903 setScope "name_type" "de" "scopeSystem" set cell904 [$row902 addCell parameter 0.0] $cell904 setLabel "name_type" "DragObject: TDragObject" $cell904 setProp "pass_by" "Variable" $cell904 setScope "name_type" "cl" "scopePhase" $cell904 setProp "is_vcl" "1" "name_type" "cl" $cell904 setProp "libunit" "Controls" "name_type" "cl" $cell904 setScope "name_type" "de" "scopeSystem" $diag save # Generator: et.tcl /main/hindenburg/19 # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl # Interpreter to use: Otsh V6.1.1/B1 # OTShRegister::importTool set diag [CDM new TScrollBar "DelphiVCL" "" "" "" "" "" 1] set row905 [$diag addRow method 0.0] $row905 setLabel "name_type" "Change()\n" $row905 setProp "has_parmlist" "1" $row905 setProp "is_event" "1" set cell906 [$row905 addCell parameter 0.0] $cell906 setLabel "name_type" "Sender: TField" $cell906 setScope "name_type" "cl" "scopePhase" $cell906 setProp "is_vcl" "1" "name_type" "cl" $cell906 setProp "libunit" "Other" "name_type" "cl" $cell906 setProp "userlib" "DB" "name_type" "cl" $cell906 setScope "name_type" "de" "scopeSystem" set row907 [$diag addRow method 0.0] $row907 setLabel "name_type" "Click()\n" $row907 setProp "has_parmlist" "1" $row907 setProp "is_event" "1" set cell908 [$row907 addCell parameter 0.0] $cell908 setLabel "name_type" "Sender: TObject" $cell908 setScope "name_type" "cl" "scopePhase" $cell908 setProp "is_vcl" "1" "name_type" "cl" $cell908 setProp "libunit" "System" "name_type" "cl" $cell908 setScope "name_type" "de" "scopeSystem" set row909 [$diag addRow method 0.0] $row909 setLabel "name_type" "DragDrop()\n" $row909 setProp "has_parmlist" "1" $row909 setProp "is_event" "1" set cell910 [$row909 addCell parameter 0.0] $cell910 setLabel "name_type" "Sender: TObject, " $cell910 setScope "name_type" "cl" "scopePhase" $cell910 setProp "is_vcl" "1" "name_type" "cl" $cell910 setProp "libunit" "System" "name_type" "cl" $cell910 setScope "name_type" "de" "scopeSystem" set cell911 [$row909 addCell parameter 0.0] $cell911 setLabel "name_type" "Source: TObject, " $cell911 setScope "name_type" "cl" "scopePhase" $cell911 setProp "is_vcl" "1" "name_type" "cl" $cell911 setProp "libunit" "System" "name_type" "cl" $cell911 setScope "name_type" "de" "scopeSystem" set cell912 [$row909 addCell parameter 0.0] $cell912 setLabel "name_type" "X: int, " $cell912 setScope "name_type" "cl" "scopePhase" $cell912 setScope "name_type" "de" "scopeSystem" set cell913 [$row909 addCell parameter 0.0] $cell913 setLabel "name_type" "Y: int" $cell913 setScope "name_type" "cl" "scopePhase" $cell913 setScope "name_type" "de" "scopeSystem" set row914 [$diag addRow method 0.0] $row914 setLabel "name_type" "DragOver()\n" $row914 setProp "has_parmlist" "1" $row914 setProp "is_event" "1" set cell915 [$row914 addCell parameter 0.0] $cell915 setLabel "name_type" "Sender: TObject, " $cell915 setScope "name_type" "cl" "scopePhase" $cell915 setProp "is_vcl" "1" "name_type" "cl" $cell915 setProp "libunit" "System" "name_type" "cl" $cell915 setScope "name_type" "de" "scopeSystem" set cell916 [$row914 addCell parameter 0.0] $cell916 setLabel "name_type" "Source: TObject, " $cell916 setScope "name_type" "cl" "scopePhase" $cell916 setProp "is_vcl" "1" "name_type" "cl" $cell916 setProp "libunit" "System" "name_type" "cl" $cell916 setScope "name_type" "de" "scopeSystem" set cell917 [$row914 addCell parameter 0.0] $cell917 setLabel "name_type" "X: int, " $cell917 setScope "name_type" "cl" "scopePhase" $cell917 setScope "name_type" "de" "scopeSystem" set cell918 [$row914 addCell parameter 0.0] $cell918 setLabel "name_type" "Y: int, " $cell918 setScope "name_type" "cl" "scopePhase" $cell918 setScope "name_type" "de" "scopeSystem" set cell919 [$row914 addCell parameter 0.0] $cell919 setLabel "name_type" "State: TDragState, " $cell919 setScope "name_type" "cl" "scopePhase" $cell919 setProp "is_vcl" "1" "name_type" "cl" $cell919 setProp "libunit" "Controls" "name_type" "cl" $cell919 setScope "name_type" "de" "scopeSystem" set cell920 [$row914 addCell parameter 0.0] $cell920 setLabel "name_type" "Accept: bool" $cell920 setProp "pass_by" "Variable" $cell920 setScope "name_type" "cl" "scopePhase" $cell920 setScope "name_type" "de" "scopeSystem" set row921 [$diag addRow method 0.0] $row921 setLabel "name_type" "EndDrag()\n" $row921 setProp "has_parmlist" "1" $row921 setProp "is_event" "1" set cell922 [$row921 addCell parameter 0.0] $cell922 setLabel "name_type" "Sender: TObject, " $cell922 setScope "name_type" "cl" "scopePhase" $cell922 setProp "is_vcl" "1" "name_type" "cl" $cell922 setProp "libunit" "System" "name_type" "cl" $cell922 setScope "name_type" "de" "scopeSystem" set cell923 [$row921 addCell parameter 0.0] $cell923 setLabel "name_type" "Source: TObject, " $cell923 setScope "name_type" "cl" "scopePhase" $cell923 setProp "is_vcl" "1" "name_type" "cl" $cell923 setProp "libunit" "System" "name_type" "cl" $cell923 setScope "name_type" "de" "scopeSystem" set cell924 [$row921 addCell parameter 0.0] $cell924 setLabel "name_type" "X: int, " $cell924 setScope "name_type" "cl" "scopePhase" $cell924 setScope "name_type" "de" "scopeSystem" set cell925 [$row921 addCell parameter 0.0] $cell925 setLabel "name_type" "Y: int" $cell925 setScope "name_type" "cl" "scopePhase" $cell925 setScope "name_type" "de" "scopeSystem" set row926 [$diag addRow method 0.0] $row926 setLabel "name_type" "Enter()\n" $row926 setProp "has_parmlist" "1" $row926 setProp "is_event" "1" set cell927 [$row926 addCell parameter 0.0] $cell927 setLabel "name_type" "Sender: TObject" $cell927 setScope "name_type" "cl" "scopePhase" $cell927 setProp "is_vcl" "1" "name_type" "cl" $cell927 setProp "libunit" "System" "name_type" "cl" $cell927 setScope "name_type" "de" "scopeSystem" set row928 [$diag addRow method 0.0] $row928 setLabel "name_type" "Exit()\n" $row928 setProp "has_parmlist" "1" $row928 setProp "is_event" "1" set cell929 [$row928 addCell parameter 0.0] $cell929 setLabel "name_type" "Sender: TObject" $cell929 setScope "name_type" "cl" "scopePhase" $cell929 setProp "is_vcl" "1" "name_type" "cl" $cell929 setProp "libunit" "System" "name_type" "cl" $cell929 setScope "name_type" "de" "scopeSystem" set row930 [$diag addRow method 0.0] $row930 setLabel "name_type" "KeyDown()\n" $row930 setProp "has_parmlist" "1" $row930 setProp "is_event" "1" set cell931 [$row930 addCell parameter 0.0] $cell931 setLabel "name_type" "Sender: TObject, " $cell931 setScope "name_type" "cl" "scopePhase" $cell931 setProp "is_vcl" "1" "name_type" "cl" $cell931 setProp "libunit" "System" "name_type" "cl" $cell931 setScope "name_type" "de" "scopeSystem" set cell932 [$row930 addCell parameter 0.0] $cell932 setLabel "name_type" "Key: word, " $cell932 setProp "pass_by" "Variable" $cell932 setScope "name_type" "cl" "scopePhase" $cell932 setScope "name_type" "de" "scopeSystem" set cell933 [$row930 addCell parameter 0.0] $cell933 setLabel "name_type" "Shift: TShiftState" $cell933 setScope "name_type" "cl" "scopePhase" $cell933 setProp "is_vcl" "1" "name_type" "cl" $cell933 setProp "libunit" "Classes" "name_type" "cl" $cell933 setScope "name_type" "de" "scopeSystem" set row934 [$diag addRow method 0.0] $row934 setLabel "name_type" "KeyPress()\n" $row934 setProp "has_parmlist" "1" $row934 setProp "is_event" "1" set cell935 [$row934 addCell parameter 0.0] $cell935 setLabel "name_type" "Sender: TObject, " $cell935 setScope "name_type" "cl" "scopePhase" $cell935 setProp "is_vcl" "1" "name_type" "cl" $cell935 setProp "libunit" "System" "name_type" "cl" $cell935 setScope "name_type" "de" "scopeSystem" set cell936 [$row934 addCell parameter 0.0] $cell936 setLabel "name_type" "Key: char" $cell936 setProp "pass_by" "Variable" $cell936 setScope "name_type" "cl" "scopePhase" $cell936 setScope "name_type" "de" "scopeSystem" set row937 [$diag addRow method 0.0] $row937 setLabel "name_type" "KeyUp()\n" $row937 setProp "has_parmlist" "1" $row937 setProp "is_event" "1" set cell938 [$row937 addCell parameter 0.0] $cell938 setLabel "name_type" "Sender: TObject, " $cell938 setScope "name_type" "cl" "scopePhase" $cell938 setProp "is_vcl" "1" "name_type" "cl" $cell938 setProp "libunit" "System" "name_type" "cl" $cell938 setScope "name_type" "de" "scopeSystem" set cell939 [$row937 addCell parameter 0.0] $cell939 setLabel "name_type" "Key: word, " $cell939 setProp "pass_by" "Variable" $cell939 setScope "name_type" "cl" "scopePhase" $cell939 setScope "name_type" "de" "scopeSystem" set cell940 [$row937 addCell parameter 0.0] $cell940 setLabel "name_type" "Shift: TShiftState" $cell940 setScope "name_type" "cl" "scopePhase" $cell940 setProp "is_vcl" "1" "name_type" "cl" $cell940 setProp "libunit" "Classes" "name_type" "cl" $cell940 setScope "name_type" "de" "scopeSystem" set row941 [$diag addRow method 0.0] $row941 setLabel "name_type" "Scroll()\n" $row941 setProp "has_parmlist" "1" $row941 setProp "is_event" "1" set cell942 [$row941 addCell parameter 0.0] $cell942 setLabel "name_type" "Sender: TObject, " $cell942 setScope "name_type" "cl" "scopePhase" $cell942 setProp "is_vcl" "1" "name_type" "cl" $cell942 setProp "libunit" "System" "name_type" "cl" $cell942 setScope "name_type" "de" "scopeSystem" set cell943 [$row941 addCell parameter 0.0] $cell943 setLabel "name_type" "ScrollCode: TScrollCode, " $cell943 setScope "name_type" "cl" "scopePhase" $cell943 setProp "is_vcl" "1" "name_type" "cl" $cell943 setProp "libunit" "StdCtrls" "name_type" "cl" $cell943 setScope "name_type" "de" "scopeSystem" set cell944 [$row941 addCell parameter 0.0] $cell944 setLabel "name_type" "ScrollPos: int" $cell944 setProp "pass_by" "Variable" $cell944 setScope "name_type" "cl" "scopePhase" $cell944 setScope "name_type" "de" "scopeSystem" set row945 [$diag addRow method 0.0] $row945 setLabel "name_type" "StartDrag()" $row945 setProp "has_parmlist" "1" $row945 setProp "is_event" "1" set cell946 [$row945 addCell parameter 0.0] $cell946 setLabel "name_type" "Sender: TObject, " $cell946 setScope "name_type" "cl" "scopePhase" $cell946 setProp "is_vcl" "1" "name_type" "cl" $cell946 setProp "libunit" "System" "name_type" "cl" $cell946 setScope "name_type" "de" "scopeSystem" set cell947 [$row945 addCell parameter 0.0] $cell947 setLabel "name_type" "DragObject: TDragObject" $cell947 setScope "name_type" "cl" "scopePhase" $cell947 setProp "is_vcl" "1" "name_type" "cl" $cell947 setProp "libunit" "Controls" "name_type" "cl" $cell947 setScope "name_type" "de" "scopeSystem" $diag save # Generator: et.tcl /main/hindenburg/19 # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl # Interpreter to use: Otsh V6.1.1/B1 # OTShRegister::importTool set diag [CDM new TClassDict "DelphiVCL" "" "" "" "" "" 1] set row948 [$diag addRow method 0.0] $row948 setLabel "name_type" "Add()\n" $row948 setProp "has_parmlist" "1" set cell949 [$row948 addCell parameter 0.0] $cell949 setLabel "name_type" "key: variant, " $cell949 setScope "name_type" "cl" "scopePhase" $cell949 setScope "name_type" "de" "scopeSystem" set cell950 [$row948 addCell parameter 0.0] $cell950 setLabel "name_type" "obj: pointer" $cell950 setScope "name_type" "cl" "scopePhase" $cell950 setScope "name_type" "de" "scopeSystem" set row951 [$diag addRow method 0.0] $row951 setLabel "name_type" "Count(): integer\n" $row951 setProp "has_parmlist" "1" $row951 setScope "name_type" "cl" "scopePhase" set row952 [$diag addRow method 0.0] $row952 setLabel "name_type" "Remove()\n" $row952 setProp "has_parmlist" "1" set cell953 [$row952 addCell parameter 0.0] $cell953 setLabel "name_type" "obj: pointer" $cell953 setScope "name_type" "cl" "scopePhase" $cell953 setScope "name_type" "de" "scopeSystem" set row954 [$diag addRow method 0.0] $row954 setLabel "name_type" "RemoveUsingKey()\n" $row954 setProp "has_parmlist" "1" set cell955 [$row954 addCell parameter 0.0] $cell955 setLabel "name_type" "key: variant" $cell955 setScope "name_type" "cl" "scopePhase" $cell955 setScope "name_type" "de" "scopeSystem" set row956 [$diag addRow method 0.0] $row956 setLabel "name_type" "Item(): pointer\n" $row956 setProp "has_parmlist" "1" $row956 setScope "name_type" "cl" "scopePhase" set cell957 [$row956 addCell parameter 0.0] $cell957 setLabel "name_type" "key: variant" $cell957 setScope "name_type" "cl" "scopePhase" $cell957 setScope "name_type" "de" "scopeSystem" set row958 [$diag addRow method 0.0] $row958 setLabel "name_type" "First(): pointer\n" $row958 setProp "has_parmlist" "1" $row958 setScope "name_type" "cl" "scopePhase" set row959 [$diag addRow method 0.0] $row959 setLabel "name_type" "Last(): pointer\n" $row959 setProp "has_parmlist" "1" $row959 setScope "name_type" "cl" "scopePhase" set row960 [$diag addRow method 0.0] $row960 setLabel "name_type" "FirstKey(): variant\n" $row960 setProp "has_parmlist" "1" $row960 setScope "name_type" "cl" "scopePhase" set row961 [$diag addRow method 0.0] $row961 setLabel "name_type" "LastKey(): variant" $row961 setProp "has_parmlist" "1" $row961 setScope "name_type" "cl" "scopePhase" $diag save # Generator: et.tcl /main/hindenburg/19 # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl # Interpreter to use: Otsh V6.1.1/B1 # OTShRegister::importTool set diag [CAD new SysUtilsClasses "DelphiVCL" "" "" "" "" "" 1] set node963 [$diag addNode cad_class 688.0 800.0 120.0 33.0] $node963 setLabel "name" "Exception" $node963 setProp "is_folded" "1" $node963 setScope "name" "cl" "scopePhase" $node963 setProp "is_vcl" "1" "name" "cl" $node963 setProp "libunit" "SysUtils" "name" "cl" set node964 [$diag addNode cad_class 688.0 704.0 120.0 39.0] $node964 setLabel "name" "TObject" $node964 setProp "is_folded" "1" $node964 setScope "name" "cl" "scopePhase" $node964 setProp "is_vcl" "1" "name" "cl" $node964 setProp "libunit" "System" "name" "cl" set node966 [$diag addNode cad_class 512.0 1328.0 120.0 33.0] $node966 setLabel "name" "EUnderflow" $node966 setProp "is_folded" "1" $node966 setScope "name" "cl" "scopePhase" $node966 setProp "is_vcl" "1" "name" "cl" $node966 setProp "libunit" "SysUtils" "name" "cl" set node967 [$diag addNode cad_class 384.0 1328.0 120.0 33.0] $node967 setLabel "name" "EOverflow" $node967 setProp "is_folded" "1" $node967 setScope "name" "cl" "scopePhase" $node967 setProp "is_vcl" "1" "name" "cl" $node967 setProp "libunit" "SysUtils" "name" "cl" set node968 [$diag addNode cad_class 256.0 1328.0 120.0 33.0] $node968 setLabel "name" "EInvalidOp" $node968 setProp "is_folded" "1" $node968 setScope "name" "cl" "scopePhase" $node968 setProp "is_vcl" "1" "name" "cl" $node968 setProp "libunit" "SysUtils" "name" "cl" set node970 [$diag addNode cad_class 1312.0 1216.0 120.0 33.0] $node970 setLabel "name" "EZeroDivide" $node970 setProp "is_folded" "1" $node970 setScope "name" "cl" "scopePhase" $node970 setProp "is_vcl" "1" "name" "cl" $node970 setProp "libunit" "SysUtils" "name" "cl" set node971 [$diag addNode cad_class 1184.0 1216.0 120.0 33.0] $node971 setLabel "name" "EVariantError" $node971 setProp "is_folded" "1" $node971 setScope "name" "cl" "scopePhase" $node971 setProp "is_vcl" "1" "name" "cl" $node971 setProp "libunit" "SysUtils" "name" "cl" set node972 [$diag addNode cad_class 1056.0 1216.0 124.0 33.0] $node972 setLabel "name" "EStackOverflow" $node972 setProp "is_folded" "1" $node972 setScope "name" "cl" "scopePhase" $node972 setProp "is_vcl" "1" "name" "cl" $node972 setProp "libunit" "SysUtils" "name" "cl" set node973 [$diag addNode cad_class 912.0 1216.0 128.0 33.0] $node973 setLabel "name" "EPropWriteOnly" $node973 setProp "is_folded" "1" $node973 setScope "name" "cl" "scopePhase" $node973 setProp "is_vcl" "1" "name" "cl" $node973 setProp "libunit" "SysUtils" "name" "cl" set node974 [$diag addNode cad_class 768.0 1216.0 127.0 33.0] $node974 setLabel "name" "EPropReadOnly" $node974 setProp "is_folded" "1" $node974 setScope "name" "cl" "scopePhase" $node974 setProp "is_vcl" "1" "name" "cl" $node974 setProp "libunit" "SysUtils" "name" "cl" set node975 [$diag addNode cad_class 640.0 1216.0 120.0 33.0] $node975 setLabel "name" "EPrivilege" $node975 setProp "is_folded" "1" $node975 setScope "name" "cl" "scopePhase" $node975 setProp "is_vcl" "1" "name" "cl" $node975 setProp "libunit" "SysUtils" "name" "cl" set node976 [$diag addNode cad_class 512.0 1216.0 122.0 33.0] $node976 setLabel "name" "EOutOfMemory" $node976 setProp "is_folded" "1" $node976 setScope "name" "cl" "scopePhase" $node976 setProp "is_vcl" "1" "name" "cl" $node976 setProp "libunit" "SysUtils" "name" "cl" set node977 [$diag addNode cad_class 384.0 1216.0 120.0 33.0] $node977 setLabel "name" "EMathError" $node977 setProp "is_folded" "1" $node977 setScope "name" "cl" "scopePhase" $node977 setProp "is_vcl" "1" "name" "cl" $node977 setProp "libunit" "SysUtils" "name" "cl" set node978 [$diag addNode cad_class 256.0 1216.0 121.0 33.0] $node978 setLabel "name" "EInvalidPointer" $node978 setProp "is_folded" "1" $node978 setScope "name" "cl" "scopePhase" $node978 setProp "is_vcl" "1" "name" "cl" $node978 setProp "libunit" "SysUtils" "name" "cl" set node979 [$diag addNode cad_class 688.0 1088.0 120.0 33.0] $node979 setLabel "name" "Exception" $node979 setProp "is_folded" "1" $node979 setScope "name" "cl" "scopePhase" $node979 setProp "is_vcl" "1" "name" "cl" $node979 setProp "libunit" "SysUtils" "name" "cl" set node982 [$diag addNode cad_class 1232.0 1024.0 120.0 33.0] $node982 setLabel "name" "ERangeError" $node982 setProp "is_folded" "1" $node982 setScope "name" "cl" "scopePhase" $node982 setProp "is_vcl" "1" "name" "cl" $node982 setProp "libunit" "SysUtils" "name" "cl" set node983 [$diag addNode cad_class 1104.0 1024.0 120.0 33.0] $node983 setLabel "name" "EIntOverflow" $node983 setProp "is_folded" "1" $node983 setScope "name" "cl" "scopePhase" $node983 setProp "is_vcl" "1" "name" "cl" $node983 setProp "libunit" "SysUtils" "name" "cl" set node984 [$diag addNode cad_class 976.0 1024.0 120.0 33.0] $node984 setLabel "name" "EDivByZero" $node984 setProp "is_folded" "1" $node984 setScope "name" "cl" "scopePhase" $node984 setProp "is_vcl" "1" "name" "cl" $node984 setProp "libunit" "SysUtils" "name" "cl" set node985 [$diag addNode cad_class 1232.0 912.0 120.0 33.0] $node985 setLabel "name" "EInvalidCast" $node985 setProp "is_folded" "1" $node985 setScope "name" "cl" "scopePhase" $node985 setProp "is_vcl" "1" "name" "cl" $node985 setProp "libunit" "SysUtils" "name" "cl" set node986 [$diag addNode cad_class 1104.0 912.0 120.0 33.0] $node986 setLabel "name" "EIntError" $node986 setProp "is_folded" "1" $node986 setScope "name" "cl" "scopePhase" $node986 setProp "is_vcl" "1" "name" "cl" $node986 setProp "libunit" "SysUtils" "name" "cl" set node987 [$diag addNode cad_class 976.0 912.0 120.0 33.0] $node987 setLabel "name" "EInOutError" $node987 setProp "is_folded" "1" $node987 setScope "name" "cl" "scopePhase" $node987 setProp "is_vcl" "1" "name" "cl" $node987 setProp "libunit" "SysUtils" "name" "cl" set node988 [$diag addNode cad_class 816.0 912.0 148.0 33.0] $node988 setLabel "name" "EExternalException" $node988 setProp "is_folded" "1" $node988 setScope "name" "cl" "scopePhase" $node988 setProp "is_vcl" "1" "name" "cl" $node988 setProp "libunit" "SysUtils" "name" "cl" set node989 [$diag addNode cad_class 688.0 912.0 120.0 33.0] $node989 setLabel "name" "EConvertError" $node989 setProp "is_folded" "1" $node989 setScope "name" "cl" "scopePhase" $node989 setProp "is_vcl" "1" "name" "cl" $node989 setProp "libunit" "SysUtils" "name" "cl" set node990 [$diag addNode cad_class 560.0 912.0 120.0 33.0] $node990 setLabel "name" "EControlC" $node990 setProp "is_folded" "1" $node990 setScope "name" "cl" "scopePhase" $node990 setProp "is_vcl" "1" "name" "cl" $node990 setProp "libunit" "SysUtils" "name" "cl" set node991 [$diag addNode cad_class 416.0 912.0 136.0 33.0] $node991 setLabel "name" "EAccessViolation" $node991 setProp "is_folded" "1" $node991 setScope "name" "cl" "scopePhase" $node991 setProp "is_vcl" "1" "name" "cl" $node991 setProp "libunit" "System" "name" "cl" set node992 [$diag addNode cad_class 288.0 912.0 120.0 33.0] $node992 setLabel "name" "EAbort" $node992 setProp "is_folded" "1" $node992 setScope "name" "cl" "scopePhase" $node992 setProp "is_vcl" "1" "name" "cl" $node992 setProp "libunit" "SysUtils" "name" "cl" set node962 [$diag addRake generalization $node964 $node963 752.0 743.0 752.0 832.0 767.5] set conn993 [$node962 getInConn] set segm994 [$conn993 getFirstSegm] set conn995 [$node962 getFirstOutConn] set segm996 [$conn995 getFirstSegm] set node965 [$diag addRake generalization $node977 $node966 448.0 1248.0 576.0 1344.0 1296.0] set conn997 [$node965 getInConn] set segm998 [$conn997 getFirstSegm] set conn999 [$node965 getFirstOutConn] set segm1000 [$conn999 getFirstSegm] set conn1001 [$diag addConn generalization_conn $node965 $node967 448.0 1296.5 448.0 1344.0] set segm1002 [$conn1001 getFirstSegm] set conn1003 [$diag addConn generalization_conn $node965 $node968 458.0 1296.5 320.0 1344.0] set segm1004 [$conn1003 getFirstSegm] set node969 [$diag addRake generalization $node979 $node970 752.0 1120.0 1376.0 1232.0 1168.0] set conn1005 [$node969 getInConn] set segm1006 [$conn1005 getFirstSegm] set conn1007 [$node969 getFirstOutConn] set segm1008 [$conn1007 getFirstSegm] set conn1009 [$diag addConn generalization_conn $node969 $node971 752.0 1168.5 1248.0 1232.0] set segm1010 [$conn1009 getFirstSegm] set conn1011 [$diag addConn generalization_conn $node969 $node972 752.0 1168.5 1120.0 1232.0] set segm1012 [$conn1011 getFirstSegm] set conn1013 [$diag addConn generalization_conn $node969 $node973 752.0 1168.5 976.0 1232.0] set segm1014 [$conn1013 getFirstSegm] set conn1015 [$diag addConn generalization_conn $node969 $node974 752.0 1168.5 832.0 1232.0] set segm1016 [$conn1015 getFirstSegm] set conn1017 [$diag addConn generalization_conn $node969 $node975 752.0 1168.5 704.0 1232.0] set segm1018 [$conn1017 getFirstSegm] set conn1019 [$diag addConn generalization_conn $node969 $node976 752.0 1168.5 576.0 1232.0] set segm1020 [$conn1019 getFirstSegm] set conn1021 [$diag addConn generalization_conn $node969 $node977 752.0 1168.5 448.0 1232.0] set segm1022 [$conn1021 getFirstSegm] set conn1023 [$diag addConn generalization_conn $node969 $node978 762.0 1168.5 320.0 1216.0] set segm1024 [$conn1023 getFirstSegm] set node980 [$diag addRake generalization $node963 $node992 752.0 832.0 352.0 928.0 872.0] set conn1025 [$node980 getInConn] set segm1026 [$conn1025 getFirstSegm] set conn1027 [$node980 getFirstOutConn] set segm1028 [$conn1027 getFirstSegm] set conn1029 [$diag addConn generalization_conn $node980 $node991 752.0 872.5 496.0 928.0] set segm1030 [$conn1029 getFirstSegm] set conn1031 [$diag addConn generalization_conn $node980 $node990 752.0 872.5 624.0 928.0] set segm1032 [$conn1031 getFirstSegm] set conn1033 [$diag addConn generalization_conn $node980 $node985 752.0 872.5 1296.0 928.0] set segm1034 [$conn1033 getFirstSegm] set conn1035 [$diag addConn generalization_conn $node980 $node986 752.0 872.5 1152.0 928.0] set segm1036 [$conn1035 getFirstSegm] set conn1037 [$diag addConn generalization_conn $node980 $node987 752.0 872.5 1040.0 944.0] set segm1038 [$conn1037 getFirstSegm] set conn1039 [$diag addConn generalization_conn $node980 $node988 752.0 872.5 896.0 928.0] set segm1040 [$conn1039 getFirstSegm] set conn1041 [$diag addConn generalization_conn $node980 $node989 762.0 872.5 752.0 912.0] set segm1042 [$conn1041 getFirstSegm] set node981 [$diag addRake generalization $node986 $node982 1168.0 944.0 1296.0 1040.0 992.0] set conn1043 [$node981 getInConn] set segm1044 [$conn1043 getFirstSegm] set conn1045 [$node981 getFirstOutConn] set segm1046 [$conn1045 getFirstSegm] set conn1047 [$diag addConn generalization_conn $node981 $node983 1168.0 992.5 1168.0 1056.0] set segm1048 [$conn1047 getFirstSegm] set conn1049 [$diag addConn generalization_conn $node981 $node984 1178.0 992.5 1040.0 1040.0] set segm1050 [$conn1049 getFirstSegm] $diag save # Generator: et.tcl /main/hindenburg/19 # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl # Interpreter to use: Otsh V6.1.1/B1 # OTShRegister::importTool set diag [CDM new TClassDictElem "DelphiVCL" "" "" "" "" "" 1] set row1051 [$diag addRow attribute 0.0] $row1051 setLabel "name_type" "obj: pointer\n" $row1051 setScope "name_type" "cl" "scopePhase" set row1052 [$diag addRow attribute 0.0] $row1052 setLabel "name_type" "key: variant" $row1052 setScope "name_type" "cl" "scopePhase" $diag save # Generator: et.tcl /main/hindenburg/19 # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl # Interpreter to use: Otsh V6.1.1/B1 # OTShRegister::importTool set diag [CDM new TCustomListBox "DelphiVCL" "" "" "" "" "" 1] set row1053 [$diag addRow method 0.0] $row1053 setLabel "name_type" "DrawItem()\n" $row1053 setProp "has_parmlist" "1" $row1053 setProp "is_event" "1" set cell1054 [$row1053 addCell parameter 0.0] $cell1054 setLabel "name_type" "ListBox: TListBox, " $cell1054 setScope "name_type" "cl" "scopePhase" $cell1054 setProp "is_vcl" "1" "name_type" "cl" $cell1054 setProp "libunit" "StdCtrls" "name_type" "cl" $cell1054 setScope "name_type" "de" "scopeSystem" set cell1055 [$row1053 addCell parameter 0.0] $cell1055 setLabel "name_type" "Index: int, " $cell1055 setScope "name_type" "cl" "scopePhase" $cell1055 setScope "name_type" "de" "scopeSystem" set cell1056 [$row1053 addCell parameter 0.0] $cell1056 setLabel "name_type" "Rect: TRect, " $cell1056 setScope "name_type" "cl" "scopePhase" $cell1056 setProp "is_vcl" "1" "name_type" "cl" $cell1056 setProp "libunit" "Other" "name_type" "cl" $cell1056 setProp "userlib" "Windows" "name_type" "cl" $cell1056 setScope "name_type" "de" "scopeSystem" set cell1057 [$row1053 addCell parameter 0.0] $cell1057 setLabel "name_type" "State: TOwnerDrawState" $cell1057 setScope "name_type" "cl" "scopePhase" $cell1057 setProp "is_vcl" "1" "name_type" "cl" $cell1057 setProp "libunit" "StdCtrls" "name_type" "cl" $cell1057 setScope "name_type" "de" "scopeSystem" set row1058 [$diag addRow method 0.0] $row1058 setLabel "name_type" "MeasureItem()" $row1058 setProp "has_parmlist" "1" $row1058 setProp "is_event" "1" set cell1059 [$row1058 addCell parameter 0.0] $cell1059 setLabel "name_type" "Control: TWinControl, " $cell1059 setScope "name_type" "cl" "scopePhase" $cell1059 setProp "is_vcl" "1" "name_type" "cl" $cell1059 setProp "libunit" "Controls" "name_type" "cl" $cell1059 setScope "name_type" "de" "scopeSystem" set cell1060 [$row1058 addCell parameter 0.0] $cell1060 setLabel "name_type" "Index: int, " $cell1060 setScope "name_type" "cl" "scopePhase" $cell1060 setScope "name_type" "de" "scopeSystem" set cell1061 [$row1058 addCell parameter 0.0] $cell1061 setLabel "name_type" "Height: int" $cell1061 setProp "pass_by" "Variable" $cell1061 setScope "name_type" "cl" "scopePhase" $cell1061 setScope "name_type" "de" "scopeSystem" $diag save # Generator: et.tcl /main/hindenburg/19 # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl # Interpreter to use: Otsh V6.1.1/B1 # OTShRegister::importTool set diag [CDM new TCustomEdit "DelphiVCL" "" "" "" "" "" 1] set row1062 [$diag addRow method 0.0] $row1062 setLabel "name_type" "Change()" $row1062 setProp "has_parmlist" "1" $row1062 setProp "is_event" "1" set cell1063 [$row1062 addCell parameter 0.0] $cell1063 setLabel "name_type" "Sender: TField" $cell1063 setScope "name_type" "cl" "scopePhase" $cell1063 setProp "is_vcl" "1" "name_type" "cl" $cell1063 setProp "libunit" "Other" "name_type" "cl" $cell1063 setProp "userlib" "DB" "name_type" "cl" $cell1063 setScope "name_type" "de" "scopeSystem" $diag save # Generator: et.tcl /main/hindenburg/19 # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl # Interpreter to use: Otsh V6.1.1/B1 # OTShRegister::importTool set diag [CDM new TCustomComboBox "DelphiVCL" "" "" "" "" "" 1] set row1064 [$diag addRow method 0.0] $row1064 setLabel "name_type" "Change()\n" $row1064 setProp "has_parmlist" "1" $row1064 setProp "is_event" "1" set cell1065 [$row1064 addCell parameter 0.0] $cell1065 setLabel "name_type" "Sender: TField" $cell1065 setScope "name_type" "cl" "scopePhase" $cell1065 setProp "is_vcl" "1" "name_type" "cl" $cell1065 setProp "libunit" "Other" "name_type" "cl" $cell1065 setProp "userlib" "DB" "name_type" "cl" $cell1065 setScope "name_type" "de" "scopeSystem" set row1066 [$diag addRow method 0.0] $row1066 setLabel "name_type" "DrawItem()\n" $row1066 setProp "has_parmlist" "1" $row1066 setProp "is_event" "1" set cell1067 [$row1066 addCell parameter 0.0] $cell1067 setLabel "name_type" "ListBox: TListBox, " $cell1067 setScope "name_type" "cl" "scopePhase" $cell1067 setProp "is_vcl" "1" "name_type" "cl" $cell1067 setProp "libunit" "StdCtrls" "name_type" "cl" $cell1067 setScope "name_type" "de" "scopeSystem" set cell1068 [$row1066 addCell parameter 0.0] $cell1068 setLabel "name_type" "Index: int, " $cell1068 setScope "name_type" "cl" "scopePhase" $cell1068 setScope "name_type" "de" "scopeSystem" set cell1069 [$row1066 addCell parameter 0.0] $cell1069 setLabel "name_type" "Rect: TRect, " $cell1069 setScope "name_type" "cl" "scopePhase" $cell1069 setProp "is_vcl" "1" "name_type" "cl" $cell1069 setProp "libunit" "Other" "name_type" "cl" $cell1069 setProp "userlib" "Windows" "name_type" "cl" $cell1069 setScope "name_type" "de" "scopeSystem" set cell1070 [$row1066 addCell parameter 0.0] $cell1070 setLabel "name_type" "State: TOwnerDrawState" $cell1070 setScope "name_type" "cl" "scopePhase" $cell1070 setProp "is_vcl" "1" "name_type" "cl" $cell1070 setProp "libunit" "StdCtrls" "name_type" "cl" $cell1070 setScope "name_type" "de" "scopeSystem" set row1071 [$diag addRow method 0.0] $row1071 setLabel "name_type" "DropDown()\n" $row1071 setProp "has_parmlist" "1" $row1071 setProp "is_event" "1" set cell1072 [$row1071 addCell parameter 0.0] $cell1072 setLabel "name_type" "Sender: TObject" $cell1072 setScope "name_type" "cl" "scopePhase" $cell1072 setProp "is_vcl" "1" "name_type" "cl" $cell1072 setProp "libunit" "System" "name_type" "cl" $cell1072 setScope "name_type" "de" "scopeSystem" set row1073 [$diag addRow method 0.0] $row1073 setLabel "name_type" "MeasureItem()" $row1073 setProp "has_parmlist" "1" $row1073 setProp "is_event" "1" set cell1074 [$row1073 addCell parameter 0.0] $cell1074 setLabel "name_type" "Control: TWinControl, " $cell1074 setScope "name_type" "cl" "scopePhase" $cell1074 setProp "is_vcl" "1" "name_type" "cl" $cell1074 setProp "libunit" "Controls" "name_type" "cl" $cell1074 setScope "name_type" "de" "scopeSystem" set cell1075 [$row1073 addCell parameter 0.0] $cell1075 setLabel "name_type" "Index: int, " $cell1075 setScope "name_type" "cl" "scopePhase" $cell1075 setScope "name_type" "de" "scopeSystem" set cell1076 [$row1073 addCell parameter 0.0] $cell1076 setLabel "name_type" "Height: int" $cell1076 setProp "pass_by" "Variable" $cell1076 setScope "name_type" "cl" "scopePhase" $cell1076 setScope "name_type" "de" "scopeSystem" $diag save # Generator: et.tcl /main/hindenburg/19 # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl # Interpreter to use: Otsh V6.1.1/B1 # OTShRegister::importTool set diag [CDM new TGroupBox "DelphiVCL" "" "" "" "" "" 1] set row1077 [$diag addRow method 0.0] $row1077 setLabel "name_type" "Click()\n" $row1077 setProp "has_parmlist" "1" $row1077 setProp "is_event" "1" set cell1078 [$row1077 addCell parameter 0.0] $cell1078 setLabel "name_type" "Sender: TObject" $cell1078 setScope "name_type" "cl" "scopePhase" $cell1078 setProp "is_vcl" "1" "name_type" "cl" $cell1078 setProp "libunit" "System" "name_type" "cl" $cell1078 setScope "name_type" "de" "scopeSystem" set row1079 [$diag addRow method 0.0] $row1079 setLabel "name_type" "DblClick()\n" $row1079 setProp "has_parmlist" "1" $row1079 setProp "is_event" "1" set cell1080 [$row1079 addCell parameter 0.0] $cell1080 setLabel "name_type" "Sender: TObject" $cell1080 setScope "name_type" "cl" "scopePhase" $cell1080 setProp "is_vcl" "1" "name_type" "cl" $cell1080 setProp "libunit" "System" "name_type" "cl" $cell1080 setScope "name_type" "de" "scopeSystem" set row1081 [$diag addRow method 0.0] $row1081 setLabel "name_type" "DragDrop()\n" $row1081 setProp "has_parmlist" "1" $row1081 setProp "is_event" "1" set cell1082 [$row1081 addCell parameter 0.0] $cell1082 setLabel "name_type" "Sender: TObject, " $cell1082 setScope "name_type" "cl" "scopePhase" $cell1082 setProp "is_vcl" "1" "name_type" "cl" $cell1082 setProp "libunit" "System" "name_type" "cl" $cell1082 setScope "name_type" "de" "scopeSystem" set cell1083 [$row1081 addCell parameter 0.0] $cell1083 setLabel "name_type" "Source: TObject, " $cell1083 setScope "name_type" "cl" "scopePhase" $cell1083 setProp "is_vcl" "1" "name_type" "cl" $cell1083 setProp "libunit" "System" "name_type" "cl" $cell1083 setScope "name_type" "de" "scopeSystem" set cell1084 [$row1081 addCell parameter 0.0] $cell1084 setLabel "name_type" "X: int, " $cell1084 setScope "name_type" "cl" "scopePhase" $cell1084 setScope "name_type" "de" "scopeSystem" set cell1085 [$row1081 addCell parameter 0.0] $cell1085 setLabel "name_type" "Y: int" $cell1085 setScope "name_type" "cl" "scopePhase" $cell1085 setScope "name_type" "de" "scopeSystem" set row1086 [$diag addRow method 0.0] $row1086 setLabel "name_type" "DragOver()\n" $row1086 setProp "has_parmlist" "1" $row1086 setProp "is_event" "1" set cell1087 [$row1086 addCell parameter 0.0] $cell1087 setLabel "name_type" "Sender: TObject, " $cell1087 setScope "name_type" "cl" "scopePhase" $cell1087 setProp "is_vcl" "1" "name_type" "cl" $cell1087 setProp "libunit" "System" "name_type" "cl" $cell1087 setScope "name_type" "de" "scopeSystem" set cell1088 [$row1086 addCell parameter 0.0] $cell1088 setLabel "name_type" "Source: TObject, " $cell1088 setScope "name_type" "cl" "scopePhase" $cell1088 setProp "is_vcl" "1" "name_type" "cl" $cell1088 setProp "libunit" "System" "name_type" "cl" $cell1088 setScope "name_type" "de" "scopeSystem" set cell1089 [$row1086 addCell parameter 0.0] $cell1089 setLabel "name_type" "X: int, " $cell1089 setScope "name_type" "cl" "scopePhase" $cell1089 setScope "name_type" "de" "scopeSystem" set cell1090 [$row1086 addCell parameter 0.0] $cell1090 setLabel "name_type" "Y: int, " $cell1090 setScope "name_type" "cl" "scopePhase" $cell1090 setScope "name_type" "de" "scopeSystem" set cell1091 [$row1086 addCell parameter 0.0] $cell1091 setLabel "name_type" "State: TDragState, " $cell1091 setScope "name_type" "cl" "scopePhase" $cell1091 setProp "is_vcl" "1" "name_type" "cl" $cell1091 setProp "libunit" "Controls" "name_type" "cl" $cell1091 setScope "name_type" "de" "scopeSystem" set cell1092 [$row1086 addCell parameter 0.0] $cell1092 setLabel "name_type" "Accept: bool" $cell1092 setProp "pass_by" "Variable" $cell1092 setScope "name_type" "cl" "scopePhase" $cell1092 setScope "name_type" "de" "scopeSystem" set row1093 [$diag addRow method 0.0] $row1093 setLabel "name_type" "EndDrag()\n" $row1093 setProp "has_parmlist" "1" $row1093 setProp "is_event" "1" set cell1094 [$row1093 addCell parameter 0.0] $cell1094 setLabel "name_type" "Sender: TObject, " $cell1094 setScope "name_type" "cl" "scopePhase" $cell1094 setProp "is_vcl" "1" "name_type" "cl" $cell1094 setProp "libunit" "System" "name_type" "cl" $cell1094 setScope "name_type" "de" "scopeSystem" set cell1095 [$row1093 addCell parameter 0.0] $cell1095 setLabel "name_type" "Source: TObject, " $cell1095 setScope "name_type" "cl" "scopePhase" $cell1095 setProp "is_vcl" "1" "name_type" "cl" $cell1095 setProp "libunit" "System" "name_type" "cl" $cell1095 setScope "name_type" "de" "scopeSystem" set cell1096 [$row1093 addCell parameter 0.0] $cell1096 setLabel "name_type" "X: int, " $cell1096 setScope "name_type" "cl" "scopePhase" $cell1096 setScope "name_type" "de" "scopeSystem" set cell1097 [$row1093 addCell parameter 0.0] $cell1097 setLabel "name_type" "Y: int" $cell1097 setScope "name_type" "cl" "scopePhase" $cell1097 setScope "name_type" "de" "scopeSystem" set row1098 [$diag addRow method 0.0] $row1098 setLabel "name_type" "Enter()\n" $row1098 setProp "has_parmlist" "1" $row1098 setProp "is_event" "1" set cell1099 [$row1098 addCell parameter 0.0] $cell1099 setLabel "name_type" "Sender: TObject" $cell1099 setScope "name_type" "cl" "scopePhase" $cell1099 setProp "is_vcl" "1" "name_type" "cl" $cell1099 setProp "libunit" "System" "name_type" "cl" $cell1099 setScope "name_type" "de" "scopeSystem" set row1100 [$diag addRow method 0.0] $row1100 setLabel "name_type" "Exit()\n" $row1100 setProp "has_parmlist" "1" $row1100 setProp "is_event" "1" set cell1101 [$row1100 addCell parameter 0.0] $cell1101 setLabel "name_type" "Sender: TObject" $cell1101 setScope "name_type" "cl" "scopePhase" $cell1101 setProp "is_vcl" "1" "name_type" "cl" $cell1101 setProp "libunit" "System" "name_type" "cl" $cell1101 setScope "name_type" "de" "scopeSystem" set row1102 [$diag addRow method 0.0] $row1102 setLabel "name_type" "MouseDown()\n" $row1102 setProp "has_parmlist" "1" $row1102 setProp "is_event" "1" set cell1103 [$row1102 addCell parameter 0.0] $cell1103 setLabel "name_type" "Sender: TObject, " $cell1103 setScope "name_type" "cl" "scopePhase" $cell1103 setProp "is_vcl" "1" "name_type" "cl" $cell1103 setProp "libunit" "System" "name_type" "cl" $cell1103 setScope "name_type" "de" "scopeSystem" set cell1104 [$row1102 addCell parameter 0.0] $cell1104 setLabel "name_type" "Button: TMouseButton, " $cell1104 setScope "name_type" "cl" "scopePhase" $cell1104 setProp "is_vcl" "1" "name_type" "cl" $cell1104 setProp "libunit" "Controls" "name_type" "cl" $cell1104 setScope "name_type" "de" "scopeSystem" set cell1105 [$row1102 addCell parameter 0.0] $cell1105 setLabel "name_type" "Shift: TShiftState, " $cell1105 setScope "name_type" "cl" "scopePhase" $cell1105 setProp "is_vcl" "1" "name_type" "cl" $cell1105 setProp "libunit" "Classes" "name_type" "cl" $cell1105 setScope "name_type" "de" "scopeSystem" set cell1106 [$row1102 addCell parameter 0.0] $cell1106 setLabel "name_type" "X: int, " $cell1106 setScope "name_type" "cl" "scopePhase" $cell1106 setScope "name_type" "de" "scopeSystem" set cell1107 [$row1102 addCell parameter 0.0] $cell1107 setLabel "name_type" "Y: int" $cell1107 setScope "name_type" "cl" "scopePhase" $cell1107 setScope "name_type" "de" "scopeSystem" set row1108 [$diag addRow method 0.0] $row1108 setLabel "name_type" "MouseMove()\n" $row1108 setProp "has_parmlist" "1" $row1108 setProp "is_event" "1" set cell1109 [$row1108 addCell parameter 0.0] $cell1109 setLabel "name_type" "Sender: TObject, " $cell1109 setScope "name_type" "cl" "scopePhase" $cell1109 setProp "is_vcl" "1" "name_type" "cl" $cell1109 setProp "libunit" "System" "name_type" "cl" $cell1109 setScope "name_type" "de" "scopeSystem" set cell1110 [$row1108 addCell parameter 0.0] $cell1110 setLabel "name_type" "Shift: TShiftState, " $cell1110 setScope "name_type" "cl" "scopePhase" $cell1110 setProp "is_vcl" "1" "name_type" "cl" $cell1110 setProp "libunit" "Classes" "name_type" "cl" $cell1110 setScope "name_type" "de" "scopeSystem" set cell1111 [$row1108 addCell parameter 0.0] $cell1111 setLabel "name_type" "X: int, " $cell1111 setScope "name_type" "cl" "scopePhase" $cell1111 setScope "name_type" "de" "scopeSystem" set cell1112 [$row1108 addCell parameter 0.0] $cell1112 setLabel "name_type" "Y: int" $cell1112 setScope "name_type" "cl" "scopePhase" $cell1112 setScope "name_type" "de" "scopeSystem" set row1113 [$diag addRow method 0.0] $row1113 setLabel "name_type" "MouseUp()\n" $row1113 setProp "has_parmlist" "1" $row1113 setProp "is_event" "1" set cell1114 [$row1113 addCell parameter 0.0] $cell1114 setLabel "name_type" "Sender: TObject, " $cell1114 setScope "name_type" "cl" "scopePhase" $cell1114 setProp "is_vcl" "1" "name_type" "cl" $cell1114 setProp "libunit" "System" "name_type" "cl" $cell1114 setScope "name_type" "de" "scopeSystem" set cell1115 [$row1113 addCell parameter 0.0] $cell1115 setLabel "name_type" "Button: TMouseButton, " $cell1115 setScope "name_type" "cl" "scopePhase" $cell1115 setProp "is_vcl" "1" "name_type" "cl" $cell1115 setProp "libunit" "Controls" "name_type" "cl" $cell1115 setScope "name_type" "de" "scopeSystem" set cell1116 [$row1113 addCell parameter 0.0] $cell1116 setLabel "name_type" "Shift: TShiftState, " $cell1116 setScope "name_type" "cl" "scopePhase" $cell1116 setProp "is_vcl" "1" "name_type" "cl" $cell1116 setProp "libunit" "Classes" "name_type" "cl" $cell1116 setScope "name_type" "de" "scopeSystem" set cell1117 [$row1113 addCell parameter 0.0] $cell1117 setLabel "name_type" "X: int, " $cell1117 setScope "name_type" "cl" "scopePhase" $cell1117 setScope "name_type" "de" "scopeSystem" set cell1118 [$row1113 addCell parameter 0.0] $cell1118 setLabel "name_type" "Y: int" $cell1118 setScope "name_type" "cl" "scopePhase" $cell1118 setScope "name_type" "de" "scopeSystem" set row1119 [$diag addRow method 0.0] $row1119 setLabel "name_type" "StartDrag()" $row1119 setProp "has_parmlist" "1" $row1119 setProp "is_event" "1" set cell1120 [$row1119 addCell parameter 0.0] $cell1120 setLabel "name_type" "Sender: TObject, " $cell1120 setScope "name_type" "cl" "scopePhase" $cell1120 setProp "is_vcl" "1" "name_type" "cl" $cell1120 setProp "libunit" "System" "name_type" "cl" $cell1120 setScope "name_type" "de" "scopeSystem" set cell1121 [$row1119 addCell parameter 0.0] $cell1121 setLabel "name_type" "DragObject: TDragObject" $cell1121 setProp "pass_by" "Variable" $cell1121 setScope "name_type" "cl" "scopePhase" $cell1121 setProp "is_vcl" "1" "name_type" "cl" $cell1121 setProp "libunit" "Controls" "name_type" "cl" $cell1121 setScope "name_type" "de" "scopeSystem" $diag save # Generator: et.tcl /main/hindenburg/19 # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl # Interpreter to use: Otsh V6.1.1/B1 # OTShRegister::importTool set diag [CAD new StdCtrlsTypes "DelphiVCL" "" "" "" "" "" 1] set node1122 [$diag addNode cad_class 768.0 688.0 139.0 167.0] $node1122 setLabel "name" "TOwnerDrawState" $node1122 setScope "name" "cl" "scopePhase" $node1122 setProp "is_vcl" "1" "name" "cl" $node1122 setProp "libunit" "StdCtrls" "name" "cl" set node1123 [$diag addNode cad_class 512.0 640.0 141.0 231.0] $node1123 setLabel "name" "TScrollCode" $node1123 setScope "name" "cl" "scopePhase" $node1123 setProp "is_vcl" "1" "name" "cl" $node1123 setProp "libunit" "StdCtrls" "name" "cl" $diag save # Generator: et.tcl /main/hindenburg/19 # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl # Interpreter to use: Otsh V6.1.1/B1 # OTShRegister::importTool set diag [CDM new TScrollCode "DelphiVCL" "" "" "" "" "" 1] set row1124 [$diag addRow attribute 0.0] $row1124 setLabel "name_type" "scLineUp: enum\n" $row1124 setScope "name_type" "cl" "scopePhase" set row1125 [$diag addRow attribute 0.0] $row1125 setLabel "name_type" "scLineDown: enum\n" $row1125 setScope "name_type" "cl" "scopePhase" set row1126 [$diag addRow attribute 0.0] $row1126 setLabel "name_type" "scPageUp: enum\n" $row1126 setScope "name_type" "cl" "scopePhase" set row1127 [$diag addRow attribute 0.0] $row1127 setLabel "name_type" "scPageDown: enum\n" $row1127 setScope "name_type" "cl" "scopePhase" set row1128 [$diag addRow attribute 0.0] $row1128 setLabel "name_type" "scPosition: enum\n" $row1128 setScope "name_type" "cl" "scopePhase" set row1129 [$diag addRow attribute 0.0] $row1129 setLabel "name_type" "scTrack: enum\n" $row1129 setScope "name_type" "cl" "scopePhase" set row1130 [$diag addRow attribute 0.0] $row1130 setLabel "name_type" "scTop: enum\n" $row1130 setScope "name_type" "cl" "scopePhase" set row1131 [$diag addRow attribute 0.0] $row1131 setLabel "name_type" "scBottom: enum\n" $row1131 setScope "name_type" "cl" "scopePhase" set row1132 [$diag addRow attribute 0.0] $row1132 setLabel "name_type" "scEndScroll: enum" $row1132 setScope "name_type" "cl" "scopePhase" $diag save # Generator: et.tcl /main/hindenburg/19 # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl # Interpreter to use: Otsh V6.1.1/B1 # OTShRegister::importTool set diag [CDM new TOwnerDrawState "DelphiVCL" "" "" "" "" "" 1] set row1133 [$diag addRow attribute 0.0] $row1133 setLabel "name_type" "odSelected: enum\n" $row1133 setScope "name_type" "cl" "scopePhase" set row1134 [$diag addRow attribute 0.0] $row1134 setLabel "name_type" "odGrayed: enum\n" $row1134 setScope "name_type" "cl" "scopePhase" set row1135 [$diag addRow attribute 0.0] $row1135 setLabel "name_type" "odDisabled: enum\n" $row1135 setScope "name_type" "cl" "scopePhase" set row1136 [$diag addRow attribute 0.0] $row1136 setLabel "name_type" "odChecked: enum\n" $row1136 setScope "name_type" "cl" "scopePhase" set row1137 [$diag addRow attribute 0.0] $row1137 setLabel "name_type" "odFocused: enum" $row1137 setScope "name_type" "cl" "scopePhase" $diag save # Generator: et.tcl /main/hindenburg/19 # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl # Interpreter to use: Otsh V6.1.1/B1 # OTShRegister::importTool set diag [CAD new ExtCtrlsClasses "DelphiVCL" "" "" "" "" "" 1] set node1144 [$diag addNode cad_class 1424.0 1232.0 147.0 33.0] $node1144 setLabel "name" "TCustomGroupBox" $node1144 setProp "is_folded" "1" $node1144 setScope "name" "cl" "scopePhase" $node1144 setProp "is_vcl" "1" "name" "cl" $node1144 setProp "libunit" "StdCtrls" "name" "cl" set node1145 [$diag addNode cad_class 1440.0 1120.0 130.0 33.0] $node1145 setLabel "name" "TCustomControl" $node1145 setProp "is_folded" "1" $node1145 setScope "name" "cl" "scopePhase" $node1145 setProp "is_vcl" "1" "name" "cl" $node1145 setProp "libunit" "Controls" "name" "cl" set node1146 [$diag addNode cad_class 992.0 1008.0 131.0 33.0] $node1146 setLabel "name" "TGraphicControl" $node1146 setProp "is_folded" "1" $node1146 setScope "name" "cl" "scopePhase" $node1146 setProp "is_vcl" "1" "name" "cl" $node1146 setProp "libunit" "Controls" "name" "cl" set node1147 [$diag addNode cad_class 1168.0 800.0 120.0 33.0] $node1147 setLabel "name" "TComponent" $node1147 setProp "is_folded" "1" $node1147 setScope "name" "cl" "scopePhase" $node1147 setProp "is_vcl" "1" "name" "cl" $node1147 setProp "libunit" "Classes" "name" "cl" set node1148 [$diag addNode cad_class 992.0 912.0 120.0 33.0] $node1148 setLabel "name" "TTimer" $node1148 setProp "is_folded" "1" $node1148 setScope "name" "cl" "scopePhase" $node1148 setProp "is_vcl" "1" "name" "cl" $node1148 setProp "libunit" "ExtCtrls" "name" "cl" set node1149 [$diag addNode cad_class 1184.0 1120.0 120.0 33.0] $node1149 setLabel "name" "TShape" $node1149 setProp "is_folded" "1" $node1149 setScope "name" "cl" "scopePhase" $node1149 setProp "is_vcl" "1" "name" "cl" $node1149 setProp "libunit" "ExtCtrls" "name" "cl" set node1150 [$diag addNode cad_class 1440.0 1456.0 120.0 33.0] $node1150 setLabel "name" "TRadioGroup" $node1150 setProp "is_folded" "1" $node1150 setScope "name" "cl" "scopePhase" $node1150 setProp "is_vcl" "1" "name" "cl" $node1150 setProp "libunit" "ExtCtrls" "name" "cl" set node1151 [$diag addNode cad_class 1264.0 1344.0 120.0 33.0] $node1151 setLabel "name" "TPanel" $node1151 setProp "is_folded" "1" $node1151 setScope "name" "cl" "scopePhase" $node1151 setProp "is_vcl" "1" "name" "cl" $node1151 setProp "libunit" "ExtCtrls" "name" "cl" set node1152 [$diag addNode cad_class 1056.0 1120.0 120.0 33.0] $node1152 setLabel "name" "TPaintBox" $node1152 setProp "is_folded" "1" $node1152 setScope "name" "cl" "scopePhase" $node1152 setProp "is_vcl" "1" "name" "cl" $node1152 setProp "libunit" "ExtCtrls" "name" "cl" set node1153 [$diag addNode cad_class 928.0 1120.0 120.0 33.0] $node1153 setLabel "name" "TImage" $node1153 setProp "is_folded" "1" $node1153 setScope "name" "cl" "scopePhase" $node1153 setProp "is_vcl" "1" "name" "cl" $node1153 setProp "libunit" "ExtCtrls" "name" "cl" set node1154 [$diag addNode cad_class 1744.0 1232.0 120.0 33.0] $node1154 setLabel "name" "TNotebook" $node1154 setProp "is_folded" "1" $node1154 setScope "name" "cl" "scopePhase" $node1154 setProp "is_vcl" "1" "name" "cl" $node1154 setProp "libunit" "ExtCtrls" "name" "cl" set node1155 [$diag addNode cad_class 1600.0 1232.0 120.0 33.0] $node1155 setLabel "name" "THeader" $node1155 setProp "is_folded" "1" $node1155 setScope "name" "cl" "scopePhase" $node1155 setProp "is_vcl" "1" "name" "cl" $node1155 setProp "libunit" "ExtCtrls" "name" "cl" set node1156 [$diag addNode cad_class 1424.0 1344.0 162.0 33.0] $node1156 setLabel "name" "TCustomRadioGroup" $node1156 setProp "is_folded" "1" $node1156 setScope "name" "cl" "scopePhase" $node1156 setProp "is_vcl" "1" "name" "cl" $node1156 setProp "libunit" "ExtCtrls" "name" "cl" set node1157 [$diag addNode cad_class 1264.0 1232.0 120.0 33.0] $node1157 setLabel "name" "TCustomPanel" $node1157 setProp "is_folded" "1" $node1157 setScope "name" "cl" "scopePhase" $node1157 setProp "is_vcl" "1" "name" "cl" $node1157 setProp "libunit" "ExtCtrls" "name" "cl" set node1158 [$diag addNode cad_class 800.0 1120.0 120.0 33.0] $node1158 setLabel "name" "TBevel" $node1158 setProp "is_folded" "1" $node1158 setScope "name" "cl" "scopePhase" $node1158 setProp "is_vcl" "1" "name" "cl" $node1158 setProp "libunit" "ExtCtrls" "name" "cl" set node1138 [$diag addRake generalization $node1146 $node1149 1056.0 1040.0 1248.0 1136.0 1080.0] set conn1159 [$node1138 getInConn] set segm1160 [$conn1159 getFirstSegm] set conn1161 [$node1138 getFirstOutConn] set segm1162 [$conn1161 getFirstSegm] set conn1163 [$diag addConn generalization_conn $node1138 $node1152 1120.0 1080.5 1120.0 1136.0] set segm1164 [$conn1163 getFirstSegm] set conn1165 [$diag addConn generalization_conn $node1138 $node1153 1120.0 1080.5 992.0 1136.0] set segm1166 [$conn1165 getFirstSegm] set conn1167 [$diag addConn generalization_conn $node1138 $node1158 1066.0 1080.5 864.0 1120.0] set segm1168 [$conn1167 getFirstSegm] set node1139 [$diag addRake generalization $node1156 $node1150 1504.0 1376.0 1504.0 1472.0 1424.0] set conn1169 [$node1139 getInConn] set segm1170 [$conn1169 getFirstSegm] set conn1171 [$node1139 getFirstOutConn] set segm1172 [$conn1171 getFirstSegm] set node1140 [$diag addRake generalization $node1157 $node1151 1328.0 1264.0 1328.0 1360.0 1312.0] set conn1173 [$node1140 getInConn] set segm1174 [$conn1173 getFirstSegm] set conn1175 [$node1140 getFirstOutConn] set segm1176 [$conn1175 getFirstSegm] set node1141 [$diag addRake generalization $node1144 $node1156 1504.0 1264.0 1504.0 1360.0 1312.0] set conn1177 [$node1141 getInConn] set segm1178 [$conn1177 getFirstSegm] set conn1179 [$node1141 getFirstOutConn] set segm1180 [$conn1179 getFirstSegm] set node1142 [$diag addRake generalization $node1145 $node1154 1504.0 1152.0 1808.0 1232.0 1192.0] set conn1181 [$node1142 getInConn] set segm1182 [$conn1181 getFirstSegm] set conn1183 [$node1142 getFirstOutConn] set segm1184 [$conn1183 getFirstSegm] set conn1185 [$diag addConn generalization_conn $node1142 $node1155 1664.0 1192.5 1664.0 1248.0] set segm1186 [$conn1185 getFirstSegm] set conn1187 [$diag addConn generalization_conn $node1142 $node1157 1514.0 1192.5 1328.0 1232.0] set segm1188 [$conn1187 getFirstSegm] set node1143 [$diag addRake generalization $node1147 $node1148 1232.0 832.0 1056.0 928.0 872.0] set conn1189 [$node1143 getInConn] set segm1190 [$conn1189 getFirstSegm] set conn1191 [$node1143 getFirstOutConn] set segm1192 [$conn1191 getFirstSegm] $diag save # Generator: et.tcl /main/hindenburg/19 # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl # Interpreter to use: Otsh V6.1.1/B1 # OTShRegister::importTool set diag [CAD new ControlsClasses "DelphiVCL" "" "" "" "" "" 1] set node1197 [$diag addNode cad_class 1536.0 800.0 120.0 33.0] $node1197 setLabel "name" "TObject" $node1197 setProp "is_folded" "1" $node1197 setScope "name" "cl" "scopePhase" $node1197 setProp "is_vcl" "1" "name" "cl" $node1197 setProp "libunit" "System" "name" "cl" set node1202 [$diag addNode cad_class 1232.0 896.0 120.0 33.0] $node1202 setLabel "name" "TCanvas" $node1202 setProp "is_folded" "1" $node1202 setScope "name" "cl" "scopePhase" $node1202 setProp "is_vcl" "1" "name" "cl" set node1203 [$diag addNode cad_class 1008.0 800.0 120.0 33.0] $node1203 setLabel "name" "TPersistent" $node1203 setProp "is_folded" "1" $node1203 setScope "name" "cl" "scopePhase" $node1203 setProp "is_vcl" "1" "name" "cl" $node1203 setProp "libunit" "Classes" "name" "cl" set node1204 [$diag addNode cad_class 800.0 992.0 143.0 33.0] $node1204 setLabel "name" "TCustomImageList" $node1204 setProp "is_folded" "1" $node1204 setScope "name" "cl" "scopePhase" $node1204 setProp "is_vcl" "1" "name" "cl" $node1204 setProp "libunit" "Controls" "name" "cl" set node1205 [$diag addNode cad_class 1008.0 896.0 120.0 33.0] $node1205 setLabel "name" "TComponent" $node1205 setProp "is_folded" "1" $node1205 setScope "name" "cl" "scopePhase" $node1205 setProp "is_vcl" "1" "name" "cl" $node1205 setProp "libunit" "Classes" "name" "cl" set node1206 [$diag addNode cad_class 1536.0 896.0 120.0 33.0] $node1206 setLabel "name" "TDragObject" $node1206 setProp "is_folded" "1" $node1206 setScope "name" "cl" "scopePhase" $node1206 setProp "is_vcl" "1" "name" "cl" $node1206 setProp "libunit" "Controls" "name" "cl" set node1207 [$diag addNode cad_class 1520.0 992.0 156.0 33.0] $node1207 setLabel "name" "TDragControlObject" $node1207 setProp "is_folded" "1" $node1207 setScope "name" "cl" "scopePhase" $node1207 setProp "is_vcl" "1" "name" "cl" $node1207 setProp "libunit" "Controls" "name" "cl" set node1208 [$diag addNode cad_class 1696.0 896.0 120.0 33.0] $node1208 setLabel "name" "TChangeLink" $node1208 setProp "is_folded" "1" $node1208 setScope "name" "cl" "scopePhase" $node1208 setProp "is_vcl" "1" "name" "cl" $node1208 setProp "libunit" "Controls" "name" "cl" set node1209 [$diag addNode cad_class 1008.0 1088.0 120.0 33.0] $node1209 setLabel "name" "TWinControl" $node1209 setProp "is_folded" "1" $node1209 setScope "name" "cl" "scopePhase" $node1209 setProp "is_vcl" "1" "name" "cl" $node1209 setProp "libunit" "Controls" "name" "cl" set node1210 [$diag addNode cad_class 816.0 1088.0 120.0 33.0] $node1210 setLabel "name" "TImageList" $node1210 setProp "is_folded" "1" $node1210 setScope "name" "cl" "scopePhase" $node1210 setProp "is_vcl" "1" "name" "cl" $node1210 setProp "libunit" "Controls" "name" "cl" set node1211 [$diag addNode cad_class 1008.0 1280.0 120.0 33.0] $node1211 setLabel "name" "THintWindow" $node1211 setProp "is_folded" "1" $node1211 setScope "name" "cl" "scopePhase" $node1211 setProp "is_vcl" "1" "name" "cl" $node1211 setProp "libunit" "Controls" "name" "cl" set node1212 [$diag addNode cad_class 1200.0 1088.0 131.0 33.0] $node1212 setLabel "name" "TGraphicControl" $node1212 setProp "is_folded" "1" $node1212 setScope "name" "cl" "scopePhase" $node1212 setProp "is_vcl" "1" "name" "cl" $node1212 setProp "libunit" "Controls" "name" "cl" set node1213 [$diag addNode cad_class 1008.0 1184.0 130.0 33.0] $node1213 setLabel "name" "TCustomControl" $node1213 setProp "is_folded" "1" $node1213 setScope "name" "cl" "scopePhase" $node1213 setProp "is_vcl" "1" "name" "cl" $node1213 setProp "libunit" "Controls" "name" "cl" set node1214 [$diag addNode cad_class 1232.0 992.0 128.0 33.0] $node1214 setLabel "name" "TControlCanvas" $node1214 setProp "is_folded" "1" $node1214 setScope "name" "cl" "scopePhase" $node1214 setProp "is_vcl" "1" "name" "cl" $node1214 setProp "libunit" "Controls" "name" "cl" set node1215 [$diag addNode cad_class 1008.0 992.0 120.0 33.0] $node1215 setLabel "name" "TControl" $node1215 setProp "is_folded" "1" $node1215 setScope "name" "cl" "scopePhase" $node1215 setProp "is_vcl" "1" "name" "cl" $node1215 setProp "libunit" "Controls" "name" "cl" set node1193 [$diag addRake generalization $node1202 $node1214 1296.0 928.0 1296.0 1008.0 968.0] set conn1216 [$node1193 getInConn] set segm1217 [$conn1216 getFirstSegm] set conn1218 [$node1193 getFirstOutConn] set segm1219 [$conn1218 getFirstSegm] set node1194 [$diag addRake generalization $node1205 $node1215 1072.0 928.0 1072.0 1008.0 968.0] set conn1220 [$node1194 getInConn] set segm1221 [$conn1220 getFirstSegm] set conn1222 [$node1194 getFirstOutConn] set segm1223 [$conn1222 getFirstSegm] set conn1224 [$diag addConn generalization_conn $node1194 $node1204 1082.0 968.5 864.0 1008.0] set segm1225 [$conn1224 getFirstSegm] set node1195 [$diag addRake generalization $node1206 $node1207 1600.0 928.0 1600.0 1008.0 968.0] set conn1226 [$node1195 getInConn] set segm1227 [$conn1226 getFirstSegm] set conn1228 [$node1195 getFirstOutConn] set segm1229 [$conn1228 getFirstSegm] set node1196 [$diag addRake generalization $node1197 $node1208 1600.0 832.0 1760.0 928.0 872.0] set conn1230 [$node1196 getInConn] set segm1231 [$conn1230 getFirstSegm] set conn1232 [$node1196 getFirstOutConn] set segm1233 [$conn1232 getFirstSegm] set conn1234 [$diag addConn generalization_conn $node1196 $node1206 1760.0 872.5 1600.0 912.0] set segm1235 [$conn1234 getFirstSegm] set node1198 [$diag addRake generalization $node1213 $node1211 1072.0 1216.0 1072.0 1296.0 1256.0] set conn1236 [$node1198 getInConn] set segm1237 [$conn1236 getFirstSegm] set conn1238 [$node1198 getFirstOutConn] set segm1239 [$conn1238 getFirstSegm] set node1199 [$diag addRake generalization $node1209 $node1213 1072.0 1120.0 1072.0 1200.0 1160.0] set conn1240 [$node1199 getInConn] set segm1241 [$conn1240 getFirstSegm] set conn1242 [$node1199 getFirstOutConn] set segm1243 [$conn1242 getFirstSegm] set node1200 [$diag addRake generalization $node1215 $node1212 1072.0 1024.0 1264.0 1104.0 1064.0] set conn1244 [$node1200 getInConn] set segm1245 [$conn1244 getFirstSegm] set conn1246 [$node1200 getFirstOutConn] set segm1247 [$conn1246 getFirstSegm] set conn1248 [$diag addConn generalization_conn $node1200 $node1209 1168.0 1064.5 1072.0 1104.0] set segm1249 [$conn1248 getFirstSegm] set conn1250 [$diag addConn generalization_conn $node1200 $node1210 1082.0 1064.5 880.0 1104.0] set segm1251 [$conn1250 getFirstSegm] set node1201 [$diag addRake generalization $node1203 $node1202 1072.0 832.0 1296.0 912.0 872.0] set conn1252 [$node1201 getInConn] set segm1253 [$conn1252 getFirstSegm] set conn1254 [$node1201 getFirstOutConn] set segm1255 [$conn1254 getFirstSegm] $diag save # Generator: et.tcl /main/hindenburg/19 # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl # Interpreter to use: Otsh V6.1.1/B1 # OTShRegister::importTool set diag [CAD new ControlsTypes "DelphiVCL" "" "" "" "" "" 1] set node1256 [$diag addNode cad_class 736.0 704.0 127.0 135.0] $node1256 setLabel "name" "TMouseButton" $node1256 setScope "name" "cl" "scopePhase" $node1256 setProp "is_vcl" "1" "name" "cl" $node1256 setProp "libunit" "Controls" "name" "cl" set node1257 [$diag addNode cad_class 528.0 704.0 152.0 135.0] $node1257 setLabel "name" "TDragState" $node1257 setScope "name" "cl" "scopePhase" $node1257 setProp "is_vcl" "1" "name" "cl" $node1257 setProp "libunit" "Controls" "name" "cl" $diag save # Generator: et.tcl /main/hindenburg/19 # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl # Interpreter to use: Otsh V6.1.1/B1 # OTShRegister::importTool set diag [CAD new FormsTypes "DelphiVCL" "" "" "" "" "" 1] set node1258 [$diag addNode cad_class 784.0 800.0 137.0 151.0] $node1258 setLabel "name" "TCloseAction" $node1258 setScope "name" "cl" "scopePhase" $node1258 setProp "is_vcl" "1" "name" "cl" set node1259 [$diag addNode cad_class 944.0 800.0 120.0 103.0] $node1259 setLabel "name" "TMsg" $node1259 setScope "name" "cl" "scopePhase" $node1259 setProp "is_vcl" "1" "name" "cl" $node1259 setProp "libunit" "Forms" "name" "cl" $diag save # Generator: et.tcl /main/hindenburg/19 # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl # Interpreter to use: Otsh V6.1.1/B1 # OTShRegister::importTool set diag [CDM new TControl "DelphiVCL" "" "" "" "" "" 1] set row1260 [$diag addRow method 0.0] $row1260 setLabel "name_type" "Click()\n" $row1260 setProp "has_parmlist" "1" $row1260 setProp "is_event" "1" $row1260 setProp "method_access" "Protected" set cell1261 [$row1260 addCell parameter 0.0] $cell1261 setLabel "name_type" "Sender: TObject" $cell1261 setScope "name_type" "cl" "scopePhase" $cell1261 setProp "is_vcl" "1" "name_type" "cl" $cell1261 setProp "libunit" "System" "name_type" "cl" $cell1261 setScope "name_type" "de" "scopeSystem" set row1262 [$diag addRow method 0.0] $row1262 setLabel "name_type" "DblClick()\n" $row1262 setProp "has_parmlist" "1" $row1262 setProp "is_event" "1" $row1262 setProp "method_access" "Private" set cell1263 [$row1262 addCell parameter 0.0] $cell1263 setLabel "name_type" "Sender: TObject" $cell1263 setScope "name_type" "cl" "scopePhase" $cell1263 setProp "is_vcl" "1" "name_type" "cl" $cell1263 setProp "libunit" "System" "name_type" "cl" $cell1263 setScope "name_type" "de" "scopeSystem" set row1264 [$diag addRow method 0.0] $row1264 setLabel "name_type" "DragDrop()\n" $row1264 setProp "has_parmlist" "1" $row1264 setProp "is_event" "1" $row1264 setProp "method_access" "Private" set cell1265 [$row1264 addCell parameter 0.0] $cell1265 setLabel "name_type" "Sender: TObject, " $cell1265 setScope "name_type" "cl" "scopePhase" $cell1265 setProp "is_vcl" "1" "name_type" "cl" $cell1265 setProp "libunit" "System" "name_type" "cl" $cell1265 setScope "name_type" "de" "scopeSystem" set cell1266 [$row1264 addCell parameter 0.0] $cell1266 setLabel "name_type" "Source: TObject, " $cell1266 setScope "name_type" "cl" "scopePhase" $cell1266 setProp "is_vcl" "1" "name_type" "cl" $cell1266 setProp "libunit" "System" "name_type" "cl" $cell1266 setScope "name_type" "de" "scopeSystem" set cell1267 [$row1264 addCell parameter 0.0] $cell1267 setLabel "name_type" "X: int, " $cell1267 setScope "name_type" "cl" "scopePhase" $cell1267 setScope "name_type" "de" "scopeSystem" set cell1268 [$row1264 addCell parameter 0.0] $cell1268 setLabel "name_type" "Y: int" $cell1268 setScope "name_type" "cl" "scopePhase" $cell1268 setScope "name_type" "de" "scopeSystem" set row1269 [$diag addRow method 0.0] $row1269 setLabel "name_type" "DragOver()\n" $row1269 setProp "has_parmlist" "1" $row1269 setProp "is_event" "1" $row1269 setProp "method_access" "Private" set cell1270 [$row1269 addCell parameter 0.0] $cell1270 setLabel "name_type" "Sender: TObject, " $cell1270 setScope "name_type" "cl" "scopePhase" $cell1270 setProp "is_vcl" "1" "name_type" "cl" $cell1270 setProp "libunit" "System" "name_type" "cl" $cell1270 setScope "name_type" "de" "scopeSystem" set cell1271 [$row1269 addCell parameter 0.0] $cell1271 setLabel "name_type" "Source: TObject, " $cell1271 setScope "name_type" "cl" "scopePhase" $cell1271 setProp "is_vcl" "1" "name_type" "cl" $cell1271 setProp "libunit" "System" "name_type" "cl" $cell1271 setScope "name_type" "de" "scopeSystem" set cell1272 [$row1269 addCell parameter 0.0] $cell1272 setLabel "name_type" "X: int, " $cell1272 setScope "name_type" "cl" "scopePhase" $cell1272 setScope "name_type" "de" "scopeSystem" set cell1273 [$row1269 addCell parameter 0.0] $cell1273 setLabel "name_type" "Y: int, " $cell1273 setScope "name_type" "cl" "scopePhase" $cell1273 setScope "name_type" "de" "scopeSystem" set cell1274 [$row1269 addCell parameter 0.0] $cell1274 setLabel "name_type" "State: TDragState, " $cell1274 setScope "name_type" "cl" "scopePhase" $cell1274 setProp "is_vcl" "1" "name_type" "cl" $cell1274 setProp "libunit" "Controls" "name_type" "cl" $cell1274 setScope "name_type" "de" "scopeSystem" set cell1275 [$row1269 addCell parameter 0.0] $cell1275 setLabel "name_type" "Accept: bool" $cell1275 setScope "name_type" "cl" "scopePhase" $cell1275 setScope "name_type" "de" "scopeSystem" set row1276 [$diag addRow method 0.0] $row1276 setLabel "name_type" "EndDrag()\n" $row1276 setProp "has_parmlist" "1" $row1276 setProp "is_event" "1" $row1276 setProp "method_access" "Private" set cell1277 [$row1276 addCell parameter 0.0] $cell1277 setLabel "name_type" "Sender: TObject, " $cell1277 setScope "name_type" "cl" "scopePhase" $cell1277 setProp "is_vcl" "1" "name_type" "cl" $cell1277 setProp "libunit" "System" "name_type" "cl" $cell1277 setScope "name_type" "de" "scopeSystem" set cell1278 [$row1276 addCell parameter 0.0] $cell1278 setLabel "name_type" "Source: TObject, " $cell1278 setScope "name_type" "cl" "scopePhase" $cell1278 setProp "is_vcl" "1" "name_type" "cl" $cell1278 setProp "libunit" "System" "name_type" "cl" $cell1278 setScope "name_type" "de" "scopeSystem" set cell1279 [$row1276 addCell parameter 0.0] $cell1279 setLabel "name_type" "X: int, " $cell1279 setScope "name_type" "cl" "scopePhase" $cell1279 setScope "name_type" "de" "scopeSystem" set cell1280 [$row1276 addCell parameter 0.0] $cell1280 setLabel "name_type" "Y: int" $cell1280 setScope "name_type" "cl" "scopePhase" $cell1280 setScope "name_type" "de" "scopeSystem" set row1281 [$diag addRow method 0.0] $row1281 setLabel "name_type" "MouseDown()\n" $row1281 setProp "has_parmlist" "1" $row1281 setProp "is_event" "1" $row1281 setProp "method_access" "Private" set cell1282 [$row1281 addCell parameter 0.0] $cell1282 setLabel "name_type" "Sender: TObject, " $cell1282 setScope "name_type" "cl" "scopePhase" $cell1282 setProp "is_vcl" "1" "name_type" "cl" $cell1282 setProp "libunit" "System" "name_type" "cl" $cell1282 setScope "name_type" "de" "scopeSystem" set cell1283 [$row1281 addCell parameter 0.0] $cell1283 setLabel "name_type" "Button: TMouseButton, " $cell1283 setScope "name_type" "cl" "scopePhase" $cell1283 setProp "is_vcl" "1" "name_type" "cl" $cell1283 setProp "libunit" "Controls" "name_type" "cl" $cell1283 setScope "name_type" "de" "scopeSystem" set cell1284 [$row1281 addCell parameter 0.0] $cell1284 setLabel "name_type" "Shift: TShiftState, " $cell1284 setScope "name_type" "cl" "scopePhase" $cell1284 setProp "is_vcl" "1" "name_type" "cl" $cell1284 setProp "libunit" "Classes" "name_type" "cl" $cell1284 setScope "name_type" "de" "scopeSystem" set cell1285 [$row1281 addCell parameter 0.0] $cell1285 setLabel "name_type" "X: int, " $cell1285 setScope "name_type" "cl" "scopePhase" $cell1285 setScope "name_type" "de" "scopeSystem" set cell1286 [$row1281 addCell parameter 0.0] $cell1286 setLabel "name_type" "Y: int" $cell1286 setScope "name_type" "cl" "scopePhase" $cell1286 setScope "name_type" "de" "scopeSystem" set row1287 [$diag addRow method 0.0] $row1287 setLabel "name_type" "MouseMove()\n" $row1287 setProp "has_parmlist" "1" $row1287 setProp "is_event" "1" $row1287 setProp "method_access" "Private" set cell1288 [$row1287 addCell parameter 0.0] $cell1288 setLabel "name_type" "Sender: TObject, " $cell1288 setScope "name_type" "cl" "scopePhase" $cell1288 setProp "is_vcl" "1" "name_type" "cl" $cell1288 setProp "libunit" "System" "name_type" "cl" $cell1288 setScope "name_type" "de" "scopeSystem" set cell1289 [$row1287 addCell parameter 0.0] $cell1289 setLabel "name_type" "Shift: TShiftState, " $cell1289 setScope "name_type" "cl" "scopePhase" $cell1289 setProp "is_vcl" "1" "name_type" "cl" $cell1289 setProp "libunit" "Classes" "name_type" "cl" $cell1289 setScope "name_type" "de" "scopeSystem" set cell1290 [$row1287 addCell parameter 0.0] $cell1290 setLabel "name_type" "X: int, " $cell1290 setScope "name_type" "cl" "scopePhase" $cell1290 setScope "name_type" "de" "scopeSystem" set cell1291 [$row1287 addCell parameter 0.0] $cell1291 setLabel "name_type" "Y: int" $cell1291 setScope "name_type" "cl" "scopePhase" $cell1291 setScope "name_type" "de" "scopeSystem" set row1292 [$diag addRow method 0.0] $row1292 setLabel "name_type" "MouseUp()\n" $row1292 setProp "has_parmlist" "1" $row1292 setProp "is_event" "1" $row1292 setProp "method_access" "Private" set cell1293 [$row1292 addCell parameter 0.0] $cell1293 setLabel "name_type" "Sender: TObject, " $cell1293 setScope "name_type" "cl" "scopePhase" $cell1293 setProp "is_vcl" "1" "name_type" "cl" $cell1293 setProp "libunit" "System" "name_type" "cl" $cell1293 setScope "name_type" "de" "scopeSystem" set cell1294 [$row1292 addCell parameter 0.0] $cell1294 setLabel "name_type" "Button: TMouseButton, " $cell1294 setScope "name_type" "cl" "scopePhase" $cell1294 setProp "is_vcl" "1" "name_type" "cl" $cell1294 setProp "libunit" "Controls" "name_type" "cl" $cell1294 setScope "name_type" "de" "scopeSystem" set cell1295 [$row1292 addCell parameter 0.0] $cell1295 setLabel "name_type" "Shift: TShiftState, " $cell1295 setScope "name_type" "cl" "scopePhase" $cell1295 setProp "is_vcl" "1" "name_type" "cl" $cell1295 setProp "libunit" "Classes" "name_type" "cl" $cell1295 setScope "name_type" "de" "scopeSystem" set cell1296 [$row1292 addCell parameter 0.0] $cell1296 setLabel "name_type" "X: int, " $cell1296 setScope "name_type" "cl" "scopePhase" $cell1296 setScope "name_type" "de" "scopeSystem" set cell1297 [$row1292 addCell parameter 0.0] $cell1297 setLabel "name_type" "Y: int" $cell1297 setScope "name_type" "cl" "scopePhase" $cell1297 setScope "name_type" "de" "scopeSystem" set row1298 [$diag addRow method 0.0] $row1298 setLabel "name_type" "StartDrag()" $row1298 setProp "has_parmlist" "1" $row1298 setProp "is_event" "1" set cell1299 [$row1298 addCell parameter 0.0] $cell1299 setLabel "name_type" "Sender: TObject, " $cell1299 setScope "name_type" "cl" "scopePhase" $cell1299 setProp "is_vcl" "1" "name_type" "cl" $cell1299 setProp "libunit" "System" "name_type" "cl" $cell1299 setScope "name_type" "de" "scopeSystem" set cell1300 [$row1298 addCell parameter 0.0] $cell1300 setLabel "name_type" "DragObject: TDragObject" $cell1300 setProp "pass_by" "Variable" $cell1300 setScope "name_type" "cl" "scopePhase" $cell1300 setProp "is_vcl" "1" "name_type" "cl" $cell1300 setProp "libunit" "Controls" "name_type" "cl" $cell1300 setScope "name_type" "de" "scopeSystem" $diag save # Generator: et.tcl /main/hindenburg/19 # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl # Interpreter to use: Otsh V6.1.1/B1 # OTShRegister::importTool set diag [CDM new TDragState "DelphiVCL" "" "" "" "" "" 1] set row1301 [$diag addRow attribute 0.0] $row1301 setLabel "name_type" "\$dsDragEnter: enum\n" $row1301 setProp "is_class_feature" "1" $row1301 setScope "name_type" "cl" "scopePhase" set row1302 [$diag addRow attribute 0.0] $row1302 setLabel "name_type" "\$dsDragLeave: enum\n" $row1302 setProp "is_class_feature" "1" $row1302 setScope "name_type" "cl" "scopePhase" set row1303 [$diag addRow attribute 0.0] $row1303 setLabel "name_type" "\$dsDragMove: enum" $row1303 setProp "is_class_feature" "1" $row1303 setScope "name_type" "cl" "scopePhase" $diag save # Generator: et.tcl /main/hindenburg/19 # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl # Interpreter to use: Otsh V6.1.1/B1 # OTShRegister::importTool set diag [CDM new TImageList "DelphiVCL" "" "" "" "" "" 1] set row1304 [$diag addRow method 0.0] $row1304 setLabel "name_type" "Change()" $row1304 setProp "has_parmlist" "1" $row1304 setProp "is_event" "1" set cell1305 [$row1304 addCell parameter 0.0] $cell1305 setLabel "name_type" "Sender: TObject" $cell1305 setScope "name_type" "cl" "scopePhase" $cell1305 setProp "is_vcl" "1" "name_type" "cl" $cell1305 setProp "libunit" "System" "name_type" "cl" $cell1305 setScope "name_type" "de" "scopeSystem" $diag save # Generator: et.tcl /main/hindenburg/19 # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl # Interpreter to use: Otsh V6.1.1/B1 # OTShRegister::importTool set diag [CAD new ClassesTypes "DelphiVCL" "" "" "" "" "" 1] set node1306 [$diag addNode cad_class 576.0 688.0 126.0 199.0] $node1306 setLabel "name" "TShiftState" $node1306 setScope "name" "cl" "scopePhase" $node1306 setProp "is_vcl" "1" "name" "cl" $node1306 setProp "libunit" "Classes" "name" "cl" $diag save # Generator: et.tcl /main/hindenburg/19 # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl # Interpreter to use: Otsh V6.1.1/B1 # OTShRegister::importTool set diag [CDM new TShiftState "DelphiVCL" "" "" "" "" "" 1] set row1307 [$diag addRow attribute 0.0] $row1307 setLabel "name_type" "\$ssShift: enum\n" $row1307 setProp "is_class_feature" "1" $row1307 setScope "name_type" "cl" "scopePhase" set row1308 [$diag addRow attribute 0.0] $row1308 setLabel "name_type" "\$ssAlt: enum\n" $row1308 setProp "is_class_feature" "1" $row1308 setScope "name_type" "cl" "scopePhase" set row1309 [$diag addRow attribute 0.0] $row1309 setLabel "name_type" "\$ssCtrl: enum\n" $row1309 setProp "is_class_feature" "1" $row1309 setScope "name_type" "cl" "scopePhase" set row1310 [$diag addRow attribute 0.0] $row1310 setLabel "name_type" "\$ssLeft: enum\n" $row1310 setProp "is_class_feature" "1" $row1310 setScope "name_type" "cl" "scopePhase" set row1311 [$diag addRow attribute 0.0] $row1311 setLabel "name_type" "\$ssRight: enum\n" $row1311 setProp "is_class_feature" "1" $row1311 setScope "name_type" "cl" "scopePhase" set row1312 [$diag addRow attribute 0.0] $row1312 setLabel "name_type" "\$ssMiddle: enum\n" $row1312 setProp "is_class_feature" "1" $row1312 setScope "name_type" "cl" "scopePhase" set row1313 [$diag addRow attribute 0.0] $row1313 setLabel "name_type" "\$ssDouble: enum" $row1313 setProp "is_class_feature" "1" $row1313 setScope "name_type" "cl" "scopePhase" $diag save # Generator: et.tcl /main/hindenburg/19 # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl # Interpreter to use: Otsh V6.1.1/B1 # OTShRegister::importTool set diag [CDM new TWinControl "DelphiVCL" "" "" "" "" "" 1] set row1314 [$diag addRow method 0.0] $row1314 setLabel "name_type" "Enter()\n" $row1314 setProp "has_parmlist" "1" $row1314 setProp "is_event" "1" $row1314 setProp "method_access" "Private" set cell1315 [$row1314 addCell parameter 0.0] $cell1315 setLabel "name_type" "Sender: TObject" $cell1315 setScope "name_type" "cl" "scopePhase" $cell1315 setProp "is_vcl" "1" "name_type" "cl" $cell1315 setProp "libunit" "System" "name_type" "cl" $cell1315 setScope "name_type" "de" "scopeSystem" set row1316 [$diag addRow method 0.0] $row1316 setLabel "name_type" "Exit()\n" $row1316 setProp "has_parmlist" "1" $row1316 setProp "is_event" "1" $row1316 setProp "method_access" "Private" set cell1317 [$row1316 addCell parameter 0.0] $cell1317 setLabel "name_type" "Sender: TObject" $cell1317 setScope "name_type" "cl" "scopePhase" $cell1317 setProp "is_vcl" "1" "name_type" "cl" $cell1317 setProp "libunit" "System" "name_type" "cl" $cell1317 setScope "name_type" "de" "scopeSystem" set row1318 [$diag addRow method 0.0] $row1318 setLabel "name_type" "KeyDown()\n" $row1318 setProp "has_parmlist" "1" $row1318 setProp "is_event" "1" $row1318 setProp "method_access" "Private" set cell1319 [$row1318 addCell parameter 0.0] $cell1319 setLabel "name_type" "Sender: TObject, " $cell1319 setScope "name_type" "cl" "scopePhase" $cell1319 setProp "is_vcl" "1" "name_type" "cl" $cell1319 setProp "libunit" "System" "name_type" "cl" $cell1319 setScope "name_type" "de" "scopeSystem" set cell1320 [$row1318 addCell parameter 0.0] $cell1320 setLabel "name_type" "Key: word, " $cell1320 setProp "pass_by" "Variable" $cell1320 setScope "name_type" "cl" "scopePhase" $cell1320 setScope "name_type" "de" "scopeSystem" set cell1321 [$row1318 addCell parameter 0.0] $cell1321 setLabel "name_type" "Shift: TShiftState" $cell1321 setScope "name_type" "cl" "scopePhase" $cell1321 setProp "is_vcl" "1" "name_type" "cl" $cell1321 setProp "libunit" "Classes" "name_type" "cl" $cell1321 setScope "name_type" "de" "scopeSystem" set row1322 [$diag addRow method 0.0] $row1322 setLabel "name_type" "KeyPress()\n" $row1322 setProp "has_parmlist" "1" $row1322 setProp "is_event" "1" $row1322 setProp "method_access" "Private" set cell1323 [$row1322 addCell parameter 0.0] $cell1323 setLabel "name_type" "Sender: TObject, " $cell1323 setScope "name_type" "cl" "scopePhase" $cell1323 setProp "is_vcl" "1" "name_type" "cl" $cell1323 setProp "libunit" "System" "name_type" "cl" $cell1323 setScope "name_type" "de" "scopeSystem" set cell1324 [$row1322 addCell parameter 0.0] $cell1324 setLabel "name_type" "Key: char" $cell1324 setProp "pass_by" "Variable" $cell1324 setScope "name_type" "cl" "scopePhase" $cell1324 setScope "name_type" "de" "scopeSystem" set row1325 [$diag addRow method 0.0] $row1325 setLabel "name_type" "KeyUp()" $row1325 setProp "has_parmlist" "1" $row1325 setProp "is_event" "1" $row1325 setProp "method_access" "Private" set cell1326 [$row1325 addCell parameter 0.0] $cell1326 setLabel "name_type" "Sender: TObject, " $cell1326 setScope "name_type" "cl" "scopePhase" $cell1326 setProp "is_vcl" "1" "name_type" "cl" $cell1326 setProp "libunit" "System" "name_type" "cl" $cell1326 setScope "name_type" "de" "scopeSystem" set cell1327 [$row1325 addCell parameter 0.0] $cell1327 setLabel "name_type" "Key: word, " $cell1327 setProp "pass_by" "Variable" $cell1327 setScope "name_type" "cl" "scopePhase" $cell1327 setScope "name_type" "de" "scopeSystem" set cell1328 [$row1325 addCell parameter 0.0] $cell1328 setLabel "name_type" "Shift: TShiftState" $cell1328 setScope "name_type" "cl" "scopePhase" $cell1328 setProp "is_vcl" "1" "name_type" "cl" $cell1328 setProp "libunit" "Classes" "name_type" "cl" $cell1328 setScope "name_type" "de" "scopeSystem" $diag save # Generator: et.tcl /main/hindenburg/19 # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl # Interpreter to use: Otsh V6.1.1/B1 # OTShRegister::importTool set diag [CDM new TChangeLink "DelphiVCL" "" "" "" "" "" 1] set row1329 [$diag addRow method 0.0] $row1329 setLabel "name_type" "Change()" $row1329 setProp "has_parmlist" "1" $row1329 setProp "is_event" "1" set cell1330 [$row1329 addCell parameter 0.0] $cell1330 setLabel "name_type" "Sender: TObject" $cell1330 setScope "name_type" "cl" "scopePhase" $cell1330 setProp "is_vcl" "1" "name_type" "cl" $cell1330 setProp "libunit" "System" "name_type" "cl" $cell1330 setScope "name_type" "de" "scopeSystem" $diag save # Generator: et.tcl /main/hindenburg/19 # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl # Interpreter to use: Otsh V6.1.1/B1 # OTShRegister::importTool set diag [CDM new TMouseButton "DelphiVCL" "" "" "" "" "" 1] set row1331 [$diag addRow attribute 0.0] $row1331 setLabel "name_type" "\$mbLeft: enum\n" $row1331 setProp "is_class_feature" "1" $row1331 setScope "name_type" "cl" "scopePhase" set row1332 [$diag addRow attribute 0.0] $row1332 setLabel "name_type" "\$mbRight: enum\n" $row1332 setProp "is_class_feature" "1" $row1332 setScope "name_type" "cl" "scopePhase" set row1333 [$diag addRow attribute 0.0] $row1333 setLabel "name_type" "\$mbMiddle: enum" $row1333 setProp "is_class_feature" "1" $row1333 setScope "name_type" "cl" "scopePhase" $diag save # Generator: et.tcl /main/hindenburg/19 # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl # Interpreter to use: Otsh V6.1.1/B1 # OTShRegister::importTool set diag [CDM new TCloseAction "DelphiVCL" "" "" "" "" "" 1] set row1334 [$diag addRow attribute 0.0] $row1334 setLabel "name_type" "\$caNone: enum\n" $row1334 setProp "is_class_feature" "1" $row1334 setScope "name_type" "cl" "scopePhase" set row1335 [$diag addRow attribute 0.0] $row1335 setLabel "name_type" "\$caHide: enum\n" $row1335 setProp "is_class_feature" "1" $row1335 setScope "name_type" "cl" "scopePhase" set row1336 [$diag addRow attribute 0.0] $row1336 setLabel "name_type" "\$caFree: enum\n" $row1336 setProp "is_class_feature" "1" $row1336 setScope "name_type" "cl" "scopePhase" set row1337 [$diag addRow attribute 0.0] $row1337 setLabel "name_type" "\$caMinimize: enum" $row1337 setProp "is_class_feature" "1" $row1337 setScope "name_type" "cl" "scopePhase" $diag save # Generator: et.tcl /main/hindenburg/19 # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl # Interpreter to use: Otsh V6.1.1/B1 # OTShRegister::importTool set diag [CAD new ClassesClasses "DelphiVCL" "" "" "" "" "" 1] set node1345 [$diag addNode cad_class 1184.0 800.0 120.0 33.0] $node1345 setLabel "name" "TObject" $node1345 setProp "is_folded" "1" $node1345 setScope "name" "cl" "scopePhase" $node1345 setProp "is_vcl" "1" "name" "cl" $node1345 setProp "libunit" "System" "name" "cl" set node1346 [$diag addNode cad_class 976.0 992.0 120.0 33.0] $node1346 setLabel "name" "TComponent" $node1346 setProp "is_folded" "1" $node1346 setScope "name" "cl" "scopePhase" $node1346 setProp "is_vcl" "1" "name" "cl" $node1346 setProp "libunit" "Classes" "name" "cl" set node1347 [$diag addNode cad_class 1648.0 992.0 120.0 33.0] $node1347 setLabel "name" "TWriter" $node1347 setProp "is_folded" "1" $node1347 setScope "name" "cl" "scopePhase" $node1347 setProp "is_vcl" "1" "name" "cl" $node1347 setProp "libunit" "Classes" "name" "cl" set node1348 [$diag addNode cad_class 2016.0 896.0 120.0 33.0] $node1348 setLabel "name" "TThread" $node1348 setProp "is_folded" "1" $node1348 setScope "name" "cl" "scopePhase" $node1348 setProp "is_vcl" "1" "name" "cl" $node1348 setProp "libunit" "Classes" "name" "cl" set node1349 [$diag addNode cad_class 1360.0 992.0 120.0 33.0] $node1349 setLabel "name" "TStrings" $node1349 setProp "is_folded" "1" $node1349 setScope "name" "cl" "scopePhase" $node1349 setProp "is_vcl" "1" "name" "cl" $node1349 setProp "libunit" "Classes" "name" "cl" set node1350 [$diag addNode cad_class 1360.0 1104.0 120.0 33.0] $node1350 setLabel "name" "TStringList" $node1350 setProp "is_folded" "1" $node1350 setScope "name" "cl" "scopePhase" $node1350 setProp "is_vcl" "1" "name" "cl" $node1350 setProp "libunit" "Classes" "name" "cl" set node1351 [$diag addNode cad_class 1856.0 896.0 120.0 33.0] $node1351 setLabel "name" "TStream" $node1351 setProp "is_folded" "1" $node1351 setScope "name" "cl" "scopePhase" $node1351 setProp "is_vcl" "1" "name" "cl" $node1351 setProp "libunit" "Classes" "name" "cl" set node1352 [$diag addNode cad_class 2080.0 1088.0 139.0 33.0] $node1352 setLabel "name" "TResourceStream" $node1352 setProp "is_folded" "1" $node1352 setScope "name" "cl" "scopePhase" $node1352 setProp "is_vcl" "1" "name" "cl" $node1352 setProp "libunit" "Classes" "name" "cl" set node1353 [$diag addNode cad_class 1520.0 992.0 120.0 33.0] $node1353 setLabel "name" "TReader" $node1353 setProp "is_folded" "1" $node1353 setScope "name" "cl" "scopePhase" $node1353 setProp "is_vcl" "1" "name" "cl" $node1353 setProp "libunit" "Classes" "name" "cl" set node1354 [$diag addNode cad_class 1184.0 896.0 120.0 33.0] $node1354 setLabel "name" "TPersistent" $node1354 setProp "is_folded" "1" $node1354 setScope "name" "cl" "scopePhase" $node1354 setProp "is_vcl" "1" "name" "cl" $node1354 setProp "libunit" "Classes" "name" "cl" set node1355 [$diag addNode cad_class 1936.0 1088.0 128.0 33.0] $node1355 setLabel "name" "TMemoryStream" $node1355 setProp "is_folded" "1" $node1355 setScope "name" "cl" "scopePhase" $node1355 setProp "is_vcl" "1" "name" "cl" $node1355 setProp "libunit" "Classes" "name" "cl" set node1356 [$diag addNode cad_class 800.0 896.0 120.0 33.0] $node1356 setLabel "name" "TList" $node1356 setProp "is_folded" "1" $node1356 setScope "name" "cl" "scopePhase" $node1356 setProp "is_vcl" "1" "name" "cl" $node1356 setProp "libunit" "Classes" "name" "cl" set node1357 [$diag addNode cad_class 1792.0 992.0 120.0 33.0] $node1357 setLabel "name" "THandleStream" $node1357 setProp "is_folded" "1" $node1357 setScope "name" "cl" "scopePhase" $node1357 setProp "is_vcl" "1" "name" "cl" $node1357 setProp "libunit" "Classes" "name" "cl" set node1358 [$diag addNode cad_class 1792.0 1088.0 120.0 33.0] $node1358 setLabel "name" "TFileStream" $node1358 setProp "is_folded" "1" $node1358 setScope "name" "cl" "scopePhase" $node1358 setProp "is_vcl" "1" "name" "cl" $node1358 setProp "libunit" "Classes" "name" "cl" set node1359 [$diag addNode cad_class 1584.0 896.0 120.0 33.0] $node1359 setLabel "name" "TFiler" $node1359 setProp "is_folded" "1" $node1359 setScope "name" "cl" "scopePhase" $node1359 setProp "is_vcl" "1" "name" "cl" $node1359 setProp "libunit" "Classes" "name" "cl" set node1360 [$diag addNode cad_class 1984.0 992.0 182.0 33.0] $node1360 setLabel "name" "TCustomMemoryStream" $node1360 setProp "is_folded" "1" $node1360 setScope "name" "cl" "scopePhase" $node1360 setProp "is_vcl" "1" "name" "cl" $node1360 setProp "libunit" "Classes" "name" "cl" set node1361 [$diag addNode cad_class 1232.0 992.0 123.0 33.0] $node1361 setLabel "name" "TCollectionItem" $node1361 setProp "is_folded" "1" $node1361 setScope "name" "cl" "scopePhase" $node1361 setProp "is_vcl" "1" "name" "cl" $node1361 setProp "libunit" "Classes" "name" "cl" set node1362 [$diag addNode cad_class 1104.0 992.0 120.0 33.0] $node1362 setLabel "name" "TCollection" $node1362 setProp "is_folded" "1" $node1362 setScope "name" "cl" "scopePhase" $node1362 setProp "is_vcl" "1" "name" "cl" $node1362 setProp "libunit" "Classes" "name" "cl" set node1363 [$diag addNode cad_class 928.0 896.0 120.0 33.0] $node1363 setLabel "name" "TBits" $node1363 setProp "is_folded" "1" $node1363 setScope "name" "cl" "scopePhase" $node1363 setProp "is_vcl" "1" "name" "cl" $node1363 setProp "libunit" "Classes" "name" "cl" set node1367 [$diag addNode cad_class 1728.0 1504.0 147.0 33.0] $node1367 setLabel "name" "EMethodNotFound" $node1367 setProp "is_folded" "1" $node1367 setScope "name" "cl" "scopePhase" $node1367 setProp "is_vcl" "1" "name" "cl" $node1367 setProp "libunit" "Classes" "name" "cl" set node1368 [$diag addNode cad_class 1360.0 1216.0 120.0 33.0] $node1368 setLabel "name" "Exception" $node1368 setProp "is_folded" "1" $node1368 setScope "name" "cl" "scopePhase" $node1368 setProp "is_vcl" "1" "name" "cl" $node1368 setProp "libunit" "SysUtils" "name" "cl" set node1369 [$diag addNode cad_class 2016.0 1504.0 120.0 33.0] $node1369 setLabel "name" "EWriteError" $node1369 setProp "is_folded" "1" $node1369 setScope "name" "cl" "scopePhase" $node1369 setProp "is_vcl" "1" "name" "cl" $node1369 setProp "libunit" "Classes" "name" "cl" set node1370 [$diag addNode cad_class 1872.0 1296.0 120.0 33.0] $node1370 setLabel "name" "EThread" $node1370 setProp "is_folded" "1" $node1370 setScope "name" "cl" "scopePhase" $node1370 setProp "is_vcl" "1" "name" "cl" $node1370 setProp "libunit" "Classes" "name" "cl" set node1371 [$diag addNode cad_class 1728.0 1296.0 128.0 33.0] $node1371 setLabel "name" "EStringListError" $node1371 setProp "is_folded" "1" $node1371 setScope "name" "cl" "scopePhase" $node1371 setProp "is_vcl" "1" "name" "cl" $node1371 setProp "libunit" "Classes" "name" "cl" set node1372 [$diag addNode cad_class 1584.0 1296.0 120.0 33.0] $node1372 setLabel "name" "EStreamError" $node1372 setProp "is_folded" "1" $node1372 setScope "name" "cl" "scopePhase" $node1372 setProp "is_vcl" "1" "name" "cl" $node1372 setProp "libunit" "Classes" "name" "cl" set node1373 [$diag addNode cad_class 1440.0 1296.0 121.0 33.0] $node1373 setLabel "name" "EResNotFound" $node1373 setProp "is_folded" "1" $node1373 setScope "name" "cl" "scopePhase" $node1373 setProp "is_vcl" "1" "name" "cl" $node1373 setProp "libunit" "Classes" "name" "cl" set node1374 [$diag addNode cad_class 1888.0 1504.0 120.0 33.0] $node1374 setLabel "name" "EReadError" $node1374 setProp "is_folded" "1" $node1374 setScope "name" "cl" "scopePhase" $node1374 setProp "is_vcl" "1" "name" "cl" $node1374 setProp "libunit" "Classes" "name" "cl" set node1375 [$diag addNode cad_class 1296.0 1296.0 120.0 33.0] $node1375 setLabel "name" "EParserError" $node1375 setProp "is_folded" "1" $node1375 setScope "name" "cl" "scopePhase" $node1375 setProp "is_vcl" "1" "name" "cl" $node1375 setProp "libunit" "Classes" "name" "cl" set node1376 [$diag addNode cad_class 1152.0 1296.0 120.0 33.0] $node1376 setLabel "name" "EListError" $node1376 setProp "is_folded" "1" $node1376 setScope "name" "cl" "scopePhase" $node1376 setProp "is_vcl" "1" "name" "cl" $node1376 setProp "libunit" "Classes" "name" "cl" set node1377 [$diag addNode cad_class 1600.0 1504.0 120.0 33.0] $node1377 setLabel "name" "EInvalidImage" $node1377 setProp "is_folded" "1" $node1377 setScope "name" "cl" "scopePhase" $node1377 setProp "is_vcl" "1" "name" "cl" $node1377 setProp "libunit" "Classes" "name" "cl" set node1378 [$diag addNode cad_class 1584.0 1392.0 120.0 33.0] $node1378 setLabel "name" "EFOpenError" $node1378 setProp "is_folded" "1" $node1378 setScope "name" "cl" "scopePhase" $node1378 setProp "is_vcl" "1" "name" "cl" $node1378 setProp "libunit" "Classes" "name" "cl" set node1379 [$diag addNode cad_class 1728.0 1392.0 120.0 33.0] $node1379 setLabel "name" "EFilerError" $node1379 setProp "is_folded" "1" $node1379 setScope "name" "cl" "scopePhase" $node1379 setProp "is_vcl" "1" "name" "cl" $node1379 setProp "libunit" "Classes" "name" "cl" set node1380 [$diag addNode cad_class 1440.0 1392.0 120.0 33.0] $node1380 setLabel "name" "EFCreateError" $node1380 setProp "is_folded" "1" $node1380 setScope "name" "cl" "scopePhase" $node1380 setProp "is_vcl" "1" "name" "cl" $node1380 setProp "libunit" "Classes" "name" "cl" set node1381 [$diag addNode cad_class 992.0 1296.0 141.0 33.0] $node1381 setLabel "name" "EComponentError" $node1381 setProp "is_folded" "1" $node1381 setScope "name" "cl" "scopePhase" $node1381 setProp "is_vcl" "1" "name" "cl" $node1381 setProp "libunit" "Classes" "name" "cl" set node1382 [$diag addNode cad_class 1456.0 1504.0 133.0 33.0] $node1382 setLabel "name" "EClassNotFound" $node1382 setProp "is_folded" "1" $node1382 setScope "name" "cl" "scopePhase" $node1382 setProp "is_vcl" "1" "name" "cl" $node1382 setProp "libunit" "Classes" "name" "cl" set node1383 [$diag addNode cad_class 848.0 1296.0 120.0 33.0] $node1383 setLabel "name" "EBitsError" $node1383 setProp "is_folded" "1" $node1383 setScope "name" "cl" "scopePhase" $node1383 setProp "is_vcl" "1" "name" "cl" $node1383 setProp "libunit" "Classes" "name" "cl" set node1338 [$diag addRake generalization $node1354 $node1349 1248.0 928.0 1424.0 1024.0 968.0] set conn1384 [$node1338 getInConn] set segm1385 [$conn1384 getFirstSegm] set conn1386 [$node1338 getFirstOutConn] set segm1387 [$conn1386 getFirstSegm] set conn1388 [$diag addConn generalization_conn $node1338 $node1361 1248.0 968.5 1296.0 992.0] set segm1389 [$conn1388 getFirstSegm] set conn1390 [$diag addConn generalization_conn $node1338 $node1362 1248.0 968.5 1168.0 1008.0] set segm1391 [$conn1390 getFirstSegm] set conn1392 [$diag addConn generalization_conn $node1338 $node1346 1258.0 968.5 1040.0 1008.0] set segm1393 [$conn1392 getFirstSegm] set node1339 [$diag addRake generalization $node1349 $node1350 1424.0 1024.0 1424.0 1120.0 1072.0] set conn1394 [$node1339 getInConn] set segm1395 [$conn1394 getFirstSegm] set conn1396 [$node1339 getFirstOutConn] set segm1397 [$conn1396 getFirstSegm] set node1340 [$diag addRake generalization $node1360 $node1352 2080.0 1024.0 2160.0 1104.0 1064.0] set conn1398 [$node1340 getInConn] set segm1399 [$conn1398 getFirstSegm] set conn1400 [$node1340 getFirstOutConn] set segm1401 [$conn1400 getFirstSegm] set conn1402 [$diag addConn generalization_conn $node1340 $node1355 2090.0 1064.5 2000.0 1104.0] set segm1403 [$conn1402 getFirstSegm] set node1341 [$diag addRake generalization $node1357 $node1358 1856.0 1024.0 1856.0 1104.0 1064.0] set conn1404 [$node1341 getInConn] set segm1405 [$conn1404 getFirstSegm] set conn1406 [$node1341 getFirstOutConn] set segm1407 [$conn1406 getFirstSegm] set node1342 [$diag addRake generalization $node1351 $node1360 1920.0 928.0 2080.0 1008.0 968.0] set conn1408 [$node1342 getInConn] set segm1409 [$conn1408 getFirstSegm] set conn1410 [$node1342 getFirstOutConn] set segm1411 [$conn1410 getFirstSegm] set conn1412 [$diag addConn generalization_conn $node1342 $node1357 1930.0 968.5 1856.0 1008.0] set segm1413 [$conn1412 getFirstSegm] set node1343 [$diag addRake generalization $node1359 $node1347 1648.0 928.0 1712.0 1008.0 968.0] set conn1414 [$node1343 getInConn] set segm1415 [$conn1414 getFirstSegm] set conn1416 [$node1343 getFirstOutConn] set segm1417 [$conn1416 getFirstSegm] set conn1418 [$diag addConn generalization_conn $node1343 $node1353 1658.0 968.5 1584.0 1008.0] set segm1419 [$conn1418 getFirstSegm] set node1344 [$diag addRake generalization $node1345 $node1348 1248.0 832.0 2080.0 912.0 872.0] set conn1420 [$node1344 getInConn] set segm1421 [$conn1420 getFirstSegm] set conn1422 [$node1344 getFirstOutConn] set segm1423 [$conn1422 getFirstSegm] set conn1424 [$diag addConn generalization_conn $node1344 $node1351 1248.0 872.5 1920.0 912.0] set segm1425 [$conn1424 getFirstSegm] set conn1426 [$diag addConn generalization_conn $node1344 $node1359 1248.0 872.5 1648.0 912.0] set segm1427 [$conn1426 getFirstSegm] set conn1428 [$diag addConn generalization_conn $node1344 $node1354 1248.0 872.5 1248.0 912.0] set segm1429 [$conn1428 getFirstSegm] set conn1430 [$diag addConn generalization_conn $node1344 $node1363 1248.0 872.5 992.0 912.0] set segm1431 [$conn1430 getFirstSegm] set conn1432 [$diag addConn generalization_conn $node1344 $node1356 1258.0 872.5 864.0 912.0] set segm1433 [$conn1432 getFirstSegm] set node1364 [$diag addRake generalization $node1379 $node1369 1792.0 1424.0 2080.0 1520.0 1464.0] set conn1434 [$node1364 getInConn] set segm1435 [$conn1434 getFirstSegm] set conn1436 [$node1364 getFirstOutConn] set segm1437 [$conn1436 getFirstSegm] set conn1438 [$diag addConn generalization_conn $node1364 $node1374 1792.0 1464.5 1968.0 1520.0] set segm1439 [$conn1438 getFirstSegm] set conn1440 [$diag addConn generalization_conn $node1364 $node1367 1792.0 1464.5 1808.0 1520.0] set segm1441 [$conn1440 getFirstSegm] set conn1442 [$diag addConn generalization_conn $node1364 $node1377 1792.0 1464.5 1664.0 1520.0] set segm1443 [$conn1442 getFirstSegm] set conn1444 [$diag addConn generalization_conn $node1364 $node1382 1802.0 1464.5 1520.0 1520.0] set segm1445 [$conn1444 getFirstSegm] set node1365 [$diag addRake generalization $node1372 $node1379 1648.0 1328.0 1792.0 1408.0 1360.0] set conn1446 [$node1365 getInConn] set segm1447 [$conn1446 getFirstSegm] set conn1448 [$node1365 getFirstOutConn] set segm1449 [$conn1448 getFirstSegm] set conn1450 [$diag addConn generalization_conn $node1365 $node1378 1648.0 1360.5 1648.0 1408.0] set segm1451 [$conn1450 getFirstSegm] set conn1452 [$diag addConn generalization_conn $node1365 $node1380 1648.0 1360.5 1504.0 1392.0] set segm1453 [$conn1452 getFirstSegm] set node1366 [$diag addRake generalization $node1368 $node1370 1424.0 1248.0 1936.0 1312.0 1272.0] set conn1454 [$node1366 getInConn] set segm1455 [$conn1454 getFirstSegm] set conn1456 [$node1366 getFirstOutConn] set segm1457 [$conn1456 getFirstSegm] set conn1458 [$diag addConn generalization_conn $node1366 $node1371 1648.0 1272.5 1792.0 1312.0] set segm1459 [$conn1458 getFirstSegm] set conn1460 [$diag addConn generalization_conn $node1366 $node1372 1648.0 1272.5 1648.0 1312.0] set segm1461 [$conn1460 getFirstSegm] set conn1462 [$diag addConn generalization_conn $node1366 $node1373 1504.0 1272.5 1504.0 1312.0] set segm1463 [$conn1462 getFirstSegm] set conn1464 [$diag addConn generalization_conn $node1366 $node1375 1504.0 1272.5 1360.0 1312.0] set segm1465 [$conn1464 getFirstSegm] set conn1466 [$diag addConn generalization_conn $node1366 $node1376 1504.0 1272.5 1216.0 1312.0] set segm1467 [$conn1466 getFirstSegm] set conn1468 [$diag addConn generalization_conn $node1366 $node1381 1504.0 1272.5 1056.0 1312.0] set segm1469 [$conn1468 getFirstSegm] set conn1470 [$diag addConn generalization_conn $node1366 $node1383 1434.0 1272.5 912.0 1312.0] set segm1471 [$conn1470 getFirstSegm] $diag save # Generator: et.tcl /main/hindenburg/19 # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl # Interpreter to use: Otsh V6.1.1/B1 # OTShRegister::importTool set diag [CAD new ExtCtrlsTypes "DelphiVCL" "" "" "" "" "" 1] $diag save # Generator: et.tcl /main/hindenburg/19 # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl # Interpreter to use: Otsh V6.1.1/B1 # OTShRegister::importTool set diag [CDM new TCustomPanel "DelphiVCL" "" "" "" "" "" 1] set row1472 [$diag addRow method 0.0] $row1472 setLabel "name_type" "Resize ()" $row1472 setProp "has_parmlist" "1" $row1472 setProp "is_event" "1" set cell1473 [$row1472 addCell parameter 0.0] $cell1473 setLabel "name_type" "Sender: TObject" $cell1473 setScope "name_type" "cl" "scopePhase" $cell1473 setProp "is_vcl" "1" "name_type" "cl" $cell1473 setProp "libunit" "System" "name_type" "cl" $cell1473 setScope "name_type" "de" "scopeSystem" $diag save # Generator: et.tcl /main/hindenburg/19 # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl # Interpreter to use: Otsh V6.1.1/B1 # OTShRegister::importTool set diag [CDM new THeader "DelphiVCL" "" "" "" "" "" 1] set row1474 [$diag addRow method 0.0] $row1474 setLabel "name_type" "Enter ()\n" $row1474 setProp "has_parmlist" "1" $row1474 setProp "is_event" "1" set cell1475 [$row1474 addCell parameter 0.0] $cell1475 setLabel "name_type" "Sender: TObject" $cell1475 setScope "name_type" "cl" "scopePhase" $cell1475 setProp "is_vcl" "1" "name_type" "cl" $cell1475 setProp "libunit" "System" "name_type" "cl" $cell1475 setScope "name_type" "de" "scopeSystem" set row1476 [$diag addRow method 0.0] $row1476 setLabel "name_type" "Exit ()\n" $row1476 setProp "has_parmlist" "1" $row1476 setProp "is_event" "1" set cell1477 [$row1476 addCell parameter 0.0] $cell1477 setLabel "name_type" "Sender: TObject" $cell1477 setScope "name_type" "cl" "scopePhase" $cell1477 setProp "is_vcl" "1" "name_type" "cl" $cell1477 setProp "libunit" "System" "name_type" "cl" $cell1477 setScope "name_type" "de" "scopeSystem" set row1478 [$diag addRow method 0.0] $row1478 setLabel "name_type" "Sized ()\n" $row1478 setProp "has_parmlist" "1" set cell1479 [$row1478 addCell parameter 0.0] $cell1479 setLabel "name_type" "Sender: TObject, " $cell1479 setScope "name_type" "cl" "scopePhase" $cell1479 setProp "is_vcl" "1" "name_type" "cl" $cell1479 setProp "libunit" "System" "name_type" "cl" $cell1479 setScope "name_type" "de" "scopeSystem" set cell1480 [$row1478 addCell parameter 0.0] $cell1480 setLabel "name_type" "ASection: int, " $cell1480 setScope "name_type" "cl" "scopePhase" $cell1480 setScope "name_type" "de" "scopeSystem" set cell1481 [$row1478 addCell parameter 0.0] $cell1481 setLabel "name_type" "AWidth: int" $cell1481 setScope "name_type" "cl" "scopePhase" $cell1481 setScope "name_type" "de" "scopeSystem" set row1482 [$diag addRow method 0.0] $row1482 setLabel "name_type" "Sizing ()" $row1482 setProp "has_parmlist" "1" $row1482 setProp "is_event" "1" set cell1483 [$row1482 addCell parameter 0.0] $cell1483 setLabel "name_type" "Sender: TObject, " $cell1483 setScope "name_type" "cl" "scopePhase" $cell1483 setProp "is_vcl" "1" "name_type" "cl" $cell1483 setProp "libunit" "System" "name_type" "cl" $cell1483 setScope "name_type" "de" "scopeSystem" set cell1484 [$row1482 addCell parameter 0.0] $cell1484 setLabel "name_type" "ASection: int, " $cell1484 setScope "name_type" "cl" "scopePhase" $cell1484 setScope "name_type" "de" "scopeSystem" set cell1485 [$row1482 addCell parameter 0.0] $cell1485 setLabel "name_type" "AWidth: int" $cell1485 setScope "name_type" "cl" "scopePhase" $cell1485 setScope "name_type" "de" "scopeSystem" $diag save # Generator: et.tcl /main/hindenburg/19 # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl # Interpreter to use: Otsh V6.1.1/B1 # OTShRegister::importTool set diag [CDM new TImage "DelphiVCL" "" "" "" "" "" 1] set row1486 [$diag addRow method 0.0] $row1486 setLabel "name_type" "Click()\n" $row1486 setProp "has_parmlist" "1" $row1486 setProp "is_event" "1" set cell1487 [$row1486 addCell parameter 0.0] $cell1487 setLabel "name_type" "Sender: TObject" $cell1487 setScope "name_type" "cl" "scopePhase" $cell1487 setProp "is_vcl" "1" "name_type" "cl" $cell1487 setProp "libunit" "System" "name_type" "cl" $cell1487 setScope "name_type" "de" "scopeSystem" set row1488 [$diag addRow method 0.0] $row1488 setLabel "name_type" "DblClick()\n" $row1488 setProp "has_parmlist" "1" $row1488 setProp "is_event" "1" set cell1489 [$row1488 addCell parameter 0.0] $cell1489 setLabel "name_type" "Sender: TObject" $cell1489 setScope "name_type" "cl" "scopePhase" $cell1489 setProp "is_vcl" "1" "name_type" "cl" $cell1489 setProp "libunit" "System" "name_type" "cl" $cell1489 setScope "name_type" "de" "scopeSystem" set row1490 [$diag addRow method 0.0] $row1490 setLabel "name_type" "DragDrop()\n" $row1490 setProp "has_parmlist" "1" $row1490 setProp "is_event" "1" set cell1491 [$row1490 addCell parameter 0.0] $cell1491 setLabel "name_type" "Sender: TObject, " $cell1491 setScope "name_type" "cl" "scopePhase" $cell1491 setProp "is_vcl" "1" "name_type" "cl" $cell1491 setProp "libunit" "System" "name_type" "cl" $cell1491 setScope "name_type" "de" "scopeSystem" set cell1492 [$row1490 addCell parameter 0.0] $cell1492 setLabel "name_type" "Source: TObject, " $cell1492 setScope "name_type" "cl" "scopePhase" $cell1492 setProp "is_vcl" "1" "name_type" "cl" $cell1492 setProp "libunit" "System" "name_type" "cl" $cell1492 setScope "name_type" "de" "scopeSystem" set cell1493 [$row1490 addCell parameter 0.0] $cell1493 setLabel "name_type" "X: int, " $cell1493 setScope "name_type" "cl" "scopePhase" $cell1493 setScope "name_type" "de" "scopeSystem" set cell1494 [$row1490 addCell parameter 0.0] $cell1494 setLabel "name_type" "Y: int" $cell1494 setScope "name_type" "cl" "scopePhase" $cell1494 setScope "name_type" "de" "scopeSystem" set row1495 [$diag addRow method 0.0] $row1495 setLabel "name_type" "DragOver()\n" $row1495 setProp "has_parmlist" "1" $row1495 setProp "is_event" "1" set cell1496 [$row1495 addCell parameter 0.0] $cell1496 setLabel "name_type" "Sender: TObject, " $cell1496 setScope "name_type" "cl" "scopePhase" $cell1496 setProp "is_vcl" "1" "name_type" "cl" $cell1496 setProp "libunit" "System" "name_type" "cl" $cell1496 setScope "name_type" "de" "scopeSystem" set cell1497 [$row1495 addCell parameter 0.0] $cell1497 setLabel "name_type" "Source: TObject, " $cell1497 setScope "name_type" "cl" "scopePhase" $cell1497 setProp "is_vcl" "1" "name_type" "cl" $cell1497 setProp "libunit" "System" "name_type" "cl" $cell1497 setScope "name_type" "de" "scopeSystem" set cell1498 [$row1495 addCell parameter 0.0] $cell1498 setLabel "name_type" "X: int, " $cell1498 setScope "name_type" "cl" "scopePhase" $cell1498 setScope "name_type" "de" "scopeSystem" set cell1499 [$row1495 addCell parameter 0.0] $cell1499 setLabel "name_type" "Y: int, " $cell1499 setScope "name_type" "cl" "scopePhase" $cell1499 setScope "name_type" "de" "scopeSystem" set cell1500 [$row1495 addCell parameter 0.0] $cell1500 setLabel "name_type" "State: TDragState, " $cell1500 setScope "name_type" "cl" "scopePhase" $cell1500 setProp "is_vcl" "1" "name_type" "cl" $cell1500 setProp "libunit" "Controls" "name_type" "cl" $cell1500 setScope "name_type" "de" "scopeSystem" set cell1501 [$row1495 addCell parameter 0.0] $cell1501 setLabel "name_type" "Accept: bool" $cell1501 setProp "pass_by" "Variable" $cell1501 setScope "name_type" "cl" "scopePhase" $cell1501 setScope "name_type" "de" "scopeSystem" set row1502 [$diag addRow method 0.0] $row1502 setLabel "name_type" "EndDrag()\n" $row1502 setProp "has_parmlist" "1" set cell1503 [$row1502 addCell parameter 0.0] $cell1503 setLabel "name_type" "Sender: TObject, " $cell1503 setScope "name_type" "cl" "scopePhase" $cell1503 setProp "is_vcl" "1" "name_type" "cl" $cell1503 setProp "libunit" "System" "name_type" "cl" $cell1503 setScope "name_type" "de" "scopeSystem" set cell1504 [$row1502 addCell parameter 0.0] $cell1504 setLabel "name_type" "Source: TObject, " $cell1504 setScope "name_type" "cl" "scopePhase" $cell1504 setProp "is_vcl" "1" "name_type" "cl" $cell1504 setProp "libunit" "System" "name_type" "cl" $cell1504 setScope "name_type" "de" "scopeSystem" set cell1505 [$row1502 addCell parameter 0.0] $cell1505 setLabel "name_type" "X: int, " $cell1505 setScope "name_type" "cl" "scopePhase" $cell1505 setScope "name_type" "de" "scopeSystem" set cell1506 [$row1502 addCell parameter 0.0] $cell1506 setLabel "name_type" "Y: int" $cell1506 setScope "name_type" "cl" "scopePhase" $cell1506 setScope "name_type" "de" "scopeSystem" set row1507 [$diag addRow method 0.0] $row1507 setLabel "name_type" "MouseDown()\n" $row1507 setProp "has_parmlist" "1" $row1507 setProp "is_event" "1" set cell1508 [$row1507 addCell parameter 0.0] $cell1508 setLabel "name_type" "Sender: TObject, " $cell1508 setScope "name_type" "cl" "scopePhase" $cell1508 setProp "is_vcl" "1" "name_type" "cl" $cell1508 setProp "libunit" "System" "name_type" "cl" $cell1508 setScope "name_type" "de" "scopeSystem" set cell1509 [$row1507 addCell parameter 0.0] $cell1509 setLabel "name_type" "Button: TMouseButton, " $cell1509 setScope "name_type" "cl" "scopePhase" $cell1509 setProp "is_vcl" "1" "name_type" "cl" $cell1509 setProp "libunit" "Controls" "name_type" "cl" $cell1509 setScope "name_type" "de" "scopeSystem" set cell1510 [$row1507 addCell parameter 0.0] $cell1510 setLabel "name_type" "Shift: TShiftState, " $cell1510 setScope "name_type" "cl" "scopePhase" $cell1510 setProp "is_vcl" "1" "name_type" "cl" $cell1510 setProp "libunit" "Classes" "name_type" "cl" $cell1510 setScope "name_type" "de" "scopeSystem" set cell1511 [$row1507 addCell parameter 0.0] $cell1511 setLabel "name_type" "X: int, " $cell1511 setScope "name_type" "cl" "scopePhase" $cell1511 setScope "name_type" "de" "scopeSystem" set cell1512 [$row1507 addCell parameter 0.0] $cell1512 setLabel "name_type" "Y: int" $cell1512 setScope "name_type" "cl" "scopePhase" $cell1512 setScope "name_type" "de" "scopeSystem" set row1513 [$diag addRow method 0.0] $row1513 setLabel "name_type" "MouseMove()\n" $row1513 setProp "has_parmlist" "1" $row1513 setProp "is_event" "1" set cell1514 [$row1513 addCell parameter 0.0] $cell1514 setLabel "name_type" "Sender: TObject, " $cell1514 setScope "name_type" "cl" "scopePhase" $cell1514 setProp "is_vcl" "1" "name_type" "cl" $cell1514 setProp "libunit" "System" "name_type" "cl" $cell1514 setScope "name_type" "de" "scopeSystem" set cell1515 [$row1513 addCell parameter 0.0] $cell1515 setLabel "name_type" "Shift: TShiftState, " $cell1515 setScope "name_type" "cl" "scopePhase" $cell1515 setProp "is_vcl" "1" "name_type" "cl" $cell1515 setProp "libunit" "Classes" "name_type" "cl" $cell1515 setScope "name_type" "de" "scopeSystem" set cell1516 [$row1513 addCell parameter 0.0] $cell1516 setLabel "name_type" "X: int, " $cell1516 setScope "name_type" "cl" "scopePhase" $cell1516 setScope "name_type" "de" "scopeSystem" set cell1517 [$row1513 addCell parameter 0.0] $cell1517 setLabel "name_type" "Y: int" $cell1517 setScope "name_type" "cl" "scopePhase" $cell1517 setScope "name_type" "de" "scopeSystem" set row1518 [$diag addRow method 0.0] $row1518 setLabel "name_type" "MouseUp()\n" $row1518 setProp "has_parmlist" "1" $row1518 setProp "is_event" "1" set cell1519 [$row1518 addCell parameter 0.0] $cell1519 setLabel "name_type" "Sender: TObject, " $cell1519 setScope "name_type" "cl" "scopePhase" $cell1519 setProp "is_vcl" "1" "name_type" "cl" $cell1519 setProp "libunit" "System" "name_type" "cl" $cell1519 setScope "name_type" "de" "scopeSystem" set cell1520 [$row1518 addCell parameter 0.0] $cell1520 setLabel "name_type" "Button: TMouseButton, " $cell1520 setScope "name_type" "cl" "scopePhase" $cell1520 setProp "is_vcl" "1" "name_type" "cl" $cell1520 setProp "libunit" "Controls" "name_type" "cl" $cell1520 setScope "name_type" "de" "scopeSystem" set cell1521 [$row1518 addCell parameter 0.0] $cell1521 setLabel "name_type" "Shift: TShiftState, " $cell1521 setScope "name_type" "cl" "scopePhase" $cell1521 setProp "is_vcl" "1" "name_type" "cl" $cell1521 setProp "libunit" "Classes" "name_type" "cl" $cell1521 setScope "name_type" "de" "scopeSystem" set cell1522 [$row1518 addCell parameter 0.0] $cell1522 setLabel "name_type" "X: int, " $cell1522 setScope "name_type" "cl" "scopePhase" $cell1522 setScope "name_type" "de" "scopeSystem" set cell1523 [$row1518 addCell parameter 0.0] $cell1523 setLabel "name_type" "Y: int" $cell1523 setScope "name_type" "cl" "scopePhase" $cell1523 setScope "name_type" "de" "scopeSystem" set row1524 [$diag addRow method 0.0] $row1524 setLabel "name_type" "StartDrag()" $row1524 setProp "has_parmlist" "1" $row1524 setProp "is_event" "1" set cell1525 [$row1524 addCell parameter 0.0] $cell1525 setLabel "name_type" "Sender: TObject, " $cell1525 setScope "name_type" "cl" "scopePhase" $cell1525 setProp "is_vcl" "1" "name_type" "cl" $cell1525 setProp "libunit" "System" "name_type" "cl" $cell1525 setScope "name_type" "de" "scopeSystem" set cell1526 [$row1524 addCell parameter 0.0] $cell1526 setLabel "name_type" "DragObject: TDragObject" $cell1526 setProp "pass_by" "Variable" $cell1526 setScope "name_type" "cl" "scopePhase" $cell1526 setProp "is_vcl" "1" "name_type" "cl" $cell1526 setProp "libunit" "Controls" "name_type" "cl" $cell1526 setScope "name_type" "de" "scopeSystem" $diag save # Generator: et.tcl /main/hindenburg/19 # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl # Interpreter to use: Otsh V6.1.1/B1 # OTShRegister::importTool set diag [CDM new TNotebook "DelphiVCL" "" "" "" "" "" 1] set row1527 [$diag addRow method 0.0] $row1527 setLabel "name_type" "Click()\n" $row1527 setProp "has_parmlist" "1" $row1527 setProp "is_event" "1" set cell1528 [$row1527 addCell parameter 0.0] $cell1528 setLabel "name_type" "Sender: TObject" $cell1528 setScope "name_type" "cl" "scopePhase" $cell1528 setProp "is_vcl" "1" "name_type" "cl" $cell1528 setProp "libunit" "System" "name_type" "cl" $cell1528 setScope "name_type" "de" "scopeSystem" set row1529 [$diag addRow method 0.0] $row1529 setLabel "name_type" "DblClick()\n" $row1529 setProp "has_parmlist" "1" $row1529 setProp "is_event" "1" set cell1530 [$row1529 addCell parameter 0.0] $cell1530 setLabel "name_type" "Sender: TObject" $cell1530 setScope "name_type" "cl" "scopePhase" $cell1530 setProp "is_vcl" "1" "name_type" "cl" $cell1530 setProp "libunit" "System" "name_type" "cl" $cell1530 setScope "name_type" "de" "scopeSystem" set row1531 [$diag addRow method 0.0] $row1531 setLabel "name_type" "DragDrop()\n" $row1531 setProp "has_parmlist" "1" $row1531 setProp "is_event" "1" set cell1532 [$row1531 addCell parameter 0.0] $cell1532 setLabel "name_type" "Sender: TObject, " $cell1532 setScope "name_type" "cl" "scopePhase" $cell1532 setProp "is_vcl" "1" "name_type" "cl" $cell1532 setProp "libunit" "System" "name_type" "cl" $cell1532 setScope "name_type" "de" "scopeSystem" set cell1533 [$row1531 addCell parameter 0.0] $cell1533 setLabel "name_type" "Source: TObject, " $cell1533 setScope "name_type" "cl" "scopePhase" $cell1533 setProp "is_vcl" "1" "name_type" "cl" $cell1533 setProp "libunit" "System" "name_type" "cl" $cell1533 setScope "name_type" "de" "scopeSystem" set cell1534 [$row1531 addCell parameter 0.0] $cell1534 setLabel "name_type" "X: int, " $cell1534 setScope "name_type" "cl" "scopePhase" $cell1534 setScope "name_type" "de" "scopeSystem" set cell1535 [$row1531 addCell parameter 0.0] $cell1535 setLabel "name_type" "Y: int" $cell1535 setScope "name_type" "cl" "scopePhase" $cell1535 setScope "name_type" "de" "scopeSystem" set row1536 [$diag addRow method 0.0] $row1536 setLabel "name_type" "DragOver()\n" $row1536 setProp "has_parmlist" "1" $row1536 setProp "is_event" "1" set cell1537 [$row1536 addCell parameter 0.0] $cell1537 setLabel "name_type" "Sender: TObject, " $cell1537 setScope "name_type" "cl" "scopePhase" $cell1537 setProp "is_vcl" "1" "name_type" "cl" $cell1537 setProp "libunit" "System" "name_type" "cl" $cell1537 setScope "name_type" "de" "scopeSystem" set cell1538 [$row1536 addCell parameter 0.0] $cell1538 setLabel "name_type" "Source: TObject, " $cell1538 setScope "name_type" "cl" "scopePhase" $cell1538 setProp "is_vcl" "1" "name_type" "cl" $cell1538 setProp "libunit" "System" "name_type" "cl" $cell1538 setScope "name_type" "de" "scopeSystem" set cell1539 [$row1536 addCell parameter 0.0] $cell1539 setLabel "name_type" "X: int, " $cell1539 setScope "name_type" "cl" "scopePhase" $cell1539 setScope "name_type" "de" "scopeSystem" set cell1540 [$row1536 addCell parameter 0.0] $cell1540 setLabel "name_type" "Y: int, " $cell1540 setScope "name_type" "cl" "scopePhase" $cell1540 setScope "name_type" "de" "scopeSystem" set cell1541 [$row1536 addCell parameter 0.0] $cell1541 setLabel "name_type" "State: TDragState, " $cell1541 setScope "name_type" "cl" "scopePhase" $cell1541 setProp "is_vcl" "1" "name_type" "cl" $cell1541 setProp "libunit" "Controls" "name_type" "cl" $cell1541 setScope "name_type" "de" "scopeSystem" set cell1542 [$row1536 addCell parameter 0.0] $cell1542 setLabel "name_type" "Accept: bool" $cell1542 setProp "pass_by" "Variable" $cell1542 setScope "name_type" "cl" "scopePhase" $cell1542 setScope "name_type" "de" "scopeSystem" set row1543 [$diag addRow method 0.0] $row1543 setLabel "name_type" "EndDrag()\n" $row1543 setProp "has_parmlist" "1" $row1543 setProp "is_event" "1" set cell1544 [$row1543 addCell parameter 0.0] $cell1544 setLabel "name_type" "Sender: TObject, " $cell1544 setScope "name_type" "cl" "scopePhase" $cell1544 setProp "is_vcl" "1" "name_type" "cl" $cell1544 setProp "libunit" "System" "name_type" "cl" $cell1544 setScope "name_type" "de" "scopeSystem" set cell1545 [$row1543 addCell parameter 0.0] $cell1545 setLabel "name_type" "Source: TObject, " $cell1545 setScope "name_type" "cl" "scopePhase" $cell1545 setProp "is_vcl" "1" "name_type" "cl" $cell1545 setProp "libunit" "System" "name_type" "cl" $cell1545 setScope "name_type" "de" "scopeSystem" set cell1546 [$row1543 addCell parameter 0.0] $cell1546 setLabel "name_type" "X: int, " $cell1546 setScope "name_type" "cl" "scopePhase" $cell1546 setScope "name_type" "de" "scopeSystem" set cell1547 [$row1543 addCell parameter 0.0] $cell1547 setLabel "name_type" "Y: int" $cell1547 setScope "name_type" "cl" "scopePhase" $cell1547 setScope "name_type" "de" "scopeSystem" set row1548 [$diag addRow method 0.0] $row1548 setLabel "name_type" "Enter()\n" $row1548 setProp "has_parmlist" "1" $row1548 setProp "is_event" "1" set cell1549 [$row1548 addCell parameter 0.0] $cell1549 setLabel "name_type" "Sender: TObject" $cell1549 setScope "name_type" "cl" "scopePhase" $cell1549 setProp "is_vcl" "1" "name_type" "cl" $cell1549 setProp "libunit" "System" "name_type" "cl" $cell1549 setScope "name_type" "de" "scopeSystem" set row1550 [$diag addRow method 0.0] $row1550 setLabel "name_type" "Exit()\n" $row1550 setProp "has_parmlist" "1" $row1550 setProp "is_event" "1" set cell1551 [$row1550 addCell parameter 0.0] $cell1551 setLabel "name_type" "Sender: TObject" $cell1551 setScope "name_type" "cl" "scopePhase" $cell1551 setProp "is_vcl" "1" "name_type" "cl" $cell1551 setProp "libunit" "System" "name_type" "cl" $cell1551 setScope "name_type" "de" "scopeSystem" set row1552 [$diag addRow method 0.0] $row1552 setLabel "name_type" "MouseDown()\n" $row1552 setProp "has_parmlist" "1" $row1552 setProp "is_event" "1" set cell1553 [$row1552 addCell parameter 0.0] $cell1553 setLabel "name_type" "Sender: TObject, " $cell1553 setScope "name_type" "cl" "scopePhase" $cell1553 setProp "is_vcl" "1" "name_type" "cl" $cell1553 setProp "libunit" "System" "name_type" "cl" $cell1553 setScope "name_type" "de" "scopeSystem" set cell1554 [$row1552 addCell parameter 0.0] $cell1554 setLabel "name_type" "Button: TMouseButton, " $cell1554 setScope "name_type" "cl" "scopePhase" $cell1554 setProp "is_vcl" "1" "name_type" "cl" $cell1554 setProp "libunit" "Controls" "name_type" "cl" $cell1554 setScope "name_type" "de" "scopeSystem" set cell1555 [$row1552 addCell parameter 0.0] $cell1555 setLabel "name_type" "Shift: TShiftState, " $cell1555 setScope "name_type" "cl" "scopePhase" $cell1555 setProp "is_vcl" "1" "name_type" "cl" $cell1555 setProp "libunit" "Classes" "name_type" "cl" $cell1555 setScope "name_type" "de" "scopeSystem" set cell1556 [$row1552 addCell parameter 0.0] $cell1556 setLabel "name_type" "X: int, " $cell1556 setScope "name_type" "cl" "scopePhase" $cell1556 setScope "name_type" "de" "scopeSystem" set cell1557 [$row1552 addCell parameter 0.0] $cell1557 setLabel "name_type" "Y: int" $cell1557 setScope "name_type" "cl" "scopePhase" $cell1557 setScope "name_type" "de" "scopeSystem" set row1558 [$diag addRow method 0.0] $row1558 setLabel "name_type" "MouseMove()\n" $row1558 setProp "has_parmlist" "1" $row1558 setProp "is_event" "1" set cell1559 [$row1558 addCell parameter 0.0] $cell1559 setLabel "name_type" "Sender: TObject, " $cell1559 setScope "name_type" "cl" "scopePhase" $cell1559 setProp "is_vcl" "1" "name_type" "cl" $cell1559 setProp "libunit" "System" "name_type" "cl" $cell1559 setScope "name_type" "de" "scopeSystem" set cell1560 [$row1558 addCell parameter 0.0] $cell1560 setLabel "name_type" "Shift: TShiftState, " $cell1560 setScope "name_type" "cl" "scopePhase" $cell1560 setProp "is_vcl" "1" "name_type" "cl" $cell1560 setProp "libunit" "Classes" "name_type" "cl" $cell1560 setScope "name_type" "de" "scopeSystem" set cell1561 [$row1558 addCell parameter 0.0] $cell1561 setLabel "name_type" "X: int, " $cell1561 setScope "name_type" "cl" "scopePhase" $cell1561 setScope "name_type" "de" "scopeSystem" set cell1562 [$row1558 addCell parameter 0.0] $cell1562 setLabel "name_type" "Y: int" $cell1562 setScope "name_type" "cl" "scopePhase" $cell1562 setScope "name_type" "de" "scopeSystem" set row1563 [$diag addRow method 0.0] $row1563 setLabel "name_type" "MouseUp()\n" $row1563 setProp "has_parmlist" "1" $row1563 setProp "is_event" "1" set cell1564 [$row1563 addCell parameter 0.0] $cell1564 setLabel "name_type" "Sender: TObject, " $cell1564 setScope "name_type" "cl" "scopePhase" $cell1564 setProp "is_vcl" "1" "name_type" "cl" $cell1564 setProp "libunit" "System" "name_type" "cl" $cell1564 setScope "name_type" "de" "scopeSystem" set cell1565 [$row1563 addCell parameter 0.0] $cell1565 setLabel "name_type" "Button: TMouseButton, " $cell1565 setScope "name_type" "cl" "scopePhase" $cell1565 setProp "is_vcl" "1" "name_type" "cl" $cell1565 setProp "libunit" "Controls" "name_type" "cl" $cell1565 setScope "name_type" "de" "scopeSystem" set cell1566 [$row1563 addCell parameter 0.0] $cell1566 setLabel "name_type" "Shift: TShiftState, " $cell1566 setScope "name_type" "cl" "scopePhase" $cell1566 setProp "is_vcl" "1" "name_type" "cl" $cell1566 setProp "libunit" "Classes" "name_type" "cl" $cell1566 setScope "name_type" "de" "scopeSystem" set cell1567 [$row1563 addCell parameter 0.0] $cell1567 setLabel "name_type" "X: int, " $cell1567 setScope "name_type" "cl" "scopePhase" $cell1567 setScope "name_type" "de" "scopeSystem" set cell1568 [$row1563 addCell parameter 0.0] $cell1568 setLabel "name_type" "Y: int" $cell1568 setScope "name_type" "cl" "scopePhase" $cell1568 setScope "name_type" "de" "scopeSystem" set row1569 [$diag addRow method 0.0] $row1569 setLabel "name_type" "PageChanged()\n" $row1569 setProp "has_parmlist" "1" $row1569 setProp "is_event" "1" set cell1570 [$row1569 addCell parameter 0.0] $cell1570 setLabel "name_type" "Sender: TObject" $cell1570 setScope "name_type" "cl" "scopePhase" $cell1570 setProp "is_vcl" "1" "name_type" "cl" $cell1570 setProp "libunit" "System" "name_type" "cl" $cell1570 setScope "name_type" "de" "scopeSystem" set row1571 [$diag addRow method 0.0] $row1571 setLabel "name_type" "StartDrag()" $row1571 setProp "has_parmlist" "1" $row1571 setProp "is_event" "1" set cell1572 [$row1571 addCell parameter 0.0] $cell1572 setLabel "name_type" "Sender: TObject, " $cell1572 setScope "name_type" "cl" "scopePhase" $cell1572 setProp "is_vcl" "1" "name_type" "cl" $cell1572 setProp "libunit" "System" "name_type" "cl" $cell1572 setScope "name_type" "de" "scopeSystem" set cell1573 [$row1571 addCell parameter 0.0] $cell1573 setLabel "name_type" "DragObject: TDragObject" $cell1573 setProp "pass_by" "Variable" $cell1573 setScope "name_type" "cl" "scopePhase" $cell1573 setProp "is_vcl" "1" "name_type" "cl" $cell1573 setProp "libunit" "Controls" "name_type" "cl" $cell1573 setScope "name_type" "de" "scopeSystem" $diag save # Generator: et.tcl /main/hindenburg/19 # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl # Interpreter to use: Otsh V6.1.1/B1 # OTShRegister::importTool set diag [CDM new TPanel "DelphiVCL" "" "" "" "" "" 1] set row1574 [$diag addRow method 0.0] $row1574 setLabel "name_type" "Click()\n" $row1574 setProp "has_parmlist" "1" $row1574 setProp "is_event" "1" set cell1575 [$row1574 addCell parameter 0.0] $cell1575 setLabel "name_type" "Sender: TObject" $cell1575 setScope "name_type" "cl" "scopePhase" $cell1575 setProp "is_vcl" "1" "name_type" "cl" $cell1575 setProp "libunit" "System" "name_type" "cl" $cell1575 setScope "name_type" "de" "scopeSystem" set row1576 [$diag addRow method 0.0] $row1576 setLabel "name_type" "DblClick()\n" $row1576 setProp "has_parmlist" "1" $row1576 setProp "is_event" "1" set cell1577 [$row1576 addCell parameter 0.0] $cell1577 setLabel "name_type" "Sender: TObject" $cell1577 setScope "name_type" "cl" "scopePhase" $cell1577 setProp "is_vcl" "1" "name_type" "cl" $cell1577 setProp "libunit" "System" "name_type" "cl" $cell1577 setScope "name_type" "de" "scopeSystem" set row1578 [$diag addRow method 0.0] $row1578 setLabel "name_type" "DragDrop()\n" $row1578 setProp "has_parmlist" "1" $row1578 setProp "is_event" "1" set cell1579 [$row1578 addCell parameter 0.0] $cell1579 setLabel "name_type" "Sender: TObject, " $cell1579 setScope "name_type" "cl" "scopePhase" $cell1579 setProp "is_vcl" "1" "name_type" "cl" $cell1579 setProp "libunit" "System" "name_type" "cl" $cell1579 setScope "name_type" "de" "scopeSystem" set cell1580 [$row1578 addCell parameter 0.0] $cell1580 setLabel "name_type" "Source: TObject, " $cell1580 setScope "name_type" "cl" "scopePhase" $cell1580 setProp "is_vcl" "1" "name_type" "cl" $cell1580 setProp "libunit" "System" "name_type" "cl" $cell1580 setScope "name_type" "de" "scopeSystem" set cell1581 [$row1578 addCell parameter 0.0] $cell1581 setLabel "name_type" "X: int, " $cell1581 setScope "name_type" "cl" "scopePhase" $cell1581 setScope "name_type" "de" "scopeSystem" set cell1582 [$row1578 addCell parameter 0.0] $cell1582 setLabel "name_type" "Y: int" $cell1582 setScope "name_type" "cl" "scopePhase" $cell1582 setScope "name_type" "de" "scopeSystem" set row1583 [$diag addRow method 0.0] $row1583 setLabel "name_type" "DragOver()\n" $row1583 setProp "has_parmlist" "1" $row1583 setProp "is_event" "1" set cell1584 [$row1583 addCell parameter 0.0] $cell1584 setLabel "name_type" "Sender: TObject, " $cell1584 setScope "name_type" "cl" "scopePhase" $cell1584 setProp "is_vcl" "1" "name_type" "cl" $cell1584 setProp "libunit" "System" "name_type" "cl" $cell1584 setScope "name_type" "de" "scopeSystem" set cell1585 [$row1583 addCell parameter 0.0] $cell1585 setLabel "name_type" "Source: TObject, " $cell1585 setScope "name_type" "cl" "scopePhase" $cell1585 setProp "is_vcl" "1" "name_type" "cl" $cell1585 setProp "libunit" "System" "name_type" "cl" $cell1585 setScope "name_type" "de" "scopeSystem" set cell1586 [$row1583 addCell parameter 0.0] $cell1586 setLabel "name_type" "X: int, " $cell1586 setScope "name_type" "cl" "scopePhase" $cell1586 setScope "name_type" "de" "scopeSystem" set cell1587 [$row1583 addCell parameter 0.0] $cell1587 setLabel "name_type" "Y: int, " $cell1587 setScope "name_type" "cl" "scopePhase" $cell1587 setScope "name_type" "de" "scopeSystem" set cell1588 [$row1583 addCell parameter 0.0] $cell1588 setLabel "name_type" "State: TDragState, " $cell1588 setScope "name_type" "cl" "scopePhase" $cell1588 setProp "is_vcl" "1" "name_type" "cl" $cell1588 setProp "libunit" "Controls" "name_type" "cl" $cell1588 setScope "name_type" "de" "scopeSystem" set cell1589 [$row1583 addCell parameter 0.0] $cell1589 setLabel "name_type" "Accept: bool" $cell1589 setProp "pass_by" "Variable" $cell1589 setScope "name_type" "cl" "scopePhase" $cell1589 setScope "name_type" "de" "scopeSystem" set row1590 [$diag addRow method 0.0] $row1590 setLabel "name_type" "EndDrag()\n" $row1590 setProp "has_parmlist" "1" $row1590 setProp "is_event" "1" set cell1591 [$row1590 addCell parameter 0.0] $cell1591 setLabel "name_type" "Sender: TObject, " $cell1591 setScope "name_type" "cl" "scopePhase" $cell1591 setProp "is_vcl" "1" "name_type" "cl" $cell1591 setProp "libunit" "System" "name_type" "cl" $cell1591 setScope "name_type" "de" "scopeSystem" set cell1592 [$row1590 addCell parameter 0.0] $cell1592 setLabel "name_type" "Source: TObject, " $cell1592 setScope "name_type" "cl" "scopePhase" $cell1592 setProp "is_vcl" "1" "name_type" "cl" $cell1592 setProp "libunit" "System" "name_type" "cl" $cell1592 setScope "name_type" "de" "scopeSystem" set cell1593 [$row1590 addCell parameter 0.0] $cell1593 setLabel "name_type" "X: int, " $cell1593 setScope "name_type" "cl" "scopePhase" $cell1593 setScope "name_type" "de" "scopeSystem" set cell1594 [$row1590 addCell parameter 0.0] $cell1594 setLabel "name_type" "Y: int" $cell1594 setScope "name_type" "cl" "scopePhase" $cell1594 setScope "name_type" "de" "scopeSystem" set row1595 [$diag addRow method 0.0] $row1595 setLabel "name_type" "Enter()\n" $row1595 setProp "has_parmlist" "1" $row1595 setProp "is_event" "1" set cell1596 [$row1595 addCell parameter 0.0] $cell1596 setLabel "name_type" "Sender: TObject" $cell1596 setScope "name_type" "cl" "scopePhase" $cell1596 setProp "is_vcl" "1" "name_type" "cl" $cell1596 setProp "libunit" "System" "name_type" "cl" $cell1596 setScope "name_type" "de" "scopeSystem" set row1597 [$diag addRow method 0.0] $row1597 setLabel "name_type" "Exit()\n" $row1597 setProp "has_parmlist" "1" $row1597 setProp "is_event" "1" set cell1598 [$row1597 addCell parameter 0.0] $cell1598 setLabel "name_type" "Sender: TObject" $cell1598 setScope "name_type" "cl" "scopePhase" $cell1598 setProp "is_vcl" "1" "name_type" "cl" $cell1598 setProp "libunit" "System" "name_type" "cl" $cell1598 setScope "name_type" "de" "scopeSystem" set row1599 [$diag addRow method 0.0] $row1599 setLabel "name_type" "MouseDown()\n" $row1599 setProp "has_parmlist" "1" $row1599 setProp "is_event" "1" set cell1600 [$row1599 addCell parameter 0.0] $cell1600 setLabel "name_type" "Sender: TObject, " $cell1600 setScope "name_type" "cl" "scopePhase" $cell1600 setProp "is_vcl" "1" "name_type" "cl" $cell1600 setProp "libunit" "System" "name_type" "cl" $cell1600 setScope "name_type" "de" "scopeSystem" set cell1601 [$row1599 addCell parameter 0.0] $cell1601 setLabel "name_type" "Button: TMouseButton, " $cell1601 setScope "name_type" "cl" "scopePhase" $cell1601 setProp "is_vcl" "1" "name_type" "cl" $cell1601 setProp "libunit" "Controls" "name_type" "cl" $cell1601 setScope "name_type" "de" "scopeSystem" set cell1602 [$row1599 addCell parameter 0.0] $cell1602 setLabel "name_type" "Shift: TShiftState, " $cell1602 setScope "name_type" "cl" "scopePhase" $cell1602 setProp "is_vcl" "1" "name_type" "cl" $cell1602 setProp "libunit" "Classes" "name_type" "cl" $cell1602 setScope "name_type" "de" "scopeSystem" set cell1603 [$row1599 addCell parameter 0.0] $cell1603 setLabel "name_type" "X: int, " $cell1603 setScope "name_type" "cl" "scopePhase" $cell1603 setScope "name_type" "de" "scopeSystem" set cell1604 [$row1599 addCell parameter 0.0] $cell1604 setLabel "name_type" "Y: int" $cell1604 setScope "name_type" "cl" "scopePhase" $cell1604 setScope "name_type" "de" "scopeSystem" set row1605 [$diag addRow method 0.0] $row1605 setLabel "name_type" "MouseMove()\n" $row1605 setProp "has_parmlist" "1" $row1605 setProp "is_event" "1" set cell1606 [$row1605 addCell parameter 0.0] $cell1606 setLabel "name_type" "Sender: TObject, " $cell1606 setScope "name_type" "cl" "scopePhase" $cell1606 setProp "is_vcl" "1" "name_type" "cl" $cell1606 setProp "libunit" "System" "name_type" "cl" $cell1606 setScope "name_type" "de" "scopeSystem" set cell1607 [$row1605 addCell parameter 0.0] $cell1607 setLabel "name_type" "Shift: TShiftState, " $cell1607 setScope "name_type" "cl" "scopePhase" $cell1607 setProp "is_vcl" "1" "name_type" "cl" $cell1607 setProp "libunit" "Classes" "name_type" "cl" $cell1607 setScope "name_type" "de" "scopeSystem" set cell1608 [$row1605 addCell parameter 0.0] $cell1608 setLabel "name_type" "X: int, " $cell1608 setScope "name_type" "cl" "scopePhase" $cell1608 setScope "name_type" "de" "scopeSystem" set cell1609 [$row1605 addCell parameter 0.0] $cell1609 setLabel "name_type" "Y: int" $cell1609 setScope "name_type" "cl" "scopePhase" $cell1609 setScope "name_type" "de" "scopeSystem" set row1610 [$diag addRow method 0.0] $row1610 setLabel "name_type" "MouseUp()\n" $row1610 setProp "has_parmlist" "1" $row1610 setProp "is_event" "1" set cell1611 [$row1610 addCell parameter 0.0] $cell1611 setLabel "name_type" "Sender: TObject, " $cell1611 setScope "name_type" "cl" "scopePhase" $cell1611 setProp "is_vcl" "1" "name_type" "cl" $cell1611 setProp "libunit" "System" "name_type" "cl" $cell1611 setScope "name_type" "de" "scopeSystem" set cell1612 [$row1610 addCell parameter 0.0] $cell1612 setLabel "name_type" "Button: TMouseButton, " $cell1612 setScope "name_type" "cl" "scopePhase" $cell1612 setProp "is_vcl" "1" "name_type" "cl" $cell1612 setProp "libunit" "Controls" "name_type" "cl" $cell1612 setScope "name_type" "de" "scopeSystem" set cell1613 [$row1610 addCell parameter 0.0] $cell1613 setLabel "name_type" "Shift: TShiftState, " $cell1613 setScope "name_type" "cl" "scopePhase" $cell1613 setProp "is_vcl" "1" "name_type" "cl" $cell1613 setProp "libunit" "Classes" "name_type" "cl" $cell1613 setScope "name_type" "de" "scopeSystem" set cell1614 [$row1610 addCell parameter 0.0] $cell1614 setLabel "name_type" "X: int, " $cell1614 setScope "name_type" "cl" "scopePhase" $cell1614 setScope "name_type" "de" "scopeSystem" set cell1615 [$row1610 addCell parameter 0.0] $cell1615 setLabel "name_type" "Y: int" $cell1615 setScope "name_type" "cl" "scopePhase" $cell1615 setScope "name_type" "de" "scopeSystem" set row1616 [$diag addRow method 0.0] $row1616 setLabel "name_type" "Resize()\n" $row1616 setProp "has_parmlist" "1" $row1616 setProp "is_event" "1" set cell1617 [$row1616 addCell parameter 0.0] $cell1617 setLabel "name_type" "Sender: TObject" $cell1617 setScope "name_type" "cl" "scopePhase" $cell1617 setProp "is_vcl" "1" "name_type" "cl" $cell1617 setProp "libunit" "System" "name_type" "cl" $cell1617 setScope "name_type" "de" "scopeSystem" set row1618 [$diag addRow method 0.0] $row1618 setLabel "name_type" "StartDrag()" $row1618 setProp "has_parmlist" "1" $row1618 setProp "is_event" "1" set cell1619 [$row1618 addCell parameter 0.0] $cell1619 setLabel "name_type" "Sender: TObject, " $cell1619 setScope "name_type" "cl" "scopePhase" $cell1619 setProp "is_vcl" "1" "name_type" "cl" $cell1619 setProp "libunit" "System" "name_type" "cl" $cell1619 setScope "name_type" "de" "scopeSystem" set cell1620 [$row1618 addCell parameter 0.0] $cell1620 setLabel "name_type" "DragObject: TDragObject" $cell1620 setProp "pass_by" "Variable" $cell1620 setScope "name_type" "cl" "scopePhase" $cell1620 setProp "is_vcl" "1" "name_type" "cl" $cell1620 setProp "libunit" "Controls" "name_type" "cl" $cell1620 setScope "name_type" "de" "scopeSystem" $diag save # Generator: et.tcl /main/hindenburg/19 # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl # Interpreter to use: Otsh V6.1.1/B1 # OTShRegister::importTool set diag [CDM new TRadioGroup "DelphiVCL" "" "" "" "" "" 1] set row1621 [$diag addRow method 0.0] $row1621 setLabel "name_type" "Click()\n" $row1621 setProp "has_parmlist" "1" $row1621 setProp "is_event" "1" set cell1622 [$row1621 addCell parameter 0.0] $cell1622 setLabel "name_type" "Sender: TObject" $cell1622 setScope "name_type" "cl" "scopePhase" $cell1622 setProp "is_vcl" "1" "name_type" "cl" $cell1622 setProp "libunit" "System" "name_type" "cl" $cell1622 setScope "name_type" "de" "scopeSystem" set row1623 [$diag addRow method 0.0] $row1623 setLabel "name_type" "DragDrop()\n" $row1623 setProp "has_parmlist" "1" $row1623 setProp "is_event" "1" set cell1624 [$row1623 addCell parameter 0.0] $cell1624 setLabel "name_type" "Sender: TObject, " $cell1624 setScope "name_type" "cl" "scopePhase" $cell1624 setProp "is_vcl" "1" "name_type" "cl" $cell1624 setProp "libunit" "System" "name_type" "cl" $cell1624 setScope "name_type" "de" "scopeSystem" set cell1625 [$row1623 addCell parameter 0.0] $cell1625 setLabel "name_type" "Source: TObject, " $cell1625 setScope "name_type" "cl" "scopePhase" $cell1625 setProp "is_vcl" "1" "name_type" "cl" $cell1625 setProp "libunit" "System" "name_type" "cl" $cell1625 setScope "name_type" "de" "scopeSystem" set cell1626 [$row1623 addCell parameter 0.0] $cell1626 setLabel "name_type" "X: int, " $cell1626 setScope "name_type" "cl" "scopePhase" $cell1626 setScope "name_type" "de" "scopeSystem" set cell1627 [$row1623 addCell parameter 0.0] $cell1627 setLabel "name_type" "Y: int" $cell1627 setScope "name_type" "cl" "scopePhase" $cell1627 setScope "name_type" "de" "scopeSystem" set row1628 [$diag addRow method 0.0] $row1628 setLabel "name_type" "DragOver()\n" $row1628 setProp "has_parmlist" "1" $row1628 setProp "is_event" "1" set cell1629 [$row1628 addCell parameter 0.0] $cell1629 setLabel "name_type" "Sender: TObject, " $cell1629 setScope "name_type" "cl" "scopePhase" $cell1629 setProp "is_vcl" "1" "name_type" "cl" $cell1629 setProp "libunit" "System" "name_type" "cl" $cell1629 setScope "name_type" "de" "scopeSystem" set cell1630 [$row1628 addCell parameter 0.0] $cell1630 setLabel "name_type" "Source: TObject, " $cell1630 setScope "name_type" "cl" "scopePhase" $cell1630 setProp "is_vcl" "1" "name_type" "cl" $cell1630 setProp "libunit" "System" "name_type" "cl" $cell1630 setScope "name_type" "de" "scopeSystem" set cell1631 [$row1628 addCell parameter 0.0] $cell1631 setLabel "name_type" "X: int, " $cell1631 setScope "name_type" "cl" "scopePhase" $cell1631 setScope "name_type" "de" "scopeSystem" set cell1632 [$row1628 addCell parameter 0.0] $cell1632 setLabel "name_type" "Y: int, " $cell1632 setScope "name_type" "cl" "scopePhase" $cell1632 setScope "name_type" "de" "scopeSystem" set cell1633 [$row1628 addCell parameter 0.0] $cell1633 setLabel "name_type" "State: TDragState, " $cell1633 setScope "name_type" "cl" "scopePhase" $cell1633 setProp "is_vcl" "1" "name_type" "cl" $cell1633 setProp "libunit" "Controls" "name_type" "cl" $cell1633 setScope "name_type" "de" "scopeSystem" set cell1634 [$row1628 addCell parameter 0.0] $cell1634 setLabel "name_type" "Accept: bool" $cell1634 setProp "pass_by" "Variable" $cell1634 setScope "name_type" "cl" "scopePhase" $cell1634 setScope "name_type" "de" "scopeSystem" set row1635 [$diag addRow method 0.0] $row1635 setLabel "name_type" "EndDrag()\n" $row1635 setProp "has_parmlist" "1" $row1635 setProp "is_event" "1" set cell1636 [$row1635 addCell parameter 0.0] $cell1636 setLabel "name_type" "Sender: TObject, " $cell1636 setScope "name_type" "cl" "scopePhase" $cell1636 setProp "is_vcl" "1" "name_type" "cl" $cell1636 setProp "libunit" "System" "name_type" "cl" $cell1636 setScope "name_type" "de" "scopeSystem" set cell1637 [$row1635 addCell parameter 0.0] $cell1637 setLabel "name_type" "Source: TObject, " $cell1637 setScope "name_type" "cl" "scopePhase" $cell1637 setProp "is_vcl" "1" "name_type" "cl" $cell1637 setProp "libunit" "System" "name_type" "cl" $cell1637 setScope "name_type" "de" "scopeSystem" set cell1638 [$row1635 addCell parameter 0.0] $cell1638 setLabel "name_type" "X: int, " $cell1638 setScope "name_type" "cl" "scopePhase" $cell1638 setScope "name_type" "de" "scopeSystem" set cell1639 [$row1635 addCell parameter 0.0] $cell1639 setLabel "name_type" "Y: int" $cell1639 setScope "name_type" "cl" "scopePhase" $cell1639 setScope "name_type" "de" "scopeSystem" set row1640 [$diag addRow method 0.0] $row1640 setLabel "name_type" "Enter()\n" $row1640 setProp "has_parmlist" "1" $row1640 setProp "is_event" "1" set cell1641 [$row1640 addCell parameter 0.0] $cell1641 setLabel "name_type" "Sender: TObject" $cell1641 setScope "name_type" "cl" "scopePhase" $cell1641 setProp "is_vcl" "1" "name_type" "cl" $cell1641 setProp "libunit" "System" "name_type" "cl" $cell1641 setScope "name_type" "de" "scopeSystem" set row1642 [$diag addRow method 0.0] $row1642 setLabel "name_type" "Exit()\n" $row1642 setProp "has_parmlist" "1" $row1642 setProp "is_event" "1" set cell1643 [$row1642 addCell parameter 0.0] $cell1643 setLabel "name_type" "Sender: TObject" $cell1643 setScope "name_type" "cl" "scopePhase" $cell1643 setProp "is_vcl" "1" "name_type" "cl" $cell1643 setProp "libunit" "System" "name_type" "cl" $cell1643 setScope "name_type" "de" "scopeSystem" set row1644 [$diag addRow method 0.0] $row1644 setLabel "name_type" "StartDrag()" $row1644 setProp "has_parmlist" "1" $row1644 setProp "is_event" "1" set cell1645 [$row1644 addCell parameter 0.0] $cell1645 setLabel "name_type" "Sender: TObject, " $cell1645 setScope "name_type" "cl" "scopePhase" $cell1645 setProp "is_vcl" "1" "name_type" "cl" $cell1645 setProp "libunit" "System" "name_type" "cl" $cell1645 setScope "name_type" "de" "scopeSystem" set cell1646 [$row1644 addCell parameter 0.0] $cell1646 setLabel "name_type" "DragObject: TDragObject" $cell1646 setProp "pass_by" "Variable" $cell1646 setScope "name_type" "cl" "scopePhase" $cell1646 setProp "is_vcl" "1" "name_type" "cl" $cell1646 setProp "libunit" "Controls" "name_type" "cl" $cell1646 setScope "name_type" "de" "scopeSystem" $diag save # Generator: et.tcl /main/hindenburg/19 # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl # Interpreter to use: Otsh V6.1.1/B1 # OTShRegister::importTool set diag [CDM new TShape "DelphiVCL" "" "" "" "" "" 1] set row1647 [$diag addRow method 0.0] $row1647 setLabel "name_type" "DragDrop()\n" $row1647 setProp "has_parmlist" "1" $row1647 setProp "is_event" "1" set cell1648 [$row1647 addCell parameter 0.0] $cell1648 setLabel "name_type" "Sender: TObject, " $cell1648 setScope "name_type" "cl" "scopePhase" $cell1648 setProp "is_vcl" "1" "name_type" "cl" $cell1648 setProp "libunit" "System" "name_type" "cl" $cell1648 setScope "name_type" "de" "scopeSystem" set cell1649 [$row1647 addCell parameter 0.0] $cell1649 setLabel "name_type" "Source: TObject, " $cell1649 setScope "name_type" "cl" "scopePhase" $cell1649 setProp "is_vcl" "1" "name_type" "cl" $cell1649 setProp "libunit" "System" "name_type" "cl" $cell1649 setScope "name_type" "de" "scopeSystem" set cell1650 [$row1647 addCell parameter 0.0] $cell1650 setLabel "name_type" "X: int, " $cell1650 setScope "name_type" "cl" "scopePhase" $cell1650 setScope "name_type" "de" "scopeSystem" set cell1651 [$row1647 addCell parameter 0.0] $cell1651 setLabel "name_type" "Y: int" $cell1651 setScope "name_type" "cl" "scopePhase" $cell1651 setScope "name_type" "de" "scopeSystem" set row1652 [$diag addRow method 0.0] $row1652 setLabel "name_type" "DragOver()\n" $row1652 setProp "has_parmlist" "1" $row1652 setProp "is_event" "1" set cell1653 [$row1652 addCell parameter 0.0] $cell1653 setLabel "name_type" "Sender: TObject, " $cell1653 setScope "name_type" "cl" "scopePhase" $cell1653 setProp "is_vcl" "1" "name_type" "cl" $cell1653 setProp "libunit" "System" "name_type" "cl" $cell1653 setScope "name_type" "de" "scopeSystem" set cell1654 [$row1652 addCell parameter 0.0] $cell1654 setLabel "name_type" "Source: TObject, " $cell1654 setScope "name_type" "cl" "scopePhase" $cell1654 setProp "is_vcl" "1" "name_type" "cl" $cell1654 setProp "libunit" "System" "name_type" "cl" $cell1654 setScope "name_type" "de" "scopeSystem" set cell1655 [$row1652 addCell parameter 0.0] $cell1655 setLabel "name_type" "X: int, " $cell1655 setScope "name_type" "cl" "scopePhase" $cell1655 setScope "name_type" "de" "scopeSystem" set cell1656 [$row1652 addCell parameter 0.0] $cell1656 setLabel "name_type" "Y: int, " $cell1656 setScope "name_type" "cl" "scopePhase" $cell1656 setScope "name_type" "de" "scopeSystem" set cell1657 [$row1652 addCell parameter 0.0] $cell1657 setLabel "name_type" "State: TDragState, " $cell1657 setScope "name_type" "cl" "scopePhase" $cell1657 setProp "is_vcl" "1" "name_type" "cl" $cell1657 setProp "libunit" "Controls" "name_type" "cl" $cell1657 setScope "name_type" "de" "scopeSystem" set cell1658 [$row1652 addCell parameter 0.0] $cell1658 setLabel "name_type" "Accept: bool" $cell1658 setProp "pass_by" "Variable" $cell1658 setScope "name_type" "cl" "scopePhase" $cell1658 setScope "name_type" "de" "scopeSystem" set row1659 [$diag addRow method 0.0] $row1659 setLabel "name_type" "EndDrag()\n" $row1659 setProp "has_parmlist" "1" $row1659 setProp "is_event" "1" set cell1660 [$row1659 addCell parameter 0.0] $cell1660 setLabel "name_type" "Sender: TObject, " $cell1660 setScope "name_type" "cl" "scopePhase" $cell1660 setProp "is_vcl" "1" "name_type" "cl" $cell1660 setProp "libunit" "System" "name_type" "cl" $cell1660 setScope "name_type" "de" "scopeSystem" set cell1661 [$row1659 addCell parameter 0.0] $cell1661 setLabel "name_type" "Source: TObject, " $cell1661 setScope "name_type" "cl" "scopePhase" $cell1661 setProp "is_vcl" "1" "name_type" "cl" $cell1661 setProp "libunit" "System" "name_type" "cl" $cell1661 setScope "name_type" "de" "scopeSystem" set cell1662 [$row1659 addCell parameter 0.0] $cell1662 setLabel "name_type" "X: int, " $cell1662 setScope "name_type" "cl" "scopePhase" $cell1662 setScope "name_type" "de" "scopeSystem" set cell1663 [$row1659 addCell parameter 0.0] $cell1663 setLabel "name_type" "Y: int" $cell1663 setScope "name_type" "cl" "scopePhase" $cell1663 setScope "name_type" "de" "scopeSystem" set row1664 [$diag addRow method 0.0] $row1664 setLabel "name_type" "MouseDown()\n" $row1664 setProp "has_parmlist" "1" $row1664 setProp "is_event" "1" set cell1665 [$row1664 addCell parameter 0.0] $cell1665 setLabel "name_type" "Sender: TObject, " $cell1665 setScope "name_type" "cl" "scopePhase" $cell1665 setProp "is_vcl" "1" "name_type" "cl" $cell1665 setProp "libunit" "System" "name_type" "cl" $cell1665 setScope "name_type" "de" "scopeSystem" set cell1666 [$row1664 addCell parameter 0.0] $cell1666 setLabel "name_type" "Button: TMouseButton, " $cell1666 setScope "name_type" "cl" "scopePhase" $cell1666 setProp "is_vcl" "1" "name_type" "cl" $cell1666 setProp "libunit" "Controls" "name_type" "cl" $cell1666 setScope "name_type" "de" "scopeSystem" set cell1667 [$row1664 addCell parameter 0.0] $cell1667 setLabel "name_type" "Shift: TShiftState, " $cell1667 setScope "name_type" "cl" "scopePhase" $cell1667 setProp "is_vcl" "1" "name_type" "cl" $cell1667 setProp "libunit" "Classes" "name_type" "cl" $cell1667 setScope "name_type" "de" "scopeSystem" set cell1668 [$row1664 addCell parameter 0.0] $cell1668 setLabel "name_type" "X: int, " $cell1668 setScope "name_type" "cl" "scopePhase" $cell1668 setScope "name_type" "de" "scopeSystem" set cell1669 [$row1664 addCell parameter 0.0] $cell1669 setLabel "name_type" "Y: int" $cell1669 setScope "name_type" "cl" "scopePhase" $cell1669 setScope "name_type" "de" "scopeSystem" set row1670 [$diag addRow method 0.0] $row1670 setLabel "name_type" "MouseMove()\n" $row1670 setProp "has_parmlist" "1" $row1670 setProp "is_event" "1" set cell1671 [$row1670 addCell parameter 0.0] $cell1671 setLabel "name_type" "Sender: TObject, " $cell1671 setScope "name_type" "cl" "scopePhase" $cell1671 setProp "is_vcl" "1" "name_type" "cl" $cell1671 setProp "libunit" "System" "name_type" "cl" $cell1671 setScope "name_type" "de" "scopeSystem" set cell1672 [$row1670 addCell parameter 0.0] $cell1672 setLabel "name_type" "Shift: TShiftState, " $cell1672 setScope "name_type" "cl" "scopePhase" $cell1672 setProp "is_vcl" "1" "name_type" "cl" $cell1672 setProp "libunit" "Classes" "name_type" "cl" $cell1672 setScope "name_type" "de" "scopeSystem" set cell1673 [$row1670 addCell parameter 0.0] $cell1673 setLabel "name_type" "X: int, " $cell1673 setScope "name_type" "cl" "scopePhase" $cell1673 setScope "name_type" "de" "scopeSystem" set cell1674 [$row1670 addCell parameter 0.0] $cell1674 setLabel "name_type" "Y: int" $cell1674 setScope "name_type" "cl" "scopePhase" $cell1674 setScope "name_type" "de" "scopeSystem" set row1675 [$diag addRow method 0.0] $row1675 setLabel "name_type" "MouseUp()\n" $row1675 setProp "has_parmlist" "1" $row1675 setProp "is_event" "1" set cell1676 [$row1675 addCell parameter 0.0] $cell1676 setLabel "name_type" "Sender: TObject, " $cell1676 setScope "name_type" "cl" "scopePhase" $cell1676 setProp "is_vcl" "1" "name_type" "cl" $cell1676 setProp "libunit" "System" "name_type" "cl" $cell1676 setScope "name_type" "de" "scopeSystem" set cell1677 [$row1675 addCell parameter 0.0] $cell1677 setLabel "name_type" "Button: TMouseButton, " $cell1677 setScope "name_type" "cl" "scopePhase" $cell1677 setProp "is_vcl" "1" "name_type" "cl" $cell1677 setProp "libunit" "Controls" "name_type" "cl" $cell1677 setScope "name_type" "de" "scopeSystem" set cell1678 [$row1675 addCell parameter 0.0] $cell1678 setLabel "name_type" "Shift: TShiftState, " $cell1678 setScope "name_type" "cl" "scopePhase" $cell1678 setProp "is_vcl" "1" "name_type" "cl" $cell1678 setProp "libunit" "Classes" "name_type" "cl" $cell1678 setScope "name_type" "de" "scopeSystem" set cell1679 [$row1675 addCell parameter 0.0] $cell1679 setLabel "name_type" "X: int, " $cell1679 setScope "name_type" "cl" "scopePhase" $cell1679 setScope "name_type" "de" "scopeSystem" set cell1680 [$row1675 addCell parameter 0.0] $cell1680 setLabel "name_type" "Y: int" $cell1680 setScope "name_type" "cl" "scopePhase" $cell1680 setScope "name_type" "de" "scopeSystem" set row1681 [$diag addRow method 0.0] $row1681 setLabel "name_type" "StartDrag()" $row1681 setProp "has_parmlist" "1" $row1681 setProp "is_event" "1" set cell1682 [$row1681 addCell parameter 0.0] $cell1682 setLabel "name_type" "Sender: TObject, " $cell1682 setScope "name_type" "cl" "scopePhase" $cell1682 setProp "is_vcl" "1" "name_type" "cl" $cell1682 setProp "libunit" "System" "name_type" "cl" $cell1682 setScope "name_type" "de" "scopeSystem" set cell1683 [$row1681 addCell parameter 0.0] $cell1683 setLabel "name_type" "DragObject: TDragObject" $cell1683 setProp "pass_by" "Variable" $cell1683 setScope "name_type" "cl" "scopePhase" $cell1683 setProp "is_vcl" "1" "name_type" "cl" $cell1683 setProp "libunit" "Controls" "name_type" "cl" $cell1683 setScope "name_type" "de" "scopeSystem" $diag save # Generator: et.tcl /main/hindenburg/19 # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl # Interpreter to use: Otsh V6.1.1/B1 # OTShRegister::importTool set diag [CDM new TTimer "DelphiVCL" "" "" "" "" "" 1] set row1684 [$diag addRow method 0.0] $row1684 setLabel "name_type" "Timer()" $row1684 setProp "has_parmlist" "1" $row1684 setProp "is_event" "1" set cell1685 [$row1684 addCell parameter 0.0] $cell1685 setLabel "name_type" "Sender: TObject" $cell1685 setScope "name_type" "cl" "scopePhase" $cell1685 setProp "is_vcl" "1" "name_type" "cl" $cell1685 setProp "libunit" "System" "name_type" "cl" $cell1685 setScope "name_type" "de" "scopeSystem" $diag save