');
- HTMLLines.Add(Format(IfThen(translated, rsThisFolderContains, ThisFolderContains), [
- IcoFileList.Count, IconGroups, PixSizeList.Count
- ]));
+ HTMLLines.Add(Format(IfThen(translated, rsThisFolderContains, ThisFolderContains), [IcoFileList.Count, IconGroups, PixSizeList.Count]));
if FileExists(ImgDirectory + InfoTextFileName) then
begin
- if cbTranslatedHTML.Checked then
+ if not menuHTMLpageEnglish.Checked then
begin
HTMLLines.Add('
');
HTMLLines.Add('
' + rsInfoText1 + '
');
@@ -435,7 +437,8 @@ begin
HTMLLines.Add('
' + Format(rsLicense, [License_CC0]) + '
');
HTMLLines.Add(Link(URL_CC0, URL_CC0) + '
');
HTMLLines.Add(rsFreelyAvailable + '
');
- end else
+ end
+ else
begin
InfoTxtList := TStringList.Create;
try
@@ -498,6 +501,20 @@ begin
end;
end;
+procedure TMainForm.menuDarkHTMLpageClick(Sender: TObject);
+begin
+ menuDarkHTMLpage.Checked := not menuDarkHTMLpage.Checked;
+ if (bbtnCreateHTML.Enabled) and (SynEdit.Text <> '') then
+ bbtnCreateHTML.Click;
+end;
+
+procedure TMainForm.menuHTMLpageEnglishClick(Sender: TObject);
+begin
+ menuHTMLpageEnglish.Checked := not menuHTMLpageEnglish.Checked;
+ if (bbtnCreateHTML.Enabled) and (SynEdit.Text <> '') then
+ bbtnCreateHTML.Click;
+end;
+
procedure TMainForm.sbtnLastDirsClick(Sender: TObject);
var
pt: TPoint;
@@ -506,6 +523,14 @@ begin
popLastDirs.PopUp(pt.X, pt.Y);
end;
+procedure TMainForm.sbtnMenuClick(Sender: TObject);
+var
+ pt: TPoint;
+begin
+ pt := sbtnMenu.ClientToScreen(Point(sbtnMenu.Width, sbtnMenu.Height));
+ popMenu.PopUp(pt.X, pt.Y);
+end;
+
procedure TMainForm.UpdateLastDirs(ImgDir: String; Delete: Boolean);
var
i: Integer;