Changeset 63 for trunk/UMenu.pas

Timestamp:

Nov 26, 2020, 1:18:19 PM (3 years ago)

Author:

chronos

Message:

• Added: Support for full screen mode.

File:

• trunk/UMenu.pas (modified) (4 diffs)

trunk/UMenu.pas

@@ -85 +85 @@
   SEnglish = 'English';
   SBack = 'Back';
+  SAutomatic = 'Automatic';
+  SFullScreen = 'Full screen';
 
 
@@ -133 +135 @@
 
 procedure TMenuItemComboBox.Paint(Canvas: TCanvas; P: TPoint);
+var
+  OutputText: string;
 begin
   if Selected then Canvas.Brush.Color := $e78C31
     else Canvas.Brush.Color := $f7bC61;
-  Bounds := Classes.Bounds(P.X, P.Y, Canvas.TextWidth(States[Index]), Canvas.TextHeight(States[Index]));
-  Canvas.TextOut(P.X, P.Y, States[Index]);
+  OutputText := Text + ': ' + States[Index];
+  Bounds := Classes.Bounds(P.X, P.Y, Canvas.TextWidth(OutputText), Canvas.TextHeight(OutputText));
+  Canvas.TextOut(P.X, P.Y, OutputText);
 end;
 
@@ -159 +164 @@
       if (Items[I] is TMenuItemButton) then begin
         if Assigned(TMenuItemButton(Items[I]).FOnClick) then
-          TMenuItemButton(Items[I]).FOnClick(nil)
+          TMenuItemButton(Items[I]).FOnClick(Items[I]);
       end else
       if (Items[I] is TMenuItemCheckBox) then begin
         (Items[I] as TMenuItemCheckBox).Checked := not (Items[I] as TMenuItemCheckBox).Checked;
         if Assigned((Items[I] as TMenuItemCheckBox).FOnChanged) then
-          (Items[I] as TMenuItemCheckBox).FOnChanged(nil);
+          (Items[I] as TMenuItemCheckBox).FOnChanged(Items[I]);
       end else
       if (Items[I] is TMenuItemComboBox) then begin
@@ -170 +175 @@
           (Items[I] as TMenuItemComboBox).States.Count;
         if Assigned((Items[I] as TMenuItemComboBox).FOnChanged) then
-          (Items[I] as TMenuItemComboBox).FOnChanged(nil);
+          (Items[I] as TMenuItemComboBox).FOnChanged(Items[I]);
       end;
     end;