Changeset 77 for trunk/UControls.pas

Timestamp:

May 19, 2021, 11:30:41 AM (3 years ago)

Author:

chronos

Message:

• Added: Control icons for Pause, Play and Fast forward.
• Modified: Image buttons changed to custom TImage control with Enabled property supported.

File:

• trunk/UControls.pas (modified) (1 diff)

trunk/UControls.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils;
+  Classes, SysUtils, Graphics;
 
 type
+
+  { TControl }
+
   TControl = class
+  private
+    FEnabled: Boolean;
+    FOnClick: TNotifyEvent;
+    procedure SetEnabled(AValue: Boolean);
+  public
+    Bounds: TRect;
+    Canvas: TCanvas;
+    constructor Create; virtual;
+    procedure Paint; virtual;
+    property Enabled: Boolean read FEnabled write SetEnabled;
+    property OnClick: TNotifyEvent read FOnClick write FOnClick;
+  end;
 
-  end;
+  { TButton }
 
   TButton = class(TControl)
     Text: string;
+    procedure Paint; override;
+  end;
+
+  { TImage }
+
+  TImage = class(TControl)
+    Bitmap: TBitmap;
+    BitmapDisabled: TBitmap;
+    constructor Create; override;
+    destructor Destroy; override;
+    procedure Paint; override;
   end;
 
 implementation
 
+{ TButton }
+
+procedure TButton.Paint;
+begin
+  inherited Paint;
+end;
+
+{ TControl }
+
+procedure TControl.SetEnabled(AValue: Boolean);
+begin
+  if FEnabled = AValue then Exit;
+  FEnabled := AValue;
+  if Assigned(Canvas) then Paint;
+end;
+
+constructor TControl.Create;
+begin
+  FEnabled := True;
+end;
+
+procedure TControl.Paint;
+begin
+end;
+
+{ TImage }
+
+constructor TImage.Create;
+begin
+  inherited;
+  Bitmap := TBitmap.Create;
+  BitmapDisabled := TBitmap.Create;
+end;
+
+destructor TImage.Destroy;
+begin
+  FreeAndNil(Bitmap);
+  FreeAndNil(BitmapDisabled);
+  inherited;
+end;
+
+procedure TImage.Paint;
+begin
+  if Canvas.Brush.Color = clNone then Canvas.Brush.Style := bsClear
+    else Canvas.Brush.Style := bsSolid;
+  if FEnabled then Canvas.StretchDraw(Bounds, Bitmap)
+    else Canvas.StretchDraw(Bounds, BitmapDisabled);
+end;
+
 end.