Changeset 95 for trunk/UControls.pas

Timestamp:

Sep 28, 2022, 12:23:17 AM (20 months ago)

Author:

chronos

Message:

• Added: Show dialog about new train every start of new week.

File:

• trunk/UControls.pas (modified) (3 diffs)

trunk/UControls.pas

@@ -18 +18 @@
     Bounds: TRect;
     Canvas: TCanvas;
+    procedure MouseUp(Position: TPoint);
     constructor Create; virtual;
     procedure Paint; virtual;
     property Enabled: Boolean read FEnabled write SetEnabled;
     property OnClick: TNotifyEvent read FOnClick write FOnClick;
+  end;
+
+  { TLabel }
+
+  TLabel = class(TControl)
+    Text: string;
+    procedure Paint; override;
   end;
 
@@ -44 +52 @@
 implementation
 
+{ TLabel }
+
+procedure TLabel.Paint;
+begin
+  if Assigned(Canvas) then
+  with Canvas do begin
+    TextOut(Bounds.Left, Bounds.Top, Text);
+  end;
+end;
+
 { TButton }
 
@@ -58 +76 @@
   FEnabled := AValue;
   if Assigned(Canvas) then Paint;
+end;
+
+procedure TControl.MouseUp(Position: TPoint);
+begin
+  if Bounds.Contains(Position) then
+  if Assigned(FOnClick) then FOnClick(Self);
 end;