paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-05 15:58:07 +02:00
Code Issues Packages Projects Releases Wiki Activity

tools/icons_to_html: Minor refactoring of ini storage for IconTable project.

Browse Source
This commit is contained in:
wp_xyz 2022-08-06 12:15:29 +02:00
parent a76721ce2e
commit 0ddb329d2a
3 changed files with 44 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
tools/icons_to_html/IconTable.lpi
View File

@ -28,7 +28,6 @@
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>
<OtherUnitFiles Value="D:\LazarusProg\rhsUnit\"/>
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<CodeGeneration>

4
tools/icons_to_html/main.lfm
View File

@ -13,7 +13,7 @@ object MainForm: TMainForm
OnShow = FormShow
Position = poScreenCenter
ShowHint = True
LCLVersion = '2.2.2.0'
LCLVersion = '2.3.0.0'
object DirectoryEdit: TDirectoryEdit
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = sbtnLastDirs
@ -554,7 +554,7 @@ object MainForm: TMainForm
Height = 19
Hint = 'Creates an html page with dark background'
Top = 483
Width = 78
Width = 76
BorderSpacing.Left = 15
Caption = 'Dark Mode'
OnChange = cbDarkModeChange

65
tools/icons_to_html/main.pas
View File

@ -6,7 +6,7 @@ interface
uses
Classes, SysUtils, Forms, Controls, Dialogs, StdCtrls, EditBtn, FileUtil,
LazUTF8, LazFileUtils, LCLIntf, Buttons, Menus, IniFiles,
LazUTF8, LazFileUtils, LCLIntf, LCLType, Buttons, Menus, IniFiles,
SynEdit, SynHighlighterHTML;
type
@ -42,6 +42,7 @@ type
ImgDir: String;
Config: TIniFile;
LastDirsMax: Integer;
function CalcIniFileName: String;
procedure InfoMsg(const AMsg: String);
procedure ErrorMsg(const AMsg: String);
procedure UpdateLastDirs(D: String);
@ -58,6 +59,11 @@ implementation
{ TMainForm }
function TMainForm.CalcIniFileName: String;
begin
Result := Application.Location + 'IconTableConfig.ini';
end;
procedure TMainForm.FormCreate(Sender: TObject);
var
i: Integer;
@ -76,13 +82,23 @@ end;
procedure TMainForm.FormShow(Sender: TObject);
var
i: Integer;
L, T, W, H: Integer;
R: TRect;
begin
Config := TIniFile.Create('IconTableConfig.ini');
Config := TIniFile.Create(CalcIniFileName);
try
Top := Config.ReadInteger('Position', 'Top', 100);
Left := Config.ReadInteger('Position', 'Left', 100);
Width := Config.ReadInteger('Position', 'Width', 100);
Height := Config.ReadInteger('Position', 'Height', 100);
T := Config.ReadInteger('Position', 'Top', 100);
L := Config.ReadInteger('Position', 'Left', 100);
W := Config.ReadInteger('Position', 'Width', 100);
H := Config.ReadInteger('Position', 'Height', 100);
R := Screen.WorkAreaRect;
if W > R.Width then W := R.Width;
if H > R.Height then H := R.Height;
if L < R.Left then L := R.Left;
if T < R.Top then T := R.Top;
if L + W > R.Right then L := R.Right - W - GetSystemMetrics(SM_CYSIZEFRAME);
if T + H > R.Bottom then T := R.Bottom - H - GetSystemMetrics(SM_CYCAPTION) - GetSystemMetrics(SM_CYSIZEFRAME);
SetBounds(L, T, W, H);
WindowState := wsNormal;
Application.ProcessMessages;
WindowState := TWindowState(Config.ReadInteger('Position', 'WindowState', 0));
@ -117,18 +133,22 @@ begin
if WindowState = wsMinimized then
WindowState := wsNormal;
Config := TIniFile.Create('IconTableConfig.ini');
Config := TIniFile.Create(CalcIniFileName);
try
Config.WriteInteger('Position', 'Top', RestoredTop);
Config.WriteInteger('Position', 'Left', RestoredLeft);
Config.WriteInteger('Position', 'Width', RestoredWidth);
Config.WriteInteger('Position', 'Height', RestoredHeight);
Config.WriteInteger('Position', 'WindowState', Integer(WindowState));
try
Config.WriteInteger('Position', 'Top', RestoredTop);
Config.WriteInteger('Position', 'Left', RestoredLeft);
Config.WriteInteger('Position', 'Width', RestoredWidth);
Config.WriteInteger('Position', 'Height', RestoredHeight);
Config.WriteInteger('Position', 'WindowState', Integer(WindowState));
for i := 0 to LastDirsMax do
Config.WriteString('LastDirs', 'LastDir' + i.ToString, popLastDirs.Items[i].Caption);
for i := 0 to LastDirsMax do
Config.WriteString('LastDirs', 'LastDir' + i.ToString, popLastDirs.Items[i].Caption);
Config.WriteBool('Options', 'DarkMode', cbDarkMode.Checked);
Config.WriteBool('Options', 'DarkMode', cbDarkMode.Checked);
except
ErrorMsg('The configuration could not be saved.');
end;
finally
Config.Free;
end;
@ -372,16 +392,15 @@ var
i: Integer;
begin
i := popLastDirs.Items.IndexOfCaption(D);
if i >-1 then
if i > -1 then
popLastDirs.Items[i].MenuIndex := 0
else
begin
popLastDirs.Items[i].MenuIndex := 0;
Exit;
popLastDirs.Items[LastDirsMax].Caption := D;
popLastDirs.Items[LastDirsMax].Visible := True;
popLastDirs.Items[LastDirsMax].MenuIndex := 0;
end;
popLastDirs.Items[LastDirsMax].Caption := D;
popLastDirs.Items[LastDirsMax].Visible := True;
popLastDirs.Items[LastDirsMax].MenuIndex := 0;
sbtnLastDirs.Enabled := True;
sbtnLastDirs.Enabled := popLastDirs.Items[0].Caption > '';
end;
procedure TMainForm.InfoMsg(const AMsg: String);