|
187
|
Defines the colors, to display overlapping links
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oElements
LOCAL oSurface
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSurface := XbpActiveXControl():new( oForm:drawingArea )
oSurface:CLSID := "Exontrol.Surface.1" /*{AC1DF7F4-0919-4364-8167-2F9B5155EA4B}*/
oSurface:create(,, {10,60},{610,370} )
oSurface:BeginUpdate()
oSurface:AllowLinkControlPoint := 99/*exAllowChangeTo+exAllowChangeFrom+exEndControlPoint+exStartControlPoint*/
oElements := oSurface:Elements()
oElements:Add("Node <b>1",-64,-64)
oElements:Add("Node <b>2")
oElements:Add("Node <b>3",64,-64)
oElements:Add("Node <b>4",16,-48)
oElements:Add("Node <b>5",-1024,-48)
oElements:Add("Node <b>6",16,512)
oSurface:Links():Add(oSurface:Elements:Item(1),oSurface:Elements:Item(2),"L1")
oSurface:Links():Add(oSurface:Elements:Item(3),oSurface:Elements:Item(2),"L2")
oSurface:Links():Add(oSurface:Elements:Item(2),oSurface:Elements:Item(1),"L3")
oSurface:ShowLinks := 545/*exChangeColorOnOverlap+exShowCrossLinksRect+exShowExtendedLinks*/
oSurface:OverlapLinksColors := "red,orange"
oSurface:SetProperty("LinksColor",AutomationTranslateColor( GraMakeRGBColor ( { 128,128,128 } ) , .F. ))
oSurface:AxisStyle := -1/*exNoLines*/
oSurface:ShowGridLines := .F.
oSurface:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
186
|
The exPreventOverlapMixt flag must always be used alongside either the exPreventOverlap or exChangeColorOnOverlap flag. When used with the exPreventOverlap flag, it ensures that links avoid overlapping with elements or obstacles, enabling their paths to include both rectangular and diagonal lines. When combined with the exChangeColorOnOverlap flag, overlapping links alternately adjust their width in addition to changing colors (sample 2)
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oElements
LOCAL oSurface
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSurface := XbpActiveXControl():new( oForm:drawingArea )
oSurface:CLSID := "Exontrol.Surface.1" /*{AC1DF7F4-0919-4364-8167-2F9B5155EA4B}*/
oSurface:create(,, {10,60},{610,370} )
oSurface:BeginUpdate()
oSurface:AllowLinkControlPoint := 99/*exAllowChangeTo+exAllowChangeFrom+exEndControlPoint+exStartControlPoint*/
oElements := oSurface:Elements()
oElements:Add("Node <b>1",-64,-64)
oElements:Add("Node <b>2")
oElements:Add("Node <b>3",64,-64)
oElements:Add("Node <b>4",16,-48)
oElements:Add("Node <b>5",-1024,-48)
oElements:Add("Node <b>6",16,512)
oSurface:Links():Add(oSurface:Elements:Item(1),oSurface:Elements:Item(2),"L1")
oSurface:Links():Add(oSurface:Elements:Item(3),oSurface:Elements:Item(2),"L2")
oSurface:Links():Add(oSurface:Elements:Item(2),oSurface:Elements:Item(1),"L3")
oSurface:ShowLinks := 673/*exChangeColorOnOverlap+exPreventOverlapMixt+exShowCrossLinksRect+exShowExtendedLinks*/
oSurface:SetProperty("LinksColor",AutomationTranslateColor( GraMakeRGBColor ( { 128,128,128 } ) , .F. ))
oSurface:AxisStyle := -1/*exNoLines*/
oSurface:ShowGridLines := .F.
oSurface:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
185
|
The exChangeColorOnOverlap flag changes the color for links in areas where they overlap with other links, enhancing clarity and distinction between them
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oElements
LOCAL oSurface
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSurface := XbpActiveXControl():new( oForm:drawingArea )
oSurface:CLSID := "Exontrol.Surface.1" /*{AC1DF7F4-0919-4364-8167-2F9B5155EA4B}*/
oSurface:create(,, {10,60},{610,370} )
oSurface:BeginUpdate()
oSurface:AllowLinkControlPoint := 99/*exAllowChangeTo+exAllowChangeFrom+exEndControlPoint+exStartControlPoint*/
oElements := oSurface:Elements()
oElements:Add("Node <b>1",-64,-64)
oElements:Add("Node <b>2")
oElements:Add("Node <b>3",64,-64)
oElements:Add("Node <b>4",16,-48)
oElements:Add("Node <b>5",-1024,-48)
oElements:Add("Node <b>6",16,512)
oSurface:Links():Add(oSurface:Elements:Item(1),oSurface:Elements:Item(2),"L1")
oSurface:Links():Add(oSurface:Elements:Item(3),oSurface:Elements:Item(2),"L2")
oSurface:Links():Add(oSurface:Elements:Item(2),oSurface:Elements:Item(1),"L3")
oSurface:ShowLinks := 545/*exChangeColorOnOverlap+exShowCrossLinksRect+exShowExtendedLinks*/
oSurface:SetProperty("LinksColor",AutomationTranslateColor( GraMakeRGBColor ( { 128,128,128 } ) , .F. ))
oSurface:AxisStyle := -1/*exNoLines*/
oSurface:ShowGridLines := .F.
oSurface:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
184
|
The exPreventOverlapMixt flag must always be used alongside either the exPreventOverlap or exChangeColorOnOverlap flag. When used with the exPreventOverlap flag, it ensures that links avoid overlapping with elements or obstacles, enabling their paths to include both rectangular and diagonal lines. When combined with the exChangeColorOnOverlap flag, overlapping links alternately adjust their width in addition to changing colors (sample 1)
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oElements
LOCAL oSurface
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSurface := XbpActiveXControl():new( oForm:drawingArea )
oSurface:CLSID := "Exontrol.Surface.1" /*{AC1DF7F4-0919-4364-8167-2F9B5155EA4B}*/
oSurface:create(,, {10,60},{610,370} )
oSurface:BeginUpdate()
oSurface:AllowLinkControlPoint := 99/*exAllowChangeTo+exAllowChangeFrom+exEndControlPoint+exStartControlPoint*/
oElements := oSurface:Elements()
oElements:Add("Node <b>1",-64,-64)
oElements:Add("Node <b>2")
oElements:Add("Node <b>3",64,-64)
oElements:Add("Node <b>4",16,-48)
oElements:Add("Node <b>5",-1024,-48)
oElements:Add("Node <b>6",16,512)
oSurface:Links():Add(oSurface:Elements:Item(1),oSurface:Elements:Item(2),"L1")
oSurface:Links():Add(oSurface:Elements:Item(3),oSurface:Elements:Item(2),"L2")
oSurface:Links():Add(oSurface:Elements:Item(2),oSurface:Elements:Item(1),"L3")
oSurface:ShowLinks := 417/*exPreventOverlap+exPreventOverlapMixt+exShowCrossLinksRect+exShowExtendedLinks*/
oSurface:SetProperty("LinksColor",AutomationTranslateColor( GraMakeRGBColor ( { 128,128,128 } ) , .F. ))
oSurface:AxisStyle := -1/*exNoLines*/
oSurface:ShowGridLines := .F.
oSurface:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
183
|
The exPreventOverlap flag adjusts the links to prevent them from overlapping the connected objects. The exPreventOverlap option calculates the path between A and B using the A* (A-star) pathfinding algorithm, which can be a time-consuming operation
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oElements
LOCAL oSurface
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSurface := XbpActiveXControl():new( oForm:drawingArea )
oSurface:CLSID := "Exontrol.Surface.1" /*{AC1DF7F4-0919-4364-8167-2F9B5155EA4B}*/
oSurface:create(,, {10,60},{610,370} )
oSurface:BeginUpdate()
oSurface:AllowLinkControlPoint := 99/*exAllowChangeTo+exAllowChangeFrom+exEndControlPoint+exStartControlPoint*/
oElements := oSurface:Elements()
oElements:Add("Node <b>1",-64,-64)
oElements:Add("Node <b>2")
oElements:Add("Node <b>3",64,-64)
oElements:Add("Node <b>4",16,-48)
oElements:Add("Node <b>5",-1024,-48)
oElements:Add("Node <b>6",16,512)
oSurface:Links():Add(oSurface:Elements:Item(1),oSurface:Elements:Item(2),"L1")
oSurface:Links():Add(oSurface:Elements:Item(3),oSurface:Elements:Item(2),"L2")
oSurface:Links():Add(oSurface:Elements:Item(2),oSurface:Elements:Item(1),"L3")
oSurface:ShowLinks := 289/*exPreventOverlap+exShowCrossLinksRect+exShowExtendedLinks*/
oSurface:SetProperty("LinksColor",AutomationTranslateColor( GraMakeRGBColor ( { 128,128,128 } ) , .F. ))
oSurface:AxisStyle := -1/*exNoLines*/
oSurface:ShowGridLines := .F.
oSurface:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
182
|
How can I replace or add an icon at runtime
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oElements
LOCAL oSurface
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSurface := XbpActiveXControl():new( oForm:drawingArea )
oSurface:CLSID := "Exontrol.Surface.1" /*{AC1DF7F4-0919-4364-8167-2F9B5155EA4B}*/
oSurface:create(,, {10,60},{610,370} )
oSurface:BeginUpdate()
oSurface:ReplaceIcon("gAAAABgYACEHgUJFEEAAWhUJCEJEEJggEhMCYEXjUbjkJQECj8gj8hAEjkshYEpk8kf8ClsulsvAExmcvf83js5nU7nkCeEcn8boMaocXosCB9Hn09pkzcEuoL/fE+OkYB0gB9YhIHrddgVcr9aktZADAD8+P8CgIA==")
oSurface:ReplaceIcon("C:\images\favicon.ico",0)
oSurface:AllowLinkControlPoint := 99/*exAllowChangeTo+exAllowChangeFrom+exEndControlPoint+exStartControlPoint*/
oElements := oSurface:Elements()
oElements:Add("Node <img>1</img>",-64,-64)
oElements:Add("Node <b>2")
oElements:Add("Node <b>3",64,-64)
oSurface:Links():Add(oSurface:Elements:Item(1),oSurface:Elements:Item(2),"L1")
oSurface:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
181
|
exUndo, An Undo operation is performed (CTR + Z), exRedo, A Redo operation is performed (CTR + Y). exUndoRedoUpdate, The Undo/Redo queue is updated
PROCEDURE OnLayoutEndChanging(oSurface,Operation)
DevOut( "LayoutEndChanging" )
DevOut( Transform(oSurface:FormatABC("value case (default:value;32:`exUndoRedoUpdate`;33:`exUndo`;34:`exRedo`)",Operation),"") )
RETURN
PROCEDURE OnLayoutStartChanging(oSurface,Operation)
DevOut( "LayoutStartChanging" )
DevOut( Transform(oSurface:FormatABC("value case (default:value;32:`exUndoRedoUpdate`;33:`exUndo`;34:`exRedo`)",Operation),"") )
RETURN
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oElements
LOCAL oSurface
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSurface := XbpActiveXControl():new( oForm:drawingArea )
oSurface:CLSID := "Exontrol.Surface.1" /*{AC1DF7F4-0919-4364-8167-2F9B5155EA4B}*/
oSurface:create(,, {10,60},{610,370} )
oSurface:LayoutEndChanging := {|Operation| OnLayoutEndChanging(oSurface,Operation)} /*Notifies your application once the control's layout has been changed.*/
oSurface:LayoutStartChanging := {|Operation| OnLayoutStartChanging(oSurface,Operation)} /*Occurs when the control's layout is about to be changed.*/
oSurface:BeginUpdate()
oSurface:AllowUndoRedo := .T.
oSurface:AllowLinkControlPoint := 99/*exAllowChangeTo+exAllowChangeFrom+exEndControlPoint+exStartControlPoint*/
oElements := oSurface:Elements()
oElements:Add("Node <b>1",-64,-64)
oElements:Add("Node <b>2")
oElements:Add("Node <b>3",64,-64)
oSurface:Links():Add(oSurface:Elements:Item(1),oSurface:Elements:Item(2),"L1")
oSurface:EndUpdate()
DevOut( "Press CTRL+Z to Undo, CTRL+Y to Redo" )
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
180
|
exLinkObjects, the user creates an element on the surface. The AllowLinkObjects property specifies the keys combination to allow user to link elements on the surface
PROCEDURE OnLayoutEndChanging(oSurface,Operation)
DevOut( "LayoutEndChanging" )
DevOut( Transform(oSurface:FormatABC("value = 9 ? `exLinkObjects` : value",Operation),"") )
RETURN
PROCEDURE OnLayoutStartChanging(oSurface,Operation)
DevOut( "LayoutStartChanging" )
DevOut( Transform(oSurface:FormatABC("value = 9 ? `exLinkObjects` : value",Operation),"") )
RETURN
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oElements
LOCAL oSurface
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSurface := XbpActiveXControl():new( oForm:drawingArea )
oSurface:CLSID := "Exontrol.Surface.1" /*{AC1DF7F4-0919-4364-8167-2F9B5155EA4B}*/
oSurface:create(,, {10,60},{610,370} )
oSurface:LayoutEndChanging := {|Operation| OnLayoutEndChanging(oSurface,Operation)} /*Notifies your application once the control's layout has been changed.*/
oSurface:LayoutStartChanging := {|Operation| OnLayoutStartChanging(oSurface,Operation)} /*Occurs when the control's layout is about to be changed.*/
oSurface:BeginUpdate()
oElements := oSurface:Elements()
oElements:Add("Node <b>1",-64,-64)
oElements:Add("Node <b>2")
oElements:Add("Node <b>3",64,-64)
oSurface:EndUpdate()
DevOut( "Hold SHIFT, click an element, and drag to another element to create a link between them" )
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
179
|
exEditObject, the user edits the element's caption
PROCEDURE OnClick(oSurface)
/*ElementFromPoint(-1,-1).Edit(0)*/
RETURN
PROCEDURE OnLayoutEndChanging(oSurface,Operation)
DevOut( "LayoutEndChanging" )
DevOut( Transform(oSurface:FormatABC("value = 8 ? `exEditObject` : value",Operation),"") )
RETURN
PROCEDURE OnLayoutStartChanging(oSurface,Operation)
DevOut( "LayoutStartChanging" )
DevOut( Transform(oSurface:FormatABC("value = 8 ? `exEditObject` : value",Operation),"") )
RETURN
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oElements
LOCAL oSurface
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSurface := XbpActiveXControl():new( oForm:drawingArea )
oSurface:CLSID := "Exontrol.Surface.1" /*{AC1DF7F4-0919-4364-8167-2F9B5155EA4B}*/
oSurface:create(,, {10,60},{610,370} )
oSurface:Click := {|| OnClick(oSurface)} /*Occurs when the user presses and then releases the left mouse button over the control.*/
oSurface:LayoutEndChanging := {|Operation| OnLayoutEndChanging(oSurface,Operation)} /*Notifies your application once the control's layout has been changed.*/
oSurface:LayoutStartChanging := {|Operation| OnLayoutStartChanging(oSurface,Operation)} /*Occurs when the control's layout is about to be changed.*/
oSurface:BeginUpdate()
oSurface:AllowLinkControlPoint := 99/*exAllowChangeTo+exAllowChangeFrom+exEndControlPoint+exStartControlPoint*/
oElements := oSurface:Elements()
oElements:Add("Node <b>1",-64,-64)
oElements:Add("Node <b>2")
oElements:Add("Node <b>3",64,-64)
oSurface:Links():Add(oSurface:Elements:Item(1),oSurface:Elements:Item(2),"L1")
oSurface:EndUpdate()
DevOut( "Click an element to edit its caption" )
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
178
|
exCreateObject, the user creates an element on the surface. The AllowCreateObject property specifies the keys combination to allow user to create elements on the surface
PROCEDURE OnLayoutEndChanging(oSurface,Operation)
DevOut( "LayoutEndChanging" )
DevOut( Transform(oSurface:FormatABC("value = 7 ? `exCreateObject` : value",Operation),"") )
RETURN
PROCEDURE OnLayoutStartChanging(oSurface,Operation)
DevOut( "LayoutStartChanging" )
DevOut( Transform(oSurface:FormatABC("value = 7 ? `exCreateObject` : value",Operation),"") )
RETURN
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oElements
LOCAL oSurface
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSurface := XbpActiveXControl():new( oForm:drawingArea )
oSurface:CLSID := "Exontrol.Surface.1" /*{AC1DF7F4-0919-4364-8167-2F9B5155EA4B}*/
oSurface:create(,, {10,60},{610,370} )
oSurface:LayoutEndChanging := {|Operation| OnLayoutEndChanging(oSurface,Operation)} /*Notifies your application once the control's layout has been changed.*/
oSurface:LayoutStartChanging := {|Operation| OnLayoutStartChanging(oSurface,Operation)} /*Occurs when the control's layout is about to be changed.*/
oSurface:BeginUpdate()
oSurface:AllowLinkControlPoint := 99/*exAllowChangeTo+exAllowChangeFrom+exEndControlPoint+exStartControlPoint*/
oElements := oSurface:Elements()
oElements:Add("Node <b>1",-64,-64)
oElements:Add("Node <b>2"):Selected := .T.
oElements:Add("Node <b>3",64,-64)
oSurface:Links():Add(oSurface:Elements:Item(1),oSurface:Elements:Item(2),"L1")
oSurface:EndUpdate()
DevOut( "Double-click on the surface and immediately drag to a new position to create an element" )
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
177
|
exSelectNothing, the user clicks an empty zone of the surface. The AllowSelectNothing property specifies the keys combination to allow user to select nothing on the surface
PROCEDURE OnLayoutEndChanging(oSurface,Operation)
DevOut( "LayoutEndChanging" )
DevOut( Transform(oSurface:FormatABC("value = 6 ? `exSelectNothing` : value",Operation),"") )
RETURN
PROCEDURE OnLayoutStartChanging(oSurface,Operation)
DevOut( "LayoutStartChanging" )
DevOut( Transform(oSurface:FormatABC("value = 6 ? `exSelectNothing` : value",Operation),"") )
RETURN
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oElements
LOCAL oSurface
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSurface := XbpActiveXControl():new( oForm:drawingArea )
oSurface:CLSID := "Exontrol.Surface.1" /*{AC1DF7F4-0919-4364-8167-2F9B5155EA4B}*/
oSurface:create(,, {10,60},{610,370} )
oSurface:LayoutEndChanging := {|Operation| OnLayoutEndChanging(oSurface,Operation)} /*Notifies your application once the control's layout has been changed.*/
oSurface:LayoutStartChanging := {|Operation| OnLayoutStartChanging(oSurface,Operation)} /*Occurs when the control's layout is about to be changed.*/
oSurface:BeginUpdate()
oSurface:AllowSelectNothing := .T.
oSurface:AllowLinkControlPoint := 99/*exAllowChangeTo+exAllowChangeFrom+exEndControlPoint+exStartControlPoint*/
oElements := oSurface:Elements()
oElements:Add("Node <b>1",-64,-64)
oElements:Add("Node <b>2"):Selected := .T.
oElements:Add("Node <b>3",64,-64)
oSurface:Links():Add(oSurface:Elements:Item(1),oSurface:Elements:Item(2),"L1")
oSurface:EndUpdate()
DevOut( "Select an element, and then click outside to select nothing" )
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
176
|
exSelectObject, the user clicks the object to get it selected. The AllowSelectObject property specifies the keys combination to allow user to select the object
PROCEDURE OnLayoutEndChanging(oSurface,Operation)
DevOut( "LayoutEndChanging" )
DevOut( Transform(oSurface:FormatABC("value = 5 ? `exSelectObject` : value",Operation),"") )
RETURN
PROCEDURE OnLayoutStartChanging(oSurface,Operation)
DevOut( "LayoutStartChanging" )
DevOut( Transform(oSurface:FormatABC("value = 5 ? `exSelectObject` : value",Operation),"") )
RETURN
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oElements
LOCAL oSurface
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSurface := XbpActiveXControl():new( oForm:drawingArea )
oSurface:CLSID := "Exontrol.Surface.1" /*{AC1DF7F4-0919-4364-8167-2F9B5155EA4B}*/
oSurface:create(,, {10,60},{610,370} )
oSurface:LayoutEndChanging := {|Operation| OnLayoutEndChanging(oSurface,Operation)} /*Notifies your application once the control's layout has been changed.*/
oSurface:LayoutStartChanging := {|Operation| OnLayoutStartChanging(oSurface,Operation)} /*Occurs when the control's layout is about to be changed.*/
oSurface:BeginUpdate()
oSurface:AllowLinkControlPoint := 99/*exAllowChangeTo+exAllowChangeFrom+exEndControlPoint+exStartControlPoint*/
oElements := oSurface:Elements()
oElements:Add("Node <b>1",-64,-64)
oElements:Add("Node <b>2")
oElements:Add("Node <b>3",64,-64)
oSurface:Links():Add(oSurface:Elements:Item(1),oSurface:Elements:Item(2),"L1")
oSurface:EndUpdate()
DevOut( "Hold ALT and click, then drag to select elements within the drawn rectangle. Click an element to select it. CTRL + CLick to unselect it" )
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
175
|
exMoveObject, the user moves the object. The AllowMoveObject property specifies the keys combination to allow user to move the object
PROCEDURE OnLayoutEndChanging(oSurface,Operation)
DevOut( "LayoutEndChanging" )
DevOut( Transform(oSurface:FormatABC("value = 4 ? `exMoveObject` : value",Operation),"") )
RETURN
PROCEDURE OnLayoutStartChanging(oSurface,Operation)
DevOut( "LayoutStartChanging" )
DevOut( Transform(oSurface:FormatABC("value = 4 ? `exMoveObject` : value",Operation),"") )
RETURN
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oElements
LOCAL oSurface
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSurface := XbpActiveXControl():new( oForm:drawingArea )
oSurface:CLSID := "Exontrol.Surface.1" /*{AC1DF7F4-0919-4364-8167-2F9B5155EA4B}*/
oSurface:create(,, {10,60},{610,370} )
oSurface:LayoutEndChanging := {|Operation| OnLayoutEndChanging(oSurface,Operation)} /*Notifies your application once the control's layout has been changed.*/
oSurface:LayoutStartChanging := {|Operation| OnLayoutStartChanging(oSurface,Operation)} /*Occurs when the control's layout is about to be changed.*/
oSurface:BeginUpdate()
oSurface:AllowLinkControlPoint := 99/*exAllowChangeTo+exAllowChangeFrom+exEndControlPoint+exStartControlPoint*/
oElements := oSurface:Elements()
oElements:Add("Node <b>1",-64,-64)
oElements:Add("Node <b>2")
oElements:Add("Node <b>3",64,-64)
oSurface:Links():Add(oSurface:Elements:Item(1),oSurface:Elements:Item(2),"L1")
oSurface:EndUpdate()
DevOut( "Move an element" )
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
174
|
exResizeObject, the user resizes the object. The AllowResizeObject property specifies the keys combination to allow user to resize the object
PROCEDURE OnLayoutEndChanging(oSurface,Operation)
DevOut( "LayoutEndChanging" )
DevOut( Transform(oSurface:FormatABC("value = 3 ? `exResizeObject` : value",Operation),"") )
RETURN
PROCEDURE OnLayoutStartChanging(oSurface,Operation)
DevOut( "LayoutStartChanging" )
DevOut( Transform(oSurface:FormatABC("value = 3 ? `exResizeObject` : value",Operation),"") )
RETURN
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oElements
LOCAL oSurface
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSurface := XbpActiveXControl():new( oForm:drawingArea )
oSurface:CLSID := "Exontrol.Surface.1" /*{AC1DF7F4-0919-4364-8167-2F9B5155EA4B}*/
oSurface:create(,, {10,60},{610,370} )
oSurface:LayoutEndChanging := {|Operation| OnLayoutEndChanging(oSurface,Operation)} /*Notifies your application once the control's layout has been changed.*/
oSurface:LayoutStartChanging := {|Operation| OnLayoutStartChanging(oSurface,Operation)} /*Occurs when the control's layout is about to be changed.*/
oSurface:BeginUpdate()
oSurface:AllowLinkControlPoint := 99/*exAllowChangeTo+exAllowChangeFrom+exEndControlPoint+exStartControlPoint*/
oElements := oSurface:Elements()
oElements:Add("Node <b>1",-64,-64):AutoSize := .F.
oElements:Add("Node <b>2"):AutoSize := .F.
oElements:Add("Node <b>3",64,-64):AutoSize := .F.
oSurface:Links():Add(oSurface:Elements:Item(1),oSurface:Elements:Item(2),"L1")
oSurface:EndUpdate()
DevOut( "Resize an element" )
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
173
|
exSurfaceHome, the user clicks the Home button on the control's toolbar, so the surface is restored to original position. The Home method has the same effect
PROCEDURE OnLayoutEndChanging(oSurface,Operation)
DevOut( "LayoutEndChanging" )
DevOut( Transform(oSurface:FormatABC("value = 2 ? `exSurfaceHome` : value",Operation),"") )
RETURN
PROCEDURE OnLayoutStartChanging(oSurface,Operation)
DevOut( "LayoutStartChanging" )
DevOut( Transform(oSurface:FormatABC("value = 2 ? `exSurfaceHome` : value",Operation),"") )
RETURN
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oElements
LOCAL oSurface
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSurface := XbpActiveXControl():new( oForm:drawingArea )
oSurface:CLSID := "Exontrol.Surface.1" /*{AC1DF7F4-0919-4364-8167-2F9B5155EA4B}*/
oSurface:create(,, {10,60},{610,370} )
oSurface:LayoutEndChanging := {|Operation| OnLayoutEndChanging(oSurface,Operation)} /*Notifies your application once the control's layout has been changed.*/
oSurface:LayoutStartChanging := {|Operation| OnLayoutStartChanging(oSurface,Operation)} /*Occurs when the control's layout is about to be changed.*/
oSurface:BeginUpdate()
oSurface:AllowLinkControlPoint := 99/*exAllowChangeTo+exAllowChangeFrom+exEndControlPoint+exStartControlPoint*/
oElements := oSurface:Elements()
oElements:Add("Node <b>1",-64,-64)
oElements:Add("Node <b>2")
oElements:Add("Node <b>3",64,-64)
oSurface:Links():Add(oSurface:Elements:Item(1),oSurface:Elements:Item(2),"L1")
oSurface:EndUpdate()
DevOut( "Click the Home button" )
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
172
|
exSurfaceZoom, the user magnifies or shrinks the surface. The AllowZoomSurface property specifies the keys combination to allow user to zoom the surface
PROCEDURE OnLayoutEndChanging(oSurface,Operation)
DevOut( "LayoutEndChanging" )
DevOut( Transform(oSurface:FormatABC("value = 1 ? `exSurfaceZoom` : value",Operation),"") )
RETURN
PROCEDURE OnLayoutStartChanging(oSurface,Operation)
DevOut( "LayoutStartChanging" )
DevOut( Transform(oSurface:FormatABC("value = 1 ? `exSurfaceZoom` : value",Operation),"") )
RETURN
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oElements
LOCAL oSurface
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSurface := XbpActiveXControl():new( oForm:drawingArea )
oSurface:CLSID := "Exontrol.Surface.1" /*{AC1DF7F4-0919-4364-8167-2F9B5155EA4B}*/
oSurface:create(,, {10,60},{610,370} )
oSurface:LayoutEndChanging := {|Operation| OnLayoutEndChanging(oSurface,Operation)} /*Notifies your application once the control's layout has been changed.*/
oSurface:LayoutStartChanging := {|Operation| OnLayoutStartChanging(oSurface,Operation)} /*Occurs when the control's layout is about to be changed.*/
oSurface:BeginUpdate()
oSurface:AllowLinkControlPoint := 99/*exAllowChangeTo+exAllowChangeFrom+exEndControlPoint+exStartControlPoint*/
oElements := oSurface:Elements()
oElements:Add("Node <b>1",-64,-64)
oElements:Add("Node <b>2")
oElements:Add("Node <b>3",64,-64)
oSurface:Links():Add(oSurface:Elements:Item(1),oSurface:Elements:Item(2),"L1")
oSurface:EndUpdate()
DevOut( "Click and drag the surface to reposition it" )
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
171
|
exSurfaceMove, the user scrolls or moves the surface. The AllowMoveSurface property specifies the keys combination to allow user to move / scroll the surface
PROCEDURE OnLayoutEndChanging(oSurface,Operation)
DevOut( "LayoutEndChanging" )
DevOut( Transform(oSurface:FormatABC("value = 0 ? `exSurfaceMove` : value",Operation),"") )
RETURN
PROCEDURE OnLayoutStartChanging(oSurface,Operation)
DevOut( "LayoutStartChanging" )
DevOut( Transform(oSurface:FormatABC("value = 0 ? `exSurfaceMove` : value",Operation),"") )
RETURN
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oElements
LOCAL oSurface
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSurface := XbpActiveXControl():new( oForm:drawingArea )
oSurface:CLSID := "Exontrol.Surface.1" /*{AC1DF7F4-0919-4364-8167-2F9B5155EA4B}*/
oSurface:create(,, {10,60},{610,370} )
oSurface:LayoutEndChanging := {|Operation| OnLayoutEndChanging(oSurface,Operation)} /*Notifies your application once the control's layout has been changed.*/
oSurface:LayoutStartChanging := {|Operation| OnLayoutStartChanging(oSurface,Operation)} /*Occurs when the control's layout is about to be changed.*/
oSurface:BeginUpdate()
oSurface:AllowLinkControlPoint := 99/*exAllowChangeTo+exAllowChangeFrom+exEndControlPoint+exStartControlPoint*/
oElements := oSurface:Elements()
oElements:Add("Node <b>1",-64,-64)
oElements:Add("Node <b>2")
oElements:Add("Node <b>3",64,-64)
oSurface:Links():Add(oSurface:Elements:Item(1),oSurface:Elements:Item(2),"L1")
oSurface:EndUpdate()
DevOut( "Click and drag the surface to reposition it" )
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
170
|
FormatABC method formats the A,B,C values based on the giving expression and returns the result
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oSurface
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSurface := XbpActiveXControl():new( oForm:drawingArea )
oSurface:CLSID := "Exontrol.Surface.1" /*{AC1DF7F4-0919-4364-8167-2F9B5155EA4B}*/
oSurface:create(,, {10,60},{610,370} )
DevOut( Transform(oSurface:FormatABC("value format ``",1000),"") )
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
169
|
FreezeEvents(Freeze) method prevents firing any event. For instance, FreezeEvents(True) freezes the control's events, no no event is fired, until the FreezeEvents(False) is called
PROCEDURE OnEvent(oSurface,EventID)
DevOut( Transform(oSurface:EventParam(-2),"") )
RETURN
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oElements
LOCAL oSurface
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSurface := XbpActiveXControl():new( oForm:drawingArea )
oSurface:CLSID := "Exontrol.Surface.1" /*{AC1DF7F4-0919-4364-8167-2F9B5155EA4B}*/
oSurface:create(,, {10,60},{610,370} )
oSurface:Event := {|EventID| OnEvent(oSurface,EventID)} /*Notifies the application once the control fires an event.*/
oSurface:FreezeEvents(.T.)
DevOut( "No event is fired after FreezeEvents(True) call" )
oSurface:BeginUpdate()
oSurface:AllowLinkControlPoint := 3/*exEndControlPoint+exStartControlPoint*/
oElements := oSurface:Elements()
oElements:Add("Node <b>1",-64,-64)
oElements:Add("Node <b>2")
oSurface:Links():Add(oSurface:Elements:Item(1),oSurface:Elements:Item(2),"L1")
oSurface:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
168
|
The exAllowChangeFrom(0x20)/exAllowChangeTo(0x40) flag of LinkControlPointEnum type allows the user to adjust the link's from/to element by dragging and dropping the start control point (requires the exStartControlPoint/exEndControlPoint flag)
PROCEDURE OnLayoutEndChanging(oSurface,Operation)
DevOut( "LayoutEndChanging" )
DevOut( Transform(Operation,"") )
DevOut( Transform(oSurface:FocusLink:ID(),"") )
RETURN
PROCEDURE OnLayoutStartChanging(oSurface,Operation)
DevOut( "LayoutStartChanging" )
DevOut( Transform(Operation,"") )
DevOut( Transform(oSurface:FocusLink:ID(),"") )
RETURN
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oElements
LOCAL oSurface
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSurface := XbpActiveXControl():new( oForm:drawingArea )
oSurface:CLSID := "Exontrol.Surface.1" /*{AC1DF7F4-0919-4364-8167-2F9B5155EA4B}*/
oSurface:create(,, {10,60},{610,370} )
oSurface:LayoutEndChanging := {|Operation| OnLayoutEndChanging(oSurface,Operation)} /*Notifies your application once the control's layout has been changed.*/
oSurface:LayoutStartChanging := {|Operation| OnLayoutStartChanging(oSurface,Operation)} /*Occurs when the control's layout is about to be changed.*/
oSurface:BeginUpdate()
oSurface:AllowLinkControlPoint := 99/*exAllowChangeTo+exAllowChangeFrom+exEndControlPoint+exStartControlPoint*/
oElements := oSurface:Elements()
oElements:Add("Node <b>1",-64,-64)
oElements:Add("Node <b>2")
oElements:Add("Node <b>3",64,-64)
oSurface:Links():Add(oSurface:Elements:Item(1),oSurface:Elements:Item(2),"L1")
oSurface:FocusLink := "L1"
oSurface:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
167
|
The LayoutStartChanging(exFocusLink)/LayoutEndChanging(exFocusLink) event notifies your application when the user focuses on a new link
PROCEDURE OnLayoutEndChanging(oSurface,Operation)
DevOut( "LayoutEndChanging" )
DevOut( Transform(Operation,"") )
DevOut( Transform(oSurface:FocusLink(),"") )
RETURN
PROCEDURE OnLayoutStartChanging(oSurface,Operation)
DevOut( "LayoutStartChanging" )
DevOut( Transform(Operation,"") )
DevOut( Transform(oSurface:FocusLink(),"") )
RETURN
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oElements
LOCAL oSurface
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSurface := XbpActiveXControl():new( oForm:drawingArea )
oSurface:CLSID := "Exontrol.Surface.1" /*{AC1DF7F4-0919-4364-8167-2F9B5155EA4B}*/
oSurface:create(,, {10,60},{610,370} )
oSurface:LayoutEndChanging := {|Operation| OnLayoutEndChanging(oSurface,Operation)} /*Notifies your application once the control's layout has been changed.*/
oSurface:LayoutStartChanging := {|Operation| OnLayoutStartChanging(oSurface,Operation)} /*Occurs when the control's layout is about to be changed.*/
oSurface:BeginUpdate()
oSurface:AllowLinkControlPoint := 3/*exEndControlPoint+exStartControlPoint*/
oElements := oSurface:Elements()
oElements:Add("Node <b>1",-64,-64)
oElements:Add("Node <b>2")
oSurface:Links():Add(oSurface:Elements:Item(1),oSurface:Elements:Item(2),"L1")
oSurface:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
166
|
Focus a link
PROCEDURE OnLayoutEndChanging(oSurface,Operation)
DevOut( "LayoutEndChanging" )
DevOut( Transform(Operation,"") )
RETURN
PROCEDURE OnLayoutStartChanging(oSurface,Operation)
DevOut( "LayoutStartChanging" )
DevOut( Transform(Operation,"") )
RETURN
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oElements
LOCAL oSurface
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSurface := XbpActiveXControl():new( oForm:drawingArea )
oSurface:CLSID := "Exontrol.Surface.1" /*{AC1DF7F4-0919-4364-8167-2F9B5155EA4B}*/
oSurface:create(,, {10,60},{610,370} )
oSurface:LayoutEndChanging := {|Operation| OnLayoutEndChanging(oSurface,Operation)} /*Notifies your application once the control's layout has been changed.*/
oSurface:LayoutStartChanging := {|Operation| OnLayoutStartChanging(oSurface,Operation)} /*Occurs when the control's layout is about to be changed.*/
oSurface:BeginUpdate()
oSurface:AllowLinkControlPoint := 3/*exEndControlPoint+exStartControlPoint*/
oElements := oSurface:Elements()
oElements:Add("Node <b>1",-64,-64)
oElements:Add("Node <b>2")
oSurface:Links():Add(oSurface:Elements:Item(1),oSurface:Elements:Item(2),"L1")
oSurface:FocusLink := "L1"
oSurface:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
165
|
The caption is displayed on the back, so the picture overrides it. How can I place the caption on the foreground
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oElement
LOCAL oSurface
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSurface := XbpActiveXControl():new( oForm:drawingArea )
oSurface:CLSID := "Exontrol.Surface.1" /*{AC1DF7F4-0919-4364-8167-2F9B5155EA4B}*/
oSurface:create(,, {10,60},{610,370} )
oSurface:BeginUpdate()
oSurface:DrawPartsOrder := "extracaption,extrapicture,picture,check,caption,client"
oSurface:SetProperty("HTMLPicture","pic1","c:\exontrol\images\sun.png")
oElement := oSurface:Elements():Add("<b>Element")
oElement:PicturesAlign := 17/*exMiddleCenter*/
oElement:CaptionAlign := 17/*exMiddleCenter*/
oElement:Pictures := "pic1"
oSurface:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
164
|
Draws a frame arround the link's arrow
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oElements
LOCAL oLink
LOCAL oLinks
LOCAL oSurface
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSurface := XbpActiveXControl():new( oForm:drawingArea )
oSurface:CLSID := "Exontrol.Surface.1" /*{AC1DF7F4-0919-4364-8167-2F9B5155EA4B}*/
oSurface:create(,, {10,60},{610,370} )
oSurface:BeginUpdate()
oSurface:AllowLinkControlPoint := -1/*0xffffff80+exAllowChangeTo+exAllowChangeFrom+exOrthoArrange+exMiddleControlPoint+exControlPoint+exEndControlPoint+exStartControlPoint*/
oElements := oSurface:Elements()
oElements:Add("Element <sha ;;0>A")
oElements:Add("Element <sha ;;0>B",164,64)
oElements:Add("Element <sha ;;0>B",0,132)
oLinks := oSurface:Links()
oLinks:Add(oSurface:Elements:Item(1),oSurface:Elements:Item(2)):CustomPath := "0.5,0.25,0.5,.75"
oLinks:Add(oSurface:Elements:Item(3),oSurface:Elements:Item(2)):CustomPath := "0.5,0.25,0.5,.75"
oLink := oLinks:Add(oSurface:Elements:Item(3),oSurface:Elements:Item(1))
oLink:ShowLinkType := 3/*exLinkStraight+exLinkDirect*/
oLink:StartPos := 0/*LeftAlignment*/
oLink:ArrowSize := 8
oLink:SetProperty("ArrowColor",AutomationTranslateColor( GraMakeRGBColor ( { 255,255,255 } ) , .F. ))
oLink:SetProperty("ArrowFrameColor",AutomationTranslateColor( GraMakeRGBColor ( { 0,0,0 } ) , .F. ))
oSurface:FitToClient()
oSurface:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
163
|
Draws a frame arround the arrow for all links
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oElements
LOCAL oLink
LOCAL oLinks
LOCAL oSurface
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSurface := XbpActiveXControl():new( oForm:drawingArea )
oSurface:CLSID := "Exontrol.Surface.1" /*{AC1DF7F4-0919-4364-8167-2F9B5155EA4B}*/
oSurface:create(,, {10,60},{610,370} )
oSurface:BeginUpdate()
oSurface:AllowLinkControlPoint := -1/*0xffffff80+exAllowChangeTo+exAllowChangeFrom+exOrthoArrange+exMiddleControlPoint+exControlPoint+exEndControlPoint+exStartControlPoint*/
oSurface:LinksArrowSize := 8
oSurface:SetProperty("LinksArrowColor",AutomationTranslateColor( GraMakeRGBColor ( { 255,255,255 } ) , .F. ))
oSurface:SetProperty("LinksArrowFrameColor",AutomationTranslateColor( GraMakeRGBColor ( { 0,0,0 } ) , .F. ))
oElements := oSurface:Elements()
oElements:Add("Element <sha ;;0>A")
oElements:Add("Element <sha ;;0>B",164,64)
oElements:Add("Element <sha ;;0>B",0,132)
oLinks := oSurface:Links()
oLinks:Add(oSurface:Elements:Item(1),oSurface:Elements:Item(2)):CustomPath := "0.5,0.25,0.5,.75"
oLinks:Add(oSurface:Elements:Item(3),oSurface:Elements:Item(2)):CustomPath := "0.5,0.25,0.5,.75"
oLink := oLinks:Add(oSurface:Elements:Item(3),oSurface:Elements:Item(1))
oLink:ShowLinkType := 3/*exLinkStraight+exLinkDirect*/
oLink:StartPos := 0/*LeftAlignment*/
oSurface:FitToClient()
oSurface:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
162
|
Change the size to display the arrow of the link
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oElements
LOCAL oLink
LOCAL oLinks
LOCAL oSurface
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSurface := XbpActiveXControl():new( oForm:drawingArea )
oSurface:CLSID := "Exontrol.Surface.1" /*{AC1DF7F4-0919-4364-8167-2F9B5155EA4B}*/
oSurface:create(,, {10,60},{610,370} )
oSurface:BeginUpdate()
oSurface:AllowLinkControlPoint := -1/*0xffffff80+exAllowChangeTo+exAllowChangeFrom+exOrthoArrange+exMiddleControlPoint+exControlPoint+exEndControlPoint+exStartControlPoint*/
oElements := oSurface:Elements()
oElements:Add("Element <sha ;;0>A")
oElements:Add("Element <sha ;;0>B",164,64)
oElements:Add("Element <sha ;;0>B",0,132)
oLinks := oSurface:Links()
oLinks:Add(oSurface:Elements:Item(1),oSurface:Elements:Item(2)):CustomPath := "0.5,0.25,0.5,.75"
oLinks:Add(oSurface:Elements:Item(3),oSurface:Elements:Item(2)):CustomPath := "0.5,0.25,0.5,.75"
oLink := oLinks:Add(oSurface:Elements:Item(3),oSurface:Elements:Item(1))
oLink:ShowLinkType := 3/*exLinkStraight+exLinkDirect*/
oLink:StartPos := 0/*LeftAlignment*/
oLink:ArrowSize := 8
oSurface:FitToClient()
oSurface:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
161
|
Change the size to display the arrows for all links
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oElements
LOCAL oLink
LOCAL oLinks
LOCAL oSurface
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSurface := XbpActiveXControl():new( oForm:drawingArea )
oSurface:CLSID := "Exontrol.Surface.1" /*{AC1DF7F4-0919-4364-8167-2F9B5155EA4B}*/
oSurface:create(,, {10,60},{610,370} )
oSurface:BeginUpdate()
oSurface:AllowLinkControlPoint := -1/*0xffffff80+exAllowChangeTo+exAllowChangeFrom+exOrthoArrange+exMiddleControlPoint+exControlPoint+exEndControlPoint+exStartControlPoint*/
oSurface:LinksArrowSize := 8
oElements := oSurface:Elements()
oElements:Add("Element <sha ;;0>A")
oElements:Add("Element <sha ;;0>B",164,64)
oElements:Add("Element <sha ;;0>B",0,132)
oLinks := oSurface:Links()
oLinks:Add(oSurface:Elements:Item(1),oSurface:Elements:Item(2)):CustomPath := "0.5,0.25,0.5,.75"
oLinks:Add(oSurface:Elements:Item(3),oSurface:Elements:Item(2)):CustomPath := "0.5,0.25,0.5,.75"
oLink := oLinks:Add(oSurface:Elements:Item(3),oSurface:Elements:Item(1))
oLink:ShowLinkType := 3/*exLinkStraight+exLinkDirect*/
oLink:StartPos := 0/*LeftAlignment*/
oSurface:FitToClient()
oSurface:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
160
|
Extends the caption on the element's width
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oElement
LOCAL oSurface
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSurface := XbpActiveXControl():new( oForm:drawingArea )
oSurface:CLSID := "Exontrol.Surface.1" /*{AC1DF7F4-0919-4364-8167-2F9B5155EA4B}*/
oSurface:create(,, {10,60},{610,370} )
oElement := oSurface:Elements():Add("<solidline> <c><b>Bank Account</b></solidline><br>+ owner: String <r><a 1;e64=gA8ABzABvABsABpABkg8JABuABlAAgAA4AAwisXjMYH0TAECMYAjsCMwAM4AkMGhEGOUei0Yl8bkQAOAAlsGmsSlp0h0SgkCF8DgsNhUMhEKiESkYAoMlk8phssmcCltLMNTAFOlFDlc2l0amMxjomAAjAA5AA2tMaHcfplZk1blVDqtuoNXjoAAEBA=>▲</a><br><solidline>+ balance: Currency = 0</solidline><br>+ deposit(amount: Currency)<r><a 2;e64=gA8ABjAA+AECMwAM8DABvABshoAOQAEAAHAAGEWjEajMGNoAMoAOgANERMgAOcHAAvAEJhcEh0Qh0Tg0CmkqMMFlUuhkxiMTisXjNCjk6EwAEYAHIAG1MjY7lUsnkwh8/nUClk5gwAAE" +;
"BA==>▲</a><br>+ withdraw(amount: Currency)")
oElement:ID := "Account"
oElement:X := -128
oElement:CaptionSingleLine := 1/*exCaptionBreakWrap*/
oElement:AutoSize := .F.
oElement:Width := 256
oElement:Height := oElement:AutoHeight()
oElement:CaptionAlign := 4/*0x4+*/
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
159
|
Gets the width/height of the element to fit its content ( as if the AutoSize property is True )
PROCEDURE OnAnchorClick(oSurface,AnchorID,Options)
LOCAL oElement
oElement := oSurface:Elements:Item("Account")
oElement:Height := oElement:AutoHeight()
RETURN
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oElement
LOCAL oSurface
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSurface := XbpActiveXControl():new( oForm:drawingArea )
oSurface:CLSID := "Exontrol.Surface.1" /*{AC1DF7F4-0919-4364-8167-2F9B5155EA4B}*/
oSurface:create(,, {10,60},{610,370} )
oSurface:AnchorClick := {|AnchorID,Options| OnAnchorClick(oSurface,AnchorID,Options)} /*Occurs when an anchor element is clicked.*/
oElement := oSurface:Elements():Add("<solidline> <c><b>Bank Account</b></solidline><br>+ owner: String <r><a 1;e64=gA8ABzABvABsABpABkg8JABuABlAAgAA4AAwisXjMYH0TAECMYAjsCMwAM4AkMGhEGOUei0Yl8bkQAOAAlsGmsSlp0h0SgkCF8DgsNhUMhEKiESkYAoMlk8phssmcCltLMNTAFOlFDlc2l0amMxjomAAjAA5AA2tMaHcfplZk1blVDqtuoNXjoAAEBA=>▲</a><br><solidline>+ balance: Currency = 0</solidline><br>+ deposit(amount: Currency)<r><a 2;e64=gA8ABjAA+AECMwAM8DABvABshoAOQAEAAHAAGEWjEajMGNoAMoAOgANERMgAOcHAAvAEJhcEh0Qh0Tg0CmkqMMFlUuhkxiMTisXjNCjk6EwAEYAHIAG1MjY7lUsnkwh8/nUClk5gwAAE" +;
"BA==>▲</a><br>+ withdraw(amount: Currency)")
oElement:ID := "Account"
oElement:X := -128
oElement:CaptionSingleLine := 1/*exCaptionBreakWrap*/
oElement:AutoSize := .F.
oElement:Width := 256
oElement:Height := oElement:AutoHeight()
oElement:CaptionAlign := 4/*0x4+*/
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
158
|
Expandable-caption
PROCEDURE OnAnchorClick(oSurface,AnchorID,Options)
DevOut( Transform(AnchorID,"") )
RETURN
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oElement,oElement1,oElement2
LOCAL oLink
LOCAL oSurface
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSurface := XbpActiveXControl():new( oForm:drawingArea )
oSurface:CLSID := "Exontrol.Surface.1" /*{AC1DF7F4-0919-4364-8167-2F9B5155EA4B}*/
oSurface:create(,, {10,60},{610,370} )
oSurface:AnchorClick := {|AnchorID,Options| OnAnchorClick(oSurface,AnchorID,Options)} /*Occurs when an anchor element is clicked.*/
oElement := oSurface:Elements():Add("<solidline> <c><b>Bank Account</b></solidline><br>+ owner: String <r><a 1;e64=gA8ABzABvABsABpABkg8JABuABlAAgAA4AAwisXjMYH0TAECMYAjsCMwAM4AkMGhEGOUei0Yl8bkQAOAAlsGmsSlp0h0SgkCF8DgsNhUMhEKiESkYAoMlk8phssmcCltLMNTAFOlFDlc2l0amMxjomAAjAA5AA2tMaHcfplZk1blVDqtuoNXjoAAEBA=>▲</a><br><solidline>+ balance: Currency = 0</solidline><br>+ deposit(amount: Currency)<r><a 2;e64=gA8ABjAA+AECMwAM8DABvABshoAOQAEAAHAAGEWjEajMGNoAMoAOgANERMgAOcHAAvAEJhcEh0Qh0Tg0CmkqMMFlUuhkxiMTisXjNCjk6EwAEYAHIAG1MjY7lUsnkwh8/nUClk5gwAAE" +;
"BA==>▲</a><br>+ withdraw(amount: Currency)")
oElement:ID := "Account"
oElement:X := -256
oElement:Y := -164
oElement:CaptionSingleLine := 1/*exCaptionBreakWrap*/
oElement:CaptionAlign := 4/*0x4+*/
oElement1 := oSurface:Elements():Add("<solidline> <c><b>Person</b></solidline><br>+ name: String <r><a 1;e64=gA8ABzABvABsABpABkg8JABuABlAAgAA4AAwisXjMYH0TAECMYAjsCMwAM4AkMGhEGOUei0Yl8bkQAOAAlsGmsSlp0h0SgkCF8DgsNhUMhEKiESkYAoMlk8phssmcCltLMNTAFOlFDlc2l0amMxjomAAjAA5AA2tMaHcfplZk1blVDqtuoNXjoAAEBA=>▲</a><br><solidline># birth: Date</solidline><br>+ getCurrentAge(): int<r><a 2;e64=gA8ABjAA+AECMwAM8DABvABshoAOQAEAAHAAGEWjEajMGNoAMoAOgANERMgAOcHAAvAEJhcEh0Qh0Tg0CmkqMMFlUuhkxiMTisXjNCjk6EwAEYAHIAG1MjY7lUsnkwh8/nUClk5gwAAEBA==>▲</a>")
oElement1:ID := "Person"
oElement1:Y := -164
oElement1:CaptionSingleLine := 1/*exCaptionBreakWrap*/
oElement2 := oSurface:Elements():Add("<solidline> <c><b>Student</b></solidline><br><solidline>+ classes: List<Course> <r><a 1;e64=gA8ABzABvABsABpABkg8JABuABlAA+AAgAECMcTi4AMwAM4AjMGhEGOUVAA4AAwk8plcqihwAElg0wiUlOkOiUEgQvgcFhsKhkIhUQiUUnccj0gn0jmMagUlowAMNOpEfkMNkkmlEqrctjQmAAjAA5AA2sssHcbnkdq1Ln1QtVSjQAAEBA==>▲</a></solidline><br>- attend(class: Course)<r><a 2;e64=gA8ABjAA+AECMwAM8DABvABshoAOQAEAAHAAGEWjEajMGNoAMoAOgANERMgAOcHAAvAEJhcEh0Qh0Tg0CmkqMMFlUuhkxiMTisXjNCjk6EwAEYAHIAG1MjY7lUsnkwh8/nUClk5gwAAEBA==>▲</a><br>- sleep()")
oElement2:ID := "Student"
oElement2:Y := -64
oElement2:CaptionSingleLine := 1/*exCaptionBreakWrap*/
oLink := oSurface:Links():Add(oSurface:Elements:Item("Account"),oSurface:Elements:Item("Student"))
oLink:Caption := "<fgcolor A0A0A0><solidline 808080> <c><b>Link</b></solidline><br># count: number <r><a ;exp=12992>➤</a>"
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
157
|
Expandable-caption
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oElement
LOCAL oSurface
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSurface := XbpActiveXControl():new( oForm:drawingArea )
oSurface:CLSID := "Exontrol.Surface.1" /*{AC1DF7F4-0919-4364-8167-2F9B5155EA4B}*/
oSurface:create(,, {10,60},{610,370} )
oElement := oSurface:Elements():Add("<solidline><b>Header</b></solidline><br>Line1<r><a ;exp=show lines>+</a><br>Line2<br>Line3")
oElement:CaptionSingleLine := 1/*exCaptionBreakWrap*/
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
156
|
Fullfit the caption on the element's width
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oElement
LOCAL oSurface
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSurface := XbpActiveXControl():new( oForm:drawingArea )
oSurface:CLSID := "Exontrol.Surface.1" /*{AC1DF7F4-0919-4364-8167-2F9B5155EA4B}*/
oSurface:create(,, {10,60},{610,370} )
oElement := oSurface:Elements():Add("<solidline><b>Bank Account</b></solidline><br>+ owner: String <r><a 1;properties>+</a><br><solidline>+ balance: Currency = 0</solidline><br>+ deposit(amount: Currency)<r><a 2;methods>+</a><br>+ withdraw(amount: Currency)")
oElement:CaptionSingleLine := 1/*exCaptionBreakWrap*/
oElement:SetProperty("BackColor",AutomationTranslateColor( GraMakeRGBColor ( { 248,248,248 } ) , .F. ))
oElement:AutoSize := .F.
oElement:Width := 194
oElement:Height := 76
oElement:CaptionAlign := 4/*0x4+*/
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
155
|
Wrap the caption by <br> or "\r\n" sequence only
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oElement
LOCAL oSurface
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSurface := XbpActiveXControl():new( oForm:drawingArea )
oSurface:CLSID := "Exontrol.Surface.1" /*{AC1DF7F4-0919-4364-8167-2F9B5155EA4B}*/
oSurface:create(,, {10,60},{610,370} )
oElement := oSurface:Elements():Add("<solidline><b>Bank Account</b></solidline><br>+ owner: String <r><a 1;properties>+</a><br><solidline>+ balance: Currency = 0</solidline><br>+ deposit(amount: Currency)<r><a 2;methods>+</a><br>+ withdraw(amount: Currency)")
oElement:CaptionSingleLine := 1/*exCaptionBreakWrap*/
oElement:SetProperty("BackColor",AutomationTranslateColor( GraMakeRGBColor ( { 248,248,248 } ) , .F. ))
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
154
|
Display a custom tooltip
PROCEDURE OnMouseMove(oSurface,Button,Shift,X,Y)
oSurface:ShowToolTip("new content","",,"+8","+8")
RETURN
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oSurface
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSurface := XbpActiveXControl():new( oForm:drawingArea )
oSurface:CLSID := "Exontrol.Surface.1" /*{AC1DF7F4-0919-4364-8167-2F9B5155EA4B}*/
oSurface:create(,, {10,60},{610,370} )
oSurface:MouseMove := {|Button,Shift,X,Y| OnMouseMove(oSurface,Button,Shift,X,Y)} /*Occurs when the user moves the mouse.*/
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
153
|
Shows the tooltip of the object moved relative to its default position
PROCEDURE OnMouseMove(oSurface,Button,Shift,X,Y)
oSurface:ShowToolTip("<null>","<null>",,"+8","+8")
RETURN
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oSurface
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSurface := XbpActiveXControl():new( oForm:drawingArea )
oSurface:CLSID := "Exontrol.Surface.1" /*{AC1DF7F4-0919-4364-8167-2F9B5155EA4B}*/
oSurface:create(,, {10,60},{610,370} )
oSurface:MouseMove := {|Button,Shift,X,Y| OnMouseMove(oSurface,Button,Shift,X,Y)} /*Occurs when the user moves the mouse.*/
oSurface:Elements():Add("Element with a Tooltip"):ToolTip := "This is a bit of text that should be displayed when cursor hovers the element."
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
152
|
Rename Undo/Redo commands into the control's toolbar
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oElements
LOCAL oSurface
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSurface := XbpActiveXControl():new( oForm:drawingArea )
oSurface:CLSID := "Exontrol.Surface.1" /*{AC1DF7F4-0919-4364-8167-2F9B5155EA4B}*/
oSurface:create(,, {10,60},{610,370} )
oSurface:BeginUpdate()
oSurface:AllowUndoRedo := .T.
oSurface:ToolBarFormat := "-1,100,101,|,103,104"
oSurface:SetProperty("ToolBarCaption",100,"<img>1</img>Acasa")
oSurface:SetProperty("ToolBarCaption",103,"Anuleaza <img>3</img>")
oSurface:SetProperty("ToolBarCaption",104,"<img>4</img>Reface")
oSurface:SetProperty("ToolBarToolTip",100,"Restabileste vizualizarea la origine.")
oSurface:SetProperty("ToolBarToolTip",101,"Mareste vizualizarea.")
oSurface:SetProperty("ToolBarToolTip",103,"Anuleaza ultima actiune UI. Pentru a anula o actiune apasati Ctrl+Z.")
oSurface:SetProperty("ToolBarToolTip",104,"Inverseaza cea mai recenta operatie de anulare. Pentru a reface o actiune apasati Ctrl+Y.")
oElements := oSurface:Elements()
oElements:Add("Item <b>1",-64,-48)
oElements:Add("Item <b>2",32,32)
oSurface:Links():Add(oSurface:Elements:Item(1),oSurface:Elements:Item(2))
oSurface:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
151
|
Add Undo/Redo commands to control's toolbar
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oElements
LOCAL oSurface
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSurface := XbpActiveXControl():new( oForm:drawingArea )
oSurface:CLSID := "Exontrol.Surface.1" /*{AC1DF7F4-0919-4364-8167-2F9B5155EA4B}*/
oSurface:create(,, {10,60},{610,370} )
oSurface:BeginUpdate()
oSurface:AllowUndoRedo := .T.
oSurface:ToolBarFormat := "-1,100,101,|,103,104"
oElements := oSurface:Elements()
oElements:Add("Item <b>1",-64,-48)
oElements:Add("Item <b>2",32,32)
oSurface:Links():Add(oSurface:Elements:Item(1),oSurface:Elements:Item(2))
oSurface:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
150
|
Clear Undo/Redo queue (method 2)
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oElements
LOCAL oSurface
LOCAL c
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSurface := XbpActiveXControl():new( oForm:drawingArea )
oSurface:CLSID := "Exontrol.Surface.1" /*{AC1DF7F4-0919-4364-8167-2F9B5155EA4B}*/
oSurface:create(,, {10,60},{610,370} )
oSurface:BeginUpdate()
oSurface:AllowUndoRedo := .T.
oElements := oSurface:Elements()
oElements:Add("Item <b>1",-64,-64)
oElements:Add("Item <b>2")
oSurface:Links():Add(oSurface:Elements:Item(1),oSurface:Elements:Item(2))
c := oSurface:UndoRedoQueueLength()
oSurface:UndoRedoQueueLength := 0
oSurface:UndoRedoQueueLength := c
DevOut( oSurface:UndoListAction() )
oSurface:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
149
|
Clear Undo/Redo queue (method 1)
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oElements
LOCAL oSurface
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSurface := XbpActiveXControl():new( oForm:drawingArea )
oSurface:CLSID := "Exontrol.Surface.1" /*{AC1DF7F4-0919-4364-8167-2F9B5155EA4B}*/
oSurface:create(,, {10,60},{610,370} )
oSurface:BeginUpdate()
oSurface:AllowUndoRedo := .T.
oElements := oSurface:Elements()
oElements:Add("Item <b>1",-64,-64)
oElements:Add("Item <b>2")
oSurface:Links():Add(oSurface:Elements:Item(1),oSurface:Elements:Item(2))
oSurface:AllowUndoRedo := .T.
DevOut( oSurface:UndoListAction() )
oSurface:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
148
|
Removes Redo operations
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oElements
LOCAL oSurface
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSurface := XbpActiveXControl():new( oForm:drawingArea )
oSurface:CLSID := "Exontrol.Surface.1" /*{AC1DF7F4-0919-4364-8167-2F9B5155EA4B}*/
oSurface:create(,, {10,60},{610,370} )
oSurface:BeginUpdate()
oSurface:AllowUndoRedo := .T.
oElements := oSurface:Elements()
oElements:Add("Item <b>1",-64,-64)
oElements:Add("Item <b>2")
oSurface:Links():Add(oSurface:Elements:Item(1),oSurface:Elements:Item(2))
oSurface:Undo()
oSurface:RedoRemoveAction(10)
DevOut( oSurface:RedoListAction() )
oSurface:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
147
|
Removes Undo operations
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oElements
LOCAL oSurface
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSurface := XbpActiveXControl():new( oForm:drawingArea )
oSurface:CLSID := "Exontrol.Surface.1" /*{AC1DF7F4-0919-4364-8167-2F9B5155EA4B}*/
oSurface:create(,, {10,60},{610,370} )
oSurface:BeginUpdate()
oSurface:AllowUndoRedo := .T.
oElements := oSurface:Elements()
oElements:Add("Item <b>1",-64,-64)
oElements:Add("Item <b>2")
oSurface:Links():Add(oSurface:Elements:Item(1),oSurface:Elements:Item(2))
oSurface:UndoRemoveAction(10)
DevOut( oSurface:UndoListAction() )
oSurface:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
146
|
Record the UI operations as a block of undo/redo operations
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oElements
LOCAL oSurface
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSurface := XbpActiveXControl():new( oForm:drawingArea )
oSurface:CLSID := "Exontrol.Surface.1" /*{AC1DF7F4-0919-4364-8167-2F9B5155EA4B}*/
oSurface:create(,, {10,60},{610,370} )
oSurface:BeginUpdate()
oSurface:AllowUndoRedo := .T.
oSurface:StartBlockUndoRedo()
oElements := oSurface:Elements()
oElements:Add("Item <b>1",-64,-64)
oElements:Add("Item <b>2")
oSurface:Links():Add(oSurface:Elements:Item(1),oSurface:Elements:Item(2))
oSurface:EndBlockUndoRedo()
DevOut( oSurface:UndoListAction() )
oSurface:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
145
|
Groups the next to current Undo/Redo Actions in a single block
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oElements
LOCAL oSurface
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSurface := XbpActiveXControl():new( oForm:drawingArea )
oSurface:CLSID := "Exontrol.Surface.1" /*{AC1DF7F4-0919-4364-8167-2F9B5155EA4B}*/
oSurface:create(,, {10,60},{610,370} )
oSurface:BeginUpdate()
oSurface:AllowUndoRedo := .T.
oElements := oSurface:Elements()
oElements:Add("Item <b>1",-64,-64)
oElements:Add("Item <b>2")
oSurface:Links():Add(oSurface:Elements:Item(1),oSurface:Elements:Item(2))
oSurface:GroupUndoRedoActions(3)
DevOut( oSurface:UndoListAction() )
oSurface:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
144
|
Limits the number of entries within the Undo/Redo queue
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oElements
LOCAL oSurface
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSurface := XbpActiveXControl():new( oForm:drawingArea )
oSurface:CLSID := "Exontrol.Surface.1" /*{AC1DF7F4-0919-4364-8167-2F9B5155EA4B}*/
oSurface:create(,, {10,60},{610,370} )
oSurface:BeginUpdate()
oSurface:AllowUndoRedo := .T.
oSurface:UndoRedoQueueLength := 1
oElements := oSurface:Elements()
oElements:Add("Item <b>1",-64,-64)
oElements:Add("Item <b>2")
oSurface:Links():Add(oSurface:Elements:Item(1),oSurface:Elements:Item(2))
DevOut( oSurface:UndoListAction() )
oSurface:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
143
|
Lists the Redo actions that can be performed on the surface
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oElements
LOCAL oSurface
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSurface := XbpActiveXControl():new( oForm:drawingArea )
oSurface:CLSID := "Exontrol.Surface.1" /*{AC1DF7F4-0919-4364-8167-2F9B5155EA4B}*/
oSurface:create(,, {10,60},{610,370} )
oSurface:BeginUpdate()
oSurface:AllowUndoRedo := .T.
oElements := oSurface:Elements()
oElements:Add("Item <b>1",-64,-64)
oElements:Add("Item <b>2")
oSurface:Links():Add(oSurface:Elements:Item(1),oSurface:Elements:Item(2))
oSurface:Undo()
DevOut( oSurface:RedoListAction() )
oSurface:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
142
|
Lists the Undo actions that can be performed on the surface
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oElements
LOCAL oSurface
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSurface := XbpActiveXControl():new( oForm:drawingArea )
oSurface:CLSID := "Exontrol.Surface.1" /*{AC1DF7F4-0919-4364-8167-2F9B5155EA4B}*/
oSurface:create(,, {10,60},{610,370} )
oSurface:BeginUpdate()
oSurface:AllowUndoRedo := .T.
oElements := oSurface:Elements()
oElements:Add("Item <b>1",-64,-64)
oElements:Add("Item <b>2")
oSurface:Links():Add(oSurface:Elements:Item(1),oSurface:Elements:Item(2))
DevOut( oSurface:UndoListAction() )
oSurface:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
141
|
Checks whether the Undo operation is possible
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oElements
LOCAL oSurface
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSurface := XbpActiveXControl():new( oForm:drawingArea )
oSurface:CLSID := "Exontrol.Surface.1" /*{AC1DF7F4-0919-4364-8167-2F9B5155EA4B}*/
oSurface:create(,, {10,60},{610,370} )
oSurface:BeginUpdate()
oSurface:AllowUndoRedo := .T.
oElements := oSurface:Elements()
oElements:Add("Item <b>1",-64,-64)
oElements:Add("Item <b>2")
oSurface:Links():Add(oSurface:Elements:Item(1),oSurface:Elements:Item(2))
oSurface:Undo()
DevOut( "CanRedo" )
DevOut( Transform(oSurface:CanRedo(),"") )
oSurface:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
140
|
Call Redo by code
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oElements
LOCAL oSurface
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSurface := XbpActiveXControl():new( oForm:drawingArea )
oSurface:CLSID := "Exontrol.Surface.1" /*{AC1DF7F4-0919-4364-8167-2F9B5155EA4B}*/
oSurface:create(,, {10,60},{610,370} )
oSurface:BeginUpdate()
oSurface:AllowUndoRedo := .T.
oElements := oSurface:Elements()
oElements:Add("Item <b>1",-64,-64)
oElements:Add("Item <b>2")
oSurface:Links():Add(oSurface:Elements:Item(1),oSurface:Elements:Item(2))
oSurface:Undo()
oSurface:Redo()
oSurface:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
139
|
Checks whether the Undo operation is possible
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oElements
LOCAL oSurface
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSurface := XbpActiveXControl():new( oForm:drawingArea )
oSurface:CLSID := "Exontrol.Surface.1" /*{AC1DF7F4-0919-4364-8167-2F9B5155EA4B}*/
oSurface:create(,, {10,60},{610,370} )
oSurface:BeginUpdate()
oSurface:AllowUndoRedo := .T.
oElements := oSurface:Elements()
oElements:Add("Item <b>1",-64,-64)
oElements:Add("Item <b>2")
oSurface:Links():Add(oSurface:Elements:Item(1),oSurface:Elements:Item(2))
DevOut( "CanUndo" )
DevOut( Transform(oSurface:CanUndo(),"") )
oSurface:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
138
|
Call Undo by code
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oElements
LOCAL oSurface
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSurface := XbpActiveXControl():new( oForm:drawingArea )
oSurface:CLSID := "Exontrol.Surface.1" /*{AC1DF7F4-0919-4364-8167-2F9B5155EA4B}*/
oSurface:create(,, {10,60},{610,370} )
oSurface:BeginUpdate()
oSurface:AllowUndoRedo := .T.
oElements := oSurface:Elements()
oElements:Add("Item <b>1",-64,-64)
oElements:Add("Item <b>2")
oSurface:Links():Add(oSurface:Elements:Item(1),oSurface:Elements:Item(2))
oSurface:Undo()
oSurface:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
137
|
Save the element's properties for Undo/Redo operations, by code
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oElements
LOCAL oLink
LOCAL oSurface
LOCAL h
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSurface := XbpActiveXControl():new( oForm:drawingArea )
oSurface:CLSID := "Exontrol.Surface.1" /*{AC1DF7F4-0919-4364-8167-2F9B5155EA4B}*/
oSurface:create(,, {10,60},{610,370} )
oSurface:BeginUpdate()
oSurface:AllowUndoRedo := .T.
oElements := oSurface:Elements()
oElements:Add("Item <b>1",-64,-64)
oElements:Add("Item <b>2")
oSurface:StartBlockUndoRedo()
oLink := oSurface:Links():Add(oSurface:Elements:Item(1),oSurface:Elements:Item(2))
h := oLink:StartUpdateLink()
oLink:SetProperty("Color",AutomationTranslateColor( GraMakeRGBColor ( { 255,0,0 } ) , .F. ))
oLink:Width := 2
oLink:ShowDir := .F.
oLink:ShowLinkType := 2/*exLinkStraight*/
oLink:EndUpdateLink(h)
oSurface:EndBlockUndoRedo()
oSurface:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
136
|
No color is restored for the link when Undo/Redo operation is executed
PROCEDURE OnAddElement(oSurface,Element)
/*Element.ShowCheckBox = True*/
/*Element.CheckBoxAlign = 2*/
RETURN
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oElements
LOCAL oLink
LOCAL oSurface
LOCAL h
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSurface := XbpActiveXControl():new( oForm:drawingArea )
oSurface:CLSID := "Exontrol.Surface.1" /*{AC1DF7F4-0919-4364-8167-2F9B5155EA4B}*/
oSurface:create(,, {10,60},{610,370} )
oSurface:AddElement := {|Element| OnAddElement(oSurface,Element)} /*A new element has been added to the surface.*/
oSurface:BeginUpdate()
oSurface:AllowUndoRedo := .T.
oElements := oSurface:Elements()
oElements:Add("Check <b>1",-64,-64)
oElements:Add("Check <b>2"):Checked := 1/*exChecked*/
oSurface:StartBlockUndoRedo()
oLink := oSurface:Links():Add(oSurface:Elements:Item(1),oSurface:Elements:Item(2))
h := oLink:StartUpdateLink()
oLink:SetProperty("Color",AutomationTranslateColor( GraMakeRGBColor ( { 255,0,0 } ) , .F. ))
oLink:Width := 2
oLink:ShowDir := .F.
oLink:ShowLinkType := 2/*exLinkStraight*/
oLink:EndUpdateLink(h)
oSurface:EndBlockUndoRedo()
oSurface:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
135
|
Save the element's properties for Undo/Redo operations, by code
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oElement
LOCAL oSurface
LOCAL h
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSurface := XbpActiveXControl():new( oForm:drawingArea )
oSurface:CLSID := "Exontrol.Surface.1" /*{AC1DF7F4-0919-4364-8167-2F9B5155EA4B}*/
oSurface:create(,, {10,60},{610,370} )
oSurface:BeginUpdate()
oSurface:AllowUndoRedo := .T.
oSurface:Elements():Add("Item <b>1",-64,-64)
oSurface:StartBlockUndoRedo()
oElement := oSurface:Elements():Add("Item <b>2")
h := oElement:StartUpdateElement()
oElement:SetProperty("BackColor",AutomationTranslateColor( GraMakeRGBColor ( { 0,0,0 } ) , .F. ))
oElement:SetProperty("ForeColor",AutomationTranslateColor( GraMakeRGBColor ( { 255,255,255 } ) , .F. ))
oElement:SetProperty("BorderColor",AutomationTranslateColor( GraMakeRGBColor ( { 255,0,0 } ) , .F. ))
oElement:EndUpdateElement(h)
oSurface:EndBlockUndoRedo()
oSurface:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
134
|
No color is restored for the element when Undo/Redo operation is executed
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oElement
LOCAL oSurface
LOCAL h
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSurface := XbpActiveXControl():new( oForm:drawingArea )
oSurface:CLSID := "Exontrol.Surface.1" /*{AC1DF7F4-0919-4364-8167-2F9B5155EA4B}*/
oSurface:create(,, {10,60},{610,370} )
oSurface:BeginUpdate()
oSurface:AllowUndoRedo := .T.
oSurface:Elements():Add("Item <b>1",-64,-64)
oSurface:StartBlockUndoRedo()
oElement := oSurface:Elements():Add("Item <b>2")
h := oElement:StartUpdateElement()
oElement:SetProperty("BackColor",AutomationTranslateColor( GraMakeRGBColor ( { 0,0,0 } ) , .F. ))
oElement:SetProperty("ForeColor",AutomationTranslateColor( GraMakeRGBColor ( { 255,255,255 } ) , .F. ))
oElement:SetProperty("BorderColor",AutomationTranslateColor( GraMakeRGBColor ( { 255,0,0 } ) , .F. ))
oElement:EndUpdateElement(h)
oSurface:EndBlockUndoRedo()
oSurface:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
133
|
How can I ensure that a specified element fits the surface's visible area
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oElements
LOCAL oPattern
LOCAL oSurface
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSurface := XbpActiveXControl():new( oForm:drawingArea )
oSurface:CLSID := "Exontrol.Surface.1" /*{AC1DF7F4-0919-4364-8167-2F9B5155EA4B}*/
oSurface:create(,, {10,60},{610,370} )
oElements := oSurface:Elements()
oPattern := oElements:Add("Element A",-100):Pattern()
oPattern:Type := 6/*exPatternBDiagonal*/
oPattern:SetProperty("Color",AutomationTranslateColor( GraMakeRGBColor ( { 224,224,224 } ) , .F. ))
oElements:Add("Element B",2000):EnsureVisible()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
132
|
LayoutEndChanging(exUndo), LayoutEndChanging(exRedo) or LayoutEndChanging(exUndoRedoUpdate) notifiy your application once a Undo/Redo operation is executed (CTRL+Z, CTRL+Y) or updated
PROCEDURE OnAddElement(oSurface,Element)
/*Element.ShowCheckBox = True*/
/*Element.CheckBoxAlign = 2*/
RETURN
PROCEDURE OnLayoutEndChanging(oSurface,Operation)
DevOut( "LayoutEndChanging" )
DevOut( Transform(Operation,"") )
RETURN
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oElements
LOCAL oSurface
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSurface := XbpActiveXControl():new( oForm:drawingArea )
oSurface:CLSID := "Exontrol.Surface.1" /*{AC1DF7F4-0919-4364-8167-2F9B5155EA4B}*/
oSurface:create(,, {10,60},{610,370} )
oSurface:AddElement := {|Element| OnAddElement(oSurface,Element)} /*A new element has been added to the surface.*/
oSurface:LayoutEndChanging := {|Operation| OnLayoutEndChanging(oSurface,Operation)} /*Notifies your application once the control's layout has been changed.*/
oSurface:BeginUpdate()
oSurface:AllowUndoRedo := .T.
oElements := oSurface:Elements()
oElements:Add("Check <b>1",-64,-64)
oElements:Add("Check <b>2"):Checked := 1/*exChecked*/
oSurface:Links():Add(oSurface:Elements:Item(1),oSurface:Elements:Item(2))
oSurface:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
131
|
Turn on the Undo/Redo feature
PROCEDURE OnAddElement(oSurface,Element)
/*Element.ShowCheckBox = True*/
/*Element.CheckBoxAlign = 2*/
RETURN
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oElements
LOCAL oSurface
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSurface := XbpActiveXControl():new( oForm:drawingArea )
oSurface:CLSID := "Exontrol.Surface.1" /*{AC1DF7F4-0919-4364-8167-2F9B5155EA4B}*/
oSurface:create(,, {10,60},{610,370} )
oSurface:AddElement := {|Element| OnAddElement(oSurface,Element)} /*A new element has been added to the surface.*/
oSurface:BeginUpdate()
oSurface:AllowUndoRedo := .T.
oElements := oSurface:Elements()
oElements:Add("Check <b>1",-64,-64)
oElements:Add("Check <b>2"):Checked := 1/*exChecked*/
oSurface:Links():Add(oSurface:Elements:Item(1),oSurface:Elements:Item(2))
oSurface:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
130
|
ImageSize property on 32 (specifies the size of control' icons/images/check-boxes/radio-buttons)
PROCEDURE OnAddElement(oSurface,Element)
/*Element.ShowCheckBox = True*/
RETURN
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oAppearance
LOCAL oElement,var_Element
LOCAL oElements
LOCAL oSurface
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSurface := XbpActiveXControl():new( oForm:drawingArea )
oSurface:CLSID := "Exontrol.Surface.1" /*{AC1DF7F4-0919-4364-8167-2F9B5155EA4B}*/
oSurface:create(,, {10,60},{610,370} )
oSurface:AddElement := {|Element| OnAddElement(oSurface,Element)} /*A new element has been added to the surface.*/
oSurface:BeginUpdate()
oSurface:ImageSize := 32
oSurface:Font():Size := 16
oSurface:Images("gBJJgBAIDAAEg4AEEKAD/hz/EMNh8TIRNGwAjEZAEXjAojKAjMLjABhkaABAk0plUrlktl0vmExmUzmk1m03nE5nU7nk9miAoE+oVDolFo1HpFJpU5h8Sf9OqFNqUOqNUqdPq9VrFWrlbr1QpdhAFAkFis1ntFptVrtkrpszrNvmVxqk3uVtm1kmF3sdBvF/wGBmV+j9BYGHwWJulfxdax2NyFdx2JlV6l9Nw7AAGZymdz2Cy2GxErvWcz9ivlwyV21cuxugwktzGIzmvwtl0+53U5y0a0Wazmmyu/3dCyOMyXHx/J5nIr9q3uyqnBxFN3G46ma4vb7mD2Ng4nZze00fDkHC7t7us2rOX5tguetpHRlmz4HVqnXk1PjHO+CMPo9MBMC+j2vC8j7wS8cFNI4kBo05UIvfCT/NsnsApU+0Fqg/T+oy/kPxC0sEQfErKQK96+w28UWRI8UGvO8sTLS9r2PWmsMJTDTask3CsIbIEQRA3shOXEEAO/GclJ9" +;
"FEKrrA8FRbKMXRIlb0JxCkjS1LMswhCcvuel0cv26cSMa8Ufx+2sQwhEUoSXOCjSbLcnxjKc7sdKUVyq28NtVI71P9P7JxtQEapjQ6fzfM8zPfNE2PhIsLL63E40slk5y7N89LcyU9SvMb3SdUc6VJLj5VLVLfO/PS9KzNFHUa/0XyBD0dxlS9cxhMlTRSoNXypPErWDPyfNS+MwprRNO0FD8wVVZ1AI08URwVRjtJ1WCn21QkkUrXVLVPQS/XIkFgTxT9iONZ9xVTdq+L1eKg3kkF6Upe68XtfV51/MtrVjBlwYFL1ev8y1/P6/lyzzYl02wntj0RVFmS1Qa+M5as93QxEUW9e993rfmQ2+vy65M/mL1lhl/2bj2ByVduMtNhCJT9hdz41nN14Ld12Z9UjfI/oUAaGseiw6+uFLLhcVabJOS5RqOE0BHlZ5VnEr5fOMs3st+aa/bbRzrJGV51Y0b0DbqaWXZD90hIsPbjWu52+6Wyadpe66hhO+P/Xi" +;
"oW5rD8ZbrUZuVg6n1dsE/cXmewu1m9PVwnd35/nueXho/NaJzmjc61W76esuT77eG8pTquy9TwWH8LEzG8RDfFalx3Gcfvna9rvG/cptGLd9tuI6TZOP5Fiqi99vea+X4VRcBq/JZZtVQ9cwSs5lsXE372+a9z7PbfB3VVqHyvMctLto8uob6eV0m/cD6MN2v+T33t6sBut42vdv2bJ8a997x2maFJfK+qArbGJPEKE+1qTflMsIdW/GCJX17KcT6/czr/X+u1g29B7j/4BQfWkkx4zIHisjhPCmE0K4SwtXM+d4BvHRwNZOoBph9IJvPek9d40FoMJxf691jj2ywQQcHEWET4XJwkTszlVqm2GokewxtBT1DpQjRxDN0rUVDNKdC3lb6tzNOwh6upMSSYfv4YBCl/bsn9PxiFCEo7SI6Obc9HeOrnY8x4jtHtdpN4GRbaorhsbu18Pph5CiHymI0RpSXGJ/z2oUOxYxG858AyiI+bfJtuTcG5yelBJy" +;
"T8okhqFd4a5yxL0rvulYtKCsZiWxWkc1s1cRoxxwhA31DLE0mR9l9HqX8fJgTDmFMVH0MIsRzVYnwnMi1dyzmhLt2kS2pxIiU62Wj5ptQGlSYFakLonTUJNLKaM5WzlffEkuFkk5wTrhVO2eE7G6lJhxFFYUZ55zmn0WuBCD4pzhirFCKkbomsOoIYmZx5p90LoYWGPdD5g0QmJRKYxbZ6zYoVQ2jVGylSak7KSkFH6RSjpHKFuU+YMyNo5SulkC6I0vonTCitMXPoEpVS2H5FQfEqp2R1opIgAEkJISYARTCukOhmPNI5Ex/wzGHUsicMwA1LHgQ90Y/KpoQHAD+pB/R4NzIaMAB9Xaw1gqaAOsh/A/ptIkWUfhGK1kZH8RgH5GqvgArqRmt4AAPrTroRofBGADkqr6Rmu4D7CEaHARiwpJrEEZsXXwlVjyMWRsaRqwdkLGNBABZmytmyMnaINZqyVpLR2ftKAAAdd6h2osbaskdiq4EZtgSmyNcbVW" +;
"RJNXe3AA7REar3b0stlAAXBtoRmvJGLjEYAHUWsFcwCD/rnaop9aEICMAPdK5hT6xpeuzdOtAgKuJeGfdq6ggEbkTvAP+p9UCHXrvKkcgIA==")
oAppearance := oSurface:VisualAppearance()
oAppearance:Add(1,"gBFLBCJwBAEHhEJAAEhABfICg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7EMRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsOatVqjG5sYjcGC3La9cz3Pq/bpuDCbMxuaK1TrYXr1TTrcofBDldAxXRKDxRDWVhLnYOw9i6XxzjuXprCaOoKB6EwbiCZZCGOdZYlcT4xHmbhMnwNxtn+G5bmqdZ7n4Pw/i+X5zm+dQ9g4CAFjsfAJheOI8HsDoWDWTB/lwSAQkmA5PEgRYoDyDwYFY" +;
"FoFmGCBmBqBphDgRJ0gOTIYBGRB/lyRh0iSCZbjYWJzgWDwIjYLoLmMCJGDKDJjBgWgqG6YhyhGHRzA2aJ1mCABOAiOJvhCZBJBYRoRmSCQmEqEQimkAZgg8TZnDCV4UkmCUmBKZYJGYWoWCUUhiFMNZckNUh2GENoaGaGZmgmJhqhqZpGGIEx2GYIxSGGGJdggWJth2Z4JmYeoemeSZ2H6H4hGmQhihyTRHGYLg7CiCgmgqIpokoNoOiOaJ4jqAochqaZGgaCxpAoZoaiaaJqEmWIcGgShcnCJwqEqFoR3YOoFlgchflqNouiuawHmWSYqGkWZQhcatzmaOoumuSp2j6L5bBaKo0GQKRnGGCxqiyCwmkqMpsksNpOGUGI7A0ew1G0Rxlg0PptgsZuDG2Sx2l6N5tnYNZZjUDRXDCVo5l2FoymqOpukuNpujubwLjmWY5k0ZwxkaFxYlWdp6j6b5Lnafo/nABQdg2FxcUsY5BkmXAkmeQpckwNRrkKTh" +;
"8CSHZBk4NwyC4KxxgMDwakOMZDn8GgwnGAo2C4cwthMcwmCcMoHBMHRehwTIghySYNksZwcH4HBMEsHx5hyPItiweYxnwSZEH4Mozn0fR+DMAo7EYJ50gkdZelKdNql2UgJn0GIukwH4HicQRai2GI4mSVpNl0dZGledgNgcYpYDWUx3FsOQi5YV5anaTY3G6W53A2RxylydxFjiaxEFCCgBBAQ==")
oAppearance:Add(2,"gBFLBCJwBAEHhEJAAEhABcoFg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7EMRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4nGKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEokiEN5NCKfJ9DyTRjnS" +;
"cg1CEYxOBmBpPCgagdgcIZoHoGIFA4AxQkCAxKAgKBwgGSpIBCZhjF2E5UnQPQMiMCJBCIBwxkSQgsgo+JtDKT4ziiQw+k6EwAnsOgLnkHI+yCQ4iEuE4klkPhShEJBpAoPgymOMoaDgHBjFMBgyD0HYTiCZSZhIIIGC4ChiHSew5kwM5omILZPiOBI0hwZw5kodIdA+M4Uj4PxOmMSJ9DuTQzmyZgviceZagaHVfj4awwmaAh2GUIYmCOEZZDaDRDFGdwcg4EwyHMN4LBOaJbCoaZqgKH8qkMfIyD8DozDyfA7A0Coui0OpMmOZJdCsahKg6NooioChwmEMxLEoXJbDUTRXGSUgykyMgQG0GpPHMdI3D4TRCgSeQ0kmaw+lGNAtCOZJVCiT5DhyRQwAqMg0EoDBBGEGAsASC5yiSCw+k4Mp6lWNQuksTpRjMTxDGzJwGmGMpDDKXYTECSAxl6Q5olkK4PgMMIVkASRMBMBgzEkaZEjsNALhIZA6AeQB" +;
"gk0ZJEgAAJ0CIAgODMNIsD6DRih9uYwFyAwfCUb5ijmbI+gwdxkk8MZMGeMpPCkDxzBiC5MHMPJLDSSROFMLIoBEQogEMFJPnENYQGgE4DCOaJfC7tYkhGTQ0kyWwykuXpMiyRpKjKR4wngM4JmOWJACCdYtHMWw+Eych4nINYLAEYA8AgdAEEsQZajaQoog4GxPiMVIolcdxNG8XZVkmNoRwWRVBlFeFEeAZQJgnFiHgHwcAhjhHgGMSI5xki2CyA4EQsA3i0HkBsLwKRFgAHcPkHopBJBcBeDUYI7xyDOHqKkWo2hLCsDIBIY4qQ5A8DoMMYwOAqCSBGKgU4yB2iDBwIgB4hxQgAAWNgBoAgsBdEcBUQ4sQ9A/HqD0JI8RpBzH2OYVgahLBHFiJQJweQiDhDUE4SAARQAzFsG0EQwA6AOWSBkFgVAIBCHeGERQFQiCQHeFkC4vkiB8DyB4F4QxVDvGMNEOQexMjlBeOAKQiQLgfDA7QEAaRiBdEkH8" +;
"TI7AZiFBAGYBIABWjYBiGACioQ4C1A+AMMgWhfgxHgPsT4URIB0COKgPgjRwiAB8AYUArxBgCF6J4GY5hrAOCAPAAoGRRCsCIMEXATXfgAF8BMJwURuEQDgD4Q4OBoAeHGFgLIwQrC2D0JoSQ+QvhrHoSgQI8AbDFGID8C4Ah6BQAQAASACwgCYCMAUMARAvCKAiAMCAokeCKBEOAKgCBoDaHuMsEAqwJDiACDURg8R6gPCyDofYWAhgoDIJ4ZAuhoiGAYGgRoQw/A0GMMga4GwxiEDeIYYInATCDBQAoBAwAoDlA0KMBoVRGiDGwDQUYIRsgaGGDgM4LAwDWB8EcIA1APhjEgGQVwgRIgjFIIQHokgZA+CSEkLIKQSjHAwMsCwDAsAEB2ABTIwRwD6A8CMToSxkAxE4HYIw+BsgbBEDAHYBwojCBoIYFgXSjABE4MsHIbQWhlGILQS4UhvBdAUKEEwHgxDAAABQQQUAhgKHiDwE4JS4A7BGLQZwCR4g" +;
"aBEMUYAqgKApHgGwVAIRNgvBMMQXImwZDtE4I8UIyAZCDCAE8AwrhgAdEEBACQLRCg4FEB4AYtA7CdEiPQMoJAMDNCkOMCAXAFDhH0D0Q4EgfAaGSK4NYzRUj9BuCgAgswOBjB4Fqpw8B2ADAwE4A4Qx2DAE6JIaQPQGhAGKBcIQ5B5gHByKIFARwADbAyKUfgdBKBBGyEcVIAB/ijHoIoSA0gdBNl+OATYERZgBGSDYWIWAUCEGKA4FAhR7CIBtYQGYZg4CMAiKEcAOwkBjHWE8Z4lQgA+DkBoTohwwCeAaMEEgBQCCABgHMRwQRhhMEWFQd4HwZgwDqFESItAbAGEANCpINAzANCCJkK4ah+heFYBURwsQrS2CsMYMoWGBhYDWI0EInQgiApXaOVI1QFDsC8MUNoMBMA1HMJga4eh+BeAWOgNNowGjYzCGAAwax+iJBeBVT4gxoBIAGFsJFBxgBiGKFkKQ7g5DFFQEcAo4AzDDACKEQQLgCiJDYB0M" +;
"gRBCCQAgQEA==")
oAppearance:Add(3,"gBFLBCJwBAEHhEJAAEhABQ4Fg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7EMRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4nGKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEosiYN5NHMOJ+D4TpTnS" +;
"eQ7CEY4uBmBpPhgagdgcIZoHibIEyUBJZDQIJShoCgcCAcoyAQOYYlcZJ1D0DxDCiQgwEiAZMHEMJLFKPJ9D2DoDnidQ4k+Y5QmKEROBkIhKD0JIZDIS4TGUCQuEeEJjnOIg8CuY4RkYNgwGMM5RllGpThDRYIGKZIpCkJFUH0PINyWcQ3CaaZCG+HBnEOTJhD8Tx4GoeQ/GcaZSHOH5nCmQhshoZhihYYwhiYA4RlkNoNEMUZ3ByDjwEsPxOnMaJ9DuDR6F6GYmCmKh0nANtMioP4Gg8aoSiIO5NhodociqaY6GaFYkEyOg8lsNRNTaUgykyMgQG0GpPiONJbD8DpDEyfA6k0KwOkWMQsGsAJU0SagwkoJQJDIPISCQCJTGSUwyGaM4KkmMgtksHpFjAZ4TGCBAbgaSpcksdhNAMIJHHsD5TjSWWMAMOpwjyLwbk6cAz0KRJiDkDYzESCwiggcgcgYIQwCIEINCMCITj6TVxkMXp2j0cQLlCTo7E2F4" +;
"ymkMZdhMPJHDGHpLAyVg+k4UwrCCSIyByDJ8DuDY8CiWY0kiXAXC6QJwFKGIjCeJpjgyezjlyDw6klHx5myRoMGwZwbkcToTEiew4kwbQfEmUgPkOKJUD4DpTHSHQmgkXI/ASTA1g0XIEDMTBimyfI7jSLYHEiUoPk0Fw/kadAsHGao8A0A5smEMJ2mNyg5gzJZwDgCpChyIZVyIZwFCMJEPASRkBqE+IcHInRcDxA2H4bIsx0AtDsIBpwZwYicD6BscwDwUBgHCIYaIfgtiVH2O4WgUwJjEFeAEQA7y4hMCiBMS4aRdB9A4CYE4LxljyBMHcDItBxinDCLcTYmgejBFQ9UTg9gFBOEmAQTI7A4iZGMGkQAWQ7jYA2HIL8BRAjDG4HcCwARbjZHiNoDw1nLDnGyNINQ+wjCpBMEgcovQUgICQJEcgWRuBvAyJ4d4ugpCUAINcHogxIgnDiM4N4axzD3F2JMTY/hRqYF6FsWIxhYAGGoAALQYgYirBwBE" +;
"BwpAjBEAAIEIYsA2gOHCMAGgXAACIDmMITAUgFABH0D0I4WwvhNFGMAOIvxRD2GKNcMA8gjAPDCPwBogRPAxA8PgRwZRICYDED8RAXQEghEAN8DIgwIBdB4JYWwMgtiQHoFQKAiRFguFKGwGQhglDsEOVwEQQRkCKBwOIHgSREDRBYHEXQcQdD7GIGARQHRxipBrMobgewDCUCADsEYWAzgMHKHQDQxxsDzA6EMfAeQHB4GQDkUYPA0iECiKoGgRhcDdA2GMQA8AOCjDSPgHI4QnApAKBICwHg1A+BcAwcYsgbjGGQNkCIgRsA6EcBEWANADjsB0B8YYzQQDIGSBcEYZBCCPEkFIHQSgkgZAwG4IwBAbAYGGAgL4Ch4g8BOCQAA2KKC0GcAke4AAXAFCoHkDw4xbBFEcJkE4JRSiEFeJYKQVRMgJHODwX4xAgC/AsIIZAeAHDRG0HYI40RKCLEGDUI4jAghwBWIceA+whCpHMFYZYOQxglDMHMBQGxYj" +;
"VHiAoBIPgfgHGwPsHYJRSB6A0IERQLhCjJHMA4OQoAoCOACLYGYSx8DpBQIMWQdRnDRH+DsE4fB3CeAmM67kAAXBFEIDYDI7wLBtEoEIfYNwjiUGGJQYQMAjCHEAO0C4zxW29CoCgfIxR9AKA6J8BgUAIhDGMIoJ40hqgwCgKETgnBhhqCGI0AIqgZhGDANQDIlBDCRGkCoJISR0g1BSKQOgfAzBRG0DYHARh4DeDAOwANuw8ApCKKkYg/RPhjBsH0J4yg5hPGWN0GwFBHQBFaDoQIURljFAoB4GgzRVzbBECQFQRQoguHGHANwDRdCKy8CgSIGwhhoDYJYYI1giBICSAEgI=")
oSurface:SetProperty("Background",70/*exCheckBoxState0*/,0x1000000)
oSurface:SetProperty("Background",71/*exCheckBoxState1*/,0x2000000)
oSurface:SetProperty("Background",72/*exCheckBoxState2*/,0x3000000)
oElements := oSurface:Elements()
var_Element := oSurface:Elements():Add("Element Check 1",-64,-64)
oElements:Add("Child"):Parent := var_Element
var_Element:Pictures := "1/2"
var_Element:Expanded := .F.
oElement := oElements:Add("Element Check 2",32,96)
oElement:Checked := 1/*exChecked*/
oElement:Pictures := "1,2"
oSurface:Home()
oSurface:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
129
|
ImageSize property on 16 (default) (specifies the size of control' icons)
PROCEDURE OnAddElement(oSurface,Element)
/*Element.ShowCheckBox = True*/
RETURN
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oElement,var_Element
LOCAL oElements
LOCAL oSurface
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSurface := XbpActiveXControl():new( oForm:drawingArea )
oSurface:CLSID := "Exontrol.Surface.1" /*{AC1DF7F4-0919-4364-8167-2F9B5155EA4B}*/
oSurface:create(,, {10,60},{610,370} )
oSurface:AddElement := {|Element| OnAddElement(oSurface,Element)} /*A new element has been added to the surface.*/
oSurface:BeginUpdate()
oSurface:ImageSize := 16
oSurface:Images("gBJJgBAIDAAEg4ACEKAD/hz/EMNh8TIRNGwAjEZAEXjAojJAjMLjABAAgjUYkUnlUrlktl0vmExmUzmk1m03nE5nU7nkrQCAntBoVDolFo1HoM/ADAplLptImdMYFOqdSqlXq1QrVbrlGpVWsFNrNdnNjsk7pQAtNroFnt0sh8Yr9iulTuNxs1Eu8OiT/vsnsNVutXlk/oGGtVKxGLxWNtsZtN8iUYuNvy0Zvd+xNYwdwvl4p870GCqc8vOeuVttmp1knyOayWVy+WzN/ze1wOElenm+12WUz/Bv2/3UyyWrzeutux2GSyGP2dQ33C1ur3GD3M4zUNzHdlWjq/E3nGzVpjWv4HA7fRy/Tv2IrN8rPW6nZ3ve7mUlfu20Z8acvQyb+vY9jasYoDwMm+LytVBDqKG3z8O3Cb8P+mkAuY9cCQ2uL4KaxDKvkp8RNLEjqugnrwQo/UWPzFyeQw5sNLZFENrI4kOqU66pw8uzmOKvTqNqjULJvGL1JO48GtT" +;
"GsbLdEL3scxLlyiw8dQeoUVxdLTtyKmUjwGlslRPJsnK1HbAKbKCrsQo8uQk/CeP44iaR/ATnTNPLvyxPU+z9P9AUDQVBowiofJXQ6Oo+kKMpIkjztE4TKn4P6JowfgPnwD5/nAjB8AOeAPo0eAA1IAFH07UhAIMpYAVIYFHqBUhwVjV1S1EtQAHxW65V0AZwAeuQAnwB5gAPYViEDVhwAHTQBkCjB4gOhwDmCyhH0sACAg==")
oElements := oSurface:Elements()
var_Element := oSurface:Elements():Add("Element Check 1",-64,-64)
oElements:Add("Child"):Parent := var_Element
var_Element:Pictures := "1/2"
var_Element:Expanded := .F.
oElement := oElements:Add("Element Check 2",0,32)
oElement:Checked := 1/*exChecked*/
oElement:Pictures := "1,2"
oSurface:Home()
oSurface:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
128
|
We want to have option to start/end connectors at the middle of each side of the elements
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oElements
LOCAL oLinks
LOCAL oSurface
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSurface := XbpActiveXControl():new( oForm:drawingArea )
oSurface:CLSID := "Exontrol.Surface.1" /*{AC1DF7F4-0919-4364-8167-2F9B5155EA4B}*/
oSurface:create(,, {10,60},{610,370} )
oSurface:BeginUpdate()
oSurface:ShowLinks := -1/*exShowLinks*/
oElements := oSurface:Elements()
oElements:Add("Element <sha ;;0>1")
oElements:Add("Element <sha ;;0>2",164,64)
oElements:Add("Element <sha ;;0>3",0,132)
oLinks := oSurface:Links()
oLinks:Add(oSurface:Elements:Item(1),oSurface:Elements:Item(2))
oLinks:Add(oSurface:Elements:Item(3),oSurface:Elements:Item(2))
oSurface:FitToClient()
oSurface:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
127
|
How can I determine the position the user clicks within the element's boundaries (Click event)
PROCEDURE OnClick(oSurface)
LOCAL X,Y,e
e := oSurface:ElementFromPoint(-1,-1)
X := -1
Y := -1
oSurface:PointToPosition(X,Y)
DevOut( Transform(e,"") )
DevOut( Transform(X,"") )
DevOut( Transform(Y,"") )
RETURN
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oElements
LOCAL oSurface
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSurface := XbpActiveXControl():new( oForm:drawingArea )
oSurface:CLSID := "Exontrol.Surface.1" /*{AC1DF7F4-0919-4364-8167-2F9B5155EA4B}*/
oSurface:create(,, {10,60},{610,370} )
oSurface:Click := {|| OnClick(oSurface)} /*Occurs when the user presses and then releases the left mouse button over the control.*/
oSurface:BeginUpdate()
oElements := oSurface:Elements()
oElements:Add("Element 1")
oElements:Add("Element 2",128,64)
oSurface:FitToClient()
oSurface:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
126
|
How can I determine the position the user clicks within the element's boundaries (MouseMove event)
PROCEDURE OnMouseMove(oSurface,Button,Shift,X,Y)
LOCAL e
e := oSurface:ElementFromPoint(X,Y)
oSurface:PointToPosition(X,Y)
DevOut( Transform(e,"") )
DevOut( Transform(X,"") )
DevOut( Transform(Y,"") )
RETURN
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oElements
LOCAL oSurface
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSurface := XbpActiveXControl():new( oForm:drawingArea )
oSurface:CLSID := "Exontrol.Surface.1" /*{AC1DF7F4-0919-4364-8167-2F9B5155EA4B}*/
oSurface:create(,, {10,60},{610,370} )
oSurface:MouseMove := {|Button,Shift,X,Y| OnMouseMove(oSurface,Button,Shift,X,Y)} /*Occurs when the user moves the mouse.*/
oSurface:BeginUpdate()
oElements := oSurface:Elements()
oElements:Add("Element 1")
oElements:Add("Element 2",128,64)
oSurface:FitToClient()
oSurface:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
125
|
How can I convert the screen position (mouse) to surface position
PROCEDURE OnMouseMove(oSurface,Button,Shift,X,Y)
DevOut( "Point " )
DevOut( Transform(X,"") )
DevOut( Transform(Y,"") )
oSurface:PointToPosition(X,Y)
DevOut( "Position " )
DevOut( Transform(X,"") )
DevOut( Transform(Y,"") )
RETURN
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oElements
LOCAL oLinks
LOCAL oSurface
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSurface := XbpActiveXControl():new( oForm:drawingArea )
oSurface:CLSID := "Exontrol.Surface.1" /*{AC1DF7F4-0919-4364-8167-2F9B5155EA4B}*/
oSurface:create(,, {10,60},{610,370} )
oSurface:MouseMove := {|Button,Shift,X,Y| OnMouseMove(oSurface,Button,Shift,X,Y)} /*Occurs when the user moves the mouse.*/
oSurface:BeginUpdate()
oElements := oSurface:Elements()
oElements:Add("Element <sha ;;0>1")
oElements:Add("Element <sha ;;0>2",164,64)
oElements:Add("Element <sha ;;0>3",0,132)
oLinks := oSurface:Links()
oLinks:Add(oSurface:Elements:Item(1),oSurface:Elements:Item(2))
oLinks:Add(oSurface:Elements:Item(3),oSurface:Elements:Item(2))
oLinks:Add(oSurface:Elements:Item(3),oSurface:Elements:Item(1))
oSurface:FitToClient()
oSurface:AxisStyle := 192/*0xc0+*/
oSurface:SetProperty("AxisColor",AutomationTranslateColor( GraMakeRGBColor ( { 128,128,128 } ) , .F. ))
oSurface:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
124
|
Is is possible to show just the positive coordinates
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oElements
LOCAL oLinks
LOCAL oSurface
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSurface := XbpActiveXControl():new( oForm:drawingArea )
oSurface:CLSID := "Exontrol.Surface.1" /*{AC1DF7F4-0919-4364-8167-2F9B5155EA4B}*/
oSurface:create(,, {10,60},{610,370} )
oSurface:BeginUpdate()
oSurface:Coord := 17/*exAllowPositiveOnly+exCartesian*/
oSurface:SetProperty("AxisColor",AutomationTranslateColor( GraMakeRGBColor ( { 128,128,128 } ) , .F. ))
oSurface:AxisStyle := 259/*exLinesThick+exLinesDot4*/
oSurface:ShowLinks := -1/*exShowLinks*/
oElements := oSurface:Elements()
oElements:Add("Element <sha ;;0>1")
oElements:Add("Element <sha ;;0>2",164,64)
oElements:Add("Element <sha ;;0>3",0,132)
oLinks := oSurface:Links()
oLinks:Add(oSurface:Elements:Item(1),oSurface:Elements:Item(2))
oLinks:Add(oSurface:Elements:Item(3),oSurface:Elements:Item(2))
oSurface:FitToClient()
oSurface:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
123
|
Cartesian coordinates (positive coordinates are shown top-right to the origin)
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oElements
LOCAL oLinks
LOCAL oSurface
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSurface := XbpActiveXControl():new( oForm:drawingArea )
oSurface:CLSID := "Exontrol.Surface.1" /*{AC1DF7F4-0919-4364-8167-2F9B5155EA4B}*/
oSurface:create(,, {10,60},{610,370} )
oSurface:BeginUpdate()
oSurface:Coord := 1/*exCartesian*/
oElements := oSurface:Elements()
oElements:Add("Element <sha ;;0>1")
oElements:Add("Element <sha ;;0>2",164,64)
oElements:Add("Element <sha ;;0>3",0,132)
oLinks := oSurface:Links()
oLinks:Add(oSurface:Elements:Item(1),oSurface:Elements:Item(2))
oLinks:Add(oSurface:Elements:Item(3),oSurface:Elements:Item(2))
oLinks:Add(oSurface:Elements:Item(3),oSurface:Elements:Item(1))
oSurface:FitToClient()
oSurface:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
122
|
Default coordinates (positive coordinates are shown bottom-right to the origin)
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oElements
LOCAL oLinks
LOCAL oSurface
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSurface := XbpActiveXControl():new( oForm:drawingArea )
oSurface:CLSID := "Exontrol.Surface.1" /*{AC1DF7F4-0919-4364-8167-2F9B5155EA4B}*/
oSurface:create(,, {10,60},{610,370} )
oSurface:BeginUpdate()
oSurface:Coord := 0/*exDefCoord*/
oElements := oSurface:Elements()
oElements:Add("Element <sha ;;0>1")
oElements:Add("Element <sha ;;0>2",164,64)
oElements:Add("Element <sha ;;0>3",0,132)
oLinks := oSurface:Links()
oLinks:Add(oSurface:Elements:Item(1),oSurface:Elements:Item(2))
oLinks:Add(oSurface:Elements:Item(3),oSurface:Elements:Item(2))
oLinks:Add(oSurface:Elements:Item(3),oSurface:Elements:Item(1))
oSurface:FitToClient()
oSurface:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
121
|
Is it possible to customize the path of the links orthogonally similar with Microsoft Visio tool
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oElements
LOCAL oLinks
LOCAL oSurface
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSurface := XbpActiveXControl():new( oForm:drawingArea )
oSurface:CLSID := "Exontrol.Surface.1" /*{AC1DF7F4-0919-4364-8167-2F9B5155EA4B}*/
oSurface:create(,, {10,60},{610,370} )
oSurface:BeginUpdate()
oSurface:AllowLinkControlPoint := 31/*exOrthoArrange+exMiddleControlPoint+exControlPoint+exEndControlPoint+exStartControlPoint*/
oElements := oSurface:Elements()
oElements:Add("Element <sha ;;0>1")
oElements:Add("Element <sha ;;0>2",164,64)
oElements:Add("Element <sha ;;0>3",0,132)
oLinks := oSurface:Links()
oLinks:Add(oSurface:Elements:Item(1),oSurface:Elements:Item(2))
oLinks:Add(oSurface:Elements:Item(3),oSurface:Elements:Item(2))
oLinks:Add(oSurface:Elements:Item(3),oSurface:Elements:Item(1))
oSurface:Zoom := 200
oSurface:FitToClient()
oSurface:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
120
|
Does your control supports OLE Drag and Drop
PROCEDURE OnOLEDragDrop(oSurface,Data,Effect,Button,Shift,X,Y)
DevOut( Transform(Data,"") )
RETURN
PROCEDURE OnOLEStartDrag(oSurface,Data,AllowedEffects)
/*Data.SetData("some data to drag")*/
RETURN
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oElement
LOCAL oSurface
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSurface := XbpActiveXControl():new( oForm:drawingArea )
oSurface:CLSID := "Exontrol.Surface.1" /*{AC1DF7F4-0919-4364-8167-2F9B5155EA4B}*/
oSurface:create(,, {10,60},{610,370} )
oSurface:OLEDragDrop := {|Data,Effect,Button,Shift,X,Y| OnOLEDragDrop(oSurface,Data,Effect,Button,Shift,X,Y)} /*Occurs when a source component is dropped onto a target component when the source component determines that a drop can occur.*/
oSurface:OLEStartDrag := {|Data,AllowedEffects| OnOLEStartDrag(oSurface,Data,AllowedEffects)} /*Occurs when the OLEDrag method is called.*/
oSurface:OLEDropMode := 1/*exOLEDropManual*/
oElement := oSurface:Elements():Add("Click the Element wait for .5 second until + cursor is shown, to start <b>OLE Drag and Drop</b>")
oElement:CaptionSingleLine := 0/*exCaptionWordWrap*/
oElement:AutoSize := .F.
oElement:Width := 256
oElement:Height := 56
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
119
|
Is it possible to disable customizing the path of a specified link
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oElements
LOCAL oLink
LOCAL oLinks
LOCAL oSurface
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSurface := XbpActiveXControl():new( oForm:drawingArea )
oSurface:CLSID := "Exontrol.Surface.1" /*{AC1DF7F4-0919-4364-8167-2F9B5155EA4B}*/
oSurface:create(,, {10,60},{610,370} )
oSurface:BeginUpdate()
oSurface:AllowLinkControlPoint := -1/*0xffffff80+exAllowChangeTo+exAllowChangeFrom+exOrthoArrange+exMiddleControlPoint+exControlPoint+exEndControlPoint+exStartControlPoint*/
oElements := oSurface:Elements()
oElements:Add("Element <sha ;;0>A")
oElements:Add("Element <sha ;;0>B",164,64)
oElements:Add("Element <sha ;;0>B",0,132)
oLinks := oSurface:Links()
oLinks:Add(oSurface:Elements:Item(1),oSurface:Elements:Item(2)):CustomPath := "0.5,0.25,0.5,.75"
oLinks:Add(oSurface:Elements:Item(3),oSurface:Elements:Item(2)):CustomPath := "0.5,0.25,0.5,.75"
oLink := oLinks:Add(oSurface:Elements:Item(3),oSurface:Elements:Item(1))
oLink:ShowLinkType := 3/*exLinkStraight+exLinkDirect*/
oLink:StartPos := 0/*LeftAlignment*/
oLink:SetProperty("Color",AutomationTranslateColor( GraMakeRGBColor ( { 128,128,128 } ) , .F. ))
oLink:AllowControlPoint := 0/*exNoControlPoint*/
oSurface:Zoom := 200
oSurface:FitToClient()
oSurface:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
118
|
How do I let user customizes the link's path
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oElements
LOCAL oLink
LOCAL oLinks
LOCAL oSurface
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSurface := XbpActiveXControl():new( oForm:drawingArea )
oSurface:CLSID := "Exontrol.Surface.1" /*{AC1DF7F4-0919-4364-8167-2F9B5155EA4B}*/
oSurface:create(,, {10,60},{610,370} )
oSurface:BeginUpdate()
oSurface:AllowLinkControlPoint := -1/*0xffffff80+exAllowChangeTo+exAllowChangeFrom+exOrthoArrange+exMiddleControlPoint+exControlPoint+exEndControlPoint+exStartControlPoint*/
oElements := oSurface:Elements()
oElements:Add("Element <sha ;;0>A")
oElements:Add("Element <sha ;;0>B",164,64)
oElements:Add("Element <sha ;;0>B",0,132)
oLinks := oSurface:Links()
oLinks:Add(oSurface:Elements:Item(1),oSurface:Elements:Item(2)):CustomPath := "0.5,0.25,0.5,.75"
oLinks:Add(oSurface:Elements:Item(3),oSurface:Elements:Item(2)):CustomPath := "0.5,0.25,0.5,.75"
oLink := oLinks:Add(oSurface:Elements:Item(3),oSurface:Elements:Item(1))
oLink:ShowLinkType := 3/*exLinkStraight+exLinkDirect*/
oLink:StartPos := 0/*LeftAlignment*/
oSurface:Zoom := 200
oSurface:FitToClient()
oSurface:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
117
|
How can I generate a picture/image/graph from my diagram
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oElements
LOCAL oLinks
LOCAL oSurface
LOCAL var_CopyTo
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSurface := XbpActiveXControl():new( oForm:drawingArea )
oSurface:CLSID := "Exontrol.Surface.1" /*{AC1DF7F4-0919-4364-8167-2F9B5155EA4B}*/
oSurface:create(,, {10,60},{610,370} )
oElements := oSurface:Elements()
oElements:Add("Element A"):ID := "A"
oElements:Add("Element B"):ID := "B"
oElements:Add("Element C"):ID := "C"
oElements:Add("Element D"):ID := "D"
oElements:Add("Element E"):ID := "E"
oElements:Add("Element E"):ID := "F"
oLinks := oSurface:Links()
oLinks:Add(oSurface:Elements:Item("A"),oSurface:Elements:Item("B"))
oLinks:Add(oSurface:Elements:Item("A"),oSurface:Elements:Item("C"))
oLinks:Add(oSurface:Elements:Item("B"),oSurface:Elements:Item("D"))
oLinks:Add(oSurface:Elements:Item("B"),oSurface:Elements:Item("C"))
oLinks:Add(oSurface:Elements:Item("A"),oSurface:Elements:Item("E"))
oLinks:Add(oSurface:Elements:Item("A"),oSurface:Elements:Item("F"))
oSurface:SetProperty("DefArrange",4/*exDefArrangeCompact*/,.F.)
oSurface:Arrange()
var_CopyTo := oSurface:CopyTo("c:/temp/xtest.jpg")
DevOut( "!!!check the file c:/temp/xtest.jpg!!!" )
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
116
|
How can I generate a picture/image/graph from my diagram
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oElements
LOCAL oPrint
LOCAL oLinks
LOCAL oSurface
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSurface := XbpActiveXControl():new( oForm:drawingArea )
oSurface:CLSID := "Exontrol.Surface.1" /*{AC1DF7F4-0919-4364-8167-2F9B5155EA4B}*/
oSurface:create(,, {10,60},{610,370} )
oElements := oSurface:Elements()
oElements:Add("Element A"):ID := "A"
oElements:Add("Element B"):ID := "B"
oElements:Add("Element C"):ID := "C"
oElements:Add("Element D"):ID := "D"
oElements:Add("Element E"):ID := "E"
oElements:Add("Element E"):ID := "F"
oLinks := oSurface:Links()
oLinks:Add(oSurface:Elements:Item("A"),oSurface:Elements:Item("B"))
oLinks:Add(oSurface:Elements:Item("A"),oSurface:Elements:Item("C"))
oLinks:Add(oSurface:Elements:Item("B"),oSurface:Elements:Item("D"))
oLinks:Add(oSurface:Elements:Item("B"),oSurface:Elements:Item("C"))
oLinks:Add(oSurface:Elements:Item("A"),oSurface:Elements:Item("E"))
oLinks:Add(oSurface:Elements:Item("A"),oSurface:Elements:Item("F"))
oSurface:SetProperty("DefArrange",4/*exDefArrangeCompact*/,.F.)
oSurface:Arrange()
oPrint := CreateObject("Exontrol.Print")
oPrint:PrintExt := oSurface
oPrint:CopyTo("c:/temp/xtest.jpg")
DevOut( "!!!check the file c:/temp/xtest.jpg!!!" )
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
115
|
How can I print the component
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oElement,oElement1
LOCAL oElements
LOCAL oPrint
LOCAL oLink,oLink1,oLink2
LOCAL oLinks
LOCAL oSurface
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSurface := XbpActiveXControl():new( oForm:drawingArea )
oSurface:CLSID := "Exontrol.Surface.1" /*{AC1DF7F4-0919-4364-8167-2F9B5155EA4B}*/
oSurface:create(,, {10,60},{610,370} )
oElements := oSurface:Elements()
oElements:Add("Element <sha ;;0>A")
oElements:Add("Element <sha ;;0>B",0,76)
oElement := oElements:Add("Element <sha ;;0>C",-76,32)
oElement:AutoSize := .F.
oElement:Height := 32
oElement1 := oElements:Add("Element <sha ;;0>D",76,32)
oElement1:AutoSize := .F.
oElement1:Height := 32
oLinks := oSurface:Links()
oLink := oLinks:Add(oSurface:Elements:Item(1),oSurface:Elements:Item(2))
oLink:StartPos := 1/*CenterAlignment*/
oLink:EndPos := 1/*CenterAlignment*/
oLink1 := oLinks:Add(oSurface:Elements:Item(2),oSurface:Elements:Item(1))
oLink1:StartPos := 1/*CenterAlignment*/
oLink1:EndPos := 1/*CenterAlignment*/
oLinks:Add(oSurface:Elements:Item(3),oSurface:Elements:Item(4))
oLink2 := oLinks:Add(oSurface:Elements:Item(4),oSurface:Elements:Item(3))
oLink2:StartPos := 0/*LeftAlignment*/
oLink2:EndPos := 2/*RightAlignment*/
oPrint := CreateObject("Exontrol.Print")
oPrint:PrintExt := oSurface
oPrint:Preview()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
114
|
How can I show direct-links
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oElements
LOCAL oLinks
LOCAL oSurface
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSurface := XbpActiveXControl():new( oForm:drawingArea )
oSurface:CLSID := "Exontrol.Surface.1" /*{AC1DF7F4-0919-4364-8167-2F9B5155EA4B}*/
oSurface:create(,, {10,60},{610,370} )
oSurface:ShowLinksType := 1/*exLinkDirect*/
oElements := oSurface:Elements()
oElements:Add("Element A"):ID := "A"
oElements:Add("Element B",128,64):ID := "B"
oElements:Add("Element C",128,-64):ID := "C"
oLinks := oSurface:Links()
oLinks:Add(oSurface:Elements:Item("A"),oSurface:Elements:Item("B"))
oLinks:Add(oSurface:Elements:Item("A"),oSurface:Elements:Item("C"))
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
113
|
How can I show straight-links
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oElements
LOCAL oLinks
LOCAL oSurface
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSurface := XbpActiveXControl():new( oForm:drawingArea )
oSurface:CLSID := "Exontrol.Surface.1" /*{AC1DF7F4-0919-4364-8167-2F9B5155EA4B}*/
oSurface:create(,, {10,60},{610,370} )
oSurface:ShowLinksType := 2/*exLinkStraight*/
oElements := oSurface:Elements()
oElements:Add("Element A"):ID := "A"
oElements:Add("Element B",128,64):ID := "B"
oElements:Add("Element C",128,-64):ID := "C"
oLinks := oSurface:Links()
oLinks:Add(oSurface:Elements:Item("A"),oSurface:Elements:Item("B"))
oLinks:Add(oSurface:Elements:Item("A"),oSurface:Elements:Item("C"))
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
112
|
How can I show round-links
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oElements
LOCAL oLinks
LOCAL oSurface
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSurface := XbpActiveXControl():new( oForm:drawingArea )
oSurface:CLSID := "Exontrol.Surface.1" /*{AC1DF7F4-0919-4364-8167-2F9B5155EA4B}*/
oSurface:create(,, {10,60},{610,370} )
oSurface:ShowLinksType := -1/*exLinkRound*/
oElements := oSurface:Elements()
oElements:Add("Element A"):ID := "A"
oElements:Add("Element B",128,64):ID := "B"
oElements:Add("Element C",128,-64):ID := "C"
oLinks := oSurface:Links()
oLinks:Add(oSurface:Elements:Item("A"),oSurface:Elements:Item("B"))
oLinks:Add(oSurface:Elements:Item("A"),oSurface:Elements:Item("C"))
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
111
|
I've tried to insert a "<br>" in the Caption property text and it just ignores it
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oElement
LOCAL oElements
LOCAL oSurface
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSurface := XbpActiveXControl():new( oForm:drawingArea )
oSurface:CLSID := "Exontrol.Surface.1" /*{AC1DF7F4-0919-4364-8167-2F9B5155EA4B}*/
oSurface:create(,, {10,60},{610,370} )
oSurface:BeginUpdate()
oElements := oSurface:Elements()
oElement := oElements:Add("caption")
oElement:CaptionSingleLine := 0/*exCaptionWordWrap*/
oElement:Caption := "first caption<br>second caption<br>third caption"
oSurface:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
110
|
How do I align the extra-caption
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oElement
LOCAL oElements
LOCAL oSurface
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSurface := XbpActiveXControl():new( oForm:drawingArea )
oSurface:CLSID := "Exontrol.Surface.1" /*{AC1DF7F4-0919-4364-8167-2F9B5155EA4B}*/
oSurface:create(,, {10,60},{610,370} )
oSurface:BeginUpdate()
oElements := oSurface:Elements()
oElement := oElements:Add("caption")
oElement:AutoSize := .F.
oElement:Width := 128
oElement:Height := 64
oElement:ExtraCaption := "extra-caption"
oElement:ExtraCaptionAlign := 34/*exBottomRight*/
oSurface:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
109
|
How can I add an extra caption
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oElements
LOCAL oSurface
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSurface := XbpActiveXControl():new( oForm:drawingArea )
oSurface:CLSID := "Exontrol.Surface.1" /*{AC1DF7F4-0919-4364-8167-2F9B5155EA4B}*/
oSurface:create(,, {10,60},{610,370} )
oSurface:BeginUpdate()
oElements := oSurface:Elements()
oElements:Add("caption"):ExtraCaption := "extra-caption"
oSurface:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
108
|
I am using the reserve-neighbors feature, the question is how to shift left/right the neighbors instead of up/down
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oElements
LOCAL oSurface
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSurface := XbpActiveXControl():new( oForm:drawingArea )
oSurface:CLSID := "Exontrol.Surface.1" /*{AC1DF7F4-0919-4364-8167-2F9B5155EA4B}*/
oSurface:create(,, {10,60},{610,370} )
oSurface:BeginUpdate()
oSurface:AllowMoveNeighbors := 2/*exMoveNeighborsHorizontally*/
oSurface:SetProperty("DefArrange",0/*exDefArrangeDir*/,1)
oSurface:AllowInsertObject := .F.
oElements := oSurface:Elements()
oElements:Add("Element <sha ;;0>A")
oElements:Add("Element <sha ;;0>B ( move it )",16,32)
oElements:Add("Element <sha ;;0>C",128,0)
oSurface:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
107
|
I am using the reserve-neighbors feature, the question is if possible to specify the distance between neighbors
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oElements
LOCAL oSurface
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSurface := XbpActiveXControl():new( oForm:drawingArea )
oSurface:CLSID := "Exontrol.Surface.1" /*{AC1DF7F4-0919-4364-8167-2F9B5155EA4B}*/
oSurface:create(,, {10,60},{610,370} )
oSurface:BeginUpdate()
oSurface:AllowMoveNeighbors := 1/*exMoveNeighborsVertically*/
oSurface:SetProperty("DefArrange",1/*exDefArrangeDX*/,0)
oSurface:SetProperty("DefArrange",2/*exDefArrangeDY*/,0)
oSurface:AllowInsertObject := .F.
oElements := oSurface:Elements()
oElements:Add("Element <sha ;;0>A")
oElements:Add("Element <sha ;;0>B ( move it )",0,32)
oElements:Add("Element <sha ;;0>C",0,64)
oSurface:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
106
|
How do I enable the reserve-neighbors feature
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oElements
LOCAL oSurface
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSurface := XbpActiveXControl():new( oForm:drawingArea )
oSurface:CLSID := "Exontrol.Surface.1" /*{AC1DF7F4-0919-4364-8167-2F9B5155EA4B}*/
oSurface:create(,, {10,60},{610,370} )
oSurface:BeginUpdate()
oSurface:AllowMoveNeighbors := 1/*exMoveNeighborsVertically*/
oSurface:AllowInsertObject := .F.
oElements := oSurface:Elements()
oElements:Add("Element <sha ;;0>A")
oElements:Add("Element <sha ;;0>B ( move it )",0,32)
oElements:Add("Element <sha ;;0>C",0,64)
oSurface:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
105
|
I've noticed that recently, the elements get compacted once the Arrange method is performed. How can I prevent that
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oElements
LOCAL oLinks
LOCAL oSurface
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSurface := XbpActiveXControl():new( oForm:drawingArea )
oSurface:CLSID := "Exontrol.Surface.1" /*{AC1DF7F4-0919-4364-8167-2F9B5155EA4B}*/
oSurface:create(,, {10,60},{610,370} )
oElements := oSurface:Elements()
oElements:Add("Element A"):ID := "A"
oElements:Add("Element B"):ID := "B"
oElements:Add("Element C"):ID := "C"
oElements:Add("Element D"):ID := "D"
oElements:Add("Element E"):ID := "E"
oElements:Add("Element E"):ID := "F"
oLinks := oSurface:Links()
oLinks:Add(oSurface:Elements:Item("A"),oSurface:Elements:Item("B"))
oLinks:Add(oSurface:Elements:Item("A"),oSurface:Elements:Item("C"))
oLinks:Add(oSurface:Elements:Item("B"),oSurface:Elements:Item("D"))
oLinks:Add(oSurface:Elements:Item("B"),oSurface:Elements:Item("C"))
oLinks:Add(oSurface:Elements:Item("A"),oSurface:Elements:Item("E"))
oLinks:Add(oSurface:Elements:Item("A"),oSurface:Elements:Item("F"))
oSurface:SetProperty("DefArrange",4/*exDefArrangeCompact*/,.F.)
oSurface:Arrange()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
104
|
Is it possible to add a link to show from bottom/down to top/up, rather that right to left (method-2)
PROCEDURE OnAddLink(oSurface,Link)
RETURN
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oElements
LOCAL oLinks
LOCAL oSurface
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSurface := XbpActiveXControl():new( oForm:drawingArea )
oSurface:CLSID := "Exontrol.Surface.1" /*{AC1DF7F4-0919-4364-8167-2F9B5155EA4B}*/
oSurface:create(,, {10,60},{610,370} )
oSurface:AddLink := {|Link| OnAddLink(oSurface,Link)} /*A new link has been added to the links collection.*/
oElements := oSurface:Elements()
oElements:Add("Element <sha ;;0>A")
oElements:Add("Element <sha ;;0>B",48,48)
oLinks := oSurface:Links()
oLinks:Add(oSurface:Elements:Item(1),oSurface:Elements:Item(2))
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
103
|
Is it possible to add a link to show from bottom/down to top/up, rather that right to left (method-1)
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oElements
LOCAL oLink
LOCAL oLinks
LOCAL oSurface
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSurface := XbpActiveXControl():new( oForm:drawingArea )
oSurface:CLSID := "Exontrol.Surface.1" /*{AC1DF7F4-0919-4364-8167-2F9B5155EA4B}*/
oSurface:create(,, {10,60},{610,370} )
oElements := oSurface:Elements()
oElements:Add("Element <sha ;;0>A")
oElements:Add("Element <sha ;;0>B",48,48)
oLinks := oSurface:Links()
oLink := oLinks:Add(oSurface:Elements:Item(1),oSurface:Elements:Item(2))
oLink:StartPos := 4/*DownAlignment*/
oLink:EndPos := 3/*UpAlignment*/
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
102
|
How do I enable the cross link support ( mixed )
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oElement,oElement1
LOCAL oElements
LOCAL oLink,oLink1,oLink2
LOCAL oLinks
LOCAL oSurface
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSurface := XbpActiveXControl():new( oForm:drawingArea )
oSurface:CLSID := "Exontrol.Surface.1" /*{AC1DF7F4-0919-4364-8167-2F9B5155EA4B}*/
oSurface:create(,, {10,60},{610,370} )
oElements := oSurface:Elements()
oElements:Add("Element <sha ;;0>A")
oElements:Add("Element <sha ;;0>B",0,76)
oElement := oElements:Add("Element <sha ;;0>C",-76,32)
oElement:AutoSize := .F.
oElement:Height := 32
oElement1 := oElements:Add("Element <sha ;;0>D",76,32)
oElement1:AutoSize := .F.
oElement1:Height := 32
oLinks := oSurface:Links()
oLink := oLinks:Add(oSurface:Elements:Item(1),oSurface:Elements:Item(2))
oLink:StartPos := 1/*CenterAlignment*/
oLink:EndPos := 1/*CenterAlignment*/
oLink1 := oLinks:Add(oSurface:Elements:Item(2),oSurface:Elements:Item(1))
oLink1:StartPos := 1/*CenterAlignment*/
oLink1:EndPos := 1/*CenterAlignment*/
oLinks:Add(oSurface:Elements:Item(3),oSurface:Elements:Item(4))
oLink2 := oLinks:Add(oSurface:Elements:Item(4),oSurface:Elements:Item(3))
oLink2:StartPos := 0/*LeftAlignment*/
oLink2:EndPos := 2/*RightAlignment*/
oSurface:ShowLinks := 97/*exShowCrossLinksMixt+exShowExtendedLinks*/
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
101
|
How do I enable the cross link support ( triangular )
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oElement,oElement1
LOCAL oElements
LOCAL oLink,oLink1,oLink2
LOCAL oLinks
LOCAL oSurface
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oSurface := XbpActiveXControl():new( oForm:drawingArea )
oSurface:CLSID := "Exontrol.Surface.1" /*{AC1DF7F4-0919-4364-8167-2F9B5155EA4B}*/
oSurface:create(,, {10,60},{610,370} )
oElements := oSurface:Elements()
oElements:Add("Element <sha ;;0>A")
oElements:Add("Element <sha ;;0>B",0,76)
oElement := oElements:Add("Element <sha ;;0>C",-76,32)
oElement:AutoSize := .F.
oElement:Height := 32
oElement1 := oElements:Add("Element <sha ;;0>D",76,32)
oElement1:AutoSize := .F.
oElement1:Height := 32
oLinks := oSurface:Links()
oLink := oLinks:Add(oSurface:Elements:Item(1),oSurface:Elements:Item(2))
oLink:StartPos := 1/*CenterAlignment*/
oLink:EndPos := 1/*CenterAlignment*/
oLink1 := oLinks:Add(oSurface:Elements:Item(2),oSurface:Elements:Item(1))
oLink1:StartPos := 1/*CenterAlignment*/
oLink1:EndPos := 1/*CenterAlignment*/
oLinks:Add(oSurface:Elements:Item(3),oSurface:Elements:Item(4))
oLink2 := oLinks:Add(oSurface:Elements:Item(4),oSurface:Elements:Item(3))
oLink2:StartPos := 0/*LeftAlignment*/
oLink2:EndPos := 2/*RightAlignment*/
oSurface:ShowLinks := 65/*exShowCrossLinksTriangle+exShowExtendedLinks*/
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|