Ignore:
Timestamp:
Dec 28, 2021, 3:34:33 PM (2 years ago)
Author:
chronos
Message:
  • Modified: Split Term form MenuClick method into separate menuitem handlers for better readability and navigation in code.
File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/LocalPlayer/Term.lfm

    r387 r419  
    11object MainScreen: TMainScreen
    2   Left = 516
     2  Left = 469
    33  Height = 480
    4   Top = 834
     4  Top = 251
    55  Width = 800
    66  HorzScrollBar.Visible = False
     
    1212  Constraints.MinHeight = 480
    1313  Constraints.MinWidth = 800
    14   DesignTimePPI = 144
     14  DesignTimePPI = 120
    1515  Font.Color = clWindowText
    1616  Font.Height = -13
     
    227227      Tag = 7
    228228      ShortCut = 112
    229       OnClick = MenuClick
     229      OnClick = mHelpClick
    230230    end
    231231    object mTechTree: TMenuItem
    232232      GroupIndex = 1
    233233      ShortCut = 84
    234       OnClick = MenuClick
     234      OnClick = mTechTreeClick
    235235    end
    236236    object N12: TMenuItem
     
    491491          Tag = 54
    492492          ShortCut = 16458
    493           OnClick = MenuClick
     493          OnClick = mJumpClick
    494494        end
    495495        object mRun: TMenuItem
    496496          Tag = 63
    497497          ShortCut = 16466
    498           OnClick = MenuClick
     498          OnClick = mRunClick
    499499        end
    500500        object mNames: TMenuItem
     
    552552      object mEnhanceDef: TMenuItem
    553553        Tag = 40
    554         OnClick = MenuClick
     554        OnClick = mEnhanceDefClick
    555555      end
    556556      object mCityTypes: TMenuItem
    557557        Tag = 11
    558         OnClick = MenuClick
     558        OnClick = mCityTypesClick
    559559      end
    560560    end
     
    563563      GroupIndex = 1
    564564      ShortCut = 16466
    565       OnClick = MenuClick
     565      OnClick = mRandomMapClick
    566566    end
    567567    object N3: TMenuItem
     
    572572      Tag = 88
    573573      GroupIndex = 1
    574       OnClick = MenuClick
     574      OnClick = mWebsiteClick
    575575    end
    576576    object N2: TMenuItem
     
    582582      GroupIndex = 1
    583583      ShortCut = 16465
    584       OnClick = MenuClick
     584      OnClick = mResignClick
    585585    end
    586586  end
     
    592592      Tag = 72
    593593      ShortCut = 16452
    594       OnClick = MenuClick
     594      OnClick = mDisbandOrUtilizeClick
    595595    end
    596596    object mUtilize: TMenuItem
    597597      ShortCut = 90
    598       OnClick = MenuClick
     598      OnClick = mDisbandOrUtilizeClick
    599599    end
    600600    object N1: TMenuItem
     
    603603    object mcity: TMenuItem
    604604      ShortCut = 66
    605       OnClick = MenuClick
     605      OnClick = mcityClick
    606606    end
    607607    object mPillage: TMenuItem
    608608      Tag = 19
    609609      ShortCut = 16464
    610       OnClick = MenuClick
     610      OnClick = mPillageClick
    611611    end
    612612    object N5: TMenuItem
     
    615615    object mhome: TMenuItem
    616616      ShortCut = 72
    617       OnClick = MenuClick
     617      OnClick = mhomeClick
    618618    end
    619619    object mLoad: TMenuItem
    620620      Tag = 24
    621621      ShortCut = 76
    622       OnClick = MenuClick
     622      OnClick = mLoadClick
    623623    end
    624624    object mUnload: TMenuItem
    625625      Tag = 70
    626626      ShortCut = 85
    627       OnClick = MenuClick
     627      OnClick = mUnloadClick
    628628    end
    629629    object mSelectTransport: TMenuItem
    630630      Tag = 73
    631631      ShortCut = 16468
    632       OnClick = MenuClick
     632      OnClick = mSelectTransportClick
    633633    end
    634634    object mGoOn: TMenuItem
    635635      Tag = 13
    636636      ShortCut = 71
    637       OnClick = MenuClick
     637      OnClick = mGoOnClick
    638638    end
    639639    object mCancel: TMenuItem
    640640      Tag = 1
    641641      ShortCut = 16451
    642       OnClick = MenuClick
     642      OnClick = mCancelClick
    643643    end
    644644    object mRecover: TMenuItem
    645645      Tag = 69
    646646      ShortCut = 86
    647       OnClick = MenuClick
     647      OnClick = mRecoverClick
    648648    end
    649649    object mwait: TMenuItem
    650650      Tag = 25
    651651      ShortCut = 87
    652       OnClick = MenuClick
     652      OnClick = mwaitClick
    653653    end
    654654    object mnoorders: TMenuItem
    655655      Tag = 26
    656656      ShortCut = 32
    657       OnClick = MenuClick
     657      OnClick = mnoordersClick
    658658    end
    659659    object mstay: TMenuItem
    660660      Tag = 22
    661661      ShortCut = 83
    662       OnClick = MenuClick
     662      OnClick = mstayClick
    663663    end
    664664    object mCentre: TMenuItem
    665665      Tag = 12
    666666      ShortCut = 67
    667       OnClick = MenuClick
     667      OnClick = mCentreClick
    668668    end
    669669    object N13: TMenuItem
     
    673673      Tag = 100
    674674      ShortCut = 46
    675       OnClick = MenuClick
     675      OnClick = mPrevUnitClick
    676676    end
    677677    object mNextUnit: TMenuItem
    678678      Tag = 101
    679679      ShortCut = 45
    680       OnClick = MenuClick
     680      OnClick = mNextUnitClick
    681681    end
    682682  end
     
    688688      Tag = 9
    689689      ShortCut = 113
    690       OnClick = MenuClick
     690      OnClick = mUnitStatClick
    691691    end
    692692    object mCityStat: TMenuItem
    693693      Tag = 37
    694694      ShortCut = 114
    695       OnClick = MenuClick
     695      OnClick = mCityStatClick
    696696    end
    697697    object mScienceStat: TMenuItem
    698698      Tag = 38
    699699      ShortCut = 115
    700       OnClick = MenuClick
     700      OnClick = mScienceStatClick
    701701    end
    702702    object mEUnitStat: TMenuItem
    703703      Tag = 50
    704704      ShortCut = 116
    705       OnClick = MenuClick
     705      OnClick = mEUnitStatClick
    706706    end
    707707    object mDiagram: TMenuItem
    708708      Tag = 21
    709709      ShortCut = 117
    710       OnClick = MenuClick
     710      OnClick = mDiagramClick
    711711    end
    712712    object mWonders: TMenuItem
    713713      Tag = 6
    714714      ShortCut = 118
    715       OnClick = MenuClick
     715      OnClick = mWondersClick
    716716    end
    717717    object mShips: TMenuItem
    718718      Tag = 41
    719719      ShortCut = 119
    720       OnClick = MenuClick
     720      OnClick = mShipsClick
    721721    end
    722722    object N4: TMenuItem
     
    726726      Tag = 55
    727727      ShortCut = 120
    728       OnClick = MenuClick
     728      OnClick = mNationsClick
    729729    end
    730730    object mEmpire: TMenuItem
    731731      Tag = 3
    732732      ShortCut = 121
    733       OnClick = MenuClick
     733      OnClick = mEmpireClick
    734734    end
    735735    object mRevolution: TMenuItem
    736736      Tag = 89
    737       OnClick = MenuClick
     737      OnClick = mRevolutionClick
    738738    end
    739739  end
     
    751751      Tag = 273
    752752      ShortCut = 79
    753       OnClick = MenuClick
     753      OnClick = mtransClick
    754754    end
    755755    object mAfforest: TMenuItem
    756756      Tag = 301
    757757      ShortCut = 77
    758       OnClick = MenuClick
     758      OnClick = mAfforestClick
    759759    end
    760760    object mClear: TMenuItem
    761761      Tag = 298
    762762      ShortCut = 73
    763       OnClick = MenuClick
     763      OnClick = mClearClick
    764764    end
    765765    object mfort: TMenuItem
    766766      Tag = 276
    767767      ShortCut = 70
    768       OnClick = MenuClick
     768      OnClick = mfortClick
    769769    end
    770770    object mAirBase: TMenuItem
    771771      Tag = 272
    772772      ShortCut = 65
    773       OnClick = MenuClick
     773      OnClick = mAirBaseClick
    774774    end
    775775    object mCanal: TMenuItem
    776776      Tag = 279
    777777      ShortCut = 78
    778       OnClick = MenuClick
     778      OnClick = mCanalClick
    779779    end
    780780    object mmine: TMenuItem
    781781      Tag = 302
    782782      ShortCut = 77
    783       OnClick = MenuClick
     783      OnClick = mmineClick
    784784    end
    785785    object mFarm: TMenuItem
    786786      Tag = 300
    787787      ShortCut = 73
    788       OnClick = MenuClick
     788      OnClick = mFarmClick
    789789    end
    790790    object mirrigation: TMenuItem
    791791      Tag = 299
    792792      ShortCut = 73
    793       OnClick = MenuClick
    794     end
    795     object mrr: TMenuItem
     793      OnClick = mirrigationClick
     794    end
     795    object mRailRoad: TMenuItem
    796796      Tag = 297
    797797      ShortCut = 82
    798       OnClick = MenuClick
     798      OnClick = mRailRoadClick
    799799    end
    800800    object mroad: TMenuItem
    801801      Tag = 296
    802802      ShortCut = 82
    803       OnClick = MenuClick
     803      OnClick = mroadClick
    804804    end
    805805    object mpollution: TMenuItem
    806806      Tag = 274
    807807      ShortCut = 80
    808       OnClick = MenuClick
     808      OnClick = mpollutionClick
    809809    end
    810810    object mEnhance: TMenuItem
    811811      Tag = 295
    812812      ShortCut = 69
    813       OnClick = MenuClick
     813      OnClick = mEnhanceClick
    814814    end
    815815  end
Note: See TracChangeset for help on using the changeset viewer.