Syntax

code

Property: SliderMax: Integer;


Description

Gets or Sets the SliderMax attribute for the property.


Code Reference


code

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

56

57

58

59

60

61

62

63

64

65

66

67

68

69

70

71

72

var

  ps: IPlanSwift;

  itm,rcolor,bcolor,gcolor: IItem;

  prop: IPropertyObject;

  est: IItem                

begin

 //Create planswift Interface

    ps := coplanswift.Create;

    //Get the Estimating Tab

    est := ps.Getitem('Job\Takeoff');

    //get Ps Property Example Item if exists

    itm := est.GetItem('PS Property Examples');

    //Delete It

    if not varisclear(itm) then begin

      ps.deleteItem(itm.guid);    

    end;  

    //Create a new Item

    itm := est.newItem('Part','PS Property Examples');

 

    //COLOR EXAMPLE USING SLIDERS

    //Add Properties for RED Value as a slider

    rcolor := itm.NewProperty('Red','0',ptslider);

    //Set slider min value

    rcolor.SliderMin := 0;

    //set slider max value

    rcolor.SliderMax := 255;

    //set slider frequency

    rcolor.SliderTickFrequency := 1;

    //show ticks on slider

    rcolor.SliderShowTicks := true;

    //Set item in API group

    rcolor.Group := 'API EXAMPLES';

    gcolor := itm.NewProperty('Green','0',ptslider);

    //Set slider min value

    gcolor.SliderMin := 0;

    //set slider max value

    gcolor.SliderMax := 255;

    //set slider frequency

    gcolor.SliderTickFrequency := 1;

    //show ticks on slider

    gcolor.SliderShowTicks := true;

    //Set item in API group

    gcolor.Group := 'API EXAMPLES';

    //Create a property for blue color

    bcolor := itm.NewProperty('Blue','0',ptslider);

    //Set slider min value

    bcolor.SliderMin := 0;

     //set slider max value

    bcolor.SliderMax := 255;

    //set slider frequency

    bcolor.SliderTickFrequency := 1;

    //show ticks on slider

    bcolor.SliderShowTicks := true;

    //Set item in API group

    bcolor.Group := 'API EXAMPLES';

    //Get the Color Property

    prop := itm.GetProperty('Color');

    //Check to see if the color property exist if not create it

    if varisClear(prop) then

      prop := itm.NewProperty('Color','Result := RGB([Red],[Green],[Blue])',ptcolor);

    //Set Property Formula

    prop.Formula := 'Result := RGB([Red],[Green],[Blue])';

    //set Expression to true

    prop.Expression := True;

    //Set to API Group

    prop.Group := 'API EXAMPLES';

     

    //Show The Item Properties Box

    itm.Edit(true);

    //Free the planswift interface

    ps := nil;

end