Changeset 244 for branches/highdpi/Log.lfm

Timestamp:

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

Author:

chronos

Message:

• Added: TDpiPopupMenu and TDpiMenuItem support.

File:

• branches/highdpi/Log.lfm (modified) (5 diffs)

branches/highdpi/Log.lfm

@@ -30 +30 @@
     OnMouseDown = ListMouseDown
   end
-  object LogPopup: TPopupMenu
+  object LogPopup: TDpiPopupMenu
     AutoPopup = False
     Left = 8
     Top = 8
-    object mInvalid: TMenuItem
+    object mInvalid: TDpiMenuItem
       Caption = 'Invalid Server Calls'
       OnClick = Toggle
     end
-    object mNegotiation: TMenuItem
+    object mNegotiation: TDpiMenuItem
       Caption = 'Negotiation'
       OnClick = Toggle
     end
-    object mTime: TMenuItem
+    object mTime: TDpiMenuItem
       Caption = 'Client Handover'
       OnClick = Toggle
     end
-    object N2: TMenuItem
+    object N2: TDpiMenuItem
       Caption = '-'
     end
-    object mLog0: TMenuItem
+    object mLog0: TDpiMenuItem
       Caption = 'AI Messages Off'
       Checked = True
@@ -55 +55 @@
       OnClick = mLogClick
     end
-    object mLog1: TMenuItem
+    object mLog1: TDpiMenuItem
       Tag = 1
       Caption = 'AI Messages Level 1'
@@ -61 +61 @@
       OnClick = mLogClick
     end
-    object mLog2: TMenuItem
+    object mLog2: TDpiMenuItem
       Tag = 2
       Caption = 'AI Messages Level 1+2'
@@ -67 +67 @@
       OnClick = mLogClick
     end
-    object mLog3: TMenuItem
+    object mLog3: TDpiMenuItem
       Tag = 999
       Caption = 'All AI Messages'
@@ -73 +73 @@
       OnClick = mLogClick
     end
-    object N1: TMenuItem
+    object N1: TDpiMenuItem
       Caption = '-'
     end
-    object mSlot: TMenuItem
+    object mSlot: TDpiMenuItem
       Caption = 'Nation <-> Slot'
       OnClick = mSlotClick
     end
-    object mClear: TMenuItem
+    object mClear: TDpiMenuItem
       Caption = 'Clear'
       OnClick = mClearClick