Changeset 358
- Timestamp:
- Apr 9, 2021, 9:51:17 AM (4 years ago)
- Location:
- trunk
- Files:
-
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LocalPlayer/Help.pas
r350 r358 1248 1248 MainText[Count - 1] := Format(HelpText.Lookup('REQUIRED'), 1249 1249 [MainText[Count - 1]]); 1250 end 1250 end; 1251 1251 end; 1252 end 1252 end; 1253 1253 end; 1254 1254 … … 1422 1422 LineFeed; 1423 1423 LineFeed; 1424 end 1425 end 1424 end; 1425 end; 1426 1426 end; 1427 1427 miscSearchResult: … … 1642 1642 NextSection('REPLACE'); 1643 1643 AddItem('REPLACETEXT'); 1644 j := 1 1644 j := 1; 1645 1645 end; 1646 1646 AddImprovement(ImpReplacement[i].OldImp); … … 1676 1676 AddLine(HelpText.Lookup('HELPTITLE_JOBLIST'), pkNormal, 0, 1677 1677 hkMisc + hkCrossLink, miscJobList); 1678 CheckSeeAlso := true 1678 CheckSeeAlso := true; 1679 1679 end; 1680 1680 … … 1696 1696 begin 1697 1697 TerrType := fDesert; 1698 TerrSubType := 0 1698 TerrSubType := 0; 1699 1699 end; 1700 1700 with Terrain[TerrType] do … … 1766 1766 [Phrases.Lookup('TERRAIN', fGrass + 12)]), pkTer, fGrass + 12, 1767 1767 hkTer + hkCrossLink, fGrass + 12); 1768 end 1768 end; 1769 1769 end; 1770 1770 NextSection('SPECIAL'); … … 1778 1778 AddLine(Phrases.Lookup('TERRAIN', 3 * 12 + Special), pkTer, 1779 1779 3 * 12 + Special); 1780 end 1780 end; 1781 1781 end 1782 1782 else if (no < 12) and (no <> fGrass) and (no <> fOcean) then … … 1814 1814 AddImprovement(woGardens); 1815 1815 CheckSeeAlso := true 1816 end 1817 end 1816 end; 1817 end; 1818 1818 end; 1819 1819 … … 1882 1882 AddLine(Format(HelpText.Lookup('WEIGHT'), ['+2']), 1883 1883 pkDomain, dGround); 1884 end 1884 end; 1885 1885 end; 1886 1886 if Feature[no].Preq <> preNone then … … 1969 1969 Line(Canvas, Sel0, False); 1970 1970 if Sel <> -1 then 1971 Line(Canvas, Sel, True) 1972 end 1971 Line(Canvas, Sel, True); 1972 end; 1973 1973 end; 1974 1974 … … 1992 1992 else 1993 1993 ShowNewContent(FWindowMode, Link shr 8 and $3F, Link and $FF); 1994 end 1994 end; 1995 1995 end; 1996 1996 … … 2036 2036 function THelpDlg.TextIndex(Item: string): Integer; 2037 2037 begin 2038 Result := HelpText.Gethandle(Item) 2038 Result := HelpText.Gethandle(Item); 2039 2039 end; 2040 2040 -
trunk/LocalPlayer/LocalPlayer.pas
r155 r358 5 5 6 6 procedure Client(Command, Player: integer; var Data); stdcall; 7 8 7 procedure SetAIName(p: integer; Name: string); 9 8 … … 12 11 uses 13 12 Term, CityScreen, Draft, MessgEx, Select, CityType, Help, UnitStat, Diagram, 14 NatStat, Wonders, Nego, Enhance, BaseWin, Battle, Rates, TechTree, 15 16 Forms; 13 NatStat, Wonders, Nego, Enhance, BaseWin, Battle, Rates, TechTree, Forms; 17 14 18 15 var -
trunk/LocalPlayer/MessgEx.pas
r352 r358 10 10 11 11 type 12 TMessageIconKind = (mikNone, mikImp, mikModel, mikTribe, mikBook, mikAge, 13 mikPureIcon, mikMyArmy, mikEnemyArmy, mikFullControl, mikShip, mikBigIcon, 14 mikEnemyShipComplete); 15 12 16 TMessgExDlg = class(TBaseMessgDlg) 13 17 Button1: TButtonA; … … 26 30 procedure RemoveBtnClick(Sender: TObject); 27 31 public 28 Kind, IconKind, IconIndex, HelpKind, HelpNo, CenterTo: integer; 32 Kind: TMessageKind; 33 IconIndex: Integer; 34 HelpKind: Integer; 35 HelpNo: Integer; 36 CenterTo: Integer; 37 IconKind: TMessageIconKind; 29 38 OpenSound: string; 30 39 function ShowModal: integer; override; … … 38 47 end; 39 48 40 const41 // extra message kinds42 mkYesNoCancel = 4;43 mkOkCancelRemove = 5;44 mkOkHelp = 6;45 mkModel = 7;46 47 // message icon kinds48 mikNone = -1;49 mikImp = 0;50 mikModel = 1;51 mikTribe = 2;52 mikBook = 3;53 mikAge = 4;54 mikPureIcon = 5;55 mikMyArmy = 6;56 mikEnemyArmy = 7;57 mikFullControl = 8;58 mikShip = 9;59 mikBigIcon = 10;60 mikEnemyShipComplete = 11;61 62 49 var 63 50 MessgExDlg: TMessgExDlg; … … 65 52 procedure SoundMessageEx(SimpleText, SoundItem: string); 66 53 procedure TribeMessage(p: integer; SimpleText, SoundItem: string); 67 function SimpleQuery(QueryKind: integer; SimpleText, SoundItem: string)54 function SimpleQuery(QueryKind: TMessageKind; SimpleText, SoundItem: string) 68 55 : integer; 69 56 procedure ContextMessage(SimpleText, SoundItem: string; … … 199 186 function TMessgExDlg.ShowModal: integer; 200 187 var 201 Ticks0, Ticks: TDateTime; 188 Ticks0: TDateTime; 189 Ticks: TDateTime; 202 190 begin 203 191 if GameMode = cMovie then … … 516 504 end; 517 505 518 function SimpleQuery(QueryKind: integer; SimpleText, SoundItem: string)506 function SimpleQuery(QueryKind: TMessageKind; SimpleText, SoundItem: string) 519 507 : integer; 520 508 begin -
trunk/Messg.pas
r189 r358 12 12 13 13 type 14 TMessageKind = (mkOK, mkOKCancel, mkYesNo, mkYesNoCancel, mkOkCancelRemove, 15 mkOkHelp, mkModel); 16 14 17 TMessgDlg = class(TBaseMessgDlg) 15 18 Button1: TButtonA; … … 22 25 procedure FormKeyPress(Sender: TObject; var Key: char); 23 26 public 24 Kind: integer;27 Kind: TMessageKind; 25 28 OpenSound: string; 26 29 private 27 30 procedure OnPlaySound(var Msg: TMessage); message WM_PLAYSOUND; 28 31 end; 29 30 const31 // message kinds32 mkOK = 1;33 mkOKCancel = 2;34 mkYesNo = 3;35 32 36 33 var
Note:
See TracChangeset
for help on using the changeset viewer.