Ignore:
Timestamp:
May 21, 2020, 6:42:45 PM (4 years ago)
Author:
chronos
Message:
  • Added: TDpiPopupMenu and TDpiMenuItem support.
File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/highdpi/LocalPlayer/Term.lfm

    r210 r244  
    219219    top = 60
    220220  end
    221   object GamePopup: TPopupMenu
     221  object GamePopup: TDpiPopupMenu
    222222    AutoPopup = False
    223223    left = 50
    224224    top = 60
    225     object mHelp: TMenuItem
     225    object mHelp: TDpiMenuItem
    226226      Tag = 7
    227227      ShortCut = 112
    228228      OnClick = MenuClick
    229229    end
    230     object mTechTree: TMenuItem
     230    object mTechTree: TDpiMenuItem
    231231      GroupIndex = 1
    232232      ShortCut = 84
    233233      OnClick = MenuClick
    234234    end
    235     object N12: TMenuItem
     235    object N12: TDpiMenuItem
    236236      Caption = '-'
    237237      GroupIndex = 1
    238238    end
    239     object mViewpoint: TMenuItem
    240       GroupIndex = 1
    241     end
    242     object mDebugMap: TMenuItem
     239    object mViewpoint: TDpiMenuItem
     240      GroupIndex = 1
     241    end
     242    object mDebugMap: TDpiMenuItem
    243243      Tag = 49
    244244      GroupIndex = 1
    245245      ShortCut = 16459
    246246    end
    247     object mOptions: TMenuItem
     247    object mOptions: TDpiMenuItem
    248248      Tag = 29
    249249      GroupIndex = 1
    250       object mOwnMovement: TMenuItem
     250      object mOwnMovement: TDpiMenuItem
    251251        Tag = 30
    252252        GroupIndex = 1
    253253        RadioItem = True
    254         object mSlowMoves: TMenuItem
     254        object mSlowMoves: TDpiMenuItem
    255255          Tag = 75
    256256          RadioItem = True
    257257          OnClick = Radio
    258258        end
    259         object mFastMoves: TMenuItem
     259        object mFastMoves: TDpiMenuItem
    260260          Tag = 76
    261261          RadioItem = True
    262262          OnClick = Radio
    263263        end
    264         object mVeryFastMoves: TMenuItem
     264        object mVeryFastMoves: TDpiMenuItem
    265265          Tag = 77
    266266          RadioItem = True
    267267          OnClick = Radio
    268268        end
    269         object N7: TMenuItem
     269        object N7: TDpiMenuItem
    270270          Caption = '-'
    271271        end
    272         object mEffectiveMovesOnly: TMenuItem
     272        object mEffectiveMovesOnly: TDpiMenuItem
    273273          Tag = 95
    274274          OnClick = Toggle
    275275        end
    276276      end
    277       object mAllyMovement: TMenuItem
     277      object mAllyMovement: TDpiMenuItem
    278278        Tag = 90
    279279        GroupIndex = 1
    280280        RadioItem = True
    281         object mAlSlowMoves: TMenuItem
     281        object mAlSlowMoves: TDpiMenuItem
    282282          Tag = 91
    283283          RadioItem = True
    284284          OnClick = Radio
    285285        end
    286         object mAlFastMoves: TMenuItem
     286        object mAlFastMoves: TDpiMenuItem
    287287          Tag = 92
    288288          RadioItem = True
    289289          OnClick = Radio
    290290        end
    291         object mAlNoMoves: TMenuItem
     291        object mAlNoMoves: TDpiMenuItem
    292292          Tag = 93
    293293          RadioItem = True
    294294          OnClick = Radio
    295295        end
    296         object N8: TMenuItem
     296        object N8: TDpiMenuItem
    297297          Caption = '-'
    298298        end
    299         object mAlEffectiveMovesOnly: TMenuItem
     299        object mAlEffectiveMovesOnly: TDpiMenuItem
    300300          Tag = 94
    301301          OnClick = Toggle
    302302        end
    303303      end
    304       object mEnemyMovement: TMenuItem
     304      object mEnemyMovement: TDpiMenuItem
    305305        Tag = 74
    306306        GroupIndex = 1
    307307        RadioItem = True
    308         object mEnMoves: TMenuItem
     308        object mEnMoves: TDpiMenuItem
    309309          Tag = 78
    310310          RadioItem = True
    311311          OnClick = Radio
    312312        end
    313         object mEnFastMoves: TMenuItem
     313        object mEnFastMoves: TDpiMenuItem
    314314          Tag = 79
    315315          RadioItem = True
    316316          OnClick = Radio
    317317        end
    318         object mEnNoMoves: TMenuItem
     318        object mEnNoMoves: TDpiMenuItem
    319319          Tag = 53
    320320          RadioItem = True
    321321          OnClick = Radio
    322322        end
    323         object N9: TMenuItem
     323        object N9: TDpiMenuItem
    324324          Caption = '-'
    325325        end
    326         object mEnAttacks: TMenuItem
     326        object mEnAttacks: TDpiMenuItem
    327327          Tag = 52
    328328          OnClick = Toggle
    329329        end
    330330      end
    331       object N11: TMenuItem
     331      object N11: TDpiMenuItem
    332332        Caption = '-'
    333333        GroupIndex = 1
    334334        RadioItem = True
    335335      end
    336       object mRepList: TMenuItem
     336      object mRepList: TDpiMenuItem
    337337        Tag = 65
    338338        GroupIndex = 1
     
    340340        OnClick = Radio
    341341      end
    342       object mRepScreens: TMenuItem
     342      object mRepScreens: TDpiMenuItem
    343343        Tag = 66
    344344        GroupIndex = 1
     
    346346        OnClick = Radio
    347347      end
    348       object mRep: TMenuItem
     348      object mRep: TDpiMenuItem
    349349        Tag = 34
    350350        GroupIndex = 1
    351         object mRep0: TMenuItem
    352           OnClick = mRepClicked
    353         end
    354         object mRep1: TMenuItem
     351        object mRep0: TDpiMenuItem
     352          OnClick = mRepClicked
     353        end
     354        object mRep1: TDpiMenuItem
    355355          Tag = 256
    356356          OnClick = mRepClicked
    357357        end
    358         object mRep2: TMenuItem
     358        object mRep2: TDpiMenuItem
    359359          Tag = 512
    360360          OnClick = mRepClicked
    361361        end
    362         object mRep3: TMenuItem
     362        object mRep3: TDpiMenuItem
    363363          Tag = 768
    364364          OnClick = mRepClicked
    365365        end
    366         object mRep4: TMenuItem
     366        object mRep4: TDpiMenuItem
    367367          Tag = 1024
    368368          OnClick = mRepClicked
    369369        end
    370         object mRep5: TMenuItem
     370        object mRep5: TDpiMenuItem
    371371          Tag = 1280
    372372          OnClick = mRepClicked
    373373        end
    374         object mRep6: TMenuItem
     374        object mRep6: TDpiMenuItem
    375375          Tag = 1536
    376376          OnClick = mRepClicked
    377377        end
    378         object mRep7: TMenuItem
     378        object mRep7: TDpiMenuItem
    379379          Tag = 1792
    380380          OnClick = mRepClicked
    381381        end
    382         object mRep8: TMenuItem
     382        object mRep8: TDpiMenuItem
    383383          Tag = 2048
    384384          OnClick = mRepClicked
    385385        end
    386         object mRep9: TMenuItem
     386        object mRep9: TDpiMenuItem
    387387          Tag = 2304
    388388          OnClick = mRepClicked
    389389        end
    390         object mRep10: TMenuItem
     390        object mRep10: TDpiMenuItem
    391391          Tag = 2560
    392392          OnClick = mRepClicked
    393393        end
    394         object mRep11: TMenuItem
     394        object mRep11: TDpiMenuItem
    395395          Tag = 2816
    396396          OnClick = mRepClicked
    397397        end
    398         object mRep12: TMenuItem
     398        object mRep12: TDpiMenuItem
    399399          Tag = 3072
    400400          OnClick = mRepClicked
    401401        end
    402         object mRep13: TMenuItem
     402        object mRep13: TDpiMenuItem
    403403          Tag = 3328
    404404          OnClick = mRepClicked
    405405        end
    406         object mRep14: TMenuItem
     406        object mRep14: TDpiMenuItem
    407407          Tag = 3584
    408408          OnClick = mRepClicked
    409409        end
    410         object mRep15: TMenuItem
     410        object mRep15: TDpiMenuItem
    411411          Tag = 3840
    412412          OnClick = mRepClicked
    413413        end
    414414      end
    415       object N10: TMenuItem
     415      object N10: TDpiMenuItem
    416416        Caption = '-'
    417417        GroupIndex = 1
    418418      end
    419       object mWaitTurn: TMenuItem
     419      object mWaitTurn: TDpiMenuItem
    420420        Tag = 32
    421421        GroupIndex = 1
    422422        OnClick = Toggle
    423423      end
    424       object mScrolling: TMenuItem
     424      object mScrolling: TDpiMenuItem
    425425        Tag = 84
    426426        GroupIndex = 1
    427         object mScrollSlow: TMenuItem
     427        object mScrollSlow: TDpiMenuItem
    428428          Tag = 85
    429429          RadioItem = True
    430430          OnClick = Radio
    431431        end
    432         object mScrollFast: TMenuItem
     432        object mScrollFast: TDpiMenuItem
    433433          Tag = 86
    434434          RadioItem = True
    435435          OnClick = Radio
    436436        end
    437         object mScrollOff: TMenuItem
     437        object mScrollOff: TDpiMenuItem
    438438          Tag = 87
    439439          RadioItem = True
     
    441441        end
    442442      end
    443       object mTileSize: TMenuItem
     443      object mTileSize: TDpiMenuItem
    444444        Tag = 96
    445445        GroupIndex = 1
    446         object mSmallTiles: TMenuItem
     446        object mSmallTiles: TDpiMenuItem
    447447          Caption = '40px'
    448448          RadioItem = True
    449449          OnClick = mSmallTilesClick
    450450        end
    451         object mNormalTiles: TMenuItem
     451        object mNormalTiles: TDpiMenuItem
    452452          Caption = '60px'
    453453          RadioItem = True
    454454          OnClick = mNormalTilesClick
    455455        end
    456         object mBigTiles: TMenuItem
     456        object mBigTiles: TDpiMenuItem
    457457          Caption = '90px'
    458458          RadioItem = True
     
    460460        end
    461461      end
    462       object mSound: TMenuItem
     462      object mSound: TDpiMenuItem
    463463        Tag = 80
    464464        GroupIndex = 1
    465         object mSoundOn: TMenuItem
     465        object mSoundOn: TDpiMenuItem
    466466          Tag = 82
    467467          RadioItem = True
    468468          OnClick = mSoundOnClick
    469469        end
    470         object mSoundOnAlt: TMenuItem
     470        object mSoundOnAlt: TDpiMenuItem
    471471          Tag = 83
    472472          RadioItem = True
     
    474474          OnClick = mSoundOnAltClick
    475475        end
    476         object mSoundOff: TMenuItem
     476        object mSoundOff: TDpiMenuItem
    477477          Tag = 81
    478478          RadioItem = True
     
    480480        end
    481481      end
    482       object N6: TMenuItem
     482      object N6: TDpiMenuItem
    483483        Caption = '-'
    484484        GroupIndex = 1
    485485      end
    486       object mTest: TMenuItem
     486      object mTest: TDpiMenuItem
    487487        Tag = 8
    488488        GroupIndex = 1
    489         object mJump: TMenuItem
     489        object mJump: TDpiMenuItem
    490490          Tag = 54
    491491          ShortCut = 16458
    492492          OnClick = MenuClick
    493493        end
    494         object mRun: TMenuItem
     494        object mRun: TDpiMenuItem
    495495          Tag = 63
    496496          ShortCut = 16466
    497497          OnClick = MenuClick
    498498        end
    499         object mNames: TMenuItem
     499        object mNames: TDpiMenuItem
    500500          Tag = 67
    501501          ShortCut = 16462
    502502          OnClick = mNamesClick
    503503        end
    504         object mLocCodes: TMenuItem
     504        object mLocCodes: TDpiMenuItem
    505505          Tag = 27
    506506          ShortCut = 16460
    507507          OnClick = mShowClick
    508508        end
    509         object mLog: TMenuItem
     509        object mLog: TDpiMenuItem
    510510          Tag = 10
    511511          ShortCut = 16461
     
    514514      end
    515515    end
    516     object mManip: TMenuItem
     516    object mManip: TDpiMenuItem
    517517      Tag = 56
    518518      GroupIndex = 1
    519       object mManip0: TMenuItem
     519      object mManip0: TDpiMenuItem
    520520        Tag = 57
    521521        OnClick = mManipClick
    522522      end
    523       object mManip1: TMenuItem
     523      object mManip1: TDpiMenuItem
    524524        Tag = 314
    525525        OnClick = mManipClick
    526526      end
    527       object mManip2: TMenuItem
     527      object mManip2: TDpiMenuItem
    528528        Tag = 571
    529529        OnClick = mManipClick
    530530      end
    531       object mManip3: TMenuItem
     531      object mManip3: TDpiMenuItem
    532532        Tag = 828
    533533        OnClick = mManipClick
    534534      end
    535       object mManip4: TMenuItem
     535      object mManip4: TDpiMenuItem
    536536        Tag = 1085
    537537        OnClick = mManipClick
    538538      end
    539       object mManip5: TMenuItem
     539      object mManip5: TDpiMenuItem
    540540        Tag = 1342
    541541        OnClick = mManipClick
    542542      end
    543       object mManip6: TMenuItem
     543      object mManip6: TDpiMenuItem
    544544        Tag = 1604
    545545        OnClick = mManipClick
    546546      end
    547547    end
    548     object mMacro: TMenuItem
     548    object mMacro: TDpiMenuItem
    549549      Tag = 42
    550550      GroupIndex = 1
    551       object mEnhanceDef: TMenuItem
     551      object mEnhanceDef: TDpiMenuItem
    552552        Tag = 40
    553553        OnClick = MenuClick
    554554      end
    555       object mCityTypes: TMenuItem
     555      object mCityTypes: TDpiMenuItem
    556556        Tag = 11
    557557        OnClick = MenuClick
    558558      end
    559559    end
    560     object mRandomMap: TMenuItem
     560    object mRandomMap: TDpiMenuItem
    561561      Tag = 71
    562562      GroupIndex = 1
     
    564564      OnClick = MenuClick
    565565    end
    566     object N3: TMenuItem
     566    object N3: TDpiMenuItem
    567567      Caption = '-'
    568568      GroupIndex = 1
    569569    end
    570     object mWebsite: TMenuItem
     570    object mWebsite: TDpiMenuItem
    571571      Tag = 88
    572572      GroupIndex = 1
    573573      OnClick = MenuClick
    574574    end
    575     object N2: TMenuItem
     575    object N2: TDpiMenuItem
    576576      Caption = '-'
    577577      GroupIndex = 1
    578578    end
    579     object mResign: TMenuItem
     579    object mResign: TDpiMenuItem
    580580      Tag = 2
    581581      GroupIndex = 1
     
    584584    end
    585585  end
    586   object UnitPopup: TPopupMenu
     586  object UnitPopup: TDpiPopupMenu
    587587    AutoPopup = False
    588588    left = 130
    589589    top = 60
    590     object mdisband: TMenuItem
     590    object mdisband: TDpiMenuItem
    591591      Tag = 72
    592592      ShortCut = 16452
    593593      OnClick = MenuClick
    594594    end
    595     object mUtilize: TMenuItem
     595    object mUtilize: TDpiMenuItem
    596596      ShortCut = 90
    597597      OnClick = MenuClick
    598598    end
    599     object N1: TMenuItem
     599    object N1: TDpiMenuItem
    600600      Caption = '-'
    601601    end
    602     object mcity: TMenuItem
     602    object mcity: TDpiMenuItem
    603603      ShortCut = 66
    604604      OnClick = MenuClick
    605605    end
    606     object mPillage: TMenuItem
     606    object mPillage: TDpiMenuItem
    607607      Tag = 19
    608608      ShortCut = 16464
    609609      OnClick = MenuClick
    610610    end
    611     object N5: TMenuItem
     611    object N5: TDpiMenuItem
    612612      Caption = '-'
    613613    end
    614     object mhome: TMenuItem
     614    object mhome: TDpiMenuItem
    615615      ShortCut = 72
    616616      OnClick = MenuClick
    617617    end
    618     object mLoad: TMenuItem
     618    object mLoad: TDpiMenuItem
    619619      Tag = 24
    620620      ShortCut = 76
    621621      OnClick = MenuClick
    622622    end
    623     object mUnload: TMenuItem
     623    object mUnload: TDpiMenuItem
    624624      Tag = 70
    625625      ShortCut = 85
    626626      OnClick = MenuClick
    627627    end
    628     object mSelectTransport: TMenuItem
     628    object mSelectTransport: TDpiMenuItem
    629629      Tag = 73
    630630      ShortCut = 16468
    631631      OnClick = MenuClick
    632632    end
    633     object mGoOn: TMenuItem
     633    object mGoOn: TDpiMenuItem
    634634      Tag = 13
    635635      ShortCut = 71
    636636      OnClick = MenuClick
    637637    end
    638     object mCancel: TMenuItem
     638    object mCancel: TDpiMenuItem
    639639      Tag = 1
    640640      ShortCut = 16451
    641641      OnClick = MenuClick
    642642    end
    643     object mRecover: TMenuItem
     643    object mRecover: TDpiMenuItem
    644644      Tag = 69
    645645      ShortCut = 86
    646646      OnClick = MenuClick
    647647    end
    648     object mwait: TMenuItem
     648    object mwait: TDpiMenuItem
    649649      Tag = 25
    650650      ShortCut = 87
    651651      OnClick = MenuClick
    652652    end
    653     object mnoorders: TMenuItem
     653    object mnoorders: TDpiMenuItem
    654654      Tag = 26
    655655      ShortCut = 32
    656656      OnClick = MenuClick
    657657    end
    658     object mstay: TMenuItem
     658    object mstay: TDpiMenuItem
    659659      Tag = 22
    660660      ShortCut = 83
    661661      OnClick = MenuClick
    662662    end
    663     object mCentre: TMenuItem
     663    object mCentre: TDpiMenuItem
    664664      Tag = 12
    665665      ShortCut = 67
     
    667667    end
    668668  end
    669   object StatPopup: TPopupMenu
     669  object StatPopup: TDpiPopupMenu
    670670    AutoPopup = False
    671671    left = 90
    672672    top = 60
    673     object mUnitStat: TMenuItem
     673    object mUnitStat: TDpiMenuItem
    674674      Tag = 9
    675675      ShortCut = 113
    676676      OnClick = MenuClick
    677677    end
    678     object mCityStat: TMenuItem
     678    object mCityStat: TDpiMenuItem
    679679      Tag = 37
    680680      ShortCut = 114
    681681      OnClick = MenuClick
    682682    end
    683     object mScienceStat: TMenuItem
     683    object mScienceStat: TDpiMenuItem
    684684      Tag = 38
    685685      ShortCut = 115
    686686      OnClick = MenuClick
    687687    end
    688     object mEUnitStat: TMenuItem
     688    object mEUnitStat: TDpiMenuItem
    689689      Tag = 50
    690690      ShortCut = 116
    691691      OnClick = MenuClick
    692692    end
    693     object mDiagram: TMenuItem
     693    object mDiagram: TDpiMenuItem
    694694      Tag = 21
    695695      ShortCut = 117
    696696      OnClick = MenuClick
    697697    end
    698     object mWonders: TMenuItem
     698    object mWonders: TDpiMenuItem
    699699      Tag = 6
    700700      ShortCut = 118
    701701      OnClick = MenuClick
    702702    end
    703     object mShips: TMenuItem
     703    object mShips: TDpiMenuItem
    704704      Tag = 41
    705705      ShortCut = 119
    706706      OnClick = MenuClick
    707707    end
    708     object N4: TMenuItem
     708    object N4: TDpiMenuItem
    709709      Caption = '-'
    710710    end
    711     object mNations: TMenuItem
     711    object mNations: TDpiMenuItem
    712712      Tag = 55
    713713      ShortCut = 120
    714714      OnClick = MenuClick
    715715    end
    716     object mEmpire: TMenuItem
     716    object mEmpire: TDpiMenuItem
    717717      Tag = 3
    718718      ShortCut = 121
    719719      OnClick = MenuClick
    720720    end
    721     object mRevolution: TMenuItem
     721    object mRevolution: TDpiMenuItem
    722722      Tag = 89
    723723      OnClick = MenuClick
    724724    end
    725725  end
    726   object EditPopup: TPopupMenu
     726  object EditPopup: TDpiPopupMenu
    727727    left = 210
    728728    top = 60
    729     object mCreateUnit: TMenuItem
     729    object mCreateUnit: TDpiMenuItem
    730730      Tag = 47
    731731    end
    732732  end
    733   object TerrainPopup: TPopupMenu
     733  object TerrainPopup: TDpiPopupMenu
    734734    left = 170
    735735    top = 60
    736     object mtrans: TMenuItem
     736    object mtrans: TDpiMenuItem
    737737      Tag = 273
    738738      ShortCut = 79
    739739      OnClick = MenuClick
    740740    end
    741     object mAfforest: TMenuItem
     741    object mAfforest: TDpiMenuItem
    742742      Tag = 301
    743743      ShortCut = 77
    744744      OnClick = MenuClick
    745745    end
    746     object mClear: TMenuItem
     746    object mClear: TDpiMenuItem
    747747      Tag = 298
    748748      ShortCut = 73
    749749      OnClick = MenuClick
    750750    end
    751     object mfort: TMenuItem
     751    object mfort: TDpiMenuItem
    752752      Tag = 276
    753753      ShortCut = 70
    754754      OnClick = MenuClick
    755755    end
    756     object mAirBase: TMenuItem
     756    object mAirBase: TDpiMenuItem
    757757      Tag = 272
    758758      ShortCut = 65
    759759      OnClick = MenuClick
    760760    end
    761     object mCanal: TMenuItem
     761    object mCanal: TDpiMenuItem
    762762      Tag = 279
    763763      ShortCut = 78
    764764      OnClick = MenuClick
    765765    end
    766     object mmine: TMenuItem
     766    object mmine: TDpiMenuItem
    767767      Tag = 302
    768768      ShortCut = 77
    769769      OnClick = MenuClick
    770770    end
    771     object mFarm: TMenuItem
     771    object mFarm: TDpiMenuItem
    772772      Tag = 300
    773773      ShortCut = 73
    774774      OnClick = MenuClick
    775775    end
    776     object mirrigation: TMenuItem
     776    object mirrigation: TDpiMenuItem
    777777      Tag = 299
    778778      ShortCut = 73
    779779      OnClick = MenuClick
    780780    end
    781     object mrr: TMenuItem
     781    object mrr: TDpiMenuItem
    782782      Tag = 297
    783783      ShortCut = 82
    784784      OnClick = MenuClick
    785785    end
    786     object mroad: TMenuItem
     786    object mroad: TDpiMenuItem
    787787      Tag = 296
    788788      ShortCut = 82
    789789      OnClick = MenuClick
    790790    end
    791     object mpollution: TMenuItem
     791    object mpollution: TDpiMenuItem
    792792      Tag = 274
    793793      ShortCut = 80
    794794      OnClick = MenuClick
    795795    end
    796     object mEnhance: TMenuItem
     796    object mEnhance: TDpiMenuItem
    797797      Tag = 295
    798798      ShortCut = 69
Note: See TracChangeset for help on using the changeset viewer.