[JVCL-Checkins] dev/JVCL3/qrun JvQErrorIndicator.pas,1.12,1.13 - updated

[André S. <asn...@us...>]

Update of /cvsroot/jvcl/dev/JVCL3/qrun
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv27132/JVCL3/qrun

Modified Files:
	JvQErrorIndicator.pas 
Log Message:
updated


Index: JvQErrorIndicator.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/qrun/JvQErrorIndicator.pas,v
retrieving revision 1.12
retrieving revision 1.13
diff -C2 -d -r1.12 -r1.13
*** JvQErrorIndicator.pas	28 Jun 2004 23:06:26 -0000	1.12
--- JvQErrorIndicator.pas	3 Jul 2004 18:41:53 -0000	1.13
***************
*** 45,51 ****
  interface
  
! uses  
!   Types, 
!   Classes, QGraphics, QControls, QImgList,
    JvQComponent;
  
--- 45,50 ----
  interface
  
! uses 
!   Classes, Types, QGraphics, QControls, QImgList, QComCtrlsEx, 
    JvQComponent;
  
***************
*** 199,203 ****
      // This property is used in conjunction with ImageIndex to select the image to display
      // If either is nil, invalid or out of range, no error image is displayed
!     property Images: TCustomImageList read FImagelist write SetImageList;
      // Gets or sets the ImageIndex in ImageList to use when displaying an image next to a control
      property ImageIndex: Integer read FImageIndex write SetImageIndex;
--- 198,202 ----
      // This property is used in conjunction with ImageIndex to select the image to display
      // If either is nil, invalid or out of range, no error image is displayed
!     property Images: TCustomImageList read FImageList write SetImageList;
      // Gets or sets the ImageIndex in ImageList to use when displaying an image next to a control
      property ImageIndex: Integer read FImageIndex write SetImageIndex;
***************
*** 241,253 ****
  
  var
!   Ico: TIcon;
! 
  begin
    inherited Create(AComponent);
!   FDefaultImage := TImageList.CreateSize(16, 16);  
!   Ico := TIcon.Create;
!   Ico.LoadFromResourceName(hInstance, 'TJVERRORINDICATORICON');
!   FDefaultImage.Assign(Ico);
!   Ico.Free; 
    FBlinkStyle := ebsBlinkIfDifferentError;
    FBlinkRate := 250;
--- 240,251 ----
  
  var
!   Bmp: TBitmap;
  begin
    inherited Create(AComponent);
!   FDefaultImage := TImageList.CreateSize(16, 16);
!   Bmp := TBitmap.Create;
!   Bmp.LoadFromResourceName(hInstance, 'TJVERRORINDICATOR');
!   FDefaultImage.AddMasked(Bmp, clBlack);
!   Bmp.Free;
    FBlinkStyle := ebsBlinkIfDifferentError;
    FBlinkRate := 250;
***************
*** 591,595 ****
  begin
    if AClient <> nil then
!     SetError(AClient.getControl, AClient.ErrorMessage);
  end;
  
--- 589,593 ----
  begin
    if AClient <> nil then
!     SetError(AClient.GetControl, AClient.ErrorMessage);
  end;