|
187
|
Defines the colors, to display overlapping links
Surface1->BeginUpdate();
Surface1->AllowLinkControlPoint = Exsurfacelib_tlb::LinkControlPointEnum::exAllowChangeTo | Exsurfacelib_tlb::LinkControlPointEnum::exAllowChangeFrom | Exsurfacelib_tlb::LinkControlPointEnum::exEndControlPoint | Exsurfacelib_tlb::LinkControlPointEnum::exStartControlPoint;
Exsurfacelib_tlb::IElementsPtr var_Elements = Surface1->Elements;
var_Elements->Add(TVariant("Node <b>1"),TVariant(-64),TVariant(-64));
var_Elements->Add(TVariant("Node <b>2"),TNoParam(),TNoParam());
var_Elements->Add(TVariant("Node <b>3"),TVariant(64),TVariant(-64));
var_Elements->Add(TVariant("Node <b>4"),TVariant(16),TVariant(-48));
var_Elements->Add(TVariant("Node <b>5"),TVariant(-1024),TVariant(-48));
var_Elements->Add(TVariant("Node <b>6"),TVariant(16),TVariant(512));
Surface1->Links->Add(Surface1->Elements->get_Item(TVariant(1)),Surface1->Elements->get_Item(TVariant(2)),TVariant("L1"));
Surface1->Links->Add(Surface1->Elements->get_Item(TVariant(3)),Surface1->Elements->get_Item(TVariant(2)),TVariant("L2"));
Surface1->Links->Add(Surface1->Elements->get_Item(TVariant(2)),Surface1->Elements->get_Item(TVariant(1)),TVariant("L3"));
Surface1->ShowLinks = Exsurfacelib_tlb::ShowExtendedLinksEnum::exChangeColorOnOverlap | Exsurfacelib_tlb::ShowExtendedLinksEnum::exShowCrossLinksRect | Exsurfacelib_tlb::ShowExtendedLinksEnum::exShowExtendedLinks;
Surface1->set_OverlapLinksColors(TVariant("red,orange"));
Surface1->LinksColor = RGB(128,128,128);
Surface1->AxisStyle = Exsurfacelib_tlb::LinesStyleEnum::exNoLines;
Surface1->ShowGridLines = false;
Surface1->EndUpdate();
|
|
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)
Surface1->BeginUpdate();
Surface1->AllowLinkControlPoint = Exsurfacelib_tlb::LinkControlPointEnum::exAllowChangeTo | Exsurfacelib_tlb::LinkControlPointEnum::exAllowChangeFrom | Exsurfacelib_tlb::LinkControlPointEnum::exEndControlPoint | Exsurfacelib_tlb::LinkControlPointEnum::exStartControlPoint;
Exsurfacelib_tlb::IElementsPtr var_Elements = Surface1->Elements;
var_Elements->Add(TVariant("Node <b>1"),TVariant(-64),TVariant(-64));
var_Elements->Add(TVariant("Node <b>2"),TNoParam(),TNoParam());
var_Elements->Add(TVariant("Node <b>3"),TVariant(64),TVariant(-64));
var_Elements->Add(TVariant("Node <b>4"),TVariant(16),TVariant(-48));
var_Elements->Add(TVariant("Node <b>5"),TVariant(-1024),TVariant(-48));
var_Elements->Add(TVariant("Node <b>6"),TVariant(16),TVariant(512));
Surface1->Links->Add(Surface1->Elements->get_Item(TVariant(1)),Surface1->Elements->get_Item(TVariant(2)),TVariant("L1"));
Surface1->Links->Add(Surface1->Elements->get_Item(TVariant(3)),Surface1->Elements->get_Item(TVariant(2)),TVariant("L2"));
Surface1->Links->Add(Surface1->Elements->get_Item(TVariant(2)),Surface1->Elements->get_Item(TVariant(1)),TVariant("L3"));
Surface1->ShowLinks = Exsurfacelib_tlb::ShowExtendedLinksEnum::exChangeColorOnOverlap | Exsurfacelib_tlb::ShowExtendedLinksEnum::exPreventOverlapMixt | Exsurfacelib_tlb::ShowExtendedLinksEnum::exShowCrossLinksRect | Exsurfacelib_tlb::ShowExtendedLinksEnum::exShowExtendedLinks;
Surface1->LinksColor = RGB(128,128,128);
Surface1->AxisStyle = Exsurfacelib_tlb::LinesStyleEnum::exNoLines;
Surface1->ShowGridLines = false;
Surface1->EndUpdate();
|
|
185
|
The exChangeColorOnOverlap flag changes the color for links in areas where they overlap with other links, enhancing clarity and distinction between them
Surface1->BeginUpdate();
Surface1->AllowLinkControlPoint = Exsurfacelib_tlb::LinkControlPointEnum::exAllowChangeTo | Exsurfacelib_tlb::LinkControlPointEnum::exAllowChangeFrom | Exsurfacelib_tlb::LinkControlPointEnum::exEndControlPoint | Exsurfacelib_tlb::LinkControlPointEnum::exStartControlPoint;
Exsurfacelib_tlb::IElementsPtr var_Elements = Surface1->Elements;
var_Elements->Add(TVariant("Node <b>1"),TVariant(-64),TVariant(-64));
var_Elements->Add(TVariant("Node <b>2"),TNoParam(),TNoParam());
var_Elements->Add(TVariant("Node <b>3"),TVariant(64),TVariant(-64));
var_Elements->Add(TVariant("Node <b>4"),TVariant(16),TVariant(-48));
var_Elements->Add(TVariant("Node <b>5"),TVariant(-1024),TVariant(-48));
var_Elements->Add(TVariant("Node <b>6"),TVariant(16),TVariant(512));
Surface1->Links->Add(Surface1->Elements->get_Item(TVariant(1)),Surface1->Elements->get_Item(TVariant(2)),TVariant("L1"));
Surface1->Links->Add(Surface1->Elements->get_Item(TVariant(3)),Surface1->Elements->get_Item(TVariant(2)),TVariant("L2"));
Surface1->Links->Add(Surface1->Elements->get_Item(TVariant(2)),Surface1->Elements->get_Item(TVariant(1)),TVariant("L3"));
Surface1->ShowLinks = Exsurfacelib_tlb::ShowExtendedLinksEnum::exChangeColorOnOverlap | Exsurfacelib_tlb::ShowExtendedLinksEnum::exShowCrossLinksRect | Exsurfacelib_tlb::ShowExtendedLinksEnum::exShowExtendedLinks;
Surface1->LinksColor = RGB(128,128,128);
Surface1->AxisStyle = Exsurfacelib_tlb::LinesStyleEnum::exNoLines;
Surface1->ShowGridLines = false;
Surface1->EndUpdate();
|
|
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)
Surface1->BeginUpdate();
Surface1->AllowLinkControlPoint = Exsurfacelib_tlb::LinkControlPointEnum::exAllowChangeTo | Exsurfacelib_tlb::LinkControlPointEnum::exAllowChangeFrom | Exsurfacelib_tlb::LinkControlPointEnum::exEndControlPoint | Exsurfacelib_tlb::LinkControlPointEnum::exStartControlPoint;
Exsurfacelib_tlb::IElementsPtr var_Elements = Surface1->Elements;
var_Elements->Add(TVariant("Node <b>1"),TVariant(-64),TVariant(-64));
var_Elements->Add(TVariant("Node <b>2"),TNoParam(),TNoParam());
var_Elements->Add(TVariant("Node <b>3"),TVariant(64),TVariant(-64));
var_Elements->Add(TVariant("Node <b>4"),TVariant(16),TVariant(-48));
var_Elements->Add(TVariant("Node <b>5"),TVariant(-1024),TVariant(-48));
var_Elements->Add(TVariant("Node <b>6"),TVariant(16),TVariant(512));
Surface1->Links->Add(Surface1->Elements->get_Item(TVariant(1)),Surface1->Elements->get_Item(TVariant(2)),TVariant("L1"));
Surface1->Links->Add(Surface1->Elements->get_Item(TVariant(3)),Surface1->Elements->get_Item(TVariant(2)),TVariant("L2"));
Surface1->Links->Add(Surface1->Elements->get_Item(TVariant(2)),Surface1->Elements->get_Item(TVariant(1)),TVariant("L3"));
Surface1->ShowLinks = Exsurfacelib_tlb::ShowExtendedLinksEnum::exPreventOverlap | Exsurfacelib_tlb::ShowExtendedLinksEnum::exPreventOverlapMixt | Exsurfacelib_tlb::ShowExtendedLinksEnum::exShowCrossLinksRect | Exsurfacelib_tlb::ShowExtendedLinksEnum::exShowExtendedLinks;
Surface1->LinksColor = RGB(128,128,128);
Surface1->AxisStyle = Exsurfacelib_tlb::LinesStyleEnum::exNoLines;
Surface1->ShowGridLines = false;
Surface1->EndUpdate();
|
|
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
Surface1->BeginUpdate();
Surface1->AllowLinkControlPoint = Exsurfacelib_tlb::LinkControlPointEnum::exAllowChangeTo | Exsurfacelib_tlb::LinkControlPointEnum::exAllowChangeFrom | Exsurfacelib_tlb::LinkControlPointEnum::exEndControlPoint | Exsurfacelib_tlb::LinkControlPointEnum::exStartControlPoint;
Exsurfacelib_tlb::IElementsPtr var_Elements = Surface1->Elements;
var_Elements->Add(TVariant("Node <b>1"),TVariant(-64),TVariant(-64));
var_Elements->Add(TVariant("Node <b>2"),TNoParam(),TNoParam());
var_Elements->Add(TVariant("Node <b>3"),TVariant(64),TVariant(-64));
var_Elements->Add(TVariant("Node <b>4"),TVariant(16),TVariant(-48));
var_Elements->Add(TVariant("Node <b>5"),TVariant(-1024),TVariant(-48));
var_Elements->Add(TVariant("Node <b>6"),TVariant(16),TVariant(512));
Surface1->Links->Add(Surface1->Elements->get_Item(TVariant(1)),Surface1->Elements->get_Item(TVariant(2)),TVariant("L1"));
Surface1->Links->Add(Surface1->Elements->get_Item(TVariant(3)),Surface1->Elements->get_Item(TVariant(2)),TVariant("L2"));
Surface1->Links->Add(Surface1->Elements->get_Item(TVariant(2)),Surface1->Elements->get_Item(TVariant(1)),TVariant("L3"));
Surface1->ShowLinks = Exsurfacelib_tlb::ShowExtendedLinksEnum::exPreventOverlap | Exsurfacelib_tlb::ShowExtendedLinksEnum::exShowCrossLinksRect | Exsurfacelib_tlb::ShowExtendedLinksEnum::exShowExtendedLinks;
Surface1->LinksColor = RGB(128,128,128);
Surface1->AxisStyle = Exsurfacelib_tlb::LinesStyleEnum::exNoLines;
Surface1->ShowGridLines = false;
Surface1->EndUpdate();
|
|
182
|
How can I replace or add an icon at runtime
Surface1->BeginUpdate();
Surface1->ReplaceIcon(TVariant(String("gAAAABgYACEHgUJFEEAAWhUJCEJEEJggEhMCYEXjUbjkJQECj8gj8hAEjkshYEpk8kf8ClsulsvAExmcvf83js5nU7nkCeEcn8boMaocXosCB9Hn09pkzcEuoL/fE+O") +
"kYB0gB9YhIHrddgVcr9aktZADAD8+P8CgIA=="),TNoParam());
Surface1->ReplaceIcon(TVariant("C:\\images\\favicon.ico"),TVariant(0));
Surface1->AllowLinkControlPoint = Exsurfacelib_tlb::LinkControlPointEnum::exAllowChangeTo | Exsurfacelib_tlb::LinkControlPointEnum::exAllowChangeFrom | Exsurfacelib_tlb::LinkControlPointEnum::exEndControlPoint | Exsurfacelib_tlb::LinkControlPointEnum::exStartControlPoint;
Exsurfacelib_tlb::IElementsPtr var_Elements = Surface1->Elements;
var_Elements->Add(TVariant("Node <img>1</img>"),TVariant(-64),TVariant(-64));
var_Elements->Add(TVariant("Node <b>2"),TNoParam(),TNoParam());
var_Elements->Add(TVariant("Node <b>3"),TVariant(64),TVariant(-64));
Surface1->Links->Add(Surface1->Elements->get_Item(TVariant(1)),Surface1->Elements->get_Item(TVariant(2)),TVariant("L1"));
Surface1->EndUpdate();
|
|
181
|
exUndo, An Undo operation is performed (CTR + Z), exRedo, A Redo operation is performed (CTR + Y). exUndoRedoUpdate, The Undo/Redo queue is updated
// LayoutEndChanging event - Notifies your application once the control's layout has been changed.
void __fastcall TForm1::Surface1LayoutEndChanging(TObject *Sender,Exsurfacelib_tlb::LayoutChangingEnum Operation)
{
OutputDebugString( L"LayoutEndChanging" );
OutputDebugString( PChar(Surface1->FormatABC(L"value case (default:value;32:`exUndoRedoUpdate`;33:`exUndo`;34:`exRedo`)",TVariant(Operation),TNoParam(),TNoParam())) );
}
// LayoutStartChanging event - Occurs when the control's layout is about to be changed.
void __fastcall TForm1::Surface1LayoutStartChanging(TObject *Sender,Exsurfacelib_tlb::LayoutChangingEnum Operation)
{
OutputDebugString( L"LayoutStartChanging" );
OutputDebugString( PChar(Surface1->FormatABC(L"value case (default:value;32:`exUndoRedoUpdate`;33:`exUndo`;34:`exRedo`)",TVariant(Operation),TNoParam(),TNoParam())) );
}
Surface1->BeginUpdate();
Surface1->AllowUndoRedo = true;
Surface1->AllowLinkControlPoint = Exsurfacelib_tlb::LinkControlPointEnum::exAllowChangeTo | Exsurfacelib_tlb::LinkControlPointEnum::exAllowChangeFrom | Exsurfacelib_tlb::LinkControlPointEnum::exEndControlPoint | Exsurfacelib_tlb::LinkControlPointEnum::exStartControlPoint;
Exsurfacelib_tlb::IElementsPtr var_Elements = Surface1->Elements;
var_Elements->Add(TVariant("Node <b>1"),TVariant(-64),TVariant(-64));
var_Elements->Add(TVariant("Node <b>2"),TNoParam(),TNoParam());
var_Elements->Add(TVariant("Node <b>3"),TVariant(64),TVariant(-64));
Surface1->Links->Add(Surface1->Elements->get_Item(TVariant(1)),Surface1->Elements->get_Item(TVariant(2)),TVariant("L1"));
Surface1->EndUpdate();
OutputDebugString( L"Press CTRL+Z to Undo, CTRL+Y to Redo" );
|
|
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
// LayoutEndChanging event - Notifies your application once the control's layout has been changed.
void __fastcall TForm1::Surface1LayoutEndChanging(TObject *Sender,Exsurfacelib_tlb::LayoutChangingEnum Operation)
{
OutputDebugString( L"LayoutEndChanging" );
OutputDebugString( PChar(Surface1->FormatABC(L"value = 9 ? `exLinkObjects` : value",TVariant(Operation),TNoParam(),TNoParam())) );
}
// LayoutStartChanging event - Occurs when the control's layout is about to be changed.
void __fastcall TForm1::Surface1LayoutStartChanging(TObject *Sender,Exsurfacelib_tlb::LayoutChangingEnum Operation)
{
OutputDebugString( L"LayoutStartChanging" );
OutputDebugString( PChar(Surface1->FormatABC(L"value = 9 ? `exLinkObjects` : value",TVariant(Operation),TNoParam(),TNoParam())) );
}
Surface1->BeginUpdate();
Exsurfacelib_tlb::IElementsPtr var_Elements = Surface1->Elements;
var_Elements->Add(TVariant("Node <b>1"),TVariant(-64),TVariant(-64));
var_Elements->Add(TVariant("Node <b>2"),TNoParam(),TNoParam());
var_Elements->Add(TVariant("Node <b>3"),TVariant(64),TVariant(-64));
Surface1->EndUpdate();
OutputDebugString( L"Hold SHIFT, click an element, and drag to another element to create a link between them" );
|
|
179
|
exEditObject, the user edits the element's caption
// Click event - Occurs when the user presses and then releases the left mouse button over the control.
void __fastcall TForm1::Surface1Click(TObject *Sender)
{
// ElementFromPoint(-1,-1).Edit(0)
}
// LayoutEndChanging event - Notifies your application once the control's layout has been changed.
void __fastcall TForm1::Surface1LayoutEndChanging(TObject *Sender,Exsurfacelib_tlb::LayoutChangingEnum Operation)
{
OutputDebugString( L"LayoutEndChanging" );
OutputDebugString( PChar(Surface1->FormatABC(L"value = 8 ? `exEditObject` : value",TVariant(Operation),TNoParam(),TNoParam())) );
}
// LayoutStartChanging event - Occurs when the control's layout is about to be changed.
void __fastcall TForm1::Surface1LayoutStartChanging(TObject *Sender,Exsurfacelib_tlb::LayoutChangingEnum Operation)
{
OutputDebugString( L"LayoutStartChanging" );
OutputDebugString( PChar(Surface1->FormatABC(L"value = 8 ? `exEditObject` : value",TVariant(Operation),TNoParam(),TNoParam())) );
}
Surface1->BeginUpdate();
Surface1->AllowLinkControlPoint = Exsurfacelib_tlb::LinkControlPointEnum::exAllowChangeTo | Exsurfacelib_tlb::LinkControlPointEnum::exAllowChangeFrom | Exsurfacelib_tlb::LinkControlPointEnum::exEndControlPoint | Exsurfacelib_tlb::LinkControlPointEnum::exStartControlPoint;
Exsurfacelib_tlb::IElementsPtr var_Elements = Surface1->Elements;
var_Elements->Add(TVariant("Node <b>1"),TVariant(-64),TVariant(-64));
var_Elements->Add(TVariant("Node <b>2"),TNoParam(),TNoParam());
var_Elements->Add(TVariant("Node <b>3"),TVariant(64),TVariant(-64));
Surface1->Links->Add(Surface1->Elements->get_Item(TVariant(1)),Surface1->Elements->get_Item(TVariant(2)),TVariant("L1"));
Surface1->EndUpdate();
OutputDebugString( L"Click an element to edit its caption" );
|
|
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
// LayoutEndChanging event - Notifies your application once the control's layout has been changed.
void __fastcall TForm1::Surface1LayoutEndChanging(TObject *Sender,Exsurfacelib_tlb::LayoutChangingEnum Operation)
{
OutputDebugString( L"LayoutEndChanging" );
OutputDebugString( PChar(Surface1->FormatABC(L"value = 7 ? `exCreateObject` : value",TVariant(Operation),TNoParam(),TNoParam())) );
}
// LayoutStartChanging event - Occurs when the control's layout is about to be changed.
void __fastcall TForm1::Surface1LayoutStartChanging(TObject *Sender,Exsurfacelib_tlb::LayoutChangingEnum Operation)
{
OutputDebugString( L"LayoutStartChanging" );
OutputDebugString( PChar(Surface1->FormatABC(L"value = 7 ? `exCreateObject` : value",TVariant(Operation),TNoParam(),TNoParam())) );
}
Surface1->BeginUpdate();
Surface1->AllowLinkControlPoint = Exsurfacelib_tlb::LinkControlPointEnum::exAllowChangeTo | Exsurfacelib_tlb::LinkControlPointEnum::exAllowChangeFrom | Exsurfacelib_tlb::LinkControlPointEnum::exEndControlPoint | Exsurfacelib_tlb::LinkControlPointEnum::exStartControlPoint;
Exsurfacelib_tlb::IElementsPtr var_Elements = Surface1->Elements;
var_Elements->Add(TVariant("Node <b>1"),TVariant(-64),TVariant(-64));
var_Elements->Add(TVariant("Node <b>2"),TNoParam(),TNoParam())->Selected = true;
var_Elements->Add(TVariant("Node <b>3"),TVariant(64),TVariant(-64));
Surface1->Links->Add(Surface1->Elements->get_Item(TVariant(1)),Surface1->Elements->get_Item(TVariant(2)),TVariant("L1"));
Surface1->EndUpdate();
OutputDebugString( L"Double-click on the surface and immediately drag to a new position to create an element" );
|
|
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
// LayoutEndChanging event - Notifies your application once the control's layout has been changed.
void __fastcall TForm1::Surface1LayoutEndChanging(TObject *Sender,Exsurfacelib_tlb::LayoutChangingEnum Operation)
{
OutputDebugString( L"LayoutEndChanging" );
OutputDebugString( PChar(Surface1->FormatABC(L"value = 6 ? `exSelectNothing` : value",TVariant(Operation),TNoParam(),TNoParam())) );
}
// LayoutStartChanging event - Occurs when the control's layout is about to be changed.
void __fastcall TForm1::Surface1LayoutStartChanging(TObject *Sender,Exsurfacelib_tlb::LayoutChangingEnum Operation)
{
OutputDebugString( L"LayoutStartChanging" );
OutputDebugString( PChar(Surface1->FormatABC(L"value = 6 ? `exSelectNothing` : value",TVariant(Operation),TNoParam(),TNoParam())) );
}
Surface1->BeginUpdate();
Surface1->AllowSelectNothing = true;
Surface1->AllowLinkControlPoint = Exsurfacelib_tlb::LinkControlPointEnum::exAllowChangeTo | Exsurfacelib_tlb::LinkControlPointEnum::exAllowChangeFrom | Exsurfacelib_tlb::LinkControlPointEnum::exEndControlPoint | Exsurfacelib_tlb::LinkControlPointEnum::exStartControlPoint;
Exsurfacelib_tlb::IElementsPtr var_Elements = Surface1->Elements;
var_Elements->Add(TVariant("Node <b>1"),TVariant(-64),TVariant(-64));
var_Elements->Add(TVariant("Node <b>2"),TNoParam(),TNoParam())->Selected = true;
var_Elements->Add(TVariant("Node <b>3"),TVariant(64),TVariant(-64));
Surface1->Links->Add(Surface1->Elements->get_Item(TVariant(1)),Surface1->Elements->get_Item(TVariant(2)),TVariant("L1"));
Surface1->EndUpdate();
OutputDebugString( L"Select an element, and then click outside to select nothing" );
|
|
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
// LayoutEndChanging event - Notifies your application once the control's layout has been changed.
void __fastcall TForm1::Surface1LayoutEndChanging(TObject *Sender,Exsurfacelib_tlb::LayoutChangingEnum Operation)
{
OutputDebugString( L"LayoutEndChanging" );
OutputDebugString( PChar(Surface1->FormatABC(L"value = 5 ? `exSelectObject` : value",TVariant(Operation),TNoParam(),TNoParam())) );
}
// LayoutStartChanging event - Occurs when the control's layout is about to be changed.
void __fastcall TForm1::Surface1LayoutStartChanging(TObject *Sender,Exsurfacelib_tlb::LayoutChangingEnum Operation)
{
OutputDebugString( L"LayoutStartChanging" );
OutputDebugString( PChar(Surface1->FormatABC(L"value = 5 ? `exSelectObject` : value",TVariant(Operation),TNoParam(),TNoParam())) );
}
Surface1->BeginUpdate();
Surface1->AllowLinkControlPoint = Exsurfacelib_tlb::LinkControlPointEnum::exAllowChangeTo | Exsurfacelib_tlb::LinkControlPointEnum::exAllowChangeFrom | Exsurfacelib_tlb::LinkControlPointEnum::exEndControlPoint | Exsurfacelib_tlb::LinkControlPointEnum::exStartControlPoint;
Exsurfacelib_tlb::IElementsPtr var_Elements = Surface1->Elements;
var_Elements->Add(TVariant("Node <b>1"),TVariant(-64),TVariant(-64));
var_Elements->Add(TVariant("Node <b>2"),TNoParam(),TNoParam());
var_Elements->Add(TVariant("Node <b>3"),TVariant(64),TVariant(-64));
Surface1->Links->Add(Surface1->Elements->get_Item(TVariant(1)),Surface1->Elements->get_Item(TVariant(2)),TVariant("L1"));
Surface1->EndUpdate();
OutputDebugString( TVariant(String("Hold ALT and click, then drag to select elements within the drawn rectangle. Click an element to select it. CTRL + CLick to uns") +
"elect it") );
|
|
175
|
exMoveObject, the user moves the object. The AllowMoveObject property specifies the keys combination to allow user to move the object
// LayoutEndChanging event - Notifies your application once the control's layout has been changed.
void __fastcall TForm1::Surface1LayoutEndChanging(TObject *Sender,Exsurfacelib_tlb::LayoutChangingEnum Operation)
{
OutputDebugString( L"LayoutEndChanging" );
OutputDebugString( PChar(Surface1->FormatABC(L"value = 4 ? `exMoveObject` : value",TVariant(Operation),TNoParam(),TNoParam())) );
}
// LayoutStartChanging event - Occurs when the control's layout is about to be changed.
void __fastcall TForm1::Surface1LayoutStartChanging(TObject *Sender,Exsurfacelib_tlb::LayoutChangingEnum Operation)
{
OutputDebugString( L"LayoutStartChanging" );
OutputDebugString( PChar(Surface1->FormatABC(L"value = 4 ? `exMoveObject` : value",TVariant(Operation),TNoParam(),TNoParam())) );
}
Surface1->BeginUpdate();
Surface1->AllowLinkControlPoint = Exsurfacelib_tlb::LinkControlPointEnum::exAllowChangeTo | Exsurfacelib_tlb::LinkControlPointEnum::exAllowChangeFrom | Exsurfacelib_tlb::LinkControlPointEnum::exEndControlPoint | Exsurfacelib_tlb::LinkControlPointEnum::exStartControlPoint;
Exsurfacelib_tlb::IElementsPtr var_Elements = Surface1->Elements;
var_Elements->Add(TVariant("Node <b>1"),TVariant(-64),TVariant(-64));
var_Elements->Add(TVariant("Node <b>2"),TNoParam(),TNoParam());
var_Elements->Add(TVariant("Node <b>3"),TVariant(64),TVariant(-64));
Surface1->Links->Add(Surface1->Elements->get_Item(TVariant(1)),Surface1->Elements->get_Item(TVariant(2)),TVariant("L1"));
Surface1->EndUpdate();
OutputDebugString( L"Move an element" );
|
|
174
|
exResizeObject, the user resizes the object. The AllowResizeObject property specifies the keys combination to allow user to resize the object
// LayoutEndChanging event - Notifies your application once the control's layout has been changed.
void __fastcall TForm1::Surface1LayoutEndChanging(TObject *Sender,Exsurfacelib_tlb::LayoutChangingEnum Operation)
{
OutputDebugString( L"LayoutEndChanging" );
OutputDebugString( PChar(Surface1->FormatABC(L"value = 3 ? `exResizeObject` : value",TVariant(Operation),TNoParam(),TNoParam())) );
}
// LayoutStartChanging event - Occurs when the control's layout is about to be changed.
void __fastcall TForm1::Surface1LayoutStartChanging(TObject *Sender,Exsurfacelib_tlb::LayoutChangingEnum Operation)
{
OutputDebugString( L"LayoutStartChanging" );
OutputDebugString( PChar(Surface1->FormatABC(L"value = 3 ? `exResizeObject` : value",TVariant(Operation),TNoParam(),TNoParam())) );
}
Surface1->BeginUpdate();
Surface1->AllowLinkControlPoint = Exsurfacelib_tlb::LinkControlPointEnum::exAllowChangeTo | Exsurfacelib_tlb::LinkControlPointEnum::exAllowChangeFrom | Exsurfacelib_tlb::LinkControlPointEnum::exEndControlPoint | Exsurfacelib_tlb::LinkControlPointEnum::exStartControlPoint;
Exsurfacelib_tlb::IElementsPtr var_Elements = Surface1->Elements;
var_Elements->Add(TVariant("Node <b>1"),TVariant(-64),TVariant(-64))->AutoSize = false;
var_Elements->Add(TVariant("Node <b>2"),TNoParam(),TNoParam())->AutoSize = false;
var_Elements->Add(TVariant("Node <b>3"),TVariant(64),TVariant(-64))->AutoSize = false;
Surface1->Links->Add(Surface1->Elements->get_Item(TVariant(1)),Surface1->Elements->get_Item(TVariant(2)),TVariant("L1"));
Surface1->EndUpdate();
OutputDebugString( L"Resize an element" );
|
|
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
// LayoutEndChanging event - Notifies your application once the control's layout has been changed.
void __fastcall TForm1::Surface1LayoutEndChanging(TObject *Sender,Exsurfacelib_tlb::LayoutChangingEnum Operation)
{
OutputDebugString( L"LayoutEndChanging" );
OutputDebugString( PChar(Surface1->FormatABC(L"value = 2 ? `exSurfaceHome` : value",TVariant(Operation),TNoParam(),TNoParam())) );
}
// LayoutStartChanging event - Occurs when the control's layout is about to be changed.
void __fastcall TForm1::Surface1LayoutStartChanging(TObject *Sender,Exsurfacelib_tlb::LayoutChangingEnum Operation)
{
OutputDebugString( L"LayoutStartChanging" );
OutputDebugString( PChar(Surface1->FormatABC(L"value = 2 ? `exSurfaceHome` : value",TVariant(Operation),TNoParam(),TNoParam())) );
}
Surface1->BeginUpdate();
Surface1->AllowLinkControlPoint = Exsurfacelib_tlb::LinkControlPointEnum::exAllowChangeTo | Exsurfacelib_tlb::LinkControlPointEnum::exAllowChangeFrom | Exsurfacelib_tlb::LinkControlPointEnum::exEndControlPoint | Exsurfacelib_tlb::LinkControlPointEnum::exStartControlPoint;
Exsurfacelib_tlb::IElementsPtr var_Elements = Surface1->Elements;
var_Elements->Add(TVariant("Node <b>1"),TVariant(-64),TVariant(-64));
var_Elements->Add(TVariant("Node <b>2"),TNoParam(),TNoParam());
var_Elements->Add(TVariant("Node <b>3"),TVariant(64),TVariant(-64));
Surface1->Links->Add(Surface1->Elements->get_Item(TVariant(1)),Surface1->Elements->get_Item(TVariant(2)),TVariant("L1"));
Surface1->EndUpdate();
OutputDebugString( L"Click the Home button" );
|
|
172
|
exSurfaceZoom, the user magnifies or shrinks the surface. The AllowZoomSurface property specifies the keys combination to allow user to zoom the surface
// LayoutEndChanging event - Notifies your application once the control's layout has been changed.
void __fastcall TForm1::Surface1LayoutEndChanging(TObject *Sender,Exsurfacelib_tlb::LayoutChangingEnum Operation)
{
OutputDebugString( L"LayoutEndChanging" );
OutputDebugString( PChar(Surface1->FormatABC(L"value = 1 ? `exSurfaceZoom` : value",TVariant(Operation),TNoParam(),TNoParam())) );
}
// LayoutStartChanging event - Occurs when the control's layout is about to be changed.
void __fastcall TForm1::Surface1LayoutStartChanging(TObject *Sender,Exsurfacelib_tlb::LayoutChangingEnum Operation)
{
OutputDebugString( L"LayoutStartChanging" );
OutputDebugString( PChar(Surface1->FormatABC(L"value = 1 ? `exSurfaceZoom` : value",TVariant(Operation),TNoParam(),TNoParam())) );
}
Surface1->BeginUpdate();
Surface1->AllowLinkControlPoint = Exsurfacelib_tlb::LinkControlPointEnum::exAllowChangeTo | Exsurfacelib_tlb::LinkControlPointEnum::exAllowChangeFrom | Exsurfacelib_tlb::LinkControlPointEnum::exEndControlPoint | Exsurfacelib_tlb::LinkControlPointEnum::exStartControlPoint;
Exsurfacelib_tlb::IElementsPtr var_Elements = Surface1->Elements;
var_Elements->Add(TVariant("Node <b>1"),TVariant(-64),TVariant(-64));
var_Elements->Add(TVariant("Node <b>2"),TNoParam(),TNoParam());
var_Elements->Add(TVariant("Node <b>3"),TVariant(64),TVariant(-64));
Surface1->Links->Add(Surface1->Elements->get_Item(TVariant(1)),Surface1->Elements->get_Item(TVariant(2)),TVariant("L1"));
Surface1->EndUpdate();
OutputDebugString( L"Click and drag the surface to reposition it" );
|
|
171
|
exSurfaceMove, the user scrolls or moves the surface. The AllowMoveSurface property specifies the keys combination to allow user to move / scroll the surface
// LayoutEndChanging event - Notifies your application once the control's layout has been changed.
void __fastcall TForm1::Surface1LayoutEndChanging(TObject *Sender,Exsurfacelib_tlb::LayoutChangingEnum Operation)
{
OutputDebugString( L"LayoutEndChanging" );
OutputDebugString( PChar(Surface1->FormatABC(L"value = 0 ? `exSurfaceMove` : value",TVariant(Operation),TNoParam(),TNoParam())) );
}
// LayoutStartChanging event - Occurs when the control's layout is about to be changed.
void __fastcall TForm1::Surface1LayoutStartChanging(TObject *Sender,Exsurfacelib_tlb::LayoutChangingEnum Operation)
{
OutputDebugString( L"LayoutStartChanging" );
OutputDebugString( PChar(Surface1->FormatABC(L"value = 0 ? `exSurfaceMove` : value",TVariant(Operation),TNoParam(),TNoParam())) );
}
Surface1->BeginUpdate();
Surface1->AllowLinkControlPoint = Exsurfacelib_tlb::LinkControlPointEnum::exAllowChangeTo | Exsurfacelib_tlb::LinkControlPointEnum::exAllowChangeFrom | Exsurfacelib_tlb::LinkControlPointEnum::exEndControlPoint | Exsurfacelib_tlb::LinkControlPointEnum::exStartControlPoint;
Exsurfacelib_tlb::IElementsPtr var_Elements = Surface1->Elements;
var_Elements->Add(TVariant("Node <b>1"),TVariant(-64),TVariant(-64));
var_Elements->Add(TVariant("Node <b>2"),TNoParam(),TNoParam());
var_Elements->Add(TVariant("Node <b>3"),TVariant(64),TVariant(-64));
Surface1->Links->Add(Surface1->Elements->get_Item(TVariant(1)),Surface1->Elements->get_Item(TVariant(2)),TVariant("L1"));
Surface1->EndUpdate();
OutputDebugString( L"Click and drag the surface to reposition it" );
|
|
170
|
FormatABC method formats the A,B,C values based on the giving expression and returns the result
OutputDebugString( PChar(Surface1->FormatABC(L"value format ``",TVariant(1000),TNoParam(),TNoParam())) );
|
|
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
// Event event - Notifies the application once the control fires an event.
void __fastcall TForm1::Surface1Event(TObject *Sender,long EventID)
{
OutputDebugString( PChar(Surface1->EventParam[-2]) );
}
Surface1->FreezeEvents(true);
OutputDebugString( L"No event is fired after FreezeEvents(True) call" );
Surface1->BeginUpdate();
Surface1->AllowLinkControlPoint = Exsurfacelib_tlb::LinkControlPointEnum::exEndControlPoint | Exsurfacelib_tlb::LinkControlPointEnum::exStartControlPoint;
Exsurfacelib_tlb::IElementsPtr var_Elements = Surface1->Elements;
var_Elements->Add(TVariant("Node <b>1"),TVariant(-64),TVariant(-64));
var_Elements->Add(TVariant("Node <b>2"),TNoParam(),TNoParam());
Surface1->Links->Add(Surface1->Elements->get_Item(TVariant(1)),Surface1->Elements->get_Item(TVariant(2)),TVariant("L1"));
Surface1->EndUpdate();
|
|
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)
// LayoutEndChanging event - Notifies your application once the control's layout has been changed.
void __fastcall TForm1::Surface1LayoutEndChanging(TObject *Sender,Exsurfacelib_tlb::LayoutChangingEnum Operation)
{
OutputDebugString( L"LayoutEndChanging" );
OutputDebugString( L"Operation" );
OutputDebugString( PChar(Surface1->get_FocusLink()->get_ID()) );
}
// LayoutStartChanging event - Occurs when the control's layout is about to be changed.
void __fastcall TForm1::Surface1LayoutStartChanging(TObject *Sender,Exsurfacelib_tlb::LayoutChangingEnum Operation)
{
OutputDebugString( L"LayoutStartChanging" );
OutputDebugString( L"Operation" );
OutputDebugString( PChar(Surface1->get_FocusLink()->get_ID()) );
}
Surface1->BeginUpdate();
Surface1->AllowLinkControlPoint = Exsurfacelib_tlb::LinkControlPointEnum::exAllowChangeTo | Exsurfacelib_tlb::LinkControlPointEnum::exAllowChangeFrom | Exsurfacelib_tlb::LinkControlPointEnum::exEndControlPoint | Exsurfacelib_tlb::LinkControlPointEnum::exStartControlPoint;
Exsurfacelib_tlb::IElementsPtr var_Elements = Surface1->Elements;
var_Elements->Add(TVariant("Node <b>1"),TVariant(-64),TVariant(-64));
var_Elements->Add(TVariant("Node <b>2"),TNoParam(),TNoParam());
var_Elements->Add(TVariant("Node <b>3"),TVariant(64),TVariant(-64));
Surface1->Links->Add(Surface1->Elements->get_Item(TVariant(1)),Surface1->Elements->get_Item(TVariant(2)),TVariant("L1"));
Surface1->set_FocusLink(TVariant("L1"));
Surface1->EndUpdate();
|
|
167
|
The LayoutStartChanging(exFocusLink)/LayoutEndChanging(exFocusLink) event notifies your application when the user focuses on a new link
// LayoutEndChanging event - Notifies your application once the control's layout has been changed.
void __fastcall TForm1::Surface1LayoutEndChanging(TObject *Sender,Exsurfacelib_tlb::LayoutChangingEnum Operation)
{
OutputDebugString( L"LayoutEndChanging" );
OutputDebugString( L"Operation" );
OutputDebugString( PChar(Surface1->get_FocusLink()) );
}
// LayoutStartChanging event - Occurs when the control's layout is about to be changed.
void __fastcall TForm1::Surface1LayoutStartChanging(TObject *Sender,Exsurfacelib_tlb::LayoutChangingEnum Operation)
{
OutputDebugString( L"LayoutStartChanging" );
OutputDebugString( L"Operation" );
OutputDebugString( PChar(Surface1->get_FocusLink()) );
}
Surface1->BeginUpdate();
Surface1->AllowLinkControlPoint = Exsurfacelib_tlb::LinkControlPointEnum::exEndControlPoint | Exsurfacelib_tlb::LinkControlPointEnum::exStartControlPoint;
Exsurfacelib_tlb::IElementsPtr var_Elements = Surface1->Elements;
var_Elements->Add(TVariant("Node <b>1"),TVariant(-64),TVariant(-64));
var_Elements->Add(TVariant("Node <b>2"),TNoParam(),TNoParam());
Surface1->Links->Add(Surface1->Elements->get_Item(TVariant(1)),Surface1->Elements->get_Item(TVariant(2)),TVariant("L1"));
Surface1->EndUpdate();
|
|
166
|
Focus a link
// LayoutEndChanging event - Notifies your application once the control's layout has been changed.
void __fastcall TForm1::Surface1LayoutEndChanging(TObject *Sender,Exsurfacelib_tlb::LayoutChangingEnum Operation)
{
OutputDebugString( L"LayoutEndChanging" );
OutputDebugString( L"Operation" );
}
// LayoutStartChanging event - Occurs when the control's layout is about to be changed.
void __fastcall TForm1::Surface1LayoutStartChanging(TObject *Sender,Exsurfacelib_tlb::LayoutChangingEnum Operation)
{
OutputDebugString( L"LayoutStartChanging" );
OutputDebugString( L"Operation" );
}
Surface1->BeginUpdate();
Surface1->AllowLinkControlPoint = Exsurfacelib_tlb::LinkControlPointEnum::exEndControlPoint | Exsurfacelib_tlb::LinkControlPointEnum::exStartControlPoint;
Exsurfacelib_tlb::IElementsPtr var_Elements = Surface1->Elements;
var_Elements->Add(TVariant("Node <b>1"),TVariant(-64),TVariant(-64));
var_Elements->Add(TVariant("Node <b>2"),TNoParam(),TNoParam());
Surface1->Links->Add(Surface1->Elements->get_Item(TVariant(1)),Surface1->Elements->get_Item(TVariant(2)),TVariant("L1"));
Surface1->set_FocusLink(TVariant("L1"));
Surface1->EndUpdate();
|
|
165
|
The caption is displayed on the back, so the picture overrides it. How can I place the caption on the foreground
Surface1->BeginUpdate();
Surface1->DrawPartsOrder = L"extracaption,extrapicture,picture,check,caption,client";
Surface1->HTMLPicture[L"pic1"] = TVariant("c:\\exontrol\\images\\sun.png");
Exsurfacelib_tlb::IElementPtr var_Element = Surface1->Elements->Add(TVariant("<b>Element"),TNoParam(),TNoParam());
var_Element->PicturesAlign = Exsurfacelib_tlb::ContentAlignmentEnum::exMiddleCenter;
var_Element->CaptionAlign = Exsurfacelib_tlb::ContentAlignmentEnum::exMiddleCenter;
var_Element->Pictures = L"pic1";
Surface1->EndUpdate();
|
|
164
|
Draws a frame arround the link's arrow
Surface1->BeginUpdate();
Surface1->AllowLinkControlPoint = Exsurfacelib_tlb::LinkControlPointEnum(0xffffff80 | Exsurfacelib_tlb::LinkControlPointEnum::exAllowChangeTo | Exsurfacelib_tlb::LinkControlPointEnum::exAllowChangeFrom | Exsurfacelib_tlb::LinkControlPointEnum::exOrthoArrange | Exsurfacelib_tlb::LinkControlPointEnum::exMiddleControlPoint | Exsurfacelib_tlb::LinkControlPointEnum::exControlPoint | Exsurfacelib_tlb::LinkControlPointEnum::exEndControlPoint | Exsurfacelib_tlb::LinkControlPointEnum::exStartControlPoint);
Exsurfacelib_tlb::IElementsPtr var_Elements = Surface1->Elements;
var_Elements->Add(TVariant("Element <sha ;;0>A"),TNoParam(),TNoParam());
var_Elements->Add(TVariant("Element <sha ;;0>B"),TVariant(164),TVariant(64));
var_Elements->Add(TVariant("Element <sha ;;0>B"),TVariant(0),TVariant(132));
Exsurfacelib_tlb::ILinksPtr var_Links = Surface1->Links;
var_Links->Add(Surface1->Elements->get_Item(TVariant(1)),Surface1->Elements->get_Item(TVariant(2)),TNoParam())->set_CustomPath(TVariant("0.5,0.25,0.5,.75"));
var_Links->Add(Surface1->Elements->get_Item(TVariant(3)),Surface1->Elements->get_Item(TVariant(2)),TNoParam())->set_CustomPath(TVariant("0.5,0.25,0.5,.75"));
Exsurfacelib_tlb::ILinkPtr var_Link = var_Links->Add(Surface1->Elements->get_Item(TVariant(3)),Surface1->Elements->get_Item(TVariant(1)),TNoParam());
var_Link->ShowLinkType = Exsurfacelib_tlb::ShowLinkTypeEnum::exLinkStraight | Exsurfacelib_tlb::ShowLinkTypeEnum::exLinkDirect;
var_Link->StartPos = Exsurfacelib_tlb::AlignmentEnum::LeftAlignment;
var_Link->ArrowSize = 8;
var_Link->ArrowColor = RGB(255,255,255);
var_Link->ArrowFrameColor = RGB(0,0,0);
Surface1->FitToClient();
Surface1->EndUpdate();
|
|
163
|
Draws a frame arround the arrow for all links
Surface1->BeginUpdate();
Surface1->AllowLinkControlPoint = Exsurfacelib_tlb::LinkControlPointEnum(0xffffff80 | Exsurfacelib_tlb::LinkControlPointEnum::exAllowChangeTo | Exsurfacelib_tlb::LinkControlPointEnum::exAllowChangeFrom | Exsurfacelib_tlb::LinkControlPointEnum::exOrthoArrange | Exsurfacelib_tlb::LinkControlPointEnum::exMiddleControlPoint | Exsurfacelib_tlb::LinkControlPointEnum::exControlPoint | Exsurfacelib_tlb::LinkControlPointEnum::exEndControlPoint | Exsurfacelib_tlb::LinkControlPointEnum::exStartControlPoint);
Surface1->LinksArrowSize = 8;
Surface1->LinksArrowColor = RGB(255,255,255);
Surface1->LinksArrowFrameColor = RGB(0,0,0);
Exsurfacelib_tlb::IElementsPtr var_Elements = Surface1->Elements;
var_Elements->Add(TVariant("Element <sha ;;0>A"),TNoParam(),TNoParam());
var_Elements->Add(TVariant("Element <sha ;;0>B"),TVariant(164),TVariant(64));
var_Elements->Add(TVariant("Element <sha ;;0>B"),TVariant(0),TVariant(132));
Exsurfacelib_tlb::ILinksPtr var_Links = Surface1->Links;
var_Links->Add(Surface1->Elements->get_Item(TVariant(1)),Surface1->Elements->get_Item(TVariant(2)),TNoParam())->set_CustomPath(TVariant("0.5,0.25,0.5,.75"));
var_Links->Add(Surface1->Elements->get_Item(TVariant(3)),Surface1->Elements->get_Item(TVariant(2)),TNoParam())->set_CustomPath(TVariant("0.5,0.25,0.5,.75"));
Exsurfacelib_tlb::ILinkPtr var_Link = var_Links->Add(Surface1->Elements->get_Item(TVariant(3)),Surface1->Elements->get_Item(TVariant(1)),TNoParam());
var_Link->ShowLinkType = Exsurfacelib_tlb::ShowLinkTypeEnum::exLinkStraight | Exsurfacelib_tlb::ShowLinkTypeEnum::exLinkDirect;
var_Link->StartPos = Exsurfacelib_tlb::AlignmentEnum::LeftAlignment;
Surface1->FitToClient();
Surface1->EndUpdate();
|
|
162
|
Change the size to display the arrow of the link
Surface1->BeginUpdate();
Surface1->AllowLinkControlPoint = Exsurfacelib_tlb::LinkControlPointEnum(0xffffff80 | Exsurfacelib_tlb::LinkControlPointEnum::exAllowChangeTo | Exsurfacelib_tlb::LinkControlPointEnum::exAllowChangeFrom | Exsurfacelib_tlb::LinkControlPointEnum::exOrthoArrange | Exsurfacelib_tlb::LinkControlPointEnum::exMiddleControlPoint | Exsurfacelib_tlb::LinkControlPointEnum::exControlPoint | Exsurfacelib_tlb::LinkControlPointEnum::exEndControlPoint | Exsurfacelib_tlb::LinkControlPointEnum::exStartControlPoint);
Exsurfacelib_tlb::IElementsPtr var_Elements = Surface1->Elements;
var_Elements->Add(TVariant("Element <sha ;;0>A"),TNoParam(),TNoParam());
var_Elements->Add(TVariant("Element <sha ;;0>B"),TVariant(164),TVariant(64));
var_Elements->Add(TVariant("Element <sha ;;0>B"),TVariant(0),TVariant(132));
Exsurfacelib_tlb::ILinksPtr var_Links = Surface1->Links;
var_Links->Add(Surface1->Elements->get_Item(TVariant(1)),Surface1->Elements->get_Item(TVariant(2)),TNoParam())->set_CustomPath(TVariant("0.5,0.25,0.5,.75"));
var_Links->Add(Surface1->Elements->get_Item(TVariant(3)),Surface1->Elements->get_Item(TVariant(2)),TNoParam())->set_CustomPath(TVariant("0.5,0.25,0.5,.75"));
Exsurfacelib_tlb::ILinkPtr var_Link = var_Links->Add(Surface1->Elements->get_Item(TVariant(3)),Surface1->Elements->get_Item(TVariant(1)),TNoParam());
var_Link->ShowLinkType = Exsurfacelib_tlb::ShowLinkTypeEnum::exLinkStraight | Exsurfacelib_tlb::ShowLinkTypeEnum::exLinkDirect;
var_Link->StartPos = Exsurfacelib_tlb::AlignmentEnum::LeftAlignment;
var_Link->ArrowSize = 8;
Surface1->FitToClient();
Surface1->EndUpdate();
|
|
161
|
Change the size to display the arrows for all links
Surface1->BeginUpdate();
Surface1->AllowLinkControlPoint = Exsurfacelib_tlb::LinkControlPointEnum(0xffffff80 | Exsurfacelib_tlb::LinkControlPointEnum::exAllowChangeTo | Exsurfacelib_tlb::LinkControlPointEnum::exAllowChangeFrom | Exsurfacelib_tlb::LinkControlPointEnum::exOrthoArrange | Exsurfacelib_tlb::LinkControlPointEnum::exMiddleControlPoint | Exsurfacelib_tlb::LinkControlPointEnum::exControlPoint | Exsurfacelib_tlb::LinkControlPointEnum::exEndControlPoint | Exsurfacelib_tlb::LinkControlPointEnum::exStartControlPoint);
Surface1->LinksArrowSize = 8;
Exsurfacelib_tlb::IElementsPtr var_Elements = Surface1->Elements;
var_Elements->Add(TVariant("Element <sha ;;0>A"),TNoParam(),TNoParam());
var_Elements->Add(TVariant("Element <sha ;;0>B"),TVariant(164),TVariant(64));
var_Elements->Add(TVariant("Element <sha ;;0>B"),TVariant(0),TVariant(132));
Exsurfacelib_tlb::ILinksPtr var_Links = Surface1->Links;
var_Links->Add(Surface1->Elements->get_Item(TVariant(1)),Surface1->Elements->get_Item(TVariant(2)),TNoParam())->set_CustomPath(TVariant("0.5,0.25,0.5,.75"));
var_Links->Add(Surface1->Elements->get_Item(TVariant(3)),Surface1->Elements->get_Item(TVariant(2)),TNoParam())->set_CustomPath(TVariant("0.5,0.25,0.5,.75"));
Exsurfacelib_tlb::ILinkPtr var_Link = var_Links->Add(Surface1->Elements->get_Item(TVariant(3)),Surface1->Elements->get_Item(TVariant(1)),TNoParam());
var_Link->ShowLinkType = Exsurfacelib_tlb::ShowLinkTypeEnum::exLinkStraight | Exsurfacelib_tlb::ShowLinkTypeEnum::exLinkDirect;
var_Link->StartPos = Exsurfacelib_tlb::AlignmentEnum::LeftAlignment;
Surface1->FitToClient();
Surface1->EndUpdate();
|
|
160
|
Extends the caption on the element's width
Exsurfacelib_tlb::IElementPtr var_Element = Surface1->Elements->Add(TVariant(String("<solidline> <c><b>Bank Account</b></solidline><br>+ owner: String <r><a 1;e64=gA8ABzABvABsABpABkg8JABuABlAAgAA4AAwisXjMYH0TAECM") +
"YAjsCMwAM4AkMGhEGOUei0Yl8bkQAOAAlsGmsSlp0h0SgkCF8DgsNhUMhEKiESkYAoMlk8phssmcCltLMNTAFOlFDlc2l0amMxjomAAjAA5AA2tMaHcfplZk1blVDqtu" +
"oNXjoAAEBA=>▲</a><br><solidline>+ balance: Currency = 0</solidline><br>+ deposit(amount: Currency)<r><a 2;e64=gA8ABjAA+AEC" +
"MwAM8DABvABshoAOQAEAAHAAGEWjEajMGNoAMoAOgANERMgAOcHAAvAEJhcEh0Qh0Tg0CmkqMMFlUuhkxiMTisXjNCjk6EwAEYAHIAG1MjY7lUsnkwh8/nUClk5gwAAE" +
"BA==>▲</a><br>+ withdraw(amount: Currency)"),TNoParam(),TNoParam());
var_Element->set_ID(TVariant("Account"));
var_Element->X = -128;
var_Element->CaptionSingleLine = Exsurfacelib_tlb::CaptionSingleLineEnum::exCaptionBreakWrap;
var_Element->AutoSize = false;
var_Element->Width = 256;
var_Element->Height = var_Element->AutoHeight;
var_Element->CaptionAlign = Exsurfacelib_tlb::ContentAlignmentEnum(0x4);
|
|
159
|
Gets the width/height of the element to fit its content ( as if the AutoSize property is True )
// AnchorClick event - Occurs when an anchor element is clicked.
void __fastcall TForm1::Surface1AnchorClick(TObject *Sender,BSTR AnchorID,BSTR Options)
{
Exsurfacelib_tlb::IElementPtr var_Element = Surface1->Elements->get_Item(TVariant("Account"));
var_Element->Height = var_Element->AutoHeight;
}
Exsurfacelib_tlb::IElementPtr var_Element = Surface1->Elements->Add(TVariant(String("<solidline> <c><b>Bank Account</b></solidline><br>+ owner: String <r><a 1;e64=gA8ABzABvABsABpABkg8JABuABlAAgAA4AAwisXjMYH0TAECM") +
"YAjsCMwAM4AkMGhEGOUei0Yl8bkQAOAAlsGmsSlp0h0SgkCF8DgsNhUMhEKiESkYAoMlk8phssmcCltLMNTAFOlFDlc2l0amMxjomAAjAA5AA2tMaHcfplZk1blVDqtu" +
"oNXjoAAEBA=>▲</a><br><solidline>+ balance: Currency = 0</solidline><br>+ deposit(amount: Currency)<r><a 2;e64=gA8ABjAA+AEC" +
"MwAM8DABvABshoAOQAEAAHAAGEWjEajMGNoAMoAOgANERMgAOcHAAvAEJhcEh0Qh0Tg0CmkqMMFlUuhkxiMTisXjNCjk6EwAEYAHIAG1MjY7lUsnkwh8/nUClk5gwAAE" +
"BA==>▲</a><br>+ withdraw(amount: Currency)"),TNoParam(),TNoParam());
var_Element->set_ID(TVariant("Account"));
var_Element->X = -128;
var_Element->CaptionSingleLine = Exsurfacelib_tlb::CaptionSingleLineEnum::exCaptionBreakWrap;
var_Element->AutoSize = false;
var_Element->Width = 256;
var_Element->Height = var_Element->AutoHeight;
var_Element->CaptionAlign = Exsurfacelib_tlb::ContentAlignmentEnum(0x4);
|
|
158
|
Expandable-caption
// AnchorClick event - Occurs when an anchor element is clicked.
void __fastcall TForm1::Surface1AnchorClick(TObject *Sender,BSTR AnchorID,BSTR Options)
{
OutputDebugString( L"AnchorID" );
}
Exsurfacelib_tlb::IElementPtr var_Element = Surface1->Elements->Add(TVariant(String("<solidline> <c><b>Bank Account</b></solidline><br>+ owner: String <r><a 1;e64=gA8ABzABvABsABpABkg8JABuABlAAgAA4AAwisXjMYH0TAECM") +
"YAjsCMwAM4AkMGhEGOUei0Yl8bkQAOAAlsGmsSlp0h0SgkCF8DgsNhUMhEKiESkYAoMlk8phssmcCltLMNTAFOlFDlc2l0amMxjomAAjAA5AA2tMaHcfplZk1blVDqtu" +
"oNXjoAAEBA=>▲</a><br><solidline>+ balance: Currency = 0</solidline><br>+ deposit(amount: Currency)<r><a 2;e64=gA8ABjAA+AEC" +
"MwAM8DABvABshoAOQAEAAHAAGEWjEajMGNoAMoAOgANERMgAOcHAAvAEJhcEh0Qh0Tg0CmkqMMFlUuhkxiMTisXjNCjk6EwAEYAHIAG1MjY7lUsnkwh8/nUClk5gwAAE" +
"BA==>▲</a><br>+ withdraw(amount: Currency)"),TNoParam(),TNoParam());
var_Element->set_ID(TVariant("Account"));
var_Element->X = -256;
var_Element->Y = -164;
var_Element->CaptionSingleLine = Exsurfacelib_tlb::CaptionSingleLineEnum::exCaptionBreakWrap;
var_Element->CaptionAlign = Exsurfacelib_tlb::ContentAlignmentEnum(0x4);
Exsurfacelib_tlb::IElementPtr var_Element1 = Surface1->Elements->Add(TVariant(String("<solidline> <c><b>Person</b></solidline><br>+ name: String <r><a 1;e64=gA8ABzABvABsABpABkg8JABuABlAAgAA4AAwisXjMYH0TAECMYAjsCMw") +
"AM4AkMGhEGOUei0Yl8bkQAOAAlsGmsSlp0h0SgkCF8DgsNhUMhEKiESkYAoMlk8phssmcCltLMNTAFOlFDlc2l0amMxjomAAjAA5AA2tMaHcfplZk1blVDqtuoNXjoAA" +
"EBA=>▲</a><br><solidline># birth: Date</solidline><br>+ getCurrentAge(): int<r><a 2;e64=gA8ABjAA+AECMwAM8DABvABshoAOQAEAAH" +
"AAGEWjEajMGNoAMoAOgANERMgAOcHAAvAEJhcEh0Qh0Tg0CmkqMMFlUuhkxiMTisXjNCjk6EwAEYAHIAG1MjY7lUsnkwh8/nUClk5gwAAEBA==>▲</a>"),TNoParam(),TNoParam());
var_Element1->set_ID(TVariant("Person"));
var_Element1->Y = -164;
var_Element1->CaptionSingleLine = Exsurfacelib_tlb::CaptionSingleLineEnum::exCaptionBreakWrap;
Exsurfacelib_tlb::IElementPtr var_Element2 = Surface1->Elements->Add(TVariant(String("<solidline> <c><b>Student</b></solidline><br><solidline>+ classes: List<Course> <r><a 1;e64=gA8ABzABvABsABpABkg8JABuABlAA+AAgAE") +
"CMcTi4AMwAM4AjMGhEGOUVAA4AAwk8plcqihwAElg0wiUlOkOiUEgQvgcFhsKhkIhUQiUUnccj0gn0jmMagUlowAMNOpEfkMNkkmlEqrctjQmAAjAA5AA2sssHcbnkdq" +
"1Ln1QtVSjQAAEBA==>▲</a></solidline><br>- attend(class: Course)<r><a 2;e64=gA8ABjAA+AECMwAM8DABvABshoAOQAEAAHAAGEWjEajMGNoA" +
"MoAOgANERMgAOcHAAvAEJhcEh0Qh0Tg0CmkqMMFlUuhkxiMTisXjNCjk6EwAEYAHIAG1MjY7lUsnkwh8/nUClk5gwAAEBA==>▲</a><br>- sleep()"),TNoParam(),TNoParam());
var_Element2->set_ID(TVariant("Student"));
var_Element2->Y = -64;
var_Element2->CaptionSingleLine = Exsurfacelib_tlb::CaptionSingleLineEnum::exCaptionBreakWrap;
Exsurfacelib_tlb::ILinkPtr var_Link = Surface1->Links->Add(Surface1->Elements->get_Item(TVariant("Account")),Surface1->Elements->get_Item(TVariant("Student")),TNoParam());
var_Link->Caption = L"<fgcolor A0A0A0><solidline 808080> <c><b>Link</b></solidline><br># count: number <r><a ;exp=12992>➤</a>";
|
|
157
|
Expandable-caption
Exsurfacelib_tlb::IElementPtr var_Element = Surface1->Elements->Add(TVariant("<solidline><b>Header</b></solidline><br>Line1<r><a ;exp=show lines>+</a><br>Line2<br>Line3"),TNoParam(),TNoParam());
var_Element->CaptionSingleLine = Exsurfacelib_tlb::CaptionSingleLineEnum::exCaptionBreakWrap;
|
|
156
|
Fullfit the caption on the element's width
Exsurfacelib_tlb::IElementPtr var_Element = Surface1->Elements->Add(TVariant(String("<solidline><b>Bank Account</b></solidline><br>+ owner: String <r><a 1;properties>+</a><br><solidline>+ balance: Currency = 0</s") +
"olidline><br>+ deposit(amount: Currency)<r><a 2;methods>+</a><br>+ withdraw(amount: Currency)"),TNoParam(),TNoParam());
var_Element->CaptionSingleLine = Exsurfacelib_tlb::CaptionSingleLineEnum::exCaptionBreakWrap;
var_Element->BackColor = RGB(248,248,248);
var_Element->AutoSize = false;
var_Element->Width = 194;
var_Element->Height = 76;
var_Element->CaptionAlign = Exsurfacelib_tlb::ContentAlignmentEnum(0x4);
|
|
155
|
Wrap the caption by <br> or "\r\n" sequence only
Exsurfacelib_tlb::IElementPtr var_Element = Surface1->Elements->Add(TVariant(String("<solidline><b>Bank Account</b></solidline><br>+ owner: String <r><a 1;properties>+</a><br><solidline>+ balance: Currency = 0</s") +
"olidline><br>+ deposit(amount: Currency)<r><a 2;methods>+</a><br>+ withdraw(amount: Currency)"),TNoParam(),TNoParam());
var_Element->CaptionSingleLine = Exsurfacelib_tlb::CaptionSingleLineEnum::exCaptionBreakWrap;
var_Element->BackColor = RGB(248,248,248);
|
|
154
|
Display a custom tooltip
// MouseMove event - Occurs when the user moves the mouse.
void __fastcall TForm1::Surface1MouseMove(TObject *Sender,short Button,short Shift,int X,int Y)
{
Surface1->ShowToolTip(L"new content",TVariant(""),TNoParam(),TVariant("+8"),TVariant("+8"));
}
|
|
153
|
Shows the tooltip of the object moved relative to its default position
// MouseMove event - Occurs when the user moves the mouse.
void __fastcall TForm1::Surface1MouseMove(TObject *Sender,short Button,short Shift,int X,int Y)
{
Surface1->ShowToolTip(L"<null>",TVariant("<null>"),TNoParam(),TVariant("+8"),TVariant("+8"));
}
Surface1->Elements->Add(TVariant("Element with a Tooltip"),TNoParam(),TNoParam())->ToolTip = L"This is a bit of text that should be displayed when cursor hovers the element.";
|
|
152
|
Rename Undo/Redo commands into the control's toolbar
Surface1->BeginUpdate();
Surface1->AllowUndoRedo = true;
Surface1->ToolBarFormat = L"-1,100,101,|,103,104";
Surface1->ToolBarCaption[100] = L"<img>1</img>Acasa";
Surface1->ToolBarCaption[103] = L"Anuleaza <img>3</img>";
Surface1->ToolBarCaption[104] = L"<img>4</img>Reface";
Surface1->ToolBarToolTip[100] = L"Restabileste vizualizarea la origine.";
Surface1->ToolBarToolTip[101] = L"Mareste vizualizarea.";
Surface1->ToolBarToolTip[103] = L"Anuleaza ultima actiune UI. Pentru a anula o actiune apasati Ctrl+Z.";
Surface1->ToolBarToolTip[104] = L"Inverseaza cea mai recenta operatie de anulare. Pentru a reface o actiune apasati Ctrl+Y.";
Exsurfacelib_tlb::IElementsPtr var_Elements = Surface1->Elements;
var_Elements->Add(TVariant("Item <b>1"),TVariant(-64),TVariant(-48));
var_Elements->Add(TVariant("Item <b>2"),TVariant(32),TVariant(32));
Surface1->Links->Add(Surface1->Elements->get_Item(TVariant(1)),Surface1->Elements->get_Item(TVariant(2)),TNoParam());
Surface1->EndUpdate();
|
|
151
|
Add Undo/Redo commands to control's toolbar
Surface1->BeginUpdate();
Surface1->AllowUndoRedo = true;
Surface1->ToolBarFormat = L"-1,100,101,|,103,104";
Exsurfacelib_tlb::IElementsPtr var_Elements = Surface1->Elements;
var_Elements->Add(TVariant("Item <b>1"),TVariant(-64),TVariant(-48));
var_Elements->Add(TVariant("Item <b>2"),TVariant(32),TVariant(32));
Surface1->Links->Add(Surface1->Elements->get_Item(TVariant(1)),Surface1->Elements->get_Item(TVariant(2)),TNoParam());
Surface1->EndUpdate();
|
|
150
|
Clear Undo/Redo queue (method 2)
Surface1->BeginUpdate();
Surface1->AllowUndoRedo = true;
Exsurfacelib_tlb::IElementsPtr var_Elements = Surface1->Elements;
var_Elements->Add(TVariant("Item <b>1"),TVariant(-64),TVariant(-64));
var_Elements->Add(TVariant("Item <b>2"),TNoParam(),TNoParam());
Surface1->Links->Add(Surface1->Elements->get_Item(TVariant(1)),Surface1->Elements->get_Item(TVariant(2)),TNoParam());
long c = Surface1->UndoRedoQueueLength;
Surface1->UndoRedoQueueLength = 0;
Surface1->UndoRedoQueueLength = c;
OutputDebugString( Surface1->UndoListAction[TNoParam(),TNoParam()] );
Surface1->EndUpdate();
|
|
149
|
Clear Undo/Redo queue (method 1)
Surface1->BeginUpdate();
Surface1->AllowUndoRedo = true;
Exsurfacelib_tlb::IElementsPtr var_Elements = Surface1->Elements;
var_Elements->Add(TVariant("Item <b>1"),TVariant(-64),TVariant(-64));
var_Elements->Add(TVariant("Item <b>2"),TNoParam(),TNoParam());
Surface1->Links->Add(Surface1->Elements->get_Item(TVariant(1)),Surface1->Elements->get_Item(TVariant(2)),TNoParam());
Surface1->AllowUndoRedo = true;
OutputDebugString( Surface1->UndoListAction[TNoParam(),TNoParam()] );
Surface1->EndUpdate();
|
|
148
|
Removes Redo operations
Surface1->BeginUpdate();
Surface1->AllowUndoRedo = true;
Exsurfacelib_tlb::IElementsPtr var_Elements = Surface1->Elements;
var_Elements->Add(TVariant("Item <b>1"),TVariant(-64),TVariant(-64));
var_Elements->Add(TVariant("Item <b>2"),TNoParam(),TNoParam());
Surface1->Links->Add(Surface1->Elements->get_Item(TVariant(1)),Surface1->Elements->get_Item(TVariant(2)),TNoParam());
Surface1->Undo();
Surface1->RedoRemoveAction(TVariant(10),TNoParam());
OutputDebugString( Surface1->RedoListAction[TNoParam(),TNoParam()] );
Surface1->EndUpdate();
|
|
147
|
Removes Undo operations
Surface1->BeginUpdate();
Surface1->AllowUndoRedo = true;
Exsurfacelib_tlb::IElementsPtr var_Elements = Surface1->Elements;
var_Elements->Add(TVariant("Item <b>1"),TVariant(-64),TVariant(-64));
var_Elements->Add(TVariant("Item <b>2"),TNoParam(),TNoParam());
Surface1->Links->Add(Surface1->Elements->get_Item(TVariant(1)),Surface1->Elements->get_Item(TVariant(2)),TNoParam());
Surface1->UndoRemoveAction(TVariant(10),TNoParam());
OutputDebugString( Surface1->UndoListAction[TNoParam(),TNoParam()] );
Surface1->EndUpdate();
|
|
146
|
Record the UI operations as a block of undo/redo operations
Surface1->BeginUpdate();
Surface1->AllowUndoRedo = true;
Surface1->StartBlockUndoRedo();
Exsurfacelib_tlb::IElementsPtr var_Elements = Surface1->Elements;
var_Elements->Add(TVariant("Item <b>1"),TVariant(-64),TVariant(-64));
var_Elements->Add(TVariant("Item <b>2"),TNoParam(),TNoParam());
Surface1->Links->Add(Surface1->Elements->get_Item(TVariant(1)),Surface1->Elements->get_Item(TVariant(2)),TNoParam());
Surface1->EndBlockUndoRedo();
OutputDebugString( Surface1->UndoListAction[TNoParam(),TNoParam()] );
Surface1->EndUpdate();
|
|
145
|
Groups the next to current Undo/Redo Actions in a single block
Surface1->BeginUpdate();
Surface1->AllowUndoRedo = true;
Exsurfacelib_tlb::IElementsPtr var_Elements = Surface1->Elements;
var_Elements->Add(TVariant("Item <b>1"),TVariant(-64),TVariant(-64));
var_Elements->Add(TVariant("Item <b>2"),TNoParam(),TNoParam());
Surface1->Links->Add(Surface1->Elements->get_Item(TVariant(1)),Surface1->Elements->get_Item(TVariant(2)),TNoParam());
Surface1->GroupUndoRedoActions(3);
OutputDebugString( Surface1->UndoListAction[TNoParam(),TNoParam()] );
Surface1->EndUpdate();
|
|
144
|
Limits the number of entries within the Undo/Redo queue
Surface1->BeginUpdate();
Surface1->AllowUndoRedo = true;
Surface1->UndoRedoQueueLength = 1;
Exsurfacelib_tlb::IElementsPtr var_Elements = Surface1->Elements;
var_Elements->Add(TVariant("Item <b>1"),TVariant(-64),TVariant(-64));
var_Elements->Add(TVariant("Item <b>2"),TNoParam(),TNoParam());
Surface1->Links->Add(Surface1->Elements->get_Item(TVariant(1)),Surface1->Elements->get_Item(TVariant(2)),TNoParam());
OutputDebugString( Surface1->UndoListAction[TNoParam(),TNoParam()] );
Surface1->EndUpdate();
|
|
143
|
Lists the Redo actions that can be performed on the surface
Surface1->BeginUpdate();
Surface1->AllowUndoRedo = true;
Exsurfacelib_tlb::IElementsPtr var_Elements = Surface1->Elements;
var_Elements->Add(TVariant("Item <b>1"),TVariant(-64),TVariant(-64));
var_Elements->Add(TVariant("Item <b>2"),TNoParam(),TNoParam());
Surface1->Links->Add(Surface1->Elements->get_Item(TVariant(1)),Surface1->Elements->get_Item(TVariant(2)),TNoParam());
Surface1->Undo();
OutputDebugString( Surface1->RedoListAction[TNoParam(),TNoParam()] );
Surface1->EndUpdate();
|
|
142
|
Lists the Undo actions that can be performed on the surface
Surface1->BeginUpdate();
Surface1->AllowUndoRedo = true;
Exsurfacelib_tlb::IElementsPtr var_Elements = Surface1->Elements;
var_Elements->Add(TVariant("Item <b>1"),TVariant(-64),TVariant(-64));
var_Elements->Add(TVariant("Item <b>2"),TNoParam(),TNoParam());
Surface1->Links->Add(Surface1->Elements->get_Item(TVariant(1)),Surface1->Elements->get_Item(TVariant(2)),TNoParam());
OutputDebugString( Surface1->UndoListAction[TNoParam(),TNoParam()] );
Surface1->EndUpdate();
|
|
141
|
Checks whether the Undo operation is possible
Surface1->BeginUpdate();
Surface1->AllowUndoRedo = true;
Exsurfacelib_tlb::IElementsPtr var_Elements = Surface1->Elements;
var_Elements->Add(TVariant("Item <b>1"),TVariant(-64),TVariant(-64));
var_Elements->Add(TVariant("Item <b>2"),TNoParam(),TNoParam());
Surface1->Links->Add(Surface1->Elements->get_Item(TVariant(1)),Surface1->Elements->get_Item(TVariant(2)),TNoParam());
Surface1->Undo();
OutputDebugString( L"CanRedo" );
OutputDebugString( PChar(Surface1->CanRedo) );
Surface1->EndUpdate();
|
|
140
|
Call Redo by code
Surface1->BeginUpdate();
Surface1->AllowUndoRedo = true;
Exsurfacelib_tlb::IElementsPtr var_Elements = Surface1->Elements;
var_Elements->Add(TVariant("Item <b>1"),TVariant(-64),TVariant(-64));
var_Elements->Add(TVariant("Item <b>2"),TNoParam(),TNoParam());
Surface1->Links->Add(Surface1->Elements->get_Item(TVariant(1)),Surface1->Elements->get_Item(TVariant(2)),TNoParam());
Surface1->Undo();
Surface1->Redo();
Surface1->EndUpdate();
|
|
139
|
Checks whether the Undo operation is possible
Surface1->BeginUpdate();
Surface1->AllowUndoRedo = true;
Exsurfacelib_tlb::IElementsPtr var_Elements = Surface1->Elements;
var_Elements->Add(TVariant("Item <b>1"),TVariant(-64),TVariant(-64));
var_Elements->Add(TVariant("Item <b>2"),TNoParam(),TNoParam());
Surface1->Links->Add(Surface1->Elements->get_Item(TVariant(1)),Surface1->Elements->get_Item(TVariant(2)),TNoParam());
OutputDebugString( L"CanUndo" );
OutputDebugString( PChar(Surface1->CanUndo) );
Surface1->EndUpdate();
|
|
138
|
Call Undo by code
Surface1->BeginUpdate();
Surface1->AllowUndoRedo = true;
Exsurfacelib_tlb::IElementsPtr var_Elements = Surface1->Elements;
var_Elements->Add(TVariant("Item <b>1"),TVariant(-64),TVariant(-64));
var_Elements->Add(TVariant("Item <b>2"),TNoParam(),TNoParam());
Surface1->Links->Add(Surface1->Elements->get_Item(TVariant(1)),Surface1->Elements->get_Item(TVariant(2)),TNoParam());
Surface1->Undo();
Surface1->EndUpdate();
|
|
137
|
Save the element's properties for Undo/Redo operations, by code
Surface1->BeginUpdate();
Surface1->AllowUndoRedo = true;
Exsurfacelib_tlb::IElementsPtr var_Elements = Surface1->Elements;
var_Elements->Add(TVariant("Item <b>1"),TVariant(-64),TVariant(-64));
var_Elements->Add(TVariant("Item <b>2"),TNoParam(),TNoParam());
Surface1->StartBlockUndoRedo();
Exsurfacelib_tlb::ILinkPtr var_Link = Surface1->Links->Add(Surface1->Elements->get_Item(TVariant(1)),Surface1->Elements->get_Item(TVariant(2)),TNoParam());
long h = var_Link->StartUpdateLink;
var_Link->Color = RGB(255,0,0);
var_Link->Width = 2;
var_Link->ShowDir = false;
var_Link->ShowLinkType = Exsurfacelib_tlb::ShowLinkTypeEnum::exLinkStraight;
var_Link->EndUpdateLink(h);
Surface1->EndBlockUndoRedo();
Surface1->EndUpdate();
|
|
136
|
No color is restored for the link when Undo/Redo operation is executed
// AddElement event - A new element has been added to the surface.
void __fastcall TForm1::Surface1AddElement(TObject *Sender,Exsurfacelib_tlb::IElement *Element)
{
// Element.ShowCheckBox = True
// Element.CheckBoxAlign = 2
}
Surface1->BeginUpdate();
Surface1->AllowUndoRedo = true;
Exsurfacelib_tlb::IElementsPtr var_Elements = Surface1->Elements;
var_Elements->Add(TVariant("Check <b>1"),TVariant(-64),TVariant(-64));
var_Elements->Add(TVariant("Check <b>2"),TNoParam(),TNoParam())->Checked = Exsurfacelib_tlb::CheckStateEnum::exChecked;
Surface1->StartBlockUndoRedo();
Exsurfacelib_tlb::ILinkPtr var_Link = Surface1->Links->Add(Surface1->Elements->get_Item(TVariant(1)),Surface1->Elements->get_Item(TVariant(2)),TNoParam());
long h = var_Link->StartUpdateLink;
var_Link->Color = RGB(255,0,0);
var_Link->Width = 2;
var_Link->ShowDir = false;
var_Link->ShowLinkType = Exsurfacelib_tlb::ShowLinkTypeEnum::exLinkStraight;
var_Link->EndUpdateLink(h);
Surface1->EndBlockUndoRedo();
Surface1->EndUpdate();
|
|
135
|
Save the element's properties for Undo/Redo operations, by code
Surface1->BeginUpdate();
Surface1->AllowUndoRedo = true;
Surface1->Elements->Add(TVariant("Item <b>1"),TVariant(-64),TVariant(-64));
Surface1->StartBlockUndoRedo();
Exsurfacelib_tlb::IElementPtr var_Element = Surface1->Elements->Add(TVariant("Item <b>2"),TNoParam(),TNoParam());
long h = var_Element->StartUpdateElement;
var_Element->BackColor = RGB(0,0,0);
var_Element->ForeColor = RGB(255,255,255);
var_Element->BorderColor = RGB(255,0,0);
var_Element->EndUpdateElement(h);
Surface1->EndBlockUndoRedo();
Surface1->EndUpdate();
|
|
134
|
No color is restored for the element when Undo/Redo operation is executed
Surface1->BeginUpdate();
Surface1->AllowUndoRedo = true;
Surface1->Elements->Add(TVariant("Item <b>1"),TVariant(-64),TVariant(-64));
Surface1->StartBlockUndoRedo();
Exsurfacelib_tlb::IElementPtr var_Element = Surface1->Elements->Add(TVariant("Item <b>2"),TNoParam(),TNoParam());
long h = var_Element->StartUpdateElement;
var_Element->BackColor = RGB(0,0,0);
var_Element->ForeColor = RGB(255,255,255);
var_Element->BorderColor = RGB(255,0,0);
var_Element->EndUpdateElement(h);
Surface1->EndBlockUndoRedo();
Surface1->EndUpdate();
|
|
133
|
How can I ensure that a specified element fits the surface's visible area
Exsurfacelib_tlb::IElementsPtr var_Elements = Surface1->Elements;
Exsurfacelib_tlb::IPatternPtr var_Pattern = var_Elements->Add(TVariant("Element A"),TVariant(-100),TNoParam())->Pattern;
var_Pattern->Type = Exsurfacelib_tlb::PatternEnum::exPatternBDiagonal;
var_Pattern->Color = RGB(224,224,224);
var_Elements->Add(TVariant("Element B"),TVariant(2000),TNoParam())->EnsureVisible();
|
|
132
|
LayoutEndChanging(exUndo), LayoutEndChanging(exRedo) or LayoutEndChanging(exUndoRedoUpdate) notifiy your application once a Undo/Redo operation is executed (CTRL+Z, CTRL+Y) or updated
// AddElement event - A new element has been added to the surface.
void __fastcall TForm1::Surface1AddElement(TObject *Sender,Exsurfacelib_tlb::IElement *Element)
{
// Element.ShowCheckBox = True
// Element.CheckBoxAlign = 2
}
// LayoutEndChanging event - Notifies your application once the control's layout has been changed.
void __fastcall TForm1::Surface1LayoutEndChanging(TObject *Sender,Exsurfacelib_tlb::LayoutChangingEnum Operation)
{
OutputDebugString( L"LayoutEndChanging" );
OutputDebugString( L"Operation" );
}
Surface1->BeginUpdate();
Surface1->AllowUndoRedo = true;
Exsurfacelib_tlb::IElementsPtr var_Elements = Surface1->Elements;
var_Elements->Add(TVariant("Check <b>1"),TVariant(-64),TVariant(-64));
var_Elements->Add(TVariant("Check <b>2"),TNoParam(),TNoParam())->Checked = Exsurfacelib_tlb::CheckStateEnum::exChecked;
Surface1->Links->Add(Surface1->Elements->get_Item(TVariant(1)),Surface1->Elements->get_Item(TVariant(2)),TNoParam());
Surface1->EndUpdate();
|
|
131
|
Turn on the Undo/Redo feature
// AddElement event - A new element has been added to the surface.
void __fastcall TForm1::Surface1AddElement(TObject *Sender,Exsurfacelib_tlb::IElement *Element)
{
// Element.ShowCheckBox = True
// Element.CheckBoxAlign = 2
}
Surface1->BeginUpdate();
Surface1->AllowUndoRedo = true;
Exsurfacelib_tlb::IElementsPtr var_Elements = Surface1->Elements;
var_Elements->Add(TVariant("Check <b>1"),TVariant(-64),TVariant(-64));
var_Elements->Add(TVariant("Check <b>2"),TNoParam(),TNoParam())->Checked = Exsurfacelib_tlb::CheckStateEnum::exChecked;
Surface1->Links->Add(Surface1->Elements->get_Item(TVariant(1)),Surface1->Elements->get_Item(TVariant(2)),TNoParam());
Surface1->EndUpdate();
|
|
130
|
ImageSize property on 32 (specifies the size of control' icons/images/check-boxes/radio-buttons)
// AddElement event - A new element has been added to the surface.
void __fastcall TForm1::Surface1AddElement(TObject *Sender,Exsurfacelib_tlb::IElement *Element)
{
// Element.ShowCheckBox = True
}
Surface1->BeginUpdate();
Surface1->ImageSize = 32;
Surface1->Font->Size = TVariant(long(16));
Surface1->Images(TVariant(String("gBJJgBAIDAAEg4AEEKAD/hz/EMNh8TIRNGwAjEZAEXjAojKAjMLjABhkaABAk0plUrlktl0vmExmUzmk1m03nE5nU7nk9miAoE+oVDolFo1HpFJpU5h8Sf9OqFNqUOq") +
"NUqdPq9VrFWrlbr1QpdhAFAkFis1ntFptVrtkrpszrNvmVxqk3uVtm1kmF3sdBvF/wGBmV+j9BYGHwWJulfxdax2NyFdx2JlV6l9Nw7AAGZymdz2Cy2GxErvWcz9ivlw" +
"yV21cuxugwktzGIzmvwtl0+53U5y0a0Wazmmyu/3dCyOMyXHx/J5nIr9q3uyqnBxFN3G46ma4vb7mD2Ng4nZze00fDkHC7t7us2rOX5tguetpHRlmz4HVqnXk1PjHO+C" +
"MPo9MBMC+j2vC8j7wS8cFNI4kBo05UIvfCT/NsnsApU+0Fqg/T+oy/kPxC0sEQfErKQK96+w28UWRI8UGvO8sTLS9r2PWmsMJTDTask3CsIbIEQRA3shOXEEAO/GclJ9" +
"FEKrrA8FRbKMXRIlb0JxCkjS1LMswhCcvuel0cv26cSMa8Ufx+2sQwhEUoSXOCjSbLcnxjKc7sdKUVyq28NtVI71P9P7JxtQEapjQ6fzfM8zPfNE2PhIsLL63E40slk5" +
"y7N89LcyU9SvMb3SdUc6VJLj5VLVLfO/PS9KzNFHUa/0XyBD0dxlS9cxhMlTRSoNXypPErWDPyfNS+MwprRNO0FD8wVVZ1AI08URwVRjtJ1WCn21QkkUrXVLVPQS/XIk" +
"FgTxT9iONZ9xVTdq+L1eKg3kkF6Upe68XtfV51/MtrVjBlwYFL1ev8y1/P6/lyzzYl02wntj0RVFmS1Qa+M5as93QxEUW9e993rfmQ2+vy65M/mL1lhl/2bj2ByVduMt" +
"NhCJT9hdz41nN14Ld12Z9UjfI/oUAaGseiw6+uFLLhcVabJOS5RqOE0BHlZ5VnEr5fOMs3st+aa/bbRzrJGV51Y0b0DbqaWXZD90hIsPbjWu52+6Wyadpe66hhO+P/Xi" +
"oW5rD8ZbrUZuVg6n1dsE/cXmewu1m9PVwnd35/nueXho/NaJzmjc61W76esuT77eG8pTquy9TwWH8LEzG8RDfFalx3Gcfvna9rvG/cptGLd9tuI6TZOP5Fiqi99vea+X" +
"4VRcBq/JZZtVQ9cwSs5lsXE372+a9z7PbfB3VVqHyvMctLto8uob6eV0m/cD6MN2v+T33t6sBut42vdv2bJ8a997x2maFJfK+qArbGJPEKE+1qTflMsIdW/GCJX17KcT" +
"6/czr/X+u1g29B7j/4BQfWkkx4zIHisjhPCmE0K4SwtXM+d4BvHRwNZOoBph9IJvPek9d40FoMJxf691jj2ywQQcHEWET4XJwkTszlVqm2GokewxtBT1DpQjRxDN0rUV" +
"DNKdC3lb6tzNOwh6upMSSYfv4YBCl/bsn9PxiFCEo7SI6Obc9HeOrnY8x4jtHtdpN4GRbaorhsbu18Pph5CiHymI0RpSXGJ/z2oUOxYxG858AyiI+bfJtuTcG5yelBJy" +
"T8okhqFd4a5yxL0rvulYtKCsZiWxWkc1s1cRoxxwhA31DLE0mR9l9HqX8fJgTDmFMVH0MIsRzVYnwnMi1dyzmhLt2kS2pxIiU62Wj5ptQGlSYFakLonTUJNLKaM5Wzlf" +
"fEkuFkk5wTrhVO2eE7G6lJhxFFYUZ55zmn0WuBCD4pzhirFCKkbomsOoIYmZx5p90LoYWGPdD5g0QmJRKYxbZ6zYoVQ2jVGylSak7KSkFH6RSjpHKFuU+YMyNo5SulkC" +
"6I0vonTCitMXPoEpVS2H5FQfEqp2R1opIgAEkJISYARTCukOhmPNI5Ex/wzGHUsicMwA1LHgQ90Y/KpoQHAD+pB/R4NzIaMAB9Xaw1gqaAOsh/A/ptIkWUfhGK1kZH8R" +
"gH5GqvgArqRmt4AAPrTroRofBGADkqr6Rmu4D7CEaHARiwpJrEEZsXXwlVjyMWRsaRqwdkLGNBABZmytmyMnaINZqyVpLR2ftKAAAdd6h2osbaskdiq4EZtgSmyNcbVW" +
"RJNXe3AA7REar3b0stlAAXBtoRmvJGLjEYAHUWsFcwCD/rnaop9aEICMAPdK5hT6xpeuzdOtAgKuJeGfdq6ggEbkTvAP+p9UCHXrvKkcgIA=="));
Exsurfacelib_tlb::IAppearancePtr var_Appearance = Surface1->VisualAppearance;
var_Appearance->Add(1,TVariant(String("gBFLBCJwBAEHhEJAAEhABfICg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj") +
"6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7E" +
"MRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsOatVqjG5sYjcGC3La9cz3Pq/bpuDCbMxuaK1TrYXr1TTrcofBDldAxXRKDx" +
"RDWVhLnYOw9i6XxzjuXprCaOoKB6EwbiCZZCGOdZYlcT4xHmbhMnwNxtn+G5bmqdZ7n4Pw/i+X5zm+dQ9g4CAFjsfAJheOI8HsDoWDWTB/lwSAQkmA5PEgRYoDyDwYFY" +
"FoFmGCBmBqBphDgRJ0gOTIYBGRB/lyRh0iSCZbjYWJzgWDwIjYLoLmMCJGDKDJjBgWgqG6YhyhGHRzA2aJ1mCABOAiOJvhCZBJBYRoRmSCQmEqEQimkAZgg8TZnDCV4U" +
"kmCUmBKZYJGYWoWCUUhiFMNZckNUh2GENoaGaGZmgmJhqhqZpGGIEx2GYIxSGGGJdggWJth2Z4JmYeoemeSZ2H6H4hGmQhihyTRHGYLg7CiCgmgqIpokoNoOiOaJ4jqA" +
"ochqaZGgaCxpAoZoaiaaJqEmWIcGgShcnCJwqEqFoR3YOoFlgchflqNouiuawHmWSYqGkWZQhcatzmaOoumuSp2j6L5bBaKo0GQKRnGGCxqiyCwmkqMpsksNpOGUGI7A" +
"0ew1G0Rxlg0PptgsZuDG2Sx2l6N5tnYNZZjUDRXDCVo5l2FoymqOpukuNpujubwLjmWY5k0ZwxkaFxYlWdp6j6b5Lnafo/nABQdg2FxcUsY5BkmXAkmeQpckwNRrkKTh" +
"8CSHZBk4NwyC4KxxgMDwakOMZDn8GgwnGAo2C4cwthMcwmCcMoHBMHRehwTIghySYNksZwcH4HBMEsHx5hyPItiweYxnwSZEH4Mozn0fR+DMAo7EYJ50gkdZelKdNql2" +
"UgJn0GIukwH4HicQRai2GI4mSVpNl0dZGledgNgcYpYDWUx3FsOQi5YV5anaTY3G6W53A2RxylydxFjiaxEFCCgBBAQ=="));
var_Appearance->Add(2,TVariant(String("gBFLBCJwBAEHhEJAAEhABcoFg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj") +
"6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7E" +
"MRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4" +
"nGKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEokiEN5NCKfJ9DyTRjnS" +
"cg1CEYxOBmBpPCgagdgcIZoHoGIFA4AxQkCAxKAgKBwgGSpIBCZhjF2E5UnQPQMiMCJBCIBwxkSQgsgo+JtDKT4ziiQw+k6EwAnsOgLnkHI+yCQ4iEuE4klkPhShEJBp" +
"AoPgymOMoaDgHBjFMBgyD0HYTiCZSZhIIIGC4ChiHSew5kwM5omILZPiOBI0hwZw5kodIdA+M4Uj4PxOmMSJ9DuTQzmyZgviceZagaHVfj4awwmaAh2GUIYmCOEZZDaD" +
"RDFGdwcg4EwyHMN4LBOaJbCoaZqgKH8qkMfIyD8DozDyfA7A0Coui0OpMmOZJdCsahKg6NooioChwmEMxLEoXJbDUTRXGSUgykyMgQG0GpPHMdI3D4TRCgSeQ0kmaw+l" +
"GNAtCOZJVCiT5DhyRQwAqMg0EoDBBGEGAsASC5yiSCw+k4Mp6lWNQuksTpRjMTxDGzJwGmGMpDDKXYTECSAxl6Q5olkK4PgMMIVkASRMBMBgzEkaZEjsNALhIZA6AeQB" +
"gk0ZJEgAAJ0CIAgODMNIsD6DRih9uYwFyAwfCUb5ijmbI+gwdxkk8MZMGeMpPCkDxzBiC5MHMPJLDSSROFMLIoBEQogEMFJPnENYQGgE4DCOaJfC7tYkhGTQ0kyWwyku" +
"XpMiyRpKjKR4wngM4JmOWJACCdYtHMWw+Eych4nINYLAEYA8AgdAEEsQZajaQoog4GxPiMVIolcdxNG8XZVkmNoRwWRVBlFeFEeAZQJgnFiHgHwcAhjhHgGMSI5xki2C" +
"yA4EQsA3i0HkBsLwKRFgAHcPkHopBJBcBeDUYI7xyDOHqKkWo2hLCsDIBIY4qQ5A8DoMMYwOAqCSBGKgU4yB2iDBwIgB4hxQgAAWNgBoAgsBdEcBUQ4sQ9A/HqD0JI8R" +
"pBzH2OYVgahLBHFiJQJweQiDhDUE4SAARQAzFsG0EQwA6AOWSBkFgVAIBCHeGERQFQiCQHeFkC4vkiB8DyB4F4QxVDvGMNEOQexMjlBeOAKQiQLgfDA7QEAaRiBdEkH8" +
"TI7AZiFBAGYBIABWjYBiGACioQ4C1A+AMMgWhfgxHgPsT4URIB0COKgPgjRwiAB8AYUArxBgCF6J4GY5hrAOCAPAAoGRRCsCIMEXATXfgAF8BMJwURuEQDgD4Q4OBoAe" +
"HGFgLIwQrC2D0JoSQ+QvhrHoSgQI8AbDFGID8C4Ah6BQAQAASACwgCYCMAUMARAvCKAiAMCAokeCKBEOAKgCBoDaHuMsEAqwJDiACDURg8R6gPCyDofYWAhgoDIJ4ZAu" +
"hoiGAYGgRoQw/A0GMMga4GwxiEDeIYYInATCDBQAoBAwAoDlA0KMBoVRGiDGwDQUYIRsgaGGDgM4LAwDWB8EcIA1APhjEgGQVwgRIgjFIIQHokgZA+CSEkLIKQSjHAwM" +
"sCwDAsAEB2ABTIwRwD6A8CMToSxkAxE4HYIw+BsgbBEDAHYBwojCBoIYFgXSjABE4MsHIbQWhlGILQS4UhvBdAUKEEwHgxDAAABQQQUAhgKHiDwE4JS4A7BGLQZwCR4g" +
"aBEMUYAqgKApHgGwVAIRNgvBMMQXImwZDtE4I8UIyAZCDCAE8AwrhgAdEEBACQLRCg4FEB4AYtA7CdEiPQMoJAMDNCkOMCAXAFDhH0D0Q4EgfAaGSK4NYzRUj9BuCgAg" +
"swOBjB4Fqpw8B2ADAwE4A4Qx2DAE6JIaQPQGhAGKBcIQ5B5gHByKIFARwADbAyKUfgdBKBBGyEcVIAB/ijHoIoSA0gdBNl+OATYERZgBGSDYWIWAUCEGKA4FAhR7CIBt" +
"YQGYZg4CMAiKEcAOwkBjHWE8Z4lQgA+DkBoTohwwCeAaMEEgBQCCABgHMRwQRhhMEWFQd4HwZgwDqFESItAbAGEANCpINAzANCCJkK4ah+heFYBURwsQrS2CsMYMoWGB" +
"hYDWI0EInQgiApXaOVI1QFDsC8MUNoMBMA1HMJga4eh+BeAWOgNNowGjYzCGAAwax+iJBeBVT4gxoBIAGFsJFBxgBiGKFkKQ7g5DFFQEcAo4AzDDACKEQQLgCiJDYB0M" +
"gRBCCQAgQEA=="));
var_Appearance->Add(3,TVariant(String("gBFLBCJwBAEHhEJAAEhABQ4Fg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj") +
"6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7E" +
"MRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4" +
"nGKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEosiYN5NHMOJ+D4TpTnS" +
"eQ7CEY4uBmBpPhgagdgcIZoHibIEyUBJZDQIJShoCgcCAcoyAQOYYlcZJ1D0DxDCiQgwEiAZMHEMJLFKPJ9D2DoDnidQ4k+Y5QmKEROBkIhKD0JIZDIS4TGUCQuEeEJj" +
"nOIg8CuY4RkYNgwGMM5RllGpThDRYIGKZIpCkJFUH0PINyWcQ3CaaZCG+HBnEOTJhD8Tx4GoeQ/GcaZSHOH5nCmQhshoZhihYYwhiYA4RlkNoNEMUZ3ByDjwEsPxOnMa" +
"J9DuDR6F6GYmCmKh0nANtMioP4Gg8aoSiIO5NhodociqaY6GaFYkEyOg8lsNRNTaUgykyMgQG0GpPiONJbD8DpDEyfA6k0KwOkWMQsGsAJU0SagwkoJQJDIPISCQCJTG" +
"SUwyGaM4KkmMgtksHpFjAZ4TGCBAbgaSpcksdhNAMIJHHsD5TjSWWMAMOpwjyLwbk6cAz0KRJiDkDYzESCwiggcgcgYIQwCIEINCMCITj6TVxkMXp2j0cQLlCTo7E2F4" +
"ymkMZdhMPJHDGHpLAyVg+k4UwrCCSIyByDJ8DuDY8CiWY0kiXAXC6QJwFKGIjCeJpjgyezjlyDw6klHx5myRoMGwZwbkcToTEiew4kwbQfEmUgPkOKJUD4DpTHSHQmgk" +
"XI/ASTA1g0XIEDMTBimyfI7jSLYHEiUoPk0Fw/kadAsHGao8A0A5smEMJ2mNyg5gzJZwDgCpChyIZVyIZwFCMJEPASRkBqE+IcHInRcDxA2H4bIsx0AtDsIBpwZwYicD" +
"6BscwDwUBgHCIYaIfgtiVH2O4WgUwJjEFeAEQA7y4hMCiBMS4aRdB9A4CYE4LxljyBMHcDItBxinDCLcTYmgejBFQ9UTg9gFBOEmAQTI7A4iZGMGkQAWQ7jYA2HIL8BR" +
"AjDG4HcCwARbjZHiNoDw1nLDnGyNINQ+wjCpBMEgcovQUgICQJEcgWRuBvAyJ4d4ugpCUAINcHogxIgnDiM4N4axzD3F2JMTY/hRqYF6FsWIxhYAGGoAALQYgYirBwBE" +
"BwpAjBEAAIEIYsA2gOHCMAGgXAACIDmMITAUgFABH0D0I4WwvhNFGMAOIvxRD2GKNcMA8gjAPDCPwBogRPAxA8PgRwZRICYDED8RAXQEghEAN8DIgwIBdB4JYWwMgtiQ" +
"HoFQKAiRFguFKGwGQhglDsEOVwEQQRkCKBwOIHgSREDRBYHEXQcQdD7GIGARQHRxipBrMobgewDCUCADsEYWAzgMHKHQDQxxsDzA6EMfAeQHB4GQDkUYPA0iECiKoGgR" +
"hcDdA2GMQA8AOCjDSPgHI4QnApAKBICwHg1A+BcAwcYsgbjGGQNkCIgRsA6EcBEWANADjsB0B8YYzQQDIGSBcEYZBCCPEkFIHQSgkgZAwG4IwBAbAYGGAgL4Ch4g8BOC" +
"QAA2KKC0GcAke4AAXAFCoHkDw4xbBFEcJkE4JRSiEFeJYKQVRMgJHODwX4xAgC/AsIIZAeAHDRG0HYI40RKCLEGDUI4jAghwBWIceA+whCpHMFYZYOQxglDMHMBQGxYj" +
"VHiAoBIPgfgHGwPsHYJRSB6A0IERQLhCjJHMA4OQoAoCOACLYGYSx8DpBQIMWQdRnDRH+DsE4fB3CeAmM67kAAXBFEIDYDI7wLBtEoEIfYNwjiUGGJQYQMAjCHEAO0C4" +
"zxW29CoCgfIxR9AKA6J8BgUAIhDGMIoJ40hqgwCgKETgnBhhqCGI0AIqgZhGDANQDIlBDCRGkCoJISR0g1BSKQOgfAzBRG0DYHARh4DeDAOwANuw8ApCKKkYg/RPhjBs" +
"H0J4yg5hPGWN0GwFBHQBFaDoQIURljFAoB4GgzRVzbBECQFQRQoguHGHANwDRdCKy8CgSIGwhhoDYJYYI1giBICSAEgI="));
Surface1->Background[Exsurfacelib_tlb::BackgroundPartEnum::exCheckBoxState0] = 0x1000000;
Surface1->Background[Exsurfacelib_tlb::BackgroundPartEnum::exCheckBoxState1] = 0x2000000;
Surface1->Background[Exsurfacelib_tlb::BackgroundPartEnum::exCheckBoxState2] = 0x3000000;
Exsurfacelib_tlb::IElementsPtr var_Elements = Surface1->Elements;
Exsurfacelib_tlb::IElementPtr var_Element = Surface1->Elements->Add(TVariant("Element Check 1"),TVariant(-64),TVariant(-64));
var_Elements->Add(TVariant("Child"),TNoParam(),TNoParam())->Parent = var_Element;
var_Element->Pictures = L"1/2";
var_Element->Expanded = false;
Exsurfacelib_tlb::IElementPtr var_Element1 = var_Elements->Add(TVariant("Element Check 2"),TVariant(32),TVariant(96));
var_Element1->Checked = Exsurfacelib_tlb::CheckStateEnum::exChecked;
var_Element1->Pictures = L"1,2";
Surface1->Home();
Surface1->EndUpdate();
|
|
129
|
ImageSize property on 16 (default) (specifies the size of control' icons)
// AddElement event - A new element has been added to the surface.
void __fastcall TForm1::Surface1AddElement(TObject *Sender,Exsurfacelib_tlb::IElement *Element)
{
// Element.ShowCheckBox = True
}
Surface1->BeginUpdate();
Surface1->ImageSize = 16;
Surface1->Images(TVariant(String("gBJJgBAIDAAEg4ACEKAD/hz/EMNh8TIRNGwAjEZAEXjAojJAjMLjABAAgjUYkUnlUrlktl0vmExmUzmk1m03nE5nU7nkrQCAntBoVDolFo1HoM/ADAplLptImdMYFOq") +
"dSqlXq1QrVbrlGpVWsFNrNdnNjsk7pQAtNroFnt0sh8Yr9iulTuNxs1Eu8OiT/vsnsNVutXlk/oGGtVKxGLxWNtsZtN8iUYuNvy0Zvd+xNYwdwvl4p870GCqc8vOeuVt" +
"tmp1knyOayWVy+WzN/ze1wOElenm+12WUz/Bv2/3UyyWrzeutux2GSyGP2dQ33C1ur3GD3M4zUNzHdlWjq/E3nGzVpjWv4HA7fRy/Tv2IrN8rPW6nZ3ve7mUlfu20Z8a" +
"cvQyb+vY9jasYoDwMm+LytVBDqKG3z8O3Cb8P+mkAuY9cCQ2uL4KaxDKvkp8RNLEjqugnrwQo/UWPzFyeQw5sNLZFENrI4kOqU66pw8uzmOKvTqNqjULJvGL1JO48GtT" +
"GsbLdEL3scxLlyiw8dQeoUVxdLTtyKmUjwGlslRPJsnK1HbAKbKCrsQo8uQk/CeP44iaR/ATnTNPLvyxPU+z9P9AUDQVBowiofJXQ6Oo+kKMpIkjztE4TKn4P6JowfgP" +
"nwD5/nAjB8AOeAPo0eAA1IAFH07UhAIMpYAVIYFHqBUhwVjV1S1EtQAHxW65V0AZwAeuQAnwB5gAPYViEDVhwAHTQBkCjB4gOhwDmCyhH0sACAg=="));
Exsurfacelib_tlb::IElementsPtr var_Elements = Surface1->Elements;
Exsurfacelib_tlb::IElementPtr var_Element = Surface1->Elements->Add(TVariant("Element Check 1"),TVariant(-64),TVariant(-64));
var_Elements->Add(TVariant("Child"),TNoParam(),TNoParam())->Parent = var_Element;
var_Element->Pictures = L"1/2";
var_Element->Expanded = false;
Exsurfacelib_tlb::IElementPtr var_Element1 = var_Elements->Add(TVariant("Element Check 2"),TVariant(0),TVariant(32));
var_Element1->Checked = Exsurfacelib_tlb::CheckStateEnum::exChecked;
var_Element1->Pictures = L"1,2";
Surface1->Home();
Surface1->EndUpdate();
|
|
128
|
We want to have option to start/end connectors at the middle of each side of the elements
Surface1->BeginUpdate();
Surface1->ShowLinks = Exsurfacelib_tlb::ShowExtendedLinksEnum::exShowLinks;
Exsurfacelib_tlb::IElementsPtr var_Elements = Surface1->Elements;
var_Elements->Add(TVariant("Element <sha ;;0>1"),TNoParam(),TNoParam());
var_Elements->Add(TVariant("Element <sha ;;0>2"),TVariant(164),TVariant(64));
var_Elements->Add(TVariant("Element <sha ;;0>3"),TVariant(0),TVariant(132));
Exsurfacelib_tlb::ILinksPtr var_Links = Surface1->Links;
var_Links->Add(Surface1->Elements->get_Item(TVariant(1)),Surface1->Elements->get_Item(TVariant(2)),TNoParam());
var_Links->Add(Surface1->Elements->get_Item(TVariant(3)),Surface1->Elements->get_Item(TVariant(2)),TNoParam());
Surface1->FitToClient();
Surface1->EndUpdate();
|
|
127
|
How can I determine the position the user clicks within the element's boundaries (Click event)
// Click event - Occurs when the user presses and then releases the left mouse button over the control.
void __fastcall TForm1::Surface1Click(TObject *Sender)
{
_tlb::ObjectPtr e = Surface1->ElementFromPoint[-1,-1];
String X = -1;
String Y = -1;
Surface1->PointToPosition(X,Y);
OutputDebugString( L"e" );
OutputDebugString( L"X" );
OutputDebugString( L"Y" );
}
Surface1->BeginUpdate();
Exsurfacelib_tlb::IElementsPtr var_Elements = Surface1->Elements;
var_Elements->Add(TVariant("Element 1"),TNoParam(),TNoParam());
var_Elements->Add(TVariant("Element 2"),TVariant(128),TVariant(64));
Surface1->FitToClient();
Surface1->EndUpdate();
|
|
126
|
How can I determine the position the user clicks within the element's boundaries (MouseMove event)
// MouseMove event - Occurs when the user moves the mouse.
void __fastcall TForm1::Surface1MouseMove(TObject *Sender,short Button,short Shift,int X,int Y)
{
_tlb::ObjectPtr e = Surface1->ElementFromPoint[X,Y];
Surface1->PointToPosition(X,Y);
OutputDebugString( L"e" );
OutputDebugString( L"X" );
OutputDebugString( L"Y" );
}
Surface1->BeginUpdate();
Exsurfacelib_tlb::IElementsPtr var_Elements = Surface1->Elements;
var_Elements->Add(TVariant("Element 1"),TNoParam(),TNoParam());
var_Elements->Add(TVariant("Element 2"),TVariant(128),TVariant(64));
Surface1->FitToClient();
Surface1->EndUpdate();
|
|
125
|
How can I convert the screen position (mouse) to surface position
// MouseMove event - Occurs when the user moves the mouse.
void __fastcall TForm1::Surface1MouseMove(TObject *Sender,short Button,short Shift,int X,int Y)
{
OutputDebugString( L"Point " );
OutputDebugString( L"X" );
OutputDebugString( L"Y" );
Surface1->PointToPosition(X,Y);
OutputDebugString( L"Position " );
OutputDebugString( L"X" );
OutputDebugString( L"Y" );
}
Surface1->BeginUpdate();
Exsurfacelib_tlb::IElementsPtr var_Elements = Surface1->Elements;
var_Elements->Add(TVariant("Element <sha ;;0>1"),TNoParam(),TNoParam());
var_Elements->Add(TVariant("Element <sha ;;0>2"),TVariant(164),TVariant(64));
var_Elements->Add(TVariant("Element <sha ;;0>3"),TVariant(0),TVariant(132));
Exsurfacelib_tlb::ILinksPtr var_Links = Surface1->Links;
var_Links->Add(Surface1->Elements->get_Item(TVariant(1)),Surface1->Elements->get_Item(TVariant(2)),TNoParam());
var_Links->Add(Surface1->Elements->get_Item(TVariant(3)),Surface1->Elements->get_Item(TVariant(2)),TNoParam());
var_Links->Add(Surface1->Elements->get_Item(TVariant(3)),Surface1->Elements->get_Item(TVariant(1)),TNoParam());
Surface1->FitToClient();
Surface1->AxisStyle = Exsurfacelib_tlb::LinesStyleEnum(0xc0);
Surface1->AxisColor = RGB(128,128,128);
Surface1->EndUpdate();
|
|
124
|
Is is possible to show just the positive coordinates
Surface1->BeginUpdate();
Surface1->Coord = Exsurfacelib_tlb::CoordEnum::exAllowPositiveOnly | Exsurfacelib_tlb::CoordEnum::exCartesian;
Surface1->AxisColor = RGB(128,128,128);
Surface1->AxisStyle = Exsurfacelib_tlb::LinesStyleEnum::exLinesThick | Exsurfacelib_tlb::LinesStyleEnum::exLinesDot4;
Surface1->ShowLinks = Exsurfacelib_tlb::ShowExtendedLinksEnum::exShowLinks;
Exsurfacelib_tlb::IElementsPtr var_Elements = Surface1->Elements;
var_Elements->Add(TVariant("Element <sha ;;0>1"),TNoParam(),TNoParam());
var_Elements->Add(TVariant("Element <sha ;;0>2"),TVariant(164),TVariant(64));
var_Elements->Add(TVariant("Element <sha ;;0>3"),TVariant(0),TVariant(132));
Exsurfacelib_tlb::ILinksPtr var_Links = Surface1->Links;
var_Links->Add(Surface1->Elements->get_Item(TVariant(1)),Surface1->Elements->get_Item(TVariant(2)),TNoParam());
var_Links->Add(Surface1->Elements->get_Item(TVariant(3)),Surface1->Elements->get_Item(TVariant(2)),TNoParam());
Surface1->FitToClient();
Surface1->EndUpdate();
|
|
123
|
Cartesian coordinates (positive coordinates are shown top-right to the origin)
Surface1->BeginUpdate();
Surface1->Coord = Exsurfacelib_tlb::CoordEnum::exCartesian;
Exsurfacelib_tlb::IElementsPtr var_Elements = Surface1->Elements;
var_Elements->Add(TVariant("Element <sha ;;0>1"),TNoParam(),TNoParam());
var_Elements->Add(TVariant("Element <sha ;;0>2"),TVariant(164),TVariant(64));
var_Elements->Add(TVariant("Element <sha ;;0>3"),TVariant(0),TVariant(132));
Exsurfacelib_tlb::ILinksPtr var_Links = Surface1->Links;
var_Links->Add(Surface1->Elements->get_Item(TVariant(1)),Surface1->Elements->get_Item(TVariant(2)),TNoParam());
var_Links->Add(Surface1->Elements->get_Item(TVariant(3)),Surface1->Elements->get_Item(TVariant(2)),TNoParam());
var_Links->Add(Surface1->Elements->get_Item(TVariant(3)),Surface1->Elements->get_Item(TVariant(1)),TNoParam());
Surface1->FitToClient();
Surface1->EndUpdate();
|
|
122
|
Default coordinates (positive coordinates are shown bottom-right to the origin)
Surface1->BeginUpdate();
Surface1->Coord = Exsurfacelib_tlb::CoordEnum::exDefCoord;
Exsurfacelib_tlb::IElementsPtr var_Elements = Surface1->Elements;
var_Elements->Add(TVariant("Element <sha ;;0>1"),TNoParam(),TNoParam());
var_Elements->Add(TVariant("Element <sha ;;0>2"),TVariant(164),TVariant(64));
var_Elements->Add(TVariant("Element <sha ;;0>3"),TVariant(0),TVariant(132));
Exsurfacelib_tlb::ILinksPtr var_Links = Surface1->Links;
var_Links->Add(Surface1->Elements->get_Item(TVariant(1)),Surface1->Elements->get_Item(TVariant(2)),TNoParam());
var_Links->Add(Surface1->Elements->get_Item(TVariant(3)),Surface1->Elements->get_Item(TVariant(2)),TNoParam());
var_Links->Add(Surface1->Elements->get_Item(TVariant(3)),Surface1->Elements->get_Item(TVariant(1)),TNoParam());
Surface1->FitToClient();
Surface1->EndUpdate();
|
|
121
|
Is it possible to customize the path of the links orthogonally similar with Microsoft Visio tool
Surface1->BeginUpdate();
Surface1->AllowLinkControlPoint = Exsurfacelib_tlb::LinkControlPointEnum::exOrthoArrange | Exsurfacelib_tlb::LinkControlPointEnum::exMiddleControlPoint | Exsurfacelib_tlb::LinkControlPointEnum::exControlPoint | Exsurfacelib_tlb::LinkControlPointEnum::exEndControlPoint | Exsurfacelib_tlb::LinkControlPointEnum::exStartControlPoint;
Exsurfacelib_tlb::IElementsPtr var_Elements = Surface1->Elements;
var_Elements->Add(TVariant("Element <sha ;;0>1"),TNoParam(),TNoParam());
var_Elements->Add(TVariant("Element <sha ;;0>2"),TVariant(164),TVariant(64));
var_Elements->Add(TVariant("Element <sha ;;0>3"),TVariant(0),TVariant(132));
Exsurfacelib_tlb::ILinksPtr var_Links = Surface1->Links;
var_Links->Add(Surface1->Elements->get_Item(TVariant(1)),Surface1->Elements->get_Item(TVariant(2)),TNoParam());
var_Links->Add(Surface1->Elements->get_Item(TVariant(3)),Surface1->Elements->get_Item(TVariant(2)),TNoParam());
var_Links->Add(Surface1->Elements->get_Item(TVariant(3)),Surface1->Elements->get_Item(TVariant(1)),TNoParam());
Surface1->Zoom = 200;
Surface1->FitToClient();
Surface1->EndUpdate();
|
|
120
|
Does your control supports OLE Drag and Drop
// OLEDragDrop event - Occurs when a source component is dropped onto a target component when the source component determines that a drop can occur.
void __fastcall TForm1::Surface1OLEDragDrop(TObject *Sender,Exsurfacelib_tlb::IExDataObject *Data,long * Effect,short Button,short Shift,int X,int Y)
{
OutputDebugString( L"Data" );
}
// OLEStartDrag event - Occurs when the OLEDrag method is called.
void __fastcall TForm1::Surface1OLEStartDrag(TObject *Sender,Exsurfacelib_tlb::IExDataObject *Data,long * AllowedEffects)
{
// Data.SetData("some data to drag")
}
Surface1->OLEDropMode = Exsurfacelib_tlb::exOLEDropModeEnum::exOLEDropManual;
Exsurfacelib_tlb::IElementPtr var_Element = Surface1->Elements->Add(TVariant("Click the Element wait for .5 second until + cursor is shown, to start <b>OLE Drag and Drop</b>"),TNoParam(),TNoParam());
var_Element->CaptionSingleLine = Exsurfacelib_tlb::CaptionSingleLineEnum::exCaptionWordWrap;
var_Element->AutoSize = false;
var_Element->Width = 256;
var_Element->Height = 56;
|
|
119
|
Is it possible to disable customizing the path of a specified link
Surface1->BeginUpdate();
Surface1->AllowLinkControlPoint = Exsurfacelib_tlb::LinkControlPointEnum(0xffffff80 | Exsurfacelib_tlb::LinkControlPointEnum::exAllowChangeTo | Exsurfacelib_tlb::LinkControlPointEnum::exAllowChangeFrom | Exsurfacelib_tlb::LinkControlPointEnum::exOrthoArrange | Exsurfacelib_tlb::LinkControlPointEnum::exMiddleControlPoint | Exsurfacelib_tlb::LinkControlPointEnum::exControlPoint | Exsurfacelib_tlb::LinkControlPointEnum::exEndControlPoint | Exsurfacelib_tlb::LinkControlPointEnum::exStartControlPoint);
Exsurfacelib_tlb::IElementsPtr var_Elements = Surface1->Elements;
var_Elements->Add(TVariant("Element <sha ;;0>A"),TNoParam(),TNoParam());
var_Elements->Add(TVariant("Element <sha ;;0>B"),TVariant(164),TVariant(64));
var_Elements->Add(TVariant("Element <sha ;;0>B"),TVariant(0),TVariant(132));
Exsurfacelib_tlb::ILinksPtr var_Links = Surface1->Links;
var_Links->Add(Surface1->Elements->get_Item(TVariant(1)),Surface1->Elements->get_Item(TVariant(2)),TNoParam())->set_CustomPath(TVariant("0.5,0.25,0.5,.75"));
var_Links->Add(Surface1->Elements->get_Item(TVariant(3)),Surface1->Elements->get_Item(TVariant(2)),TNoParam())->set_CustomPath(TVariant("0.5,0.25,0.5,.75"));
Exsurfacelib_tlb::ILinkPtr var_Link = var_Links->Add(Surface1->Elements->get_Item(TVariant(3)),Surface1->Elements->get_Item(TVariant(1)),TNoParam());
var_Link->ShowLinkType = Exsurfacelib_tlb::ShowLinkTypeEnum::exLinkStraight | Exsurfacelib_tlb::ShowLinkTypeEnum::exLinkDirect;
var_Link->StartPos = Exsurfacelib_tlb::AlignmentEnum::LeftAlignment;
var_Link->Color = RGB(128,128,128);
var_Link->AllowControlPoint = Exsurfacelib_tlb::LinkControlPointEnum::exNoControlPoint;
Surface1->Zoom = 200;
Surface1->FitToClient();
Surface1->EndUpdate();
|
|
118
|
How do I let user customizes the link's path
Surface1->BeginUpdate();
Surface1->AllowLinkControlPoint = Exsurfacelib_tlb::LinkControlPointEnum(0xffffff80 | Exsurfacelib_tlb::LinkControlPointEnum::exAllowChangeTo | Exsurfacelib_tlb::LinkControlPointEnum::exAllowChangeFrom | Exsurfacelib_tlb::LinkControlPointEnum::exOrthoArrange | Exsurfacelib_tlb::LinkControlPointEnum::exMiddleControlPoint | Exsurfacelib_tlb::LinkControlPointEnum::exControlPoint | Exsurfacelib_tlb::LinkControlPointEnum::exEndControlPoint | Exsurfacelib_tlb::LinkControlPointEnum::exStartControlPoint);
Exsurfacelib_tlb::IElementsPtr var_Elements = Surface1->Elements;
var_Elements->Add(TVariant("Element <sha ;;0>A"),TNoParam(),TNoParam());
var_Elements->Add(TVariant("Element <sha ;;0>B"),TVariant(164),TVariant(64));
var_Elements->Add(TVariant("Element <sha ;;0>B"),TVariant(0),TVariant(132));
Exsurfacelib_tlb::ILinksPtr var_Links = Surface1->Links;
var_Links->Add(Surface1->Elements->get_Item(TVariant(1)),Surface1->Elements->get_Item(TVariant(2)),TNoParam())->set_CustomPath(TVariant("0.5,0.25,0.5,.75"));
var_Links->Add(Surface1->Elements->get_Item(TVariant(3)),Surface1->Elements->get_Item(TVariant(2)),TNoParam())->set_CustomPath(TVariant("0.5,0.25,0.5,.75"));
Exsurfacelib_tlb::ILinkPtr var_Link = var_Links->Add(Surface1->Elements->get_Item(TVariant(3)),Surface1->Elements->get_Item(TVariant(1)),TNoParam());
var_Link->ShowLinkType = Exsurfacelib_tlb::ShowLinkTypeEnum::exLinkStraight | Exsurfacelib_tlb::ShowLinkTypeEnum::exLinkDirect;
var_Link->StartPos = Exsurfacelib_tlb::AlignmentEnum::LeftAlignment;
Surface1->Zoom = 200;
Surface1->FitToClient();
Surface1->EndUpdate();
|
|
117
|
How can I generate a picture/image/graph from my diagram
Exsurfacelib_tlb::IElementsPtr var_Elements = Surface1->Elements;
var_Elements->Add(TVariant("Element A"),TNoParam(),TNoParam())->set_ID(TVariant("A"));
var_Elements->Add(TVariant("Element B"),TNoParam(),TNoParam())->set_ID(TVariant("B"));
var_Elements->Add(TVariant("Element C"),TNoParam(),TNoParam())->set_ID(TVariant("C"));
var_Elements->Add(TVariant("Element D"),TNoParam(),TNoParam())->set_ID(TVariant("D"));
var_Elements->Add(TVariant("Element E"),TNoParam(),TNoParam())->set_ID(TVariant("E"));
var_Elements->Add(TVariant("Element E"),TNoParam(),TNoParam())->set_ID(TVariant("F"));
Exsurfacelib_tlb::ILinksPtr var_Links = Surface1->Links;
var_Links->Add(Surface1->Elements->get_Item(TVariant("A")),Surface1->Elements->get_Item(TVariant("B")),TNoParam());
var_Links->Add(Surface1->Elements->get_Item(TVariant("A")),Surface1->Elements->get_Item(TVariant("C")),TNoParam());
var_Links->Add(Surface1->Elements->get_Item(TVariant("B")),Surface1->Elements->get_Item(TVariant("D")),TNoParam());
var_Links->Add(Surface1->Elements->get_Item(TVariant("B")),Surface1->Elements->get_Item(TVariant("C")),TNoParam());
var_Links->Add(Surface1->Elements->get_Item(TVariant("A")),Surface1->Elements->get_Item(TVariant("E")),TNoParam());
var_Links->Add(Surface1->Elements->get_Item(TVariant("A")),Surface1->Elements->get_Item(TVariant("F")),TNoParam());
Surface1->DefArrange[Exsurfacelib_tlb::DefArrangeEnum::exDefArrangeCompact] = TVariant(false);
Surface1->Arrange(TNoParam());
TVariant var_CopyTo = TVariant(Surface1->CopyTo[L"c:/temp/xtest.jpg"]);
OutputDebugString( L"!!!check the file c:/temp/xtest.jpg!!!" );
|
|
116
|
How can I generate a picture/image/graph from my diagram
Exsurfacelib_tlb::IElementsPtr var_Elements = Surface1->Elements;
var_Elements->Add(TVariant("Element A"),TNoParam(),TNoParam())->set_ID(TVariant("A"));
var_Elements->Add(TVariant("Element B"),TNoParam(),TNoParam())->set_ID(TVariant("B"));
var_Elements->Add(TVariant("Element C"),TNoParam(),TNoParam())->set_ID(TVariant("C"));
var_Elements->Add(TVariant("Element D"),TNoParam(),TNoParam())->set_ID(TVariant("D"));
var_Elements->Add(TVariant("Element E"),TNoParam(),TNoParam())->set_ID(TVariant("E"));
var_Elements->Add(TVariant("Element E"),TNoParam(),TNoParam())->set_ID(TVariant("F"));
Exsurfacelib_tlb::ILinksPtr var_Links = Surface1->Links;
var_Links->Add(Surface1->Elements->get_Item(TVariant("A")),Surface1->Elements->get_Item(TVariant("B")),TNoParam());
var_Links->Add(Surface1->Elements->get_Item(TVariant("A")),Surface1->Elements->get_Item(TVariant("C")),TNoParam());
var_Links->Add(Surface1->Elements->get_Item(TVariant("B")),Surface1->Elements->get_Item(TVariant("D")),TNoParam());
var_Links->Add(Surface1->Elements->get_Item(TVariant("B")),Surface1->Elements->get_Item(TVariant("C")),TNoParam());
var_Links->Add(Surface1->Elements->get_Item(TVariant("A")),Surface1->Elements->get_Item(TVariant("E")),TNoParam());
var_Links->Add(Surface1->Elements->get_Item(TVariant("A")),Surface1->Elements->get_Item(TVariant("F")),TNoParam());
Surface1->DefArrange[Exsurfacelib_tlb::DefArrangeEnum::exDefArrangeCompact] = TVariant(false);
Surface1->Arrange(TNoParam());
/*
Select the Component\Import Component...\Import a Type Library,
to import the following Type Library:
ExPrint 1.0 Control Library
TypeLib: ExPrint.dll
to define the namespace: Exprintlib_tlb
*/
//#include "EXPRINTLIB_TLB.h"
Exprintlib_tlb::IExPrintPtr var_Print = Variant::CreateObject(L"Exontrol.Print");
var_Print->PrintExt = (IUnknown*)Surface1->DefaultDispatch;
var_Print->CopyTo(L"c:/temp/xtest.jpg");
OutputDebugString( L"!!!check the file c:/temp/xtest.jpg!!!" );
|
|
115
|
How can I print the component
Exsurfacelib_tlb::IElementsPtr var_Elements = Surface1->Elements;
var_Elements->Add(TVariant("Element <sha ;;0>A"),TNoParam(),TNoParam());
var_Elements->Add(TVariant("Element <sha ;;0>B"),TVariant(0),TVariant(76));
Exsurfacelib_tlb::IElementPtr var_Element = var_Elements->Add(TVariant("Element <sha ;;0>C"),TVariant(-76),TVariant(32));
var_Element->AutoSize = false;
var_Element->Height = 32;
Exsurfacelib_tlb::IElementPtr var_Element1 = var_Elements->Add(TVariant("Element <sha ;;0>D"),TVariant(76),TVariant(32));
var_Element1->AutoSize = false;
var_Element1->Height = 32;
Exsurfacelib_tlb::ILinksPtr var_Links = Surface1->Links;
Exsurfacelib_tlb::ILinkPtr var_Link = var_Links->Add(Surface1->Elements->get_Item(TVariant(1)),Surface1->Elements->get_Item(TVariant(2)),TNoParam());
var_Link->StartPos = Exsurfacelib_tlb::AlignmentEnum::CenterAlignment;
var_Link->EndPos = Exsurfacelib_tlb::AlignmentEnum::CenterAlignment;
Exsurfacelib_tlb::ILinkPtr var_Link1 = var_Links->Add(Surface1->Elements->get_Item(TVariant(2)),Surface1->Elements->get_Item(TVariant(1)),TNoParam());
var_Link1->StartPos = Exsurfacelib_tlb::AlignmentEnum::CenterAlignment;
var_Link1->EndPos = Exsurfacelib_tlb::AlignmentEnum::CenterAlignment;
var_Links->Add(Surface1->Elements->get_Item(TVariant(3)),Surface1->Elements->get_Item(TVariant(4)),TNoParam());
Exsurfacelib_tlb::ILinkPtr var_Link2 = var_Links->Add(Surface1->Elements->get_Item(TVariant(4)),Surface1->Elements->get_Item(TVariant(3)),TNoParam());
var_Link2->StartPos = Exsurfacelib_tlb::AlignmentEnum::LeftAlignment;
var_Link2->EndPos = Exsurfacelib_tlb::AlignmentEnum::RightAlignment;
/*
Select the Component\Import Component...\Import a Type Library,
to import the following Type Library:
ExPrint 1.0 Control Library
TypeLib: ExPrint.dll
to define the namespace: Exprintlib_tlb
*/
//#include "EXPRINTLIB_TLB.h"
Exprintlib_tlb::IExPrintPtr var_Print = Variant::CreateObject(L"Exontrol.Print");
var_Print->PrintExt = (IUnknown*)Surface1->DefaultDispatch;
var_Print->Preview();
|
|
114
|
How can I show direct-links
Surface1->ShowLinksType = Exsurfacelib_tlb::ShowLinkTypeEnum::exLinkDirect;
Exsurfacelib_tlb::IElementsPtr var_Elements = Surface1->Elements;
var_Elements->Add(TVariant("Element A"),TNoParam(),TNoParam())->set_ID(TVariant("A"));
var_Elements->Add(TVariant("Element B"),TVariant(128),TVariant(64))->set_ID(TVariant("B"));
var_Elements->Add(TVariant("Element C"),TVariant(128),TVariant(-64))->set_ID(TVariant("C"));
Exsurfacelib_tlb::ILinksPtr var_Links = Surface1->Links;
var_Links->Add(Surface1->Elements->get_Item(TVariant("A")),Surface1->Elements->get_Item(TVariant("B")),TNoParam());
var_Links->Add(Surface1->Elements->get_Item(TVariant("A")),Surface1->Elements->get_Item(TVariant("C")),TNoParam());
|
|
113
|
How can I show straight-links
Surface1->ShowLinksType = Exsurfacelib_tlb::ShowLinkTypeEnum::exLinkStraight;
Exsurfacelib_tlb::IElementsPtr var_Elements = Surface1->Elements;
var_Elements->Add(TVariant("Element A"),TNoParam(),TNoParam())->set_ID(TVariant("A"));
var_Elements->Add(TVariant("Element B"),TVariant(128),TVariant(64))->set_ID(TVariant("B"));
var_Elements->Add(TVariant("Element C"),TVariant(128),TVariant(-64))->set_ID(TVariant("C"));
Exsurfacelib_tlb::ILinksPtr var_Links = Surface1->Links;
var_Links->Add(Surface1->Elements->get_Item(TVariant("A")),Surface1->Elements->get_Item(TVariant("B")),TNoParam());
var_Links->Add(Surface1->Elements->get_Item(TVariant("A")),Surface1->Elements->get_Item(TVariant("C")),TNoParam());
|
|
112
|
How can I show round-links
Surface1->ShowLinksType = Exsurfacelib_tlb::ShowLinkTypeEnum::exLinkRound;
Exsurfacelib_tlb::IElementsPtr var_Elements = Surface1->Elements;
var_Elements->Add(TVariant("Element A"),TNoParam(),TNoParam())->set_ID(TVariant("A"));
var_Elements->Add(TVariant("Element B"),TVariant(128),TVariant(64))->set_ID(TVariant("B"));
var_Elements->Add(TVariant("Element C"),TVariant(128),TVariant(-64))->set_ID(TVariant("C"));
Exsurfacelib_tlb::ILinksPtr var_Links = Surface1->Links;
var_Links->Add(Surface1->Elements->get_Item(TVariant("A")),Surface1->Elements->get_Item(TVariant("B")),TNoParam());
var_Links->Add(Surface1->Elements->get_Item(TVariant("A")),Surface1->Elements->get_Item(TVariant("C")),TNoParam());
|
|
111
|
I've tried to insert a "<br>" in the Caption property text and it just ignores it
Surface1->BeginUpdate();
Exsurfacelib_tlb::IElementsPtr var_Elements = Surface1->Elements;
Exsurfacelib_tlb::IElementPtr var_Element = var_Elements->Add(TVariant("caption"),TNoParam(),TNoParam());
var_Element->CaptionSingleLine = Exsurfacelib_tlb::CaptionSingleLineEnum::exCaptionWordWrap;
var_Element->Caption = L"first caption<br>second caption<br>third caption";
Surface1->EndUpdate();
|
|
110
|
How do I align the extra-caption
Surface1->BeginUpdate();
Exsurfacelib_tlb::IElementsPtr var_Elements = Surface1->Elements;
Exsurfacelib_tlb::IElementPtr var_Element = var_Elements->Add(TVariant("caption"),TNoParam(),TNoParam());
var_Element->AutoSize = false;
var_Element->Width = 128;
var_Element->Height = 64;
var_Element->ExtraCaption = L"extra-caption";
var_Element->ExtraCaptionAlign = Exsurfacelib_tlb::ContentAlignmentEnum::exBottomRight;
Surface1->EndUpdate();
|
|
109
|
How can I add an extra caption
Surface1->BeginUpdate();
Exsurfacelib_tlb::IElementsPtr var_Elements = Surface1->Elements;
var_Elements->Add(TVariant("caption"),TNoParam(),TNoParam())->ExtraCaption = L"extra-caption";
Surface1->EndUpdate();
|
|
108
|
I am using the reserve-neighbors feature, the question is how to shift left/right the neighbors instead of up/down
Surface1->BeginUpdate();
Surface1->AllowMoveNeighbors = Exsurfacelib_tlb::MoveNeighborsEnum::exMoveNeighborsHorizontally;
Surface1->DefArrange[Exsurfacelib_tlb::DefArrangeEnum::exDefArrangeDir] = TVariant(1);
Surface1->AllowInsertObject = false;
Exsurfacelib_tlb::IElementsPtr var_Elements = Surface1->Elements;
var_Elements->Add(TVariant("Element <sha ;;0>A"),TNoParam(),TNoParam());
var_Elements->Add(TVariant("Element <sha ;;0>B ( move it )"),TVariant(16),TVariant(32));
var_Elements->Add(TVariant("Element <sha ;;0>C"),TVariant(128),TVariant(0));
Surface1->EndUpdate();
|
|
107
|
I am using the reserve-neighbors feature, the question is if possible to specify the distance between neighbors
Surface1->BeginUpdate();
Surface1->AllowMoveNeighbors = Exsurfacelib_tlb::MoveNeighborsEnum::exMoveNeighborsVertically;
Surface1->DefArrange[Exsurfacelib_tlb::DefArrangeEnum::exDefArrangeDX] = TVariant(0);
Surface1->DefArrange[Exsurfacelib_tlb::DefArrangeEnum::exDefArrangeDY] = TVariant(0);
Surface1->AllowInsertObject = false;
Exsurfacelib_tlb::IElementsPtr var_Elements = Surface1->Elements;
var_Elements->Add(TVariant("Element <sha ;;0>A"),TNoParam(),TNoParam());
var_Elements->Add(TVariant("Element <sha ;;0>B ( move it )"),TVariant(0),TVariant(32));
var_Elements->Add(TVariant("Element <sha ;;0>C"),TVariant(0),TVariant(64));
Surface1->EndUpdate();
|
|
106
|
How do I enable the reserve-neighbors feature
Surface1->BeginUpdate();
Surface1->AllowMoveNeighbors = Exsurfacelib_tlb::MoveNeighborsEnum::exMoveNeighborsVertically;
Surface1->AllowInsertObject = false;
Exsurfacelib_tlb::IElementsPtr var_Elements = Surface1->Elements;
var_Elements->Add(TVariant("Element <sha ;;0>A"),TNoParam(),TNoParam());
var_Elements->Add(TVariant("Element <sha ;;0>B ( move it )"),TVariant(0),TVariant(32));
var_Elements->Add(TVariant("Element <sha ;;0>C"),TVariant(0),TVariant(64));
Surface1->EndUpdate();
|
|
105
|
I've noticed that recently, the elements get compacted once the Arrange method is performed. How can I prevent that
Exsurfacelib_tlb::IElementsPtr var_Elements = Surface1->Elements;
var_Elements->Add(TVariant("Element A"),TNoParam(),TNoParam())->set_ID(TVariant("A"));
var_Elements->Add(TVariant("Element B"),TNoParam(),TNoParam())->set_ID(TVariant("B"));
var_Elements->Add(TVariant("Element C"),TNoParam(),TNoParam())->set_ID(TVariant("C"));
var_Elements->Add(TVariant("Element D"),TNoParam(),TNoParam())->set_ID(TVariant("D"));
var_Elements->Add(TVariant("Element E"),TNoParam(),TNoParam())->set_ID(TVariant("E"));
var_Elements->Add(TVariant("Element E"),TNoParam(),TNoParam())->set_ID(TVariant("F"));
Exsurfacelib_tlb::ILinksPtr var_Links = Surface1->Links;
var_Links->Add(Surface1->Elements->get_Item(TVariant("A")),Surface1->Elements->get_Item(TVariant("B")),TNoParam());
var_Links->Add(Surface1->Elements->get_Item(TVariant("A")),Surface1->Elements->get_Item(TVariant("C")),TNoParam());
var_Links->Add(Surface1->Elements->get_Item(TVariant("B")),Surface1->Elements->get_Item(TVariant("D")),TNoParam());
var_Links->Add(Surface1->Elements->get_Item(TVariant("B")),Surface1->Elements->get_Item(TVariant("C")),TNoParam());
var_Links->Add(Surface1->Elements->get_Item(TVariant("A")),Surface1->Elements->get_Item(TVariant("E")),TNoParam());
var_Links->Add(Surface1->Elements->get_Item(TVariant("A")),Surface1->Elements->get_Item(TVariant("F")),TNoParam());
Surface1->DefArrange[Exsurfacelib_tlb::DefArrangeEnum::exDefArrangeCompact] = TVariant(false);
Surface1->Arrange(TNoParam());
|
|
104
|
Is it possible to add a link to show from bottom/down to top/up, rather that right to left (method-2)
// AddLink event - A new link has been added to the links collection.
void __fastcall TForm1::Surface1AddLink(TObject *Sender,Exsurfacelib_tlb::ILink *Link)
{
}
Exsurfacelib_tlb::IElementsPtr var_Elements = Surface1->Elements;
var_Elements->Add(TVariant("Element <sha ;;0>A"),TNoParam(),TNoParam());
var_Elements->Add(TVariant("Element <sha ;;0>B"),TVariant(48),TVariant(48));
Exsurfacelib_tlb::ILinksPtr var_Links = Surface1->Links;
var_Links->Add(Surface1->Elements->get_Item(TVariant(1)),Surface1->Elements->get_Item(TVariant(2)),TNoParam());
|
|
103
|
Is it possible to add a link to show from bottom/down to top/up, rather that right to left (method-1)
Exsurfacelib_tlb::IElementsPtr var_Elements = Surface1->Elements;
var_Elements->Add(TVariant("Element <sha ;;0>A"),TNoParam(),TNoParam());
var_Elements->Add(TVariant("Element <sha ;;0>B"),TVariant(48),TVariant(48));
Exsurfacelib_tlb::ILinksPtr var_Links = Surface1->Links;
Exsurfacelib_tlb::ILinkPtr var_Link = var_Links->Add(Surface1->Elements->get_Item(TVariant(1)),Surface1->Elements->get_Item(TVariant(2)),TNoParam());
var_Link->StartPos = Exsurfacelib_tlb::AlignmentEnum::DownAlignment;
var_Link->EndPos = Exsurfacelib_tlb::AlignmentEnum::UpAlignment;
|
|
102
|
How do I enable the cross link support ( mixed )
Exsurfacelib_tlb::IElementsPtr var_Elements = Surface1->Elements;
var_Elements->Add(TVariant("Element <sha ;;0>A"),TNoParam(),TNoParam());
var_Elements->Add(TVariant("Element <sha ;;0>B"),TVariant(0),TVariant(76));
Exsurfacelib_tlb::IElementPtr var_Element = var_Elements->Add(TVariant("Element <sha ;;0>C"),TVariant(-76),TVariant(32));
var_Element->AutoSize = false;
var_Element->Height = 32;
Exsurfacelib_tlb::IElementPtr var_Element1 = var_Elements->Add(TVariant("Element <sha ;;0>D"),TVariant(76),TVariant(32));
var_Element1->AutoSize = false;
var_Element1->Height = 32;
Exsurfacelib_tlb::ILinksPtr var_Links = Surface1->Links;
Exsurfacelib_tlb::ILinkPtr var_Link = var_Links->Add(Surface1->Elements->get_Item(TVariant(1)),Surface1->Elements->get_Item(TVariant(2)),TNoParam());
var_Link->StartPos = Exsurfacelib_tlb::AlignmentEnum::CenterAlignment;
var_Link->EndPos = Exsurfacelib_tlb::AlignmentEnum::CenterAlignment;
Exsurfacelib_tlb::ILinkPtr var_Link1 = var_Links->Add(Surface1->Elements->get_Item(TVariant(2)),Surface1->Elements->get_Item(TVariant(1)),TNoParam());
var_Link1->StartPos = Exsurfacelib_tlb::AlignmentEnum::CenterAlignment;
var_Link1->EndPos = Exsurfacelib_tlb::AlignmentEnum::CenterAlignment;
var_Links->Add(Surface1->Elements->get_Item(TVariant(3)),Surface1->Elements->get_Item(TVariant(4)),TNoParam());
Exsurfacelib_tlb::ILinkPtr var_Link2 = var_Links->Add(Surface1->Elements->get_Item(TVariant(4)),Surface1->Elements->get_Item(TVariant(3)),TNoParam());
var_Link2->StartPos = Exsurfacelib_tlb::AlignmentEnum::LeftAlignment;
var_Link2->EndPos = Exsurfacelib_tlb::AlignmentEnum::RightAlignment;
Surface1->ShowLinks = Exsurfacelib_tlb::ShowExtendedLinksEnum::exShowCrossLinksMixt | Exsurfacelib_tlb::ShowExtendedLinksEnum::exShowExtendedLinks;
|
|
101
|
How do I enable the cross link support ( triangular )
Exsurfacelib_tlb::IElementsPtr var_Elements = Surface1->Elements;
var_Elements->Add(TVariant("Element <sha ;;0>A"),TNoParam(),TNoParam());
var_Elements->Add(TVariant("Element <sha ;;0>B"),TVariant(0),TVariant(76));
Exsurfacelib_tlb::IElementPtr var_Element = var_Elements->Add(TVariant("Element <sha ;;0>C"),TVariant(-76),TVariant(32));
var_Element->AutoSize = false;
var_Element->Height = 32;
Exsurfacelib_tlb::IElementPtr var_Element1 = var_Elements->Add(TVariant("Element <sha ;;0>D"),TVariant(76),TVariant(32));
var_Element1->AutoSize = false;
var_Element1->Height = 32;
Exsurfacelib_tlb::ILinksPtr var_Links = Surface1->Links;
Exsurfacelib_tlb::ILinkPtr var_Link = var_Links->Add(Surface1->Elements->get_Item(TVariant(1)),Surface1->Elements->get_Item(TVariant(2)),TNoParam());
var_Link->StartPos = Exsurfacelib_tlb::AlignmentEnum::CenterAlignment;
var_Link->EndPos = Exsurfacelib_tlb::AlignmentEnum::CenterAlignment;
Exsurfacelib_tlb::ILinkPtr var_Link1 = var_Links->Add(Surface1->Elements->get_Item(TVariant(2)),Surface1->Elements->get_Item(TVariant(1)),TNoParam());
var_Link1->StartPos = Exsurfacelib_tlb::AlignmentEnum::CenterAlignment;
var_Link1->EndPos = Exsurfacelib_tlb::AlignmentEnum::CenterAlignment;
var_Links->Add(Surface1->Elements->get_Item(TVariant(3)),Surface1->Elements->get_Item(TVariant(4)),TNoParam());
Exsurfacelib_tlb::ILinkPtr var_Link2 = var_Links->Add(Surface1->Elements->get_Item(TVariant(4)),Surface1->Elements->get_Item(TVariant(3)),TNoParam());
var_Link2->StartPos = Exsurfacelib_tlb::AlignmentEnum::LeftAlignment;
var_Link2->EndPos = Exsurfacelib_tlb::AlignmentEnum::RightAlignment;
Surface1->ShowLinks = Exsurfacelib_tlb::ShowExtendedLinksEnum::exShowCrossLinksTriangle | Exsurfacelib_tlb::ShowExtendedLinksEnum::exShowExtendedLinks;
|