Changeset 166 for trunk


Ignore:
Timestamp:
Jun 14, 2019, 11:16:47 PM (5 years ago)
Author:
chronos
Message:
  • Modified: Moved BaseWin unit to CevoPackages as it contains classes which need to be registered design-time class.
Location:
trunk
Files:
1 added
1 deleted
6 edited

Legend:

Unmodified
Added
Removed

  • trunk/Integrated.lpi

    r164 r166  
    9595      </Item2>
    9696    </RequiredPackages>
    97     <Units Count="41">
     97    <Units Count="40">
    9898      <Unit0>
    9999        <Filename Value="Integrated.lpr"/>
    … …  
    205205      </Unit20>
    206206      <Unit21>
    207         <Filename Value="LocalPlayer\BaseWin.pas"/>
    208         <IsPartOfProject Value="True"/>
     207        <Filename Value="LocalPlayer\Help.pas"/>
     208        <IsPartOfProject Value="True"/>
     209        <ComponentName Value="HelpDlg"/>
     210        <HasResources Value="True"/>
     211        <ResourceBaseClass Value="Form"/>
    209212      </Unit21>
    210213      <Unit22>
    211         <Filename Value="LocalPlayer\Help.pas"/>
    212         <IsPartOfProject Value="True"/>
    213         <ComponentName Value="HelpDlg"/>
     214        <Filename Value="LocalPlayer\Select.pas"/>
     215        <IsPartOfProject Value="True"/>
     216        <ComponentName Value="ListDlg"/>
    214217        <HasResources Value="True"/>
    215218        <ResourceBaseClass Value="Form"/>
    216219      </Unit22>
    217220      <Unit23>
    218         <Filename Value="LocalPlayer\Select.pas"/>
    219         <IsPartOfProject Value="True"/>
    220         <ComponentName Value="ListDlg"/>
     221        <Filename Value="LocalPlayer\CityScreen.pas"/>
     222        <IsPartOfProject Value="True"/>
     223        <ComponentName Value="CityDlg"/>
    221224        <HasResources Value="True"/>
    222225        <ResourceBaseClass Value="Form"/>
    223226      </Unit23>
    224227      <Unit24>
    225         <Filename Value="LocalPlayer\CityScreen.pas"/>
    226         <IsPartOfProject Value="True"/>
    227         <ComponentName Value="CityDlg"/>
     228        <Filename Value="LocalPlayer\UnitStat.pas"/>
     229        <IsPartOfProject Value="True"/>
     230        <ComponentName Value="UnitStatDlg"/>
    228231        <HasResources Value="True"/>
    229232        <ResourceBaseClass Value="Form"/>
    230233      </Unit24>
    231234      <Unit25>
    232         <Filename Value="LocalPlayer\UnitStat.pas"/>
    233         <IsPartOfProject Value="True"/>
    234         <ComponentName Value="UnitStatDlg"/>
     235        <Filename Value="LocalPlayer\Draft.pas"/>
     236        <IsPartOfProject Value="True"/>
     237        <ComponentName Value="DraftDlg"/>
    235238        <HasResources Value="True"/>
    236239        <ResourceBaseClass Value="Form"/>
    237240      </Unit25>
    238241      <Unit26>
    239         <Filename Value="LocalPlayer\Draft.pas"/>
    240         <IsPartOfProject Value="True"/>
    241         <ComponentName Value="DraftDlg"/>
     242        <Filename Value="LocalPlayer\NatStat.pas"/>
     243        <IsPartOfProject Value="True"/>
     244        <ComponentName Value="NatStatDlg"/>
    242245        <HasResources Value="True"/>
    243246        <ResourceBaseClass Value="Form"/>
    244247      </Unit26>
    245248      <Unit27>
    246         <Filename Value="LocalPlayer\NatStat.pas"/>
    247         <IsPartOfProject Value="True"/>
    248         <ComponentName Value="NatStatDlg"/>
     249        <Filename Value="LocalPlayer\Diagram.pas"/>
     250        <IsPartOfProject Value="True"/>
     251        <ComponentName Value="DiaDlg"/>
    249252        <HasResources Value="True"/>
    250253        <ResourceBaseClass Value="Form"/>
    251254      </Unit27>
    252255      <Unit28>
    253         <Filename Value="LocalPlayer\Diagram.pas"/>
    254         <IsPartOfProject Value="True"/>
    255         <ComponentName Value="DiaDlg"/>
     256        <Filename Value="LocalPlayer\Wonders.pas"/>
     257        <IsPartOfProject Value="True"/>
     258        <ComponentName Value="WondersDlg"/>
    256259        <HasResources Value="True"/>
    257260        <ResourceBaseClass Value="Form"/>
    258261      </Unit28>
    259262      <Unit29>
    260         <Filename Value="LocalPlayer\Wonders.pas"/>
    261         <IsPartOfProject Value="True"/>
    262         <ComponentName Value="WondersDlg"/>
     263        <Filename Value="LocalPlayer\Nego.pas"/>
     264        <IsPartOfProject Value="True"/>
     265        <ComponentName Value="NegoDlg"/>
    263266        <HasResources Value="True"/>
    264267        <ResourceBaseClass Value="Form"/>
    265268      </Unit29>
    266269      <Unit30>
    267         <Filename Value="LocalPlayer\Nego.pas"/>
    268         <IsPartOfProject Value="True"/>
    269         <ComponentName Value="NegoDlg"/>
     270        <Filename Value="LocalPlayer\CityType.pas"/>
     271        <IsPartOfProject Value="True"/>
     272        <ComponentName Value="CityTypeDlg"/>
    270273        <HasResources Value="True"/>
    271274        <ResourceBaseClass Value="Form"/>
    272275      </Unit30>
    273276      <Unit31>
    274         <Filename Value="LocalPlayer\CityType.pas"/>
    275         <IsPartOfProject Value="True"/>
    276         <ComponentName Value="CityTypeDlg"/>
     277        <Filename Value="LocalPlayer\Enhance.pas"/>
     278        <IsPartOfProject Value="True"/>
     279        <ComponentName Value="EnhanceDlg"/>
    277280        <HasResources Value="True"/>
    278281        <ResourceBaseClass Value="Form"/>
    279282      </Unit31>
    280283      <Unit32>
    281         <Filename Value="LocalPlayer\Enhance.pas"/>
    282         <IsPartOfProject Value="True"/>
    283         <ComponentName Value="EnhanceDlg"/>
     284        <Filename Value="NoTerm.pas"/>
     285        <IsPartOfProject Value="True"/>
     286        <ComponentName Value="NoTermDlg"/>
    284287        <HasResources Value="True"/>
    285288        <ResourceBaseClass Value="Form"/>
    286289      </Unit32>
    287290      <Unit33>
    288         <Filename Value="NoTerm.pas"/>
    289         <IsPartOfProject Value="True"/>
    290         <ComponentName Value="NoTermDlg"/>
     291        <Filename Value="LocalPlayer\Battle.pas"/>
     292        <IsPartOfProject Value="True"/>
     293        <ComponentName Value="BattleDlg"/>
    291294        <HasResources Value="True"/>
    292295        <ResourceBaseClass Value="Form"/>
    293296      </Unit33>
    294297      <Unit34>
    295         <Filename Value="LocalPlayer\Battle.pas"/>
    296         <IsPartOfProject Value="True"/>
    297         <ComponentName Value="BattleDlg"/>
     298        <Filename Value="LocalPlayer\Rates.pas"/>
     299        <IsPartOfProject Value="True"/>
     300        <ComponentName Value="RatesDlg"/>
    298301        <HasResources Value="True"/>
    299302        <ResourceBaseClass Value="Form"/>
    300303      </Unit34>
    301304      <Unit35>
    302         <Filename Value="LocalPlayer\Rates.pas"/>
    303         <IsPartOfProject Value="True"/>
    304         <ComponentName Value="RatesDlg"/>
     305        <Filename Value="LocalPlayer\TechTree.pas"/>
     306        <IsPartOfProject Value="True"/>
     307        <ComponentName Value="TechTreeDlg"/>
    305308        <HasResources Value="True"/>
    306309        <ResourceBaseClass Value="Form"/>
    307310      </Unit35>
    308311      <Unit36>
    309         <Filename Value="LocalPlayer\TechTree.pas"/>
    310         <IsPartOfProject Value="True"/>
    311         <ComponentName Value="TechTreeDlg"/>
    312         <HasResources Value="True"/>
    313         <ResourceBaseClass Value="Form"/>
     312        <Filename Value="Platform.pas"/>
     313        <IsPartOfProject Value="True"/>
    314314      </Unit36>
    315315      <Unit37>
    316         <Filename Value="Platform.pas"/>
     316        <Filename Value="Switches.inc"/>
    317317        <IsPartOfProject Value="True"/>
    318318      </Unit37>
    319319      <Unit38>
    320         <Filename Value="Switches.inc"/>
    321         <IsPartOfProject Value="True"/>
     320        <Filename Value="Locale.pas"/>
     321        <IsPartOfProject Value="True"/>
     322        <ComponentName Value="LocaleDlg"/>
     323        <HasResources Value="True"/>
     324        <ResourceBaseClass Value="Form"/>
    322325      </Unit38>
    323326      <Unit39>
    324         <Filename Value="Locale.pas"/>
    325         <IsPartOfProject Value="True"/>
    326         <ComponentName Value="LocaleDlg"/>
    327         <HasResources Value="True"/>
    328         <ResourceBaseClass Value="Form"/>
     327        <Filename Value="IPQ.pas"/>
     328        <IsPartOfProject Value="True"/>
    329329      </Unit39>
    330       <Unit40>
    331         <Filename Value="IPQ.pas"/>
    332         <IsPartOfProject Value="True"/>
    333       </Unit40>
    334330    </Units>
    335331  </ProjectOptions>

  • trunk/Integrated.lpr

    r148 r166  
    2424  Term in 'LocalPlayer\Term.pas' {MainScreen} ,
    2525  MessgEx in 'LocalPlayer\MessgEx.pas' {MessgExDlg} ,
    26   BaseWin in 'LocalPlayer\BaseWin.pas',
    2726  Help in 'LocalPlayer\Help.pas' {HelpDlg} ,
    2827  Select in 'LocalPlayer\Select.pas' {ListDlg} ,

  • trunk/LocalPlayer/Help.pas

    r89 r166  
    8989    procedure line(ca: TCanvas; i: integer; lit: boolean);
    9090    procedure Prepare(sbPos: integer = 0);
     91    procedure ShowNewContentProcExecute(NewMode: Integer; HelpContext: string);
    9192    procedure WaterSign(x0, y0, iix: integer);
    9293    procedure Search(SearchString: string);
    … …  
    234235  SearchContent := '';
    235236  nHist := -1;
     237  ShowNewContentProc := ShowNewContentProcExecute;
     238end;
     239
     240procedure THelpDlg.ShowNewContentProcExecute(NewMode: Integer;
     241  HelpContext: string);
     242begin
     243  HelpDlg.ShowNewContent(NewMode, hkText,
     244    HelpDlg.TextIndex(HelpContext))
    236245end;
    237246
    … …  
    243252procedure THelpDlg.FormDestroy(Sender: TObject);
    244253begin
     254  ShowNewContentProc := nil;
    245255  FreeAndNil(sb);
    246256  FreeAndNil(MainText);

  • trunk/LocalPlayer/Term.pas

    r155 r166  
    34083408  i, j: integer;
    34093409begin
     3410  MainFormKeyDown := FormKeyDown;
    34103411  BaseWin.CreateOffscreen(Offscreen);
    34113412
    … …  
    35363537procedure TMainScreen.FormDestroy(Sender: TObject);
    35373538var
    3538   i: integer;
    3539 begin
     3539  I: Integer;
     3540begin
     3541  MainFormKeyDown := nil;
    35403542  FreeAndNil(sb);
    35413543  FreeAndNil(TopBar);
    … …  
    35433545  FreeAndNil(Buffer);
    35443546  FreeAndNil(Panel);
    3545   for i := 0 to nPl - 1 do
     3547  for I := 0 to nPl - 1 do
    35463548    if AILogo[i] <> nil then
    3547       FreeAndNil(AILogo[i]);
     3549      FreeAndNil(AILogo[I]);
    35483550  FreeAndNil(Offscreen);
    35493551end;

  • trunk/Packages/CevoComponents/CevoComponents.lpk

    r165 r166  
    3737    <Description Value="C-evo components"/>
    3838    <Version Major="1" Minor="2"/>
    39     <Files Count="12">
     39    <Files Count="13">
    4040      <Item1>
    4141        <Filename Value="Area.pas"/>
    … …  
    9393        <UnitName Value="Sound"/>
    9494      </Item12>
     95      <Item13>
     96        <Filename Value="BaseWin.pas"/>
     97        <HasRegisterProc Value="True"/>
     98      </Item13>
    9599    </Files>
    96100    <RequiredPkgs Count="2">

  • trunk/Packages/CevoComponents/CevoComponents.pas

    r111 r166  
    1010uses
    1111  Area, ButtonA, ButtonB, ButtonC, ButtonN, EOTButton, ButtonBase, DrawDlg,
    12   Sound, LazarusPackageIntf;
     12  Sound, BaseWin, LazarusPackageIntf;
    1313
    1414implementation
    … …  
    2323  RegisterUnit('EOTButton', @EOTButton.Register);
    2424  RegisterUnit('DrawDlg', @DrawDlg.Register);
     25  RegisterUnit('BaseWin', @BaseWin.Register);
    2526end;
    2627
Note: See TracChangeset for help on using the changeset viewer.