[JEDI.NET-commits] main/run Jedi.Windows.Forms.Hmi.Leds.pas,1.1,1.2

[Marcel B. <jed...@us...>]

Update of /cvsroot/jedidotnet/main/run
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv5384/main/run

Modified Files:
	Jedi.Windows.Forms.Hmi.Leds.pas 
Log Message:
* Updated region usage
* Added descriptions to most if not all published properties
* Added ShapeLedStyle, Rectangle shape and MultiShape (renders a number of shapes horizontally or vertically as a single ShapedLed)

Index: Jedi.Windows.Forms.Hmi.Leds.pas
===================================================================
RCS file: /cvsroot/jedidotnet/main/run/Jedi.Windows.Forms.Hmi.Leds.pas,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** Jedi.Windows.Forms.Hmi.Leds.pas	16 Jun 2004 14:29:53 -0000	1.1
--- Jedi.Windows.Forms.Hmi.Leds.pas	2 Aug 2004 16:19:50 -0000	1.2
***************
*** 51,54 ****
--- 51,55 ----
    LedFrameStyle = (None, Flush, Sunken, Raised);
  
+ {$REGION 'Led state'}
    LedStateCollection = class sealed (InlineCollectionBase)
    strict private
***************
*** 142,145 ****
--- 143,158 ----
    LedStateBaseArray = array of LedStateBase;
[...963 lines suppressed...]
+   for i := 1 to States.Count - 1 do
+     tempLst[i] := States[i];
+   Result.Add(tempLst);
+ end;
+ 
+ function MultiColorShapedLedStyle.GetInstDescMemberInfo: MemberInfo;
+ begin
+   Result := GetType.GetConstructor([TypeOf(LedShapeBase), TypeOf(Integer), TypeOf(Integer), TypeOf(Boolean),
+     TypeOf(LedStateBaseArray)]);
+ end;
+ 
+ procedure MultiColorShapedLedStyle.CreateDefaultStates;
+ begin
+   States.Add(LedState.Create(Color.Black, 'Off'));
+   States.Add(LedState.Create(Color.Lime, 'Lime'));
+ end;
+ {$ENDREGION}
+ 
  {$REGION 'LedStateSelectionConverter'}
  function LedStateSelectionConverter.GetStateCollection(context: ITypeDescriptorContext): LedStateCollection;