Changeset 278
- Timestamp:
- Feb 14, 2019, 10:25:13 PM (6 years ago)
- Location:
- trunk
- Files:
-
- 5 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Forms/UFormGameSystem.pas
r277 r278 98 98 procedure TFormGameSystem.FormDestroy(Sender: TObject); 99 99 begin 100 FormUnitKinds.Free; 100 GameSystem := nil; 101 FreeAndNil(FormUnitKinds); 101 102 end; 102 103 -
trunk/Forms/UFormGameSystems.lfm
r275 r278 10 10 OnClose = FormClose 11 11 OnCreate = FormCreate 12 OnDestroy = FormDestroy 12 13 OnShow = FormShow 13 14 LCLVersion = '1.8.4.0' -
trunk/Forms/UFormGameSystems.pas
r277 r278 38 38 procedure FormClose(Sender: TObject; var CloseAction: TCloseAction); 39 39 procedure FormCreate(Sender: TObject); 40 procedure FormDestroy(Sender: TObject); 40 41 procedure FormShow(Sender: TObject); 41 42 procedure ListView1Data(Sender: TObject; Item: TListItem); … … 159 160 end; 160 161 162 procedure TFormGameSystems.FormDestroy(Sender: TObject); 163 begin 164 GameSystems := nil; 165 end; 166 161 167 procedure TFormGameSystems.FormShow(Sender: TObject); 162 168 begin -
trunk/UUnit.pas
r277 r278 36 36 procedure SaveToNode(Node: TDOMNode); 37 37 constructor Create(FreeObjects: Boolean = True); 38 procedure Assign(Source: TUnitKinds); 38 39 end; 39 40 … … 353 354 end; 354 355 356 procedure TUnitKinds.Assign(Source: TUnitKinds); 357 var 358 I: Integer; 359 begin 360 while Count > Source.Count do Delete(Count - 1); 361 while Count < Source.Count do AddNew(''); 362 for I := 0 to Count - 1 do 363 Items[I].Assign(Source.Items[I]); 364 end; 365 355 366 end. 356 367 -
trunk/xtactics.lpi
r277 r278 317 317 <IsPartOfProject Value="True"/> 318 318 <ComponentName Value="FormUnitKind"/> 319 <HasResources Value="True"/> 319 320 <ResourceBaseClass Value="Form"/> 320 321 </Unit38>
Note:
See TracChangeset
for help on using the changeset viewer.