[JEDI.NET-commits] dev/jedi_mbe/run Jedi.Collections.pas,1.2,1.3 Jedi.Drawing.pas,1.1,1.2 Jedi.Windows.Forms.Hmi.Leds.pas,1.2,1.3

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

Update of /cvsroot/jedidotnet/dev/jedi_mbe/run
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28481/dev/jedi_mbe/run

Modified Files:
	Jedi.Collections.pas Jedi.Drawing.pas 
	Jedi.Windows.Forms.Hmi.Leds.pas 
Log Message:
Style cleaned

Index: Jedi.Drawing.pas
===================================================================
RCS file: /cvsroot/jedidotnet/dev/jedi_mbe/run/Jedi.Drawing.pas,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** Jedi.Drawing.pas	12 Jun 2004 18:31:38 -0000	1.1
--- Jedi.Drawing.pas	16 Jun 2004 13:55:34 -0000	1.2
***************
*** 16,35 ****
  Contributor(s):
  
! Last Modified: 2004-05-16
! 
! You may retrieve the latest version of this file at the Project JEDI's JWFL home page, located at
! http://jwfl.sourceforge.net
  
  Known Issues:
  ---------------------------------------------------------------------------------------------------}
  unit Jedi.Drawing;
  
  interface
  
  uses
    System.Drawing;
  
  type
!   ColorHandling = class sealed (System.Object)
    public
      { Blends two colors. The resulting color will be a mix of the two colors. The percentage parameter determines
--- 16,37 ----
  Contributor(s):
  
! You may retrieve the latest version of this file at the JEDI.NET home page, located at
! http://sf.net/projects/jedidotnet
  
  Known Issues:
  ---------------------------------------------------------------------------------------------------}
+ // $Id$
  unit Jedi.Drawing;
  
  interface
  
+ {$REGION 'interface uses'}
  uses
    System.Drawing;
+ {$ENDREGION}
  
+ {$REGION 'Color related'}
  type
!   ColorUtils = class sealed (System.Object)
    public
      { Blends two colors. The resulting color will be a mix of the two colors. The percentage parameter determines
***************
*** 43,51 ****
      class function Darken(baseColor: Color; percentage: Integer): Color; static;
    end;
  
  implementation
  
! {$REGION 'ColorHandling'}
! class function ColorHandling.Blend(firstColor, secondColor: Color; percentage: Integer): Color;
  begin
    Result := Color.FromArgb(
--- 45,54 ----
      class function Darken(baseColor: Color; percentage: Integer): Color; static;
    end;
+ {$ENDREGION}
  
  implementation
  
! {$REGION 'ColorUtils'}
! class function ColorUtils.Blend(firstColor, secondColor: Color; percentage: Integer): Color;
  begin
    Result := Color.FromArgb(
***************
*** 56,67 ****
  end;
  
! class function ColorHandling.Brighten(baseColor: Color; percentage: Integer): Color;
  begin
!   Result := ColorHandling.Blend(baseColor, Color.White, percentage);
  end;
  
! class function ColorHandling.Darken(baseColor: Color; percentage: Integer): Color;
  begin
!   Result := ColorHandling.Blend(baseColor, Color.Black, percentage);
  end;
  {$ENDREGION}
--- 59,70 ----
  end;
  
! class function ColorUtils.Brighten(baseColor: Color; percentage: Integer): Color;
  begin
!   Result := ColorUtils.Blend(baseColor, Color.White, percentage);
  end;
  
! class function ColorUtils.Darken(baseColor: Color; percentage: Integer): Color;
  begin
!   Result := ColorUtils.Blend(baseColor, Color.Black, percentage);
  end;
  {$ENDREGION}

Index: Jedi.Windows.Forms.Hmi.Leds.pas
===================================================================
RCS file: /cvsroot/jedidotnet/dev/jedi_mbe/run/Jedi.Windows.Forms.Hmi.Leds.pas,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** Jedi.Windows.Forms.Hmi.Leds.pas	15 Jun 2004 19:33:19 -0000	1.2
--- Jedi.Windows.Forms.Hmi.Leds.pas	16 Jun 2004 13:55:34 -0000	1.3
***************
*** 16,21 ****
  Contributor(s):
  
! You may retrieve the latest version of this file at the Project JEDI's JWFL home page, located at
! http://jwfl.sourceforge.net
  
  Known Issues:
--- 16,21 ----
  Contributor(s):
  
! You may retrieve the latest version of this file at the JEDI.NET home page, located at
[...2078 lines suppressed...]
    end;
  end;
--- 1514,1530 ----
    i: Integer;
  begin
!   if not ReferenceEquals(FLedStyle, value) then
    begin
!     FLedStyle.Free;
!     FLedStyle := value;
!     Include(FLedStyle.SettingsChanged, Style_SettingsChanged);
!     Include(FLedStyle.SizeChanged, Style_SizeChanged);
!     Include(FLedStyle.StateAdded, Style_StateAdded);
!     Include(FLedStyle.StateRemoved, Style_StateRemoved);
!     for i := 0 to FInitializeCount - 1 do
!       FLedStyle.BeginInit;
!     if not IsInitializing and (FLedStateIdx >= FLedStyle.States.Count) then
!       FLedStateIdx := FLedStyle.States.Count - 1;
!     FLedStyle.InvalidateSize;
    end;
  end;

Index: Jedi.Collections.pas
===================================================================
RCS file: /cvsroot/jedidotnet/dev/jedi_mbe/run/Jedi.Collections.pas,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** Jedi.Collections.pas	15 Jun 2004 19:32:44 -0000	1.2
--- Jedi.Collections.pas	16 Jun 2004 13:55:34 -0000	1.3
***************
*** 41,60 ****
    InlineCollectionUtils = class (System.Object)
    strict private
!     class var _collectionValue: string;
    public
      { Retrieves the default text of the collection converter. }
      class function CollectionConverterText: string; static;
-     { Creates a property descriptor that will function as a 'new item' property. The property will get the specified
-       name and description. }
-     class function CreateNewItemProperty(baseDescriptor: PropertyDescriptor; name,
-       description: string; propertyId: System.Object): PropertyDescriptor; overload; static;
[...1253 lines suppressed...]
-     'Adds a new item to the collection using the specified key', 0));
- end;
- 
- function InlineDictionaryBase.GetItemProperties: PropertyDescriptorCollection;
- var
-   di: IDictionaryEnumerator;
- begin
-   Result := PropertyDescriptorCollection.Create(nil);
-   di := GetEnumerator;
-   while di.MoveNext do
-     Result.Add(GetItemProperty(di.Key, di.Value));
- end;
- 
- function InlineDictionaryBase.GetService(serviceType: System.Type): System.Object;
- begin
-   Result := nil;
- end;
  {$ENDREGION}
  
--- 1156,1159 ----