Type | Description | |||
Part as BackgroundPartEnum | A BackgroundPartEnum expression that indicates a part in the control. | |||
Color | A Color expression that indicates the background color for a specified part. The last 7 bits in the high significant byte of the color to indicates the identifier of the skin being used. Use the Add method to add new skins to the control. If you need to remove the skin appearance from a part of the control you need to reset the last 7 bits in the high significant byte of the color being applied to the background's part. |
The following samples remove the border for all elements:
VBA (MS Access, Excell...)
With SwimLane1 .Background(88) = -1 .Elements.Add "new element" End With
VB6
With SwimLane1 .Background(exElementBorderColor) = -1 .Elements.Add "new element" End With
VB.NET
With Exsurface1 .set_Background32(exontrol.EXSWIMLANELib.BackgroundPartEnum.exElementBorderColor,-1) .Elements.Add("new element") End With
VB.NET for /COM
With AxSwimLane1 .set_Background(EXSWIMLANELib.BackgroundPartEnum.exElementBorderColor,-1) .Elements.Add("new element") End With
C++
/* Copy and paste the following directives to your header file as it defines the namespace 'EXSWIMLANELib' for the library: 'ExSwimLane 1.0 Control Library' #import <ExSwimLane.dll> using namespace EXSWIMLANELib; */ EXSWIMLANELib::ISwimLanePtr spSwimLane1 = GetDlgItem(IDC_SWIMLANE1)->GetControlUnknown(); spSwimLane1->PutBackground(EXSWIMLANELib::exElementBorderColor,-1); spSwimLane1->GetElements()->Add("new element",vtMissing,vtMissing);
C++ Builder
SwimLane1->Background[Exswimlanelib_tlb::BackgroundPartEnum::exElementBorderColor] = -1; SwimLane1->Elements->Add(TVariant("new element"),TNoParam(),TNoParam());
C#
exswimlane1.set_Background32(exontrol.EXSWIMLANELib.BackgroundPartEnum.exElementBorderColor,-1); exswimlane1.Elements.Add("new element",null,null);
JavaScript
<OBJECT classid="clsid:AFA73FCE-6609-4062-AE6A-4BAD6D96A025" id="SwimLane1"></OBJECT> <SCRIPT LANGUAGE="JScript"> SwimLane1.Background(88) = -1; SwimLane1.Elements.Add("new element",null,null); </SCRIPT>
C# for /COM
axSwimLane1.set_Background(EXSWIMLANELib.BackgroundPartEnum.exElementBorderColor,-1); axSwimLane1.Elements.Add("new element",null,null);
X++ (Dynamics Ax 2009)
public void init() { ; super(); exswimlane1.Background(88/*exElementBorderColor*/,-1); exswimlane1.Elements().Add("new element"); }
Delphi 8 (.NET only)
with AxSwimLane1 do begin set_Background(EXSWIMLANELib.BackgroundPartEnum.exElementBorderColor,$ffffffff); Elements.Add('new element',Nil,Nil); end
Delphi (standard)
with SwimLane1 do begin Background[EXSWIMLANELib_TLB.exElementBorderColor] := $ffffffff; Elements.Add('new element',Null,Null); end
VFP
with thisform.SwimLane1 .Object.Background(88) = -1 .Elements.Add("new element") endwith
dBASE Plus
local oSwimLane oSwimLane = form.Activex1.nativeObject oSwimLane.Template = [Background(88) = -1] // oSwimLane.Background(88) = -1 oSwimLane.Elements.Add("new element")
XBasic (Alpha Five)
Dim oSwimLane as P oSwimLane = topparent:CONTROL_ACTIVEX1.activex oSwimLane.Template = "Background(88) = -1" ' oSwimLane.Background(88) = -1 oSwimLane.Elements.Add("new element")
Visual Objects
oDCOCX_Exontrol1:[Background,exElementBorderColor] := -1 oDCOCX_Exontrol1:Elements:Add("new element",nil,nil)
PowerBuilder
OleObject oSwimLane oSwimLane = ole_1.Object oSwimLane.Background(88,-1) oSwimLane.Elements.Add("new element")
Visual DataFlex
Procedure OnCreate
Forward Send OnCreate
Set ComBackground OLEexElementBorderColor to -1
Variant voElements
Get ComElements to voElements
Handle hoElements
Get Create (RefClass(cComElements)) to hoElements
Set pvComObject of hoElements to voElements
Get ComAdd of hoElements "new element" Nothing Nothing to Nothing
Send Destroy to hoElements
End_Procedure
XBase++
#include "AppEvent.ch" #include "ActiveX.ch" PROCEDURE Main LOCAL oForm LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL LOCAL oSwimLane oForm := XbpDialog():new( AppDesktop() ) oForm:drawingArea:clipChildren := .T. oForm:create( ,,{100,100}, {640,480},, .F. ) oForm:close := {|| PostAppEvent( xbeP_Quit )} oSwimLane := XbpActiveXControl():new( oForm:drawingArea ) oSwimLane:CLSID := "Exontrol.SwimLane.1" /*{AFA73FCE-6609-4062-AE6A-4BAD6D96A025}*/ oSwimLane:create(,, {10,60},{610,370} ) oSwimLane:SetProperty("Background",88/*exElementBorderColor*/,-1) oSwimLane:Elements():Add("new element") oForm:Show() DO WHILE nEvent != xbeP_Quit nEvent := AppEvent( @mp1, @mp2, @oXbp ) oXbp:handleEvent( nEvent, mp1, mp2 ) ENDDO RETURN