开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
MMLEDS.pas
资源名称：qqdelphiprog.rar　[点击查看]
上传用户：hylc_2004
上传日期：2014-01-23
资源大小：46800k
文件大小：65k
源码类别：

Delphi控件源码

开发平台：

Delphi

MMLEDS.pas：源码内容
  1. {========================================================================}
  2. {=                (c) 1995-98 SwiftSoft Ronald Dittrich                 =}
  3. {========================================================================}
  4. {=                          All Rights Reserved                         =}
  5. {========================================================================}
  6. {=  D 01099 Dresden             = Fax.: +49(0)351-8037944               =}
  7. {=  Loewenstr.7a                = info@swiftsoft.de                     =}
  8. {========================================================================}
  9. {=  Actual versions on http://www.swiftsoft.de/index.html               =}
  10. {========================================================================}
  11. {=  This code is for reference purposes only and may not be copied or   =}
  12. {=  distributed in any format electronic or otherwise except one copy   =}
  13. {=  for backup purposes.                                                =}
  14. {=                                                                      =}
  15. {=  No Delphi Component Kit or Component individually or in a collection=}
  16. {=  subclassed or otherwise from the code in this unit, or associated   =}
  17. {=  .pas, .dfm, .dcu, .asm or .obj files may be sold or distributed     =}
  18. {=  without express permission from SwiftSoft.                          =}
  19. {=                                                                      =}
  20. {=  For more licence informations please refer to the associated        =}
  21. {=  HelpFile.                                                           =}
  22. {========================================================================}
  23. {=  $Date: 22.10.98 - 17:51:31 $                                        =}
  24. {========================================================================}
  25. Unit MMLEDS;
  27. {$I COMPILER.INC}
  29. interface
  31. uses
  32. {$IFDEF WIN32}
  33.     Windows,
  34. {$ELSE}
  35.     WinTypes,
  36.     WinProcs,
  37. {$ENDIF}
  38.     SysUtils,
  39.     Messages,
  40.     Classes,
  41.     Graphics,
  42.     Controls,
  43.     Forms,
  44.     Dialogs,
  45.     ExtCtrls,
  46.     Buttons,
  47.     MMObj,
  48.     MMUtils,
  49.     MMString,
  50.     MMSpin;
  52. type
  53.     TMMLEDType =(ltDigit, ltPeriod, ltColon, ltMinus);
  54.     TMMLEDSize =(ls06x07,ls07x11,ls08x13,ls11x19,ls13x20,ls13x21,ls15x24,
  55.                  ls15x25,ls17x29,ls18x25,ls19x33,ls21x37,ls23x41);
  56.     TMMPaintEvent = procedure(Sender: TObject; Canvas: TCanvas; R: TRect) of object;
  57.     
  58.     {-- TMMLED -----------------------------------------------------------}
  59.     TMMLED = class(TMMGraphicControl)
  60.     private
  61.        FEnabled    : Boolean;           { Enable or disable LED           }
  62.        FLEDColor   : TColor;            { foreground color                }
  63.        FBeveledRect: TRect;             { the real LED area               }
  64.        FOnPaint    : TMMPaintEvent;
  66.        procedure SetEnabled(aValue: Boolean);
  67.        procedure SetLEDColor(aValue: TColor);
  68.        procedure DrawLED;
  69.        procedure CMTextChanged(var Message: TMessage); message CM_TEXTCHANGED;
  70.     protected
  71.        procedure Paint; override;
  72.        procedure Changed; override;
  73.        procedure SetBounds(aLeft, aTop, aWidth, aHeight: integer); override;
  74.     public
  75.        constructor Create(AOwner: TComponent); override;
  76.     published
  77.        { Events }
  78.        property OnClick;
  79.        property OnDblClick;
  80.        property OnMouseDown;
  81.        property OnMouseMove;
  82.        property OnMouseUp;
  83.        property OnDragDrop;
  84.        property OnDragOver;
  85.        property OnEndDrag;
  86.        property OnStartDrag;
  87.        property OnPaint: TMMPaintEvent read FOnPaint write FOnPaint;
  89.        property Bevel;
  90.        property Color default clGreen;
  91.        property ParentShowHint;
  92.        property ShowHint;
  93.        property Visible;
  94.        property Font;
  95.        property Caption;
  96.        property DragCursor;
  97.        property Enabled: Boolean read FEnabled write SetEnabled default True;
  98.        property Height default 8;
  99.        property Width default 16;
  100.        property LEDColor: TColor read FLEDColor write setLEDColor default clLime;
  101.     end;
  103.     {-- TMMLEDMode -------------------------------------------------------}
  104.     TMMLEDMode = class(TMMGraphicControl)
  105.     private
  106.        FMode          : TMMMode;
  107.        FEnabled       : Boolean;
  108.        FLEDColor      : TColor;
  109.        FInactiveColor : TColor;
  110.        FDrawInactive  : Boolean;
  111.        FBitmap        : TBitmap;
  113.        procedure LoadNewResource;
  114.        procedure SetMode(aValue: TMMMode);
  115.        procedure SetLEDColor(aColor: TColor);
  116.        procedure SetInactiveColor(aColor: TColor);
  117.        procedure SetDrawInactive(aValue: Boolean);
  118.        procedure SetEnabled(aValue: Boolean);
  119.        function  GetEnabled: Boolean;
  120.        procedure CMColorChanged(var Message: TMessage); message CM_COLORCHANGED;
  121.     protected
  122.        procedure Paint; override;
  123.     public
  124.        constructor Create (AOwner: TComponent); override;
  125.        destructor  Destroy; override;
  126.     published
  127.        { Events }
  128.        property OnClick;
  129.        property OnDblClick;
  130.        property OnMouseDown;
  131.        property OnMouseMove;
  132.        property OnMouseUp;
  133.        property OnDragDrop;
  134.        property OnDragOver;
  135.        property OnEndDrag;
  136.        property OnStartDrag;
  138.        property ParentShowHint;
  139.        property ParentColor;
  140.        property ShowHint;
  141.        property Visible;
  142.        property Color;
  143.        property DragCursor;
  144.        property Width default 27;
  145.        property Height default 11;
  146.        property DrawInactive: Boolean read FDrawInactive write SetDrawInactive default True;
  147.        property Enabled: Boolean read GetEnabled write SetEnabled default True;
  148.        property Mode: TMMMode read FMode write SetMode default mMono;
  149.        property LEDColor: TColor read FLEDColor write SetLEDColor default clLime;
  150.        property InactiveColor: TColor read FInactiveColor write SetInactiveColor default clGreen;
  151.     end;
  153.     {-- TMMCustomLEDDigit ------------------------------------------------}
  154.     TMMCustomLEDDigit = class(TMMGraphicControl);
  156.     {-- TMMLEDDigit ------------------------------------------------------}
  157.     TMMLEDDigit = class(TMMCustomLEDDigit)
  158.     private
  159.        FMinValue      : integer;
  160.        FMaxValue      : integer;
  161.        FValue         : Longint;
  162.        FDrawInactive  : Boolean;
  163.        FZeroBlank     : Boolean;
  164.        FInactiveColor : TColor;
  165.        FLEDColor      : TColor;
  166.        FEnabled       : Boolean;
  167.        FSize          : TMMLEDSize;
  168.        FType          : TMMLEDType;
  169.        FCascade       : Boolean;
  170.        FConnect       : TMMCustomLEDDigit;
  171.        FBitmap        : TBitmap;
  172.        FOnRollForward : TNotifyEvent;
  173.        FOnRollBackward: TNotifyEvent;
  175.        procedure LoadNewResource;
  176.        procedure SetEnabled(aValue: Boolean);
  177.        function  GetEnabled: Boolean;
  178.        procedure SetMinValue(aValue: integer);
  179.        procedure SetMaxValue(aValue: integer);
  180.        procedure SetValue(aValue: Longint);
  181.        procedure SetDrawInactive(aValue: Boolean);
  182.        procedure SetZeroBlank(aValue: Boolean);
  183.        procedure SetType(aType: TMMLEDType);
  184.        procedure SetSize(aValue: TMMLEDSize);
  185.        procedure SetLEDColor(aColor: TColor);
  186.        procedure SetInactiveColor(aColor: TColor);
  187.        procedure SetCascade(aValue: Boolean);
  188.        procedure SetConnect(aControl: TMMCustomLEDDigit);
  189.        procedure CMColorChanged(var Message: TMessage); message CM_COLORCHANGED;
  190.        {$IFDEF BUILD_ACTIVEX}
  191.        procedure WMSize(var Message: TWMSize); message WM_SIZE;
  192.        {$ENDIF}
  193.     protected
  194.        procedure Loaded; override;
  195.        procedure Paint; override;
  196.        procedure SetBounds(aLeft, aTop, aWidth, aHeight: integer); override;
  197.        procedure Notification(AComponent: TComponent; Operation: TOperation); override;
  198.        procedure RollForward; dynamic;
  199.        procedure RollBackward; dynamic;
  200.     public
  201.        constructor Create (AOwner: TComponent); override;
  202.        destructor  Destroy; override;
  203.        procedure   Increase;
  204.        procedure   Decrease;
  205.     published
  206.        { Events }
  207.        property OnClick;
  208.        property OnDblClick;
  209.        property OnMouseDown;
  210.        property OnMouseMove;
  211.        property OnMouseUp;
  212.        property OnRollForward: TNotifyEvent read FOnRollForward write FOnRollForward;
  213.        property OnRollBackward: TNotifyEvent read FOnRollBackward write FOnRollBackward;
  215.        property ParentShowHint;
  216.        property ParentColor;
  217.        property ShowHint;
  218.        property Visible;
  219.        property Color;
  220.        property Width default 11;
  221.        property Height default 21;
  222.        property Enabled: Boolean read GetEnabled write SetEnabled default True;
  223.        property MinValue: integer read FMinValue write SetMinValue default 0;
  224.        property MaxValue: integer read FMaxValue write SetMaxValue default 9;
  225.        property Value: Longint read FValue write SetValue default 0;
  226.        property DrawInactive: Boolean read FDrawInactive write SetDrawInactive default True;
  227.        property ZeroBlank: Boolean read FZeroBlank write SetZeroBlank default False;
  228.        property InactiveColor: TColor read FInactiveColor write SetInactiveColor default clGreen;
  229.        property LEDColor: TColor read FLEDColor write SetLEDColor default clLime;
  230.        property DigitSize: TMMLEDSize read FSize write SetSize default ls13X21;
  231.        property DisplayType: TMMLEDType read FType write SetType default ltDigit;
  232.        property CascadeValues: Boolean read FCascade write SetCascade default False;
  233.        property Connect: TMMCustomLEDDigit read FConnect write SetConnect;
  234.     end;
  236.     {-- TMMLEDPanel ------------------------------------------------------}
  237.     TMMLEDPanel = class(TMMCustomPanel)
  238.     private
  239.        FMinValue     : LongInt;
  240.        FMaxValue     : LongInt;
  241.        FValue        : Longint;
  242.        FSize         : TMMLEDSize;
  243.        FLEDSpace     : integer;
  244.        FLEDColor     : TColor;
  245.        FInactiveColor: TColor;
  246.        FDrawInactive : Boolean;
  247.        FZeroBlank    : Boolean;
  248.        FNumDigits    : integer;
  249.        FDigits       : array[0..8] of TMMLedDigit;
  250.        FOnChange     : TNotifyEvent;
  252.        function  CreateDigit: TMMLedDigit;
  253.        procedure CreateAllDigits;
  254.        procedure AdjustSize (var W, H: integer);
  255.        procedure AdjustBounds;
  256.        procedure DestroyAllDigits;
  257.        procedure SetMaxValue(aValue: Longint);
  258.        procedure SetMinValue(aValue: Longint);
  259.        procedure SetNumDigits(aValue: integer);
  260.        procedure SetLEDSpace(aValue: integer);
  261.        procedure SetLEDColor(aValue: TColor);
  262.        procedure SetInactiveColor(aValue: TColor);
  263.        procedure SetDrawInactive(aValue: Boolean);
  264.        procedure SetEnabled(aValue: Boolean);
  265.        function  GetEnabled: Boolean;
  266.        procedure SetSize(aValue: TMMLEDSize);
  267.        procedure SetZeroBlank(aValue: Boolean);
  268.        procedure SetValue(aValue: Longint);
  269.        procedure WMSize(var Message: TWMSize);  message WM_SIZE;
  270.        procedure CMColorChanged(var Message: TMessage); message CM_COLORCHANGED;
  271.        procedure BtnClick(Sender: TObject);
  272.        procedure BtnDblClick(Sender: TObject);
  273.        procedure MsDown(Sender: TObject; Button: TMouseButton;
  274.                         Shift: TShiftState; X, Y: Integer);
  275.        procedure MsUp(Sender: TObject; Button: TMouseButton;
  276.                       Shift: TShiftState; X, Y: Integer);
  277.        procedure MsMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
  278.     protected
  279.        procedure Loaded; override;
  280.        procedure Change; dynamic;
  281.        procedure Changed; override;
  282.        procedure SetBounds(aLeft, aTop, aWidth, aHeight: integer); override;
  283.        {$IFDEF WIN32}
  284.        {$IFDEF DELPHI3}
  285.        procedure GetChildren(Proc: TGetChildProc; Root: TComponent); override;
  286.        {$ELSE}
  287.        procedure GetChildren(Proc: TGetChildProc); override;
  288.        {$ENDIF}
  289.        {$ENDIF}
  290.     public
  291.        constructor Create (aOwner: TComponent); override;
  292.        destructor  Destroy; override;
  293.     published
  294.        { Events }
  295.        property OnClick;
  296.        property OnDblClick;
  297.        property OnMouseDown;
  298.        property OnMouseMove;
  299.        property OnMouseUp;
  300.        property OnResize;
  301.        property OnChange: TNotifyEvent read FOnChange write FOnChange;
  303.        property Bevel;
  304.        property ParentShowHint;
  305.        property ParentColor;
  306.        property ShowHint;
  307.        property Visible;
  308.        property Color default clBlack;
  309.        property DrawInactive: Boolean read FDrawInactive write SetDrawInactive default True;
  310.        property Enabled: Boolean read GetEnabled write SetEnabled default True;
  311.        property LEDColor: TColor read FLEDColor write SetLEDColor default clLime;
  312.        property InactiveColor: TColor read FInactiveColor write SetInactiveColor default clGreen;
  313.        property NumDigits: integer read FNumDigits write SetNumDigits default 2;
  314.        property DigitSize: TMMLEDSize read FSize write SetSize default ls13X21;
  315.        property LEDSpace: integer read FLEDSpace write SetLEDSpace default 1;
  316.        property MaxValue: LongInt read FMaxValue write SetMaxValue default 0;
  317.        property MinValue: LongInt read FMinValue write SetMinValue default 100;
  318.        property TabOrder;
  319.        property TabStop;
  320.        property ZeroBlank: Boolean read FZeroBlank write SetZeroBlank default False;
  321.        property Value: Longint read FValue write SetValue default 0;
  322.     end;
  324.     {-- TMMLEDSpin -------------------------------------------------------}
  325.     TMMLEDSpin = class(TMMWinControl)
  326.     private
  327.        FLEDPanel   : TMMLEDPanel;
  328.        FButton     : TMMSpinButton;
  329.        FSpace      : integer;
  330.        FOnChange   : TNotifyEvent;
  331.        FOnUpClick  : TNotifyEvent;
  332.        FOnDownClick: TNotifyEvent;
  334.        procedure SetIncrement(aValue: Longint);
  335.        function  GetIncrement: Longint;
  336.        procedure SetSpace(aValue: integer);
  337.        procedure SetNumDigits(aValue: integer);
  338.        function  GetNumDigits: integer;
  339.        procedure SetLEDSpace(aValue: integer);
  340.        function  GetLEDSpace: integer;
  341.        procedure SetColor(aValue: TColor);
  342.        function  GetColor: TColor;
  343.        procedure SetLEDColor(aValue: TColor);
  344.        function  GetLedColor: TColor;
  345.        procedure SetInactiveColor(aValue: TColor);
  346.        function  GetInactiveColor: TColor;
  347.        procedure SetDrawInactive(aValue: Boolean);
  348.        function  GetDrawInactive: Boolean;
  349.        procedure SetEnabled(aValue: Boolean);
  350.        function  GetEnabled: Boolean;
  351.        procedure SetSize(aValue: TMMLEDSize);
  352.        function  GetSize: TMMLEDSize;
  353.        procedure SetZeroBlank(aValue: Boolean);
  354.        function  GetZeroBlank: Boolean;
  355.        procedure SetValue(aValue: Longint);
  356.        function  GetValue: Longint;
  357.        procedure SetMinValue(aValue: Longint);
  358.        function  GetMinValue: Longint;
  359.        procedure SetMaxValue(aValue: Longint);
  360.        function  GetMaxValue: Longint;
  361.        procedure SetLEDBevel(aBevel: TMMBevel);
  362.        function  GetLEDBevel: TMMBevel;
  363.        procedure SetTabStop(aValue: Boolean);
  364.        function  GetTabStop: Boolean;
  365.        function  GetUpGlyph: TBitmap;
  366.        function  GetDownGlyph: TBitmap;
  367.        procedure SetUpGlyph(Value: TBitmap);
  368.        procedure SetUpNumGlyphs(Value: TNumGlyphs);
  369.        function  GetUpNumGlyphs: TNumGlyphs;
  370.        procedure SetDownGlyph(Value: TBitmap);
  371.        procedure SetDownNumGlyphs(Value: TNumGlyphs);
  372.        function  GetDownNumGlyphs: TNumGlyphs;
  373.        procedure SetButtonFace(Value: Boolean);
  374.        function  GetButtonFace: Boolean;
  375.        procedure SetMiddleButton(Value: Boolean);
  376.        function  GetMiddleButton: Boolean;
  377.        procedure SetSpinBevel(aValue: TMMBevel);
  378.        function  GetSpinBevel: TMMBevel;
  379.        procedure AdjustSize (var W, H: integer);
  380.        procedure AdjustBounds;
  381.        procedure WMSetFocus(var Message: TWMSetFocus); message WM_SETFOCUS;
  382.        procedure WMSize(var Message: TWMSize); message WM_SIZE;
  383.        procedure BtnClick(Sender: TObject);
  384.        procedure BtnDblClick(Sender: TObject);
  385.        procedure MsDown(Sender: TObject; Button: TMouseButton;
  386.                         Shift: TShiftState; X, Y: Integer);
  387.        procedure MsUp(Sender: TObject; Button: TMouseButton;
  388.                       Shift: TShiftState; X, Y: Integer);
  389.        procedure MsMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
  391.     protected
  392.        procedure UpClick(Sender: TObject); virtual;
  393.        procedure DownClick(Sender: TObject); virtual;
  394.        procedure ChildChange(Sender: TObject); virtual;
  395.        procedure Change; virtual;
  397.        procedure GetChanged(Sender: TObject); virtual;
  398.        {$IFDEF WIN32}
  399.        {$IFDEF DELPHI3}
  400.        procedure GetChildren(Proc: TGetChildProc; Root: TComponent); override;
  401.        {$ELSE}
  402.        procedure GetChildren(Proc: TGetChildProc); override;
  403.        {$ENDIF}
  404.        {$ENDIF}
  405.        procedure SetBounds(aLeft, aTop, aWidth, aHeight: integer); override;
  406.        procedure Click; override;
  407.     public
  408.        constructor Create(AOwner: TComponent); override;
  409.        destructor  Destroy; override;
  410.        property    Button: TMMSpinButton read FButton write FButton;
  411.     published
  412.        { Events }
  413.        property OnClick;
  414.        property OnDblClick;
  415.        property OnMouseDown;
  416.        property OnMouseMove;
  417.        property OnMouseUp;
  418.        property OnChange: TNotifyEvent read FOnChange write FOnChange;
  419.        property OnDownClick: TNotifyEvent read FOnDownClick write FOnDownClick;
  420.        property OnUpClick: TNotifyEvent read FOnUpClick write FOnUpClick;
  422.        property Bevel: TMMBevel read GetLEDBevel write SetLEDBevel;
  423.        property ParentShowHint;
  424.        property ShowHint;
  425.        property Visible;
  426.        property Color: TColor read GetColor write SetColor default clBlack;
  427.        property DrawInactive: Boolean read GetDrawInactive write SetDrawInactive default True;
  428.        property Enabled: Boolean read GetEnabled write SetEnabled;
  429.        property LEDColor: TColor read GetLEDColor write SetLEDColor;
  430.        property InactiveColor: TColor read GetInactiveColor write SetInactiveColor;
  431.        property NumDigits: integer read GetNumDigits write SetNumDigits;
  432.        property DigitSize: TMMLEDSize read GetSize write SetSize;
  433.        property LEDSpace: integer read GetLEDSpace write SetLEDSpace;
  434.        property Space: integer read FSpace write SetSpace default 2;
  435.        property TabStop: Boolean read GetTabStop write setTabStop default True;
  436.        property TabOrder;
  437.        property Increment: Longint read GetIncrement write SetIncrement;
  438.        property ZeroBlank: Boolean read GetZeroBlank write SetZeroBlank;
  439.        property MaxValue: LongInt read GetMaxValue write SetMaxValue;
  440.        property MinValue: LongInt read GetMinValue write SetMinValue;
  441.        property Value: Longint read GetValue write SetValue;
  442.        property DownGlyph: TBitmap read GetDownGlyph write SetDownGlyph;
  443.        property DownNumGlyphs: TNumGlyphs read GetDownNumGlyphs write SetDownNumGlyphs;
  444.        property UpGlyph: TBitmap read GetUpGlyph write SetUpGlyph;
  445.        property UpNumGlyphs: TNumGlyphs read GetUpNumGlyphs write SetUpNumGlyphs;
  446.        property ButtonFace: Boolean read GetButtonFace write SetButtonFace;
  447.        property MiddleButton: Boolean read GetMiddleButton write SetMiddleButton;
  448.        property SpinBevel: TMMBevel read GetSpinBevel write SetSpinBevel;
  449.     end;
  451. implementation
  453. const
  454.      RC_NumDigits    = 11;     { number of digits in the resource file    }
  455.      RC_NumSeparators= 4;      { number of separators in resource file    }
  457. {$IFDEF WIN32}
  458.   {$R MMLEDS.D32}
  459. {$ELSE}
  460.   {$R MMLEDS.D16}
  461. {$ENDIF}
  463. { these mode resource are available: }
  464. { 'LCD_MODE'   }
  465. { these digit resources are available: }
  466. { 'LCD_06X07' }
  467. { 'LCD_07X11' }
  468. { 'LCD_08X13' }
  469. { 'LCD_11X19' }
  470. { 'LCD_13X20' }
  471. { 'LCD_13X21' }
  472. { 'LCD_15X24' }
  473. { 'LCD_15X25' }
  474. { 'LCD_18X25' }
  475. { 'LCD_21X37' }
  476. { 'LCD_23X41' }
  477. { these separator resources are available: }
  478. { 'LCDS_06X07' }
  479. { 'LCDS_07X11' }
  480. { 'LCDS_08X13' }
  481. { 'LCDS_11X19' }
  482. { 'LCDS_13X20' }
  483. { 'LCDS_13X21' }
  484. { 'LCDS_15X24' }
  485. { 'LCDS_15X25' }
  486. { 'LCDS_18X25' }
  487. { 'LCDS_21X37' }
  488. { 'LCDS_23X41' }
  490. {-- TMMLED ---------------------------------------------------------------}
  491. constructor TMMLED.Create(AOwner: TComponent);
  492. begin
  493.      inherited Create(AOwner);
  495.      ControlStyle := ControlStyle - [csSetCaption];
  497.      FBeveledRect := BeveledRect;
  498.      Height := 8;
  499.      Width := 16;
  500.      FEnabled := True;
  501.      Color := clGreen;
  502.      FLEDColor := clLime;
  504.      ErrorCode := ComponentRegistered(InitCode, Self, ClassName);
  505.      if (ErrorCode <> 0) then RegisterFailed(InitCode, Self , ClassName);
  506. end;
  508. {-- TMMLED ---------------------------------------------------------------}
  509. Procedure TMMLED.SetLEDColor(aValue: TColor);
  510. begin
  511.      if (aValue <> FLEDColor) then
  512.      begin
  513.           FLEDColor := aValue;
  514.           Invalidate;
  515.      end;
  516. end;
  518. {-- TMMLED ---------------------------------------------------------------}
  519. procedure TMMLED.SetEnabled(aValue: Boolean);
  520. begin
  521.      if (aValue <> FEnabled) then
  522.      begin
  523.           FEnabled := aValue;
  524.           if (Caption = '') then
  525.               DrawLED
  526.           else
  527.               Repaint;
  528.      end;
  529. end;
  531. {-- TMMLED ---------------------------------------------------------------}
  532. procedure TMMLED.SetBounds(aLeft, aTop, aWidth, aHeight: integer);
  533. begin
  534.      inherited SetBounds(aLeft, aTop, aWidth, aHeight);
  535.      FBeveledRect := BeveledRect;
  536. end;
  538. {-- TMMLED ---------------------------------------------------------------}
  539. Procedure TMMLED.Changed;
  540. begin
  541.      FBeveledRect := BeveledRect;
  542.      inherited Changed;
  543. end;
  545. {-- TMMLED ---------------------------------------------------------------}
  546. procedure TMMLED.CMTextChanged(var Message: TMessage);
  547. begin
  548.    Refresh;
  549. end;
  551. {-- TMMLED ---------------------------------------------------------------}
  552. Procedure TMMLED.DrawLED;
  553. var
  554.    aRect: TRect;
  555.    FontHeight: Integer;
  556.    Text: PChar;
  558. begin
  559.      {$IFNDEF BUILD_ACTIVEX}
  560.      if (Parent <> nil) and Parent.HandleAllocated then
  561.      {$ENDIF}
  562.      with Canvas do
  563.      begin
  564.         if assigned(FOnPaint) then
  565.            FOnPaint(Self,Canvas,ClientRect)
  566.         else
  567.         begin
  568.            if FEnabled then
  569.               Brush.Color := FLEDColor
  570.            else
  571.               Brush.Color := Color;
  572.            FillRect(FBeveledRect);
  573.            if (Caption <> '') then
  574.            begin
  575.               Text := StrAlloc(Length(Caption)+1);
  576.               try
  577.                  StrPCopy(Text, Caption);
  578.                  Brush.Style := bsClear;
  579.                  Font := Self.Font;
  580.                  FontHeight := TextHeight('W');
  581.                  with aRect do
  582.                  begin
  583.                     Top := ((Bottom + Top) - FontHeight) shr 1;
  584.                     Bottom := Top + FontHeight;
  585.                  end;
  586.                  DrawText(Handle, Text, StrLen(Text), aRect, (DT_EXPANDTABS or
  587.                           DT_VCENTER) or DT_CENTER);
  589.               finally
  590.                  StrDispose(Text);
  591.               end;
  592.            end;
  593.         end;
  594.      end;
  595. end;
  597. {-- TMMLED ---------------------------------------------------------------}
  598. Procedure TMMLED.Paint;
  599. begin
  600.    inherited Paint;                                    { draw the bevel }
  601.    DrawLED;
  602. end;
  604. {== TMMLEDMode ===========================================================}
  605. constructor TMMLedMode.Create (AOwner: TComponent);
  606. begin
  607.      FBitmap := TBitmap.Create;
  609.      inherited Create (AOwner);
  611.      Width := 27;
  612.      Height := 11;
  613.      FEnabled := True;      { !!!!!!!! ev. wieder zu inherited 鋘dern }
  614.      FMode := mMono;
  615.      FDrawInactive := True;
  616.      FInactiveColor := clGreen;
  617.      LEDColor := clLime;
  619.      ErrorCode := ComponentRegistered(InitCode, Self, ClassName);
  620.      if (ErrorCode <> 0) then RegisterFailed(InitCode, Self , ClassName);
  621. end;
  623. {-- TMMLEDMode -----------------------------------------------------------}
  624. destructor TMMLedMode.Destroy;
  625. begin
  626.      FBitmap.Free;
  627.      inherited Destroy;
  628. end;
  630. {-- TMMLEDMode -----------------------------------------------------------}
  631. procedure TMMLEDMode.LoadNewResource;
  632. begin                                                { load the resource }
  633.      FBitmap.Handle := LoadBitmap(HInstance, 'LCD_MODE');
  635.      { Change the black/white resource to a colored bitmap }
  636.      ChangeColors(FBitmap,FDrawInactive,FLEDColor,FInactiveColor,Color);
  637. end;
  639. {-- TMMLEDMode -----------------------------------------------------------}
  640. procedure TMMLedMode.SetMode(aValue: TMMMode);
  641. begin
  642.      if (aValue <> FMode) then
  643.      begin
  644.           FMode := aValue;
  645.           Invalidate;
  646.      end;
  647. end;
  649. {-- TMMLEDMode -----------------------------------------------------------}
  650. procedure TMMLEDMode.CMColorChanged(var Message: TMessage);
  651. begin
  652.      LoadNewResource;
  653.      Invalidate;
  654. end;
  656. {-- TMMLEDMode -----------------------------------------------------------}
  657. procedure TMMLEDMode.SetEnabled(aValue: Boolean);
  658. begin
  659.      {inherited Enabled := aValue;}
  660.      FEnabled := aValue;       { !!!!!!!! ev. wieder zu inherited 鋘dern }
  661.      Invalidate;
  662. end;
  664. {-- TMMLEDMode -----------------------------------------------------------}
  665. function  TMMLEDMode.GetEnabled: Boolean;
  666. begin
  667.      {Result := inherited Enabled;}
  668.      Result := FEnabled;       { !!!!!!!! ev. wieder zu inherited 鋘dern }
  669. end;
  671. {-- TMMLEDMode -----------------------------------------------------------}
  672. procedure TMMLedMode.SetLEDColor(aColor: TColor);
  673. begin
  674.      if (aColor <> FLEDColor) then
  675.      begin
  676.           FLEDColor := aColor;
  677.           LoadNewResource;
  678.           Invalidate;
  679.      end;
  680. end;
  682. {-- TMMLEDMode -----------------------------------------------------------}
  683. procedure TMMLedMode.SetInactiveColor(aColor: TColor);
  684. begin
  685.      if (aColor <> FInactiveColor) then
  686.      begin
  687.           FInactiveColor := aColor;
  688.           LoadNewResource;
  689.           Invalidate;
  690.      end;
  691. end;
  693. {-- TMMLEDMode -----------------------------------------------------------}
  694. procedure TMMLedMode.SetDrawInactive(aValue: Boolean);
  695. begin
  696.      if (FDrawInactive <> aValue) then
  697.      begin
  698.           FDrawInactive := aValue;
  699.           LoadNewResource;
  700.           Invalidate;
  701.      end;
  702. end;
  704. {-- TMMLEDMode -----------------------------------------------------------}
  705. procedure TMMLedMode.Paint;
  706. Var
  707.    MemDC: HDC;
  708.    oldBitmap: HBitmap;
  709.    BitmapOfs: integer;
  711. begin
  712.      MemDC := CreateCompatibleDC(0);
  713.      oldBitmap := SelectObject(MemDC, FBitmap.Handle);
  714.      BitmapOfs := (FBitmap.Width div 4) * (Ord(FMode)+1) * Ord(Enabled);
  715.      StretchBlt(Canvas.Handle,
  716.                 0, 0, Width, Height,
  717.                 MemDC,
  718.                 BitmapOfs, 0,
  719.                 FBitmap.Width div 4, FBitmap.Height,
  720.                 SRCCOPY);
  721.      SelectObject(MemDC, oldBitmap);
  722.      DeleteDC(MemDC);
  723. end;
  725. {=========================================================================}
  726. type
  727.     PDigitBitmap = ^TDigitBitmap;
  728.     TDigitBitmap = record
  729.        FBitmap    : TBitmap;
  730.        FType      : TMMLEDType;
  731.        FSize      : TMMLEDSize;
  732.        FInactive  : Boolean;
  733.        FColor     : TColor;
  734.        FLEDColor  : TColor;
  735.        FInactColor: TColor;
  736.        FCount     : integer;
  737.     end;
  739.     TDigitCache = class
  740.     public
  741.        BitmapList: TList;
  742.        constructor Create;
  743.        destructor Destroy; override;
  745.        function  Empty: Boolean;
  746.        function  LoadBitmap(Typ: TMMLEDType; Size: TMMLEDSize; Inactive: Boolean;
  747.                             LEDColor, InactColor,Color: TColor): TBitmap;
  748.        procedure RemoveBitmap(var Bitmap: TBitmap);
  749.     end;
  751. const
  752.    DigitCache : TDigitCache = nil;
  754. {== TDigitCache ==========================================================}
  755. constructor TDigitCache.Create;
  756. begin
  757.    inherited Create;
  758.    BitmapList := TList.Create;
  759. end;
  761. {-- TDigitCache ----------------------------------------------------------}
  762. destructor TDigitCache.Destroy;
  763. begin
  764.    BitmapList.Free;
  765.    inherited Destroy;
  766. end;
  768. {-- TDigitCache ----------------------------------------------------------}
  769. function TDigitCache.Empty: Boolean;
  770. begin
  771.    Result := BitmapList.Count = 0;
  772. end;
  774. {-- TDigitCache ----------------------------------------------------------}
  775. function TDigitCache.LoadBitmap(Typ: TMMLEDType; Size: TMMLEDSize; Inactive: Boolean;
  776.                                 LEDColor,InactColor,Color: TColor): TBitmap;
  777. Var
  778.    DigitBitmap: PDigitBitmap;
  779.    Str1: array[0..80] of Char;
  780.    i: integer;
  782. begin
  783.    if (BitmapList.Count > 0) then
  784.    begin
  785.       { look if we have such a bitmap always in the cache }
  786.       for i := 0 to BitmapList.Count-1 do
  787.       with PDigitBitmap(BitmapList.Items[i])^ do
  788.       begin
  789.          if (Typ = FType) and (Size = FSize) and (Inactive = FInactive) and
  790.             (Color = FColor) and (LEDColor = FLEDColor) and (InactColor = FInactColor) then
  791.          begin
  792.             inc(FCount);
  793.             Result := FBitmap;
  794.             exit;
  795.          end;
  796.       end;
  797.    end;
  799.    { load and prepare a new bitmap resource }
  800.    if (Typ = ltDigit) then
  801.    case Size of
  802.         ls06x07: StrCopy(str1, 'LCD_06X07');
  803.         ls07x11: StrCopy(str1, 'LCD_07X11');
  804.         ls08x13: StrCopy(str1, 'LCD_08X13');
  805.         ls11x19: StrCopy(str1, 'LCD_11X19');
  806.         ls13x20: StrCopy(str1, 'LCD_13X20');
  807.         ls13x21: StrCopy(str1, 'LCD_13X21');
  808.         ls15x24: StrCopy(str1, 'LCD_15X24');
  809.         ls15x25: StrCopy(str1, 'LCD_15X25');
  810.         ls17x29: StrCopy(str1, 'LCD_17X29');
  811.         ls18x25: StrCopy(str1, 'LCD_18X25');
  812.         ls19x33: StrCopy(str1, 'LCD_19X33');
  813.         ls21x37: StrCopy(str1, 'LCD_21X37');
  814.         ls23x41: StrCopy(str1, 'LCD_23X41');
  815.    end
  816.    else
  817.    case Size of
  818.         ls06x07: StrCopy(str1, 'LCDS_06X07');
  819.         ls07x11: StrCopy(str1, 'LCDS_07X11');
  820.         ls08x13: StrCopy(str1, 'LCDS_08X13');
  821.         ls11x19: StrCopy(str1, 'LCDS_11X19');
  822.         ls13x20: StrCopy(str1, 'LCDS_13X20');
  823.         ls13x21: StrCopy(str1, 'LCDS_13X21');
  824.         ls15x24: StrCopy(str1, 'LCDS_15X24');
  825.         ls15x25: StrCopy(str1, 'LCDS_15X25');
  826.         ls17x29: StrCopy(str1, 'LCDS_17X29');
  827.         ls18x25: StrCopy(str1, 'LCDS_18X25');
  828.         ls19x33: StrCopy(str1, 'LCDS_19X33');
  829.         ls21x37: StrCopy(str1, 'LCDS_21X37');
  830.         ls23x41: StrCopy(str1, 'LCDS_23X41');
  831.    end;
  833.    New(DigitBitmap);
  834.    with DigitBitmap^ do
  835.    begin
  836.       FBitmap := TBitmap.Create;
  837.       {$IFDEF WIN32}
  838.       FBitmap.Handle := Windows.LoadBitmap(HInstance, Str1);{ load the resource }
  839.       {$ELSE}
  840.       FBitmap.Handle := WinProcs.LoadBitmap(HInstance, Str1);{ load the resource }
  841.       {$ENDIF}
  842.       { Change the black/white resource to a colored bitmap }
  843.       ChangeColors(FBitmap,Inactive,LEDColor,InactColor,Color);
  845.       FType      := Typ;
  846.       FSize      := Size;
  847.       FInactive  := Inactive;
  848.       FColor     := Color;
  849.       FLEDColor  := LEDColor;
  850.       FInactColor:= InactColor;
  851.       FCount     := 1;
  853.       BitmapList.Add(DigitBitmap);
  854.       Result := FBitmap;
  855.    end;
  856. end;
  858. {-- TDigitCache ----------------------------------------------------------}
  859. procedure TDigitCache.RemoveBitmap(var Bitmap: TBitmap);
  860. var
  861.    i: integer;
  863. begin
  864.    if (Bitmap <> nil) and (BitmapList.Count > 0) then
  865.    begin
  866.       for i := 0 to BitmapList.Count-1 do
  867.       with PDigitBitmap(BitmapList.Items[i])^ do
  868.       begin
  869.          if (FBitmap = Bitmap) then
  870.          begin
  871.             dec(FCount);
  872.             if (FCount = 0) then
  873.             begin
  874.                FBitmap.Free;
  875.                Dispose(BitmapList.Items[i]);
  876.                BitmapList.Delete(i);
  877.                Bitmap := nil;
  878.             end;
  879.             break;
  880.          end;
  881.       end;
  882.    end;
  883. end;
  885. {== TMMLEDDigit ==========================================================}
  886. constructor TMMLedDigit.Create (AOwner: TComponent);
  887. begin
  888.    ControlState := ControlState + [csCreating];
  890.    inherited Create (AOwner);
  892.    ControlStyle := ControlStyle - [csSetCaption];
  894.    FBitmap := nil;
  895.    Width := 11;
  896.    Height := 21;
  897.    FCascade := False;
  898.    FConnect := Nil;
  899.    FEnabled := True;      { !!!!!!!! ev. wieder zu inherited 鋘dern }
  900.    FMinValue := 0;
  901.    FMaxValue := 9;
  902.    FDrawInactive := True;
  903.    FZeroBlank := False;
  904.    FType := ltDigit;
  905.    FInactiveColor := clGreen;
  906.    FLEDColor := clLime;
  907.    FSize := ls13x21;
  908.    if (DigitCache = nil) then DigitCache := TDigitCache.Create;
  910.    ControlState := ControlState - [csCreating];
  912.    LoadNewResource;
  914.    ErrorCode := ComponentRegistered(InitCode, Self, ClassName);
  915.    if (ErrorCode <> 0) then RegisterFailed(InitCode, Self , ClassName);
  916. end;
  918. {-- TMMLEDDigit ----------------------------------------------------------}
  919. destructor TMMLedDigit.Destroy;
  920. begin
  921.    if (DigitCache <> nil) then
  922.    begin
  923.       DigitCache.RemoveBitmap(FBitmap);
  924.       if DigitCache.Empty then
  925.       begin
  926.          DigitCache.Free;
  927.          DigitCache := nil;
  928.       end;
  929.    end;
  931.    inherited Destroy;
  932. end;
  934. {-- TMMLEDDigit ----------------------------------------------------------}
  935. procedure TMMLedDigit.Notification(AComponent: TComponent; Operation: TOperation);
  936. begin
  937.    inherited Notification(AComponent, Operation);
  939.    if (Operation = opRemove) and (AComponent = FConnect) then
  940.       FConnect := Nil;
  941. end;
  943. {-- TMMLEDDigit ----------------------------------------------------------}
  944. procedure TMMLedDigit.RollForward;
  945. begin
  946.    if (csLoading in ComponentState) or
  947.       (csReading in ComponentState) then exit;
  949.    if assigned(FOnRollForward) then FOnRollForward(self);
  950. end;
  952. {-- TMMLEDDigit ----------------------------------------------------------}
  953. procedure TMMLedDigit.RollBackward;
  954. begin
  955.    if (csLoading in ComponentState) or
  956.       (csReading in ComponentState) then exit;
  958.    if assigned(FOnRollBackward) then FOnRollBackward(self);
  959. end;
  961. {-- TMMLEDDigit ----------------------------------------------------------}
  962. procedure TMMLEDDigit.SetBounds(aLeft, aTop, aWidth, aHeight: integer);
  963. Var
  964.    DigitWidth: integer;
  966. begin
  967.    if (FBitmap <> nil) then
  968.    begin
  969.       if (FType = ltDigit) then
  970.          DigitWidth  := FBitmap.Width div RC_NumDigits
  971.       else
  972.          DigitWidth  := FBitmap.Width div RC_NumSeparators;
  974.       inherited SetBounds(aLeft, aTop, DigitWidth, FBitmap.Height);
  975.    end
  976.    else inherited SetBounds(aLeft, aTop, aWidth, aHeight);
  977. end;
  979. {$IFDEF BUILD_ACTIVEX}
  980. {-- TMMLEDDigit ----------------------------------------------------------}
  981. procedure TMMLEDDigit.WMSize(var Message: TWMSize);
  982. begin
  983.    inherited;
  985.    SetBounds(Left,Top,Width,Height);
  986. end;
  987. {$ENDIF}
  989. {-- TMMLEDDigit ----------------------------------------------------------}
  990. procedure TMMLEDDigit.LoadNewResource;
  991. begin
  992.    if (csLoading in ComponentState) or
  993.       (csReading in ComponentState) or
  994.       (csCreating in ControlState)  or
  995.       (DigitCache = nil) then exit;
  997.    DigitCache.RemoveBitmap(FBitmap);
  998.    FBitmap := DigitCache.LoadBitmap(FType, FSize, FDrawInactive,
  999.                                     FLEDColor, FInactiveColor, Color);
  1001.    { only a dummy call to change to the new Digit size }
  1002.    if (FBitmap <> nil) then
  1003.        SetBounds(Left, Top, FBitmap.Width, FBitmap.Height);
  1005.    Invalidate;
  1006. end;
  1008. {-- TMMLEDDigit ----------------------------------------------------------}
  1009. procedure TMMLEDDigit.SetSize(aValue: TMMLEDSize);
  1010. begin
  1011.    if (FSize <> aValue) then
  1012.    begin
  1013.       FSize := aValue;
  1014.       LoadNewResource;
  1015.    end;
  1016.    {$IFDEF WIN32}
  1017.    {$IFDEF TRIAL}
  1018.    {$DEFINE _HACK1}
  1019.    {$I MMHACK.INC}
  1020.    {$ENDIF}
  1021.    {$ENDIF}
  1022. end;
  1024. {-- TMMLEDDigit ----------------------------------------------------------}
  1025. procedure TMMLedDigit.SetType(aType: TMMLEDType);
  1026. begin
  1027.    if (aType <> FType) then
  1028.    begin
  1029.       FType := aType;
  1030.       LoadNewResource;
  1031.    end;
  1032. end;
  1034. {-- TMMLEDDigit ----------------------------------------------------------}
  1035. procedure TMMLedDigit.SetDrawInactive(aValue: Boolean);
  1036. begin
  1037.    if (FDrawInactive <> aValue) then
  1038.    begin
  1039.       FDrawInactive := aValue;
  1040.       LoadNewResource;
  1041.    end;
  1042. end;
  1044. {-- TMMLEDDigit ----------------------------------------------------------}
  1045. procedure TMMLEDDigit.SetZeroBlank(aValue: Boolean);
  1046. begin
  1047.    if (FZeroBlank <> aValue) then
  1048.    begin
  1049.       FZeroBlank := aValue;
  1050.       Invalidate;
  1051.    end;
  1052.    {$IFDEF WIN32}
  1053.    {$IFDEF TRIAL}
  1054.    {$DEFINE _HACK2}
  1055.    {$I MMHACK.INC}
  1056.    {$ENDIF}
  1057.    {$ENDIF}
  1058. end;
  1060. {-- TMMLEDDigit ----------------------------------------------------------}
  1061. procedure TMMLEDDigit.CMColorChanged(var Message: TMessage);
  1062. begin
  1063.    LoadNewResource;
  1064. end;
  1066. {-- TMMLEDDigit ----------------------------------------------------------}
  1067. procedure TMMLedDigit.SetLEDColor(aColor: TColor);
  1068. begin
  1069.    if (aColor <> FLEDColor) then
  1070.    begin
  1071.       FLEDColor := aColor;
  1072.       LoadNewResource;
  1073.    end;
  1074.    {$IFDEF WIN32}
  1075.    {$IFDEF TRIAL}
  1076.    {$DEFINE _HACK3}
  1077.    {$I MMHACK.INC}
  1078.    {$ENDIF}
  1079.    {$ENDIF}
  1080. end;
  1082. {-- TMMLEDDigit ----------------------------------------------------------}
  1083. procedure TMMLedDigit.SetInactiveColor(aColor: TColor);
  1084. begin
  1085.    if (aColor <> FInactiveColor) then
  1086.    begin
  1087.       FInactiveColor := aColor;
  1088.       LoadNewResource;
  1089.    end;
  1090. end;
  1092. {-- TMMLEDDigit ----------------------------------------------------------}
  1093. procedure TMMLedDigit.SetCascade(aValue: Boolean);
  1094. begin
  1095.    if (aValue <> FCascade) then FCascade := aValue;
  1096. end;
  1098. {-- TMMLEDDigit ----------------------------------------------------------}
  1099. procedure TMMLedDigit.SetMinValue(aValue: integer);
  1100. begin
  1101.    if (aValue <> FMinValue) AND (aValue >= 0) AND (aValue < 10) then
  1102.    begin
  1103.       FMinValue := aValue;
  1104.       if (FValue < FMinValue) then FValue := FMinValue;
  1105.       Invalidate;
  1106.    end;
  1107. end;
  1109. {-- TMMLEDDigit ----------------------------------------------------------}
  1110. procedure TMMLedDigit.SetMaxValue(aValue: integer);
  1111. begin
  1112.    if (aValue <> FMaxValue) AND (aValue >= 0) AND (aValue < 10) then
  1113.    begin
  1114.       FMaxValue := aValue;
  1115.       if (FValue > FMaxValue) then FValue := FMaxValue;
  1116.       Invalidate;
  1117.    end;
  1118. end;
  1120. {-- TMMLEDDigit ----------------------------------------------------------}
  1121. procedure TMMLedDigit.SetValue(aValue: Longint);
  1122. begin
  1123.    if FCascade AND assigned(FConnect) then
  1124.       TMMLEDDigit(FConnect).Value := aValue div 10;
  1126.    aValue := aValue mod 10;
  1127.    if (aValue <> FValue) AND (aValue >= FMinValue) AND (aValue <= FMaxValue) then
  1128.    begin
  1129.       FValue := aValue;
  1130.       Refresh;
  1131.    end;
  1132. end;
  1134. {-- TMMLEDDigit ----------------------------------------------------------}
  1135. procedure TMMLedDigit.Increase;
  1136. begin
  1137.    if (FValue = FMaxValue) then
  1138.    begin
  1139.       FValue := FMinValue;
  1140.       if assigned(FConnect) then TMMLEDDigit(FConnect).Increase;
  1141.       RollForward;
  1142.    end
  1143.    else inc(FValue);
  1144.    Invalidate;
  1145. end;
  1147. {-- TMMLEDDigit ----------------------------------------------------------}
  1148. procedure TMMLedDigit.Decrease;
  1149. begin
  1150.    if (FValue = FMinValue) then
  1151.    begin
  1152.       FValue := FMaxValue;
  1153.       if assigned(FConnect) then TMMLEDDigit(FConnect).Decrease;
  1154.       RollBackward;
  1155.    end
  1156.    else dec(FValue);
  1157.    Invalidate;
  1158. end;
  1160. {-- TMMLEDDigit ----------------------------------------------------------}
  1161. procedure TMMLEDDigit.SetEnabled(aValue: Boolean);
  1162. begin
  1163.    {inherited Enabled := aValue;}
  1164.    if (aValue <> FEnabled) then
  1165.    begin
  1166.       FEnabled := aValue;        { !!!!!!!! ev. wieder zu inherited 鋘dern }
  1167.       Invalidate;
  1168.    end;
  1169. end;
  1171. {-0- TMMLEDDigit ----------------------------------------------------------}
  1172. function  TMMLEDDigit.GetEnabled: Boolean;
  1173. begin
  1174.    {Result := inherited Enabled;}
  1175.    Result := FEnabled;        { !!!!!!!! ev. wieder zu inherited 鋘dern }
  1176. end;
  1178. {-- TMMLEDDigit ----------------------------------------------------------}
  1179. procedure TMMLEDDigit.SetConnect(aControl: TMMCustomLEDDigit);
  1180. begin
  1181.    if (aControl <> Self) and (FConnect <> aControl) then
  1182.    begin
  1183.       FConnect := aControl;
  1184.    end;
  1185. end;
  1187. {-- TMMLEDDigit ----------------------------------------------------------}
  1188. procedure TMMLedDigit.Loaded;
  1189. begin
  1190.    inherited Loaded;
  1192.    LoadNewResource;
  1193. end;
  1194.  
  1195. {-- TMMLEDDigit ----------------------------------------------------------}
  1196. procedure TMMLedDigit.Paint;
  1197. Var
  1198.    MemDC: HDC;
  1199.    oldBitmap: HBitmap;
  1200.    BitmapOfs: integer;
  1201.    Blank: Boolean;
  1203. begin
  1204.    if (FBitmap = nil) then exit;
  1206.    if FZeroBlank AND (FValue = 0) then Blank := True
  1207.    else Blank := False;
  1209.    if (FType = ltDigit) then
  1210.        BitmapOfs := Width * ((Ord(FValue)+1) * Ord(Enabled)) * Ord(NOT Blank)
  1211.    else
  1212.        BitmapOfs := Width * (Ord(FType) * Ord(Enabled));
  1214.    MemDC := CreateCompatibleDC(0);
  1215.    oldBitmap := SelectObject(MemDC, FBitmap.Handle);
  1216.    BitBlt(Canvas.Handle,
  1217.           0, 0, Width, Height,
  1218.           MemDC,
  1219.           BitmapOfs, 0,
  1220.           SRCCOPY);
  1221.    SelectObject(MemDC, oldBitmap);
  1222.    DeleteDC(MemDC);
  1223. end;
  1225. {== TMMLEDPanel ==========================================================}
  1226. constructor TMMLedPanel.Create (aOwner: TComponent);
  1227. begin
  1228.      inherited Create (aOwner);
  1230.      ControlStyle := ControlStyle - [csAcceptsControls,csSetCaption];
  1232.      Color := clBlack;
  1233.      FValue := 0;
  1234.      FMinValue := 0;
  1235.      FMaxValue := 100;
  1236.      FInactiveColor := clGreen;
  1237.      FLEDColor := clLime;
  1238.      FDrawInactive := True;
  1239.      FZeroBlank := False;
  1240.      FSize := ls13x21;
  1241.      FLEDSpace := 1;
  1242.      NumDigits := 2;
  1244.      ErrorCode := ComponentRegistered(InitCode, Self, ClassName);
  1245.      if (ErrorCode <> 0) then RegisterFailed(InitCode, Self , ClassName);
  1246. end;
  1248. {-- TMMLEDPanel ----------------------------------------------------------}
  1249. destructor TMMLedPanel.Destroy;
  1250. begin
  1251.      DestroyAllDigits;
  1252.      inherited Destroy;
  1253. end;
  1255. {-- TMMLEDPanel ----------------------------------------------------------}
  1256. {$IFDEF WIN32}
  1257. {$IFDEF DELPHI3}
  1258. procedure TMMLedPanel.GetChildren(Proc: TGetChildProc; Root: TComponent);
  1259. {$ELSE}
  1260. procedure TMMLedPanel.GetChildren(Proc: TGetChildProc);
  1261. {$ENDIF}
  1262. begin
  1263. end;
  1264. {$ENDIF}
  1266. {-- TMMLEDPanel ----------------------------------------------------------}
  1267. procedure TMMLEDPanel.CMColorChanged(var Message: TMessage);
  1268. {$IFDEF BUILD_ACTIVEX}
  1269. var
  1270.    i: integer;
  1271. {$ENDIF}
  1272. begin
  1273.    inherited;
  1275.    {$IFDEF BUILD_ACTIVEX}
  1276.    for i := 0 to FNumDigits-1 do FDigits[i].Color := Color;
  1277.    {$ENDIF}
  1278. end;
  1280. {-- TMMLEDPanel ----------------------------------------------------------}
  1281. procedure TMMLedPanel.Change;
  1282. begin
  1283.    if (csLoading in ComponentState) or
  1284.       (csReading in ComponentState) then exit;
  1286.    if assigned(FOnChange) then FOnChange(Self);
  1287. end;
  1289. {-- TMMLEDPanel ----------------------------------------------------------}
  1290. function TMMLedPanel.CreateDigit: TMMLedDigit;
  1291. begin
  1292.      Result := TMMLedDigit.Create(Self);
  1293.      Result.Parent := Self;
  1294.      Result.CascadeValues := True;
  1295.      Result.Enabled := Enabled;
  1296.      Result.DigitSize := FSize;
  1297.      {$IFDEF BUILD_ACTIVEX}
  1298.      Result.Color := Color;
  1299.      {$ENDIF}
  1300.      Result.InactiveColor := FInactiveColor;
  1301.      Result.LEDColor := FLEDColor;
  1302.      Result.DrawInactive := FDrawInactive;
  1303.      Result.ParentShowHint := False;
  1304.      Result.OnClick := BtnClick;
  1305.      Result.OnDblClick := BtnDblClick;
  1306.      Result.OnMouseDown := MsDown;
  1307.      Result.OnMouseMove := MsMove;
  1308.      Result.OnMouseUp := MsUp;
  1309. end;
  1311. {-- TMMLEDPanel ----------------------------------------------------------}
  1312. procedure TMMLedPanel.CreateAllDigits;
  1313. Var
  1314.    i: integer;
  1316. begin
  1317.      for i := 0 to FNumDigits-1 do
  1318.      begin
  1319.           FDigits[i] := CreateDigit;
  1320.           if i > 0 then FDigits[i-1].Connect := FDigits[i];
  1321.      end;
  1322.      FDigits[0].ZeroBlank := False;
  1323.      FDigits[0].Value := FValue;
  1324.      SetZeroBlank(FZeroBlank);
  1325. end;
  1327. {-- TMMLEDPanel ----------------------------------------------------------}
  1328. procedure TMMLedPanel.DestroyAllDigits;
  1329. Var
  1330.    i: integer;
  1332. begin
  1333.      for i := 0 to FNumDigits-1 do
  1334.      begin
  1335.           FDigits[i].Free;
  1336.           FDigits[i] := Nil;
  1337.      end;
  1338. end;
  1340. {-- TMMLEDPanel ----------------------------------------------------------}
  1341. procedure TMMLedPanel.BtnClick(Sender: TObject);
  1342. begin
  1343.      Click;
  1344. end;
  1346. {-- TMMLEDPanel ----------------------------------------------------------}
  1347. procedure TMMLedPanel.BtnDblClick(Sender: TObject);
  1348. begin
  1349.      DblClick;
  1350. end;
  1352. {-- TMMLEDPanel ----------------------------------------------------------}
  1353. procedure TMMLedPanel.MsDown(Sender: TObject; Button: TMouseButton;
  1354.                              Shift: TShiftState; X, Y: Integer);
  1355. begin
  1356.      MouseDown(Button, Shift, X, Y);
  1357. end;
  1359. {-- TMMLEDPanel ----------------------------------------------------------}
  1360. procedure TMMLedPanel.MsUp(Sender: TObject; Button: TMouseButton;
  1361.                            Shift: TShiftState; X, Y: Integer);
  1362. begin
  1363.      MouseUp(Button, Shift, X, Y);
  1364. end;
  1366. {-- TMMLEDPanel ----------------------------------------------------------}
  1367. procedure TMMLedPanel.MsMove(Sender: TObject; Shift: TShiftState;
  1368.                              X, Y: Integer);
  1369. begin
  1370.      MouseMove(Shift, X, Y);
  1371. end;
  1373. {-- TMMLEDPanel ----------------------------------------------------------}
  1374. procedure TMMLedPanel.SetBounds(aLeft, aTop, aWidth, aHeight: Integer);
  1375. var
  1376.   W, H: Integer;
  1378. begin
  1379.      W := aWidth;
  1380.      H := aHeight;
  1381.      AdjustSize (W, H);
  1382.      inherited SetBounds (aLeft, aTop, W, H);
  1383. end;
  1385. {-- TMMLEDPanel ----------------------------------------------------------}
  1386. procedure TMMLedPanel.AdjustSize (Var W, H: Integer);
  1387. Var
  1388.    i: integer;
  1389.    aLeft: integer;
  1391. begin
  1392.      if (FDigits[0] = Nil) or (csLoading in ComponentState) or
  1393.         (csReading in ComponentState) then exit;
  1395.      W := (((FDigits[0].Width + FLEDSpace) * FNumDigits) + 2 * BevelExtend) - FLEDSpace;
  1396.      H := FDigits[0].Height + 2 * BevelExtend;
  1397.      aLeft := BevelExtend;
  1398.      for i := FNumDigits-1 downTo 0 do
  1399.      begin
  1400.           FDigits[i].SetBounds (aLeft,BevelExtend, FDigits[0].Width, FDigits[0].Height);
  1401.           inc(aLeft, FDigits[0].Width + FLEDSpace);
  1402.      end;
  1403. end;
  1405. {-- TMMLEDPanel ----------------------------------------------------------}
  1406. procedure TMMLedPanel.AdjustBounds;
  1407. var
  1408.   W, H: Integer;
  1410. begin
  1411.      W := Width;
  1412.      H := Height;
  1413.      AdjustSize (W, H);
  1414.      if (W <> Width) or (H <> Height) then
  1415.         inherited SetBounds(Left, Top, W, H)
  1416.      else Invalidate;
  1417. end;
  1419. {-- TMMLEDPanel ----------------------------------------------------------}
  1420. procedure TMMLedPanel.WMSize(var Message: TWMSize);
  1421. begin
  1422.      inherited;
  1423.      AdjustBounds;
  1424.      Message.Result := 0;
  1425. end;
  1427. {-- TMMLEDPanel ----------------------------------------------------------}
  1428. procedure TMMLEDPanel.Changed;
  1429. begin
  1430.      AdjustBounds;
  1431. end;
  1433. {-- TMMLEDPanel ----------------------------------------------------------}
  1434. procedure TMMLedPanel.SetNumDigits(aValue: integer);
  1435. begin
  1436.      if (aValue <> FNumDigits) AND (aValue > 0) AND (aValue < 10) then
  1437.      begin
  1438.         DestroyAllDigits;
  1439.         FNumDigits := aValue;
  1440.         CreateAllDigits;
  1441.         AdjustBounds;
  1442.      end;
  1443. end;
  1445. {-- TMMLEDPanel ----------------------------------------------------------}
  1446. procedure TMMLedPanel.SetLEDSpace(aValue: integer);
  1447. begin
  1448.      if (aValue <> FLEDSpace) AND (aValue > 0) then
  1449.      begin
  1450.           FLEDSpace := aValue;
  1451.           AdjustBounds;
  1452.      end;
  1453. end;
  1455. {-- TMMLEDPanel ----------------------------------------------------------}
  1456. procedure TMMLedPanel.SetLEDColor(aValue: TColor);
  1457. Var
  1458.    i: integer;
  1460. begin
  1461.      if (aValue <> FLEDColor) then
  1462.      begin
  1463.           FLEDColor := aValue;
  1464.           for i := 0 to FNumDigits-1 do
  1465.               FDigits[i].LEDColor := FLEDColor;
  1466.      end;
  1467. end;
  1469. {-- TMMLEDPanel ----------------------------------------------------------}
  1470. procedure TMMLedPanel.SetInactiveColor(aValue: TColor);
  1471. Var
  1472.    i: integer;
  1474. begin
  1475.      if (aValue <> FInactiveColor) then
  1476.      begin
  1477.           FInactiveColor := aValue;
  1478.           for i := 0 to FNumDigits-1 do
  1479.               FDigits[i].InactiveColor := FInactiveColor;
  1480.      end;
  1481. end;
  1483. {-- TMMLEDPanel ----------------------------------------------------------}
  1484. procedure TMMLedPanel.SetDrawInactive(aValue: Boolean);
  1485. Var
  1486.    i: integer;
  1488. begin
  1489.      if (FDrawInactive <> aValue) then
  1490.      begin
  1491.           FDrawInactive := aValue;
  1492.           for i := 0 to FNumDigits-1 do
  1493.               FDigits[i].DrawInactive := FDrawInactive;
  1494.      end;
  1495. end;
  1497. {-- TMMLEDPanel ----------------------------------------------------------}
  1498. procedure TMMLedPanel.SetEnabled(aValue: Boolean);
  1499. Var
  1500.    i: integer;
  1502. begin
  1503.      if (aValue <> inherited Enabled) then
  1504.      begin
  1505.           inherited Enabled := aValue;
  1506.           for i := 0 to FNumDigits-1 do
  1507.               FDigits[i].Enabled := Enabled;
  1508.      end;
  1509. end;
  1511. {-- TMMLEDPanel ----------------------------------------------------------}
  1512. function TMMLEDPanel.GetEnabled: Boolean;
  1513. begin
  1514.      Result := inherited Enabled;
  1515. end;
  1517. {-- TMMLEDPanel ----------------------------------------------------------}
  1518. procedure TMMLedPanel.SetZeroBlank(aValue: Boolean);
  1519. Var
  1520.    i: Longint;
  1521.    j: integer;
  1523. begin
  1524.    FZeroBlank := aValue;
  1525.    if FZeroBlank then
  1526.    begin
  1527.       i := 10;
  1528.       j := 1;
  1529.       while (i < abs(FValue)) AND (j < FNumDigits-1) do
  1530.       begin
  1531.          FDigits[j].ZeroBlank := False;
  1532.          inc(j);
  1533.          i := i * 10;
  1534.       end;
  1535.       for j := j to FNumDigits-1 do FDigits[j].ZeroBlank := True;
  1536.    end
  1537.    else for i := 1 to FNumDigits-1 do FDigits[i].ZeroBlank := False;
  1538. end;
  1540. {-- TMMLEDPanel ----------------------------------------------------------}
  1541. procedure TMMLEDPanel.SetSize(aValue: TMMLEDSize);
  1542. Var
  1543.    i: integer;
  1544. begin
  1545.      if (FSize <> aValue) then
  1546.      begin
  1547.           FSize := aValue;
  1548.           for i := 0 to FNumDigits-1 do
  1549.               FDigits[i].DigitSize := FSize;
  1550.           AdjustBounds;
  1551.      end;
  1552. end;
  1554. {-- TMMLEDPanel ----------------------------------------------------------}
  1555. procedure TMMLedPanel.SetValue(aValue: Longint);
  1556. begin
  1557.      aValue := MinMax(aValue, FMinValue, FMaxValue);
  1558.      if (aValue <> FValue) then
  1559.      begin
  1560.           FValue := aValue;
  1562.           SetZeroBlank(FZeroBlank);
  1564.           FDigits[0].Value := abs(FValue);
  1565.           if (FValue < 0) then FDigits[FNumDigits-1].DisplayType := ltMinus
  1566.           else FDigits[FNumDigits-1].DisplayType := ltDigit;
  1567.           Change;
  1568.      end;
  1569. end;
  1571. {-- TMMLEDPanel ----------------------------------------------------------}
  1572. procedure TMMLedPanel.SetMinValue(aValue: Longint);
  1573. begin
  1574.      if (aValue <> FMinValue) then
  1575.      begin
  1576.           FMinValue := aValue;
  1577.           if (FValue < FMinValue) then Value := FMinValue;
  1578.           Invalidate;
  1579.      end;
  1580. end;
  1582. {-- TMMLEDPanel ----------------------------------------------------------}
  1583. procedure TMMLedPanel.SetMaxValue(aValue: Longint);
  1584. begin
  1585.      if (aValue <> FMaxValue) then
  1586.      begin
  1587.           FMaxValue := aValue;
  1588.           if (FValue > FMaxValue) then Value := FMaxValue;
  1589.           Invalidate;
  1590.      end;
  1591. end;
  1593. {-- TMMLEDPanel ----------------------------------------------------------}
  1594. procedure TMMLedPanel.Loaded;
  1595. begin
  1596.      inherited Loaded;
  1598.      AdjustBounds;
  1599. end;
  1601. {== TMMLEDSpin ===========================================================}
  1602. constructor TMMLEDSpin.Create(AOwner: TComponent);
  1603. begin
  1604.      inherited Create(AOwner);
  1606.      ControlStyle := ControlStyle - [csSetCaption];
  1608.      FButton := TMMSpinButton.Create(Self);
  1610.      FLEDPanel := TMMLEDPanel.Create(Self);
  1611.      FLEDPanel.Parent := Self;
  1612.      FLEDPanel.TabStop := False;
  1613.      FLEDPanel.OnClick := BtnClick;
  1614.      FLEDPanel.OnDblClick := BtnDblClick;
  1615.      FLEDPanel.OnMouseDown := MsDown;
  1616.      FLEDPanel.OnMouseMove := MsMove;
  1617.      FLEDPanel.OnMouseUp := MsUp;
  1618.      FLEDPanel.OnChange := ChildChange;
  1619.      FLEDPanel.Color := clBlack;
  1620.      FLEDPanel.ParentShowHint := False;
  1622.      FButton.Parent := Self;
  1623.      FButton.FocusControl := Self;
  1624.      FButton.Bevel.OnChange := GetChanged;
  1626.      FButton.TabOrder := 0;
  1627.      FButton.OnUpClick := UpClick;
  1628.      FButton.OnDownClick := DownClick;
  1629.      FButton.OnChange := ChildChange;
  1630.      FButton.ParentShowHint := False;
  1633.      ParentColor := True;
  1634.      TabStop := True;
  1635.      FSpace := 2;
  1636.      FLEDPanel.OnResize := GetChanged;
  1637.      AdjustBounds;
  1639.      ErrorCode := ComponentRegistered(InitCode, Self, ClassName);
  1640.      if (ErrorCode <> 0) then RegisterFailed(InitCode, Self , ClassName);
  1641. end;
  1643. {-- TMMLEDSpin -----------------------------------------------------------}
  1644. destructor TMMLEDSpin.Destroy;
  1645. begin
  1646.      FLEDPanel.OnResize := Nil;
  1647.      FLEDPanel.Free;
  1648.      FButton.Free;
  1649.      inherited Destroy;
  1650. end;
  1652. {-- TMMLEDSpin -----------------------------------------------------------}
  1653. {$IFDEF WIN32}
  1654. {$IFDEF DELPHI3}
  1655. procedure TMMLEDSpin.GetChildren(Proc: TGetChildProc; Root: TComponent);
  1656. {$ELSE}
  1657. procedure TMMLEDSpin.GetChildren(Proc: TGetChildProc);
  1658. {$ENDIF}
  1659. begin
  1660. end;
  1661. {$ENDIF}
  1663. {-- TMMLEDSpin -----------------------------------------------------------}
  1664. procedure TMMLEDSpin.WMSetFocus(var Message: TWMSetFocus);
  1665. begin
  1666.      if TabStop AND FButton.CanFocus AND (GetFocus <> FButton.Handle) then
  1667.         FButton.SetFocus;
  1668.      Message.Result := 0;
  1669. end;
  1671. {-- TMMLEDSpin -----------------------------------------------------------}
  1672. procedure TMMLEDSpin.Click;
  1673. begin
  1674.      if TabStop AND FButton.CanFocus AND (GetFocus <> FButton.Handle) then
  1675.         FButton.SetFocus;
  1676.      inherited Click;
  1677. end;
  1679. {-- TMMLEDSpin -----------------------------------------------------------}
  1680. procedure TMMLEDSpin.BtnClick(Sender: TObject);
  1681. begin
  1682.      Click;
  1683. end;
  1685. {-- TMMLEDSpin -----------------------------------------------------------}
  1686. procedure TMMLEDSpin.BtnDblClick(Sender: TObject);
  1687. begin
  1688.      DblClick;
  1689. end;
  1691. {-- TMMLEDSpin -----------------------------------------------------------}
  1692. procedure TMMLEDSpin.MsDown(Sender: TObject; Button: TMouseButton;
  1693.                             Shift: TShiftState; X, Y: Integer);
  1694. begin
  1695.      MouseDown(Button, Shift, X, Y);
  1696. end;
  1698. {-- TMMLEDSpin -----------------------------------------------------------}
  1699. procedure TMMLEDSpin.MsUp(Sender: TObject; Button: TMouseButton;
  1700.                           Shift: TShiftState; X, Y: Integer);
  1701. begin
  1702.      MouseUp(Button, Shift, X, Y);
  1703. end;
  1705. {-- TMMLEDSpin -----------------------------------------------------------}
  1706. procedure TMMLEDSpin.MsMove(Sender: TObject; Shift: TShiftState;
  1707.                             X, Y: Integer);
  1708. begin
  1709.      MouseMove(Shift, X, Y);
  1710. end;
  1712. {-- TMMLEDSpin -----------------------------------------------------------}
  1713. procedure TMMLEDSpin.SetTabStop(aValue: Boolean);
  1714. begin
  1715.      inherited TabStop := aValue;
  1716.      FButton.TabStop := aValue;
  1717. end;
  1719. {-- TMMLEDSpin -----------------------------------------------------------}
  1720. function TMMLEDSpin.GetTabStop: Boolean;
  1721. begin
  1722.      Result := inherited TabStop;
  1723. end;
  1725. {-- TMMLEDSpin -----------------------------------------------------------}
  1726. procedure TMMLEDSpin.AdjustSize (var W, H: integer);
  1727. begin
  1728.      FButton.Height := 1;       { reset the SpinButton size standard }
  1729.      FButton.Width  := 1;
  1731.      W := FLEDPanel.Width + FButton.Width + FSpace;
  1732.      H := Max(FButton.Height,FLEDPanel.Height);
  1733.      FButton.SetBounds(W-FButton.Width,0,FButton.Width,H);
  1734.      FLEDPanel.SetBounds(0,H-FLEDPanel.Height,FLEDPanel.Width,FLEDPanel.Height);
  1735. end;
  1737. {-- TMMLEDSpin -----------------------------------------------------------}
  1738. procedure TMMLEDSpin.AdjustBounds;
  1739. var
  1740.   W, H: Integer;
  1742. begin
  1743.      W := Width;
  1744.      H := Height;
  1745.      AdjustSize (W, H);
  1746.      if (W <> Width) or (H <> Height) then
  1747.         inherited SetBounds(Left, Top, W, H)
  1748.      else Invalidate;
  1749. end;
  1751. {-- TMMLEDSpin -----------------------------------------------------------}
  1752. procedure TMMLEDSpin.WMSize(var Message: TWMSize);
  1753. begin
  1754.      inherited;
  1755.      AdjustBounds;
  1756.      Message.Result := 0;
  1757. end;
  1759. {-- TMMLEDSpin -----------------------------------------------------------}
  1760. procedure TMMLedSpin.SetBounds(aLeft, aTop, aWidth, aHeight: Integer);
  1761. var
  1762.   W, H: Integer;
  1764. begin
  1765.      W := aWidth;
  1766.      H := aHeight;
  1767.      AdjustSize (W, H);
  1768.      inherited SetBounds (aLeft, aTop, W, H);
  1769. end;
  1771. {-- TMMLEDSpin -----------------------------------------------------------}
  1772. procedure TMMLEDSpin.GetChanged;
  1773. begin
  1774.      AdjustBounds;
  1775. end;
  1777. {-- TMMLEDSpin -----------------------------------------------------------}
  1778. procedure TMMLEDSpin.UpClick(Sender: TObject);
  1779. begin
  1780.      if Assigned(FOnUpClick) then FOnUpClick(Self);
  1781. end;
  1783. {-- TMMLEDSpin -----------------------------------------------------------}
  1784. procedure TMMLEDSpin.DownClick(Sender: TObject);
  1785. begin
  1786.      if Assigned(FOnDownClick) then FOnDownClick(Self);
  1787. end;
  1789. {-- TMMLEDSpin -----------------------------------------------------------}
  1790. procedure TMMLEDSpin.ChildChange(Sender: TObject);
  1791. begin
  1792.    if (csLoading in ComponentState) or
  1793.       (csReading in ComponentState) then exit;
  1795.    if Sender = FButton then
  1796.       Value := FButton.Value;
  1797. end;
  1799. {-- TMMLEDSpin -----------------------------------------------------------}
  1800. procedure TMMLEDSpin.Change;
  1801. begin
  1802.    if (csLoading in ComponentState) or
  1803.       (csReading in ComponentState) then exit;
  1805.    if assigned(FOnChange) then FOnChange(Self);
  1806. end;
  1808. {-- TMMLEDSpin -----------------------------------------------------------}
  1809. procedure TMMLEDSpin.SetSpace(aValue: integer);
  1810. begin
  1811.      if (aValue <> FSpace) then
  1812.      begin
  1813.           FSpace := aValue;
  1814.           AdjustBounds;
  1815.      end;
  1816. end;
  1818. {-- TMMLEDSpin -----------------------------------------------------------}
  1819. procedure TMMLEDSpin.SetLEDBevel(aBevel: TMMBevel);
  1820. begin
  1821.      FLEDPanel.Bevel := aBevel;
  1822. end;
  1824. {-- TMMLEDSpin -----------------------------------------------------------}
  1825. function TMMLEDSpin.GetLEDBevel: TMMBevel;
  1826. begin
  1827.      Result := FLEDPanel.Bevel;
  1828. end;
  1830. {-- TMMLEDSpin -----------------------------------------------------------}
  1831. procedure TMMLEDSpin.SetNumDigits(aValue: integer);
  1832. begin
  1833.      FLEDPanel.NumDigits := aValue;
  1834. end;
  1836. {-- TMMLEDSpin -----------------------------------------------------------}
  1837. function  TMMLEDSpin.GetNumDigits: integer;
  1838. begin
  1839.      Result := FLEDPanel.NumDigits;
  1840. end;
  1842. {-- TMMLEDSpin -----------------------------------------------------------}
  1843. procedure TMMLEDSpin.SetLEDSpace(aValue: integer);
  1844. begin
  1845.      FLEDPanel.LEDSpace := aValue;
  1846. end;
  1848. {-- TMMLEDSpin -----------------------------------------------------------}
  1849. function  TMMLEDSpin.GetLEDSpace: integer;
  1850. begin
  1851.      Result := FLEDPanel.LEDSpace;
  1852. end;
  1854. {-- TMMLEDSpin -----------------------------------------------------------}
  1855. procedure TMMLedSpin.SetColor(aValue: TColor);
  1856. begin
  1857.      FLEDPanel.Color := aValue;
  1858. end;
  1860. {-- TMMLEDSpin -----------------------------------------------------------}
  1861. function TMMLEDSpin.GetColor: TColor;
  1862. begin
  1863.      Result := FLEDPanel.Color;
  1864. end;
  1866. {-- TMMLEDSpin -----------------------------------------------------------}
  1867. procedure TMMLEDSpin.SetLEDColor(aValue: TColor);
  1868. begin
  1869.      FLEDPanel.LEDColor := aValue;
  1870. end;
  1872. {-- TMMLEDSpin -----------------------------------------------------------}
  1873. function  TMMLEDSpin.GetLEDColor: TColor;
  1874. begin
  1875.      Result := FLEDPanel.LEDColor;
  1876. end;
  1878. {-- TMMLEDSpin -----------------------------------------------------------}
  1879. procedure TMMLEDSpin.SetInactiveColor(aValue: TColor);
  1880. begin
  1881.      FLEDPanel.InactiveColor := aValue;
  1882. end;
  1884. {-- TMMLEDSpin -----------------------------------------------------------}
  1885. function  TMMLEDSpin.GetInactiveColor: TColor;
  1886. begin
  1887.      Result := FLEDPanel.InactiveColor;
  1888. end;
  1890. {-- TMMLEDSpin -----------------------------------------------------------}
  1891. procedure TMMLEDSpin.SetDrawInactive(aValue: Boolean);
  1892. begin
  1893.      FLEDPanel.DrawInactive := aValue;
  1894. end;
  1896. {-- TMMLEDSpin -----------------------------------------------------------}
  1897. function  TMMLEDSpin.GetDrawInactive: Boolean;
  1898. begin
  1899.      Result := FLEDPanel.DrawInactive;
  1900. end;
  1902. {-- TMMLEDSpin -----------------------------------------------------------}
  1903. procedure TMMLEDSpin.SetEnabled(aValue: Boolean);
  1904. begin
  1905.      inherited Enabled := aValue;
  1906.      FButton.Enabled := aValue;
  1907.      FLEDPanel.Enabled := aValue;
  1908. end;
  1910. {-- TMMLEDSpin -----------------------------------------------------------}
  1911. function  TMMLEDSpin.GetEnabled: Boolean;
  1912. begin
  1913.      Result := inherited Enabled;
  1914. end;
  1916. {-- TMMLEDSpin -----------------------------------------------------------}
  1917. procedure TMMLEDSpin.SetSize(aValue: TMMLEDSize);
  1918. begin
  1919.      FLEDPanel.DigitSize := aValue;
  1920. end;
  1922. {-- TMMLEDSpin -----------------------------------------------------------}
  1923. function  TMMLEDSpin.GetSize: TMMLEDSize;
  1924. begin
  1925.      Result := FLEDPanel.DigitSize;
  1926. end;
  1928. {-- TMMLEDSpin -----------------------------------------------------------}
  1929. procedure TMMLEDSpin.SetZeroBlank(aValue: Boolean);
  1930. begin
  1931.      FLEDPanel.ZeroBlank := aValue;
  1932. end;
  1934. {-- TMMLEDSpin -----------------------------------------------------------}
  1935. function  TMMLEDSpin.GetZeroBlank: Boolean;
  1936. begin
  1937.      Result := FLEDPanel.ZeroBlank;
  1938. end;
  1940. {-- TMMLEDSpin -----------------------------------------------------------}
  1941. procedure TMMLEDSpin.SetIncrement(aValue: Longint);
  1942. begin
  1943.      FButton.Increment := aValue;
  1944. end;
  1946. {-- TMMLEDSpin -----------------------------------------------------------}
  1947. function TMMLEDSpin.GetIncrement: Longint;
  1948. begin
  1949.      Result := FButton.Increment;
  1950. end;
  1952. {-- TMMLEDSpin -----------------------------------------------------------}
  1953. procedure TMMLEDSpin.SetUpGlyph(Value: TBitmap);
  1954. begin
  1955.      FButton.UpGlyph := Value;
  1956. end;
  1958. {-- TMMLEDSpin -----------------------------------------------------------}
  1959. function TMMLEDSpin.GetUpGlyph: TBitmap;
  1960. begin
  1961.      Result := FButton.UpGlyph;
  1962. end;
  1964. {-- TMMLEDSpin -----------------------------------------------------------}
  1965. procedure TMMLEDSpin.SetDownGlyph(Value: TBitmap);
  1966. begin
  1967.      FButton.DownGlyph := Value;
  1968. end;
  1970. {-- TMMLEDSpin -----------------------------------------------------------}
  1971. function TMMLEDSpin.GetDownGlyph: TBitmap;
  1972. begin
  1973.      Result := FButton.DownGlyph;
  1974. end;
  1976. {-- TMMLEDSpin -----------------------------------------------------------}
  1977. procedure TMMLEDSpin.SetDownNumGlyphs(Value: TNumGlyphs);
  1978. begin
  1979.      FButton.DownNumGlyphs := Value;
  1980. end;
  1982. {-- TMMLEDSpin -----------------------------------------------------------}
  1983. function TMMLEDSpin.GetDownNumGlyphs: TNumGlyphs;
  1984. begin
  1985.      Result := FButton.DownNumGlyphs;
  1986. end;
  1988. {-- TMMLEDSpin -----------------------------------------------------------}
  1989. procedure TMMLEDSpin.SetUpNumGlyphs(Value: TNumGlyphs);
  1990. begin
  1991.      FButton.UpNumGlyphs := Value;
  1992. end;
  1994. {-- TMMLEDSpin -----------------------------------------------------------}
  1995. function TMMLEDSpin.GetUpNumGlyphs: TNumGlyphs;
  1996. begin
  1997.      Result := FButton.UpNumGlyphs;
  1998. end;
  2000. {-- TMMLEDSpin -----------------------------------------------------------}
  2001. procedure TMMLEDSpin.SetButtonFace(Value: Boolean);
  2002. begin
  2003.    if (Value <> FButton.ButtonFace) then
  2004.    begin
  2005.       FButton.ButtonFace := Value;
  2006.       AdjustBounds;
  2007.    end;
  2008. end;
  2010. {-- TMMLEDSpin -----------------------------------------------------------}
  2011. function TMMLEDSpin.GetButtonFace: Boolean;
  2012. begin
  2013.    Result := FButton.ButtonFace;
  2014. end;
  2016. {-- TMMLEDSpin -----------------------------------------------------------}
  2017. procedure TMMLEDSpin.SetMiddleButton(Value: Boolean);
  2018. begin
  2019.    if (Value <> FButton.MiddleButton) then
  2020.    begin
  2021.       FButton.MiddleButton := Value;
  2022.       AdjustBounds;
  2023.    end;
  2024. end;
  2026. {-- TMMLEDSpin -----------------------------------------------------------}
  2027. function TMMLEDSpin.GetMiddleButton: Boolean;
  2028. begin
  2029.    Result := FButton.MiddleButton;
  2030. end;
  2032. {-- TMMLEDSpin -----------------------------------------------------------}
  2033. procedure TMMLEDSpin.SetSpinBevel(aValue: TMMBevel);
  2034. begin
  2035.      FButton.Bevel := aValue;
  2036. end;
  2038. {-- TMMLEDSpin -----------------------------------------------------------}
  2039. function TMMLEDSpin.GetSpinBevel: TMMBevel;
  2040. begin
  2041.      Result := FButton.Bevel;
  2042. end;
  2044. {-- TMMLEDSpin -----------------------------------------------------------}
  2045. procedure TMMLEDSpin.SetMinValue(aValue: Longint);
  2046. begin
  2047.      FLEDPanel.MinValue := aValue;
  2048.      FButton.MinValue := aValue;
  2049. end;
  2051. {-- TMMLEDSpin -----------------------------------------------------------}
  2052. function  TMMLEDSpin.GetMinValue: Longint;
  2053. begin
  2054.      Result := FLEDPanel.MinValue;
  2055. end;
  2057. {-- TMMLEDSpin -----------------------------------------------------------}
  2058. procedure TMMLEDSpin.SetMaxValue(aValue: Longint);
  2059. begin
  2060.      FLEDPanel.MaxValue := aValue;
  2061.      FButton.MaxValue := aValue;
  2062. end;
  2064. {-- TMMLEDSpin -----------------------------------------------------------}
  2065. function TMMLEDSpin.GetMaxValue: Longint;
  2066. begin
  2067.      Result := FLEDPanel.MaxValue;
  2068. end;
  2070. {-- TMMLEDSpin -----------------------------------------------------------}
  2071. procedure TMMLEDSpin.SetValue(aValue: Longint);
  2072. begin
  2073.      if (aValue <> FLEDPanel.Value) And Enabled then
  2074.      begin
  2075.         aValue := MinMax(aValue, MinValue, MaxValue);
  2077.         FLEDPanel.Value := aValue;
  2078.         FButton.Value := aValue;
  2079.         Change;
  2080.      end;
  2081. end;
  2083. {-- TMMLEDSpin -----------------------------------------------------------}
  2084. function TMMLEDSpin.GetValue: Longint;
  2085. begin
  2086.      Result := FLEDPanel.Value;
  2087. end;
  2089. end.