Changeset 69
- Timestamp:
- Dec 10, 2021, 11:40:17 AM (3 years ago)
- Location:
- trunk
- Files:
-
- 1 added
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Forms/UFormGenerate.lfm
r62 r69 14 14 object Label1: TLabel 15 15 Left = 19 16 Height = 2 516 Height = 24 17 17 Top = 19 18 Width = 5 218 Width = 55 19 19 Caption = 'Count:' 20 20 ParentColor = False … … 23 23 object SpinEditCount: TSpinEdit 24 24 Left = 155 25 Height = 3325 Height = 42 26 26 Top = 18 27 27 Width = 152 -
trunk/Forms/UFormGenerate.pas
r62 r69 59 59 ); 60 60 begin 61 Core.GenerateCount := SpinEditCount.Value; 61 62 Core.PersistentForm1.Save(Self); 62 63 end; … … 71 72 begin 72 73 Core.PersistentForm1.Load(Self); 74 SpinEditCount.Value := Core.GenerateCount; 73 75 UpdateInterface; 74 76 end; -
trunk/Packages/Common/UTheme.pas
r21 r69 5 5 uses 6 6 Classes, SysUtils, Graphics, ComCtrls, Controls, ExtCtrls, Menus, StdCtrls, 7 Spin, Forms, Contnrs, Grids;7 Spin, Forms, fgl, Grids; 8 8 9 9 type … … 19 19 { TThemes } 20 20 21 TThemes = class(T ObjectList)21 TThemes = class(TFPGObjectList<TTheme>) 22 22 function AddNew(Name: string): TTheme; 23 23 function FindByName(Name: string): TTheme; … … 74 74 procedure TThemes.LoadToStrings(Strings: TStrings); 75 75 var 76 Theme: TTheme;76 I: Integer; 77 77 begin 78 Strings.Clear; 79 for Theme in Self do 80 Strings.AddObject(Theme.Name, Theme); 78 Strings.BeginUpdate; 79 try 80 while Strings.Count < Count do Strings.Add(''); 81 while Strings.Count > Count do Strings.Delete(Strings.Count - 1); 82 for I := 0 to Count - 1 do begin 83 Strings[I] := Items[I].Name; 84 Strings.Objects[I] := Items[I]; 85 end; 86 finally 87 Strings.EndUpdate; 88 end; 81 89 end; 82 90 … … 123 131 destructor TThemeManager.Destroy; 124 132 begin 125 Themes.Free;126 inherited Destroy;133 FreeAndNil(Themes); 134 inherited; 127 135 end; 128 136 -
trunk/UCore.pas
r66 r69 88 88 LastContactTabIndex: Integer; 89 89 LastContactFileName: string; 90 GenerateCount: Integer; 90 91 ToolbarVisible: Boolean; 91 92 function GetProfileImage: TImage; … … 484 485 LastContactFileName := ReadStringWithDefault('LastContactFileName', ''); 485 486 LastSplitDir := ReadStringWithDefault('LastSplitDir', ''); 487 GenerateCount := ReadIntegerWithDefault('GenerateCount', 1); 486 488 finally 487 489 Free; … … 508 510 WriteString('LastContactFileName', LastContactFileName); 509 511 WriteString('LastSplitDir', LastSplitDir); 512 WriteInteger('GenerateCount', GenerateCount); 510 513 finally 511 514 Free;
Note:
See TracChangeset
for help on using the changeset viewer.