Changeset 244 for branches/highdpi/Log.pas

Timestamp:

May 21, 2020, 6:42:45 PM (4 years ago)

Author:

chronos

Message:

• Added: TDpiPopupMenu and TDpiMenuItem support.

File:

• branches/highdpi/Log.pas (modified) (3 diffs)

branches/highdpi/Log.pas

@@ -10 +10 @@
 type
   TLogDlg = class(TDpiForm)
-    LogPopup: TPopupMenu;
-    mLog0: TMenuItem;
-    mLog1: TMenuItem;
-    mLog2: TMenuItem;
-    mLog3: TMenuItem;
-    N1: TMenuItem;
-    mClear: TMenuItem;
-    mSlot: TMenuItem;
-    N2: TMenuItem;
-    mInvalid: TMenuItem;
-    mTime: TMenuItem;
+    LogPopup: TDpiPopupMenu;
+    mLog0: TDpiMenuItem;
+    mLog1: TDpiMenuItem;
+    mLog2: TDpiMenuItem;
+    mLog3: TDpiMenuItem;
+    N1: TDpiMenuItem;
+    mClear: TDpiMenuItem;
+    mSlot: TDpiMenuItem;
+    N2: TDpiMenuItem;
+    mInvalid: TDpiMenuItem;
+    mTime: TDpiMenuItem;
     List: TMemo;
-    mNegotiation: TMenuItem;
+    mNegotiation: TDpiMenuItem;
     procedure mLogClick(Sender: TObject);
     procedure FormCreate(Sender: TObject);
@@ -60 +60 @@
 procedure TLogDlg.mLogClick(Sender: TObject);
 begin
-  MaxLevel := TMenuItem(Sender).Tag;
-  TMenuItem(Sender).Checked := true;
+  MaxLevel := TDpiMenuItem(Sender).Tag;
+  TDpiMenuItem(Sender).Checked := true;
 end;
 
@@ -124 +124 @@
 procedure TLogDlg.Toggle(Sender: TObject);
 begin
-  TMenuItem(Sender).Checked := not TMenuItem(Sender).Checked;
+  TDpiMenuItem(Sender).Checked := not TDpiMenuItem(Sender).Checked;
 end;