paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-15 11:39:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

tools/IconTable: Add button to view generated html page in browser, patch by Roland Hahn.

Browse Source
This commit is contained in:
wp_xyz 2022-05-02 20:29:33 +02:00
parent c0bd46b6e4
commit b8a356f9f0
2 changed files with 46 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

40
tools/icons_to_html/main.lfm
View File

@ -15,7 +15,7 @@ object MainForm: TMainForm
AnchorSideRight.Control = btnSave
AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom
Left = 374
Left = 311
Height = 25
Top = 480
Width = 95
@ -26,7 +26,7 @@ object MainForm: TMainForm
Caption = 'Create HTML'
Default = True
OnClick = btnCreateHTMLClick
TabOrder = 0
TabOrder = 1
end
object DirectoryEdit: TDirectoryEdit
AnchorSideLeft.Control = Owner
@ -45,13 +45,13 @@ object MainForm: TMainForm
BorderSpacing.Top = 10
BorderSpacing.Right = 10
MaxLength = 0
TabOrder = 3
TabOrder = 0
end
object btnSave: TButton
AnchorSideRight.Control = btnClose
AnchorSideRight.Control = btnShow
AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom
Left = 477
Left = 414
Height = 25
Top = 480
Width = 50
@ -61,7 +61,7 @@ object MainForm: TMainForm
BorderSpacing.Bottom = 10
Caption = 'Save'
OnClick = btnSaveClick
TabOrder = 1
TabOrder = 2
end
object btnClose: TButton
AnchorSideRight.Control = Owner
@ -79,7 +79,7 @@ object MainForm: TMainForm
Cancel = True
Caption = 'Close'
OnClick = btnCloseClick
TabOrder = 2
TabOrder = 4
end
inline SynEdit: TSynEdit
AnchorSideLeft.Control = Owner
@ -103,7 +103,7 @@ object MainForm: TMainForm
Font.Quality = fqCleartype
ParentColor = False
ParentFont = False
TabOrder = 4
TabOrder = 5
Gutter.Width = 55
Gutter.MouseActions = <>
RightGutter.Width = 0
@ -588,16 +588,32 @@ object MainForm: TMainForm
end
end
end
object btnShow: TButton
AnchorSideRight.Control = btnClose
AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom
Left = 472
Height = 25
Top = 480
Width = 55
Anchors = [akRight, akBottom]
AutoSize = True
BorderSpacing.Right = 8
BorderSpacing.Bottom = 10
Caption = 'Show'
OnClick = btnShowClick
TabOrder = 3
end
object TaskDialog: TTaskDialog
Buttons = <>
RadioButtons = <>
Left = 72
Top = 392
Left = 96
Top = 64
end
object SynHTMLSyn: TSynHTMLSyn
DefaultFilter = 'HTML Document (*.htm,*.html)|*.htm;*.html'
Enabled = False
Left = 304
Top = 224
Left = 176
Top = 64
end
end

24
tools/icons_to_html/main.pas
View File

@ -6,7 +6,7 @@ interface
uses
Classes, SysUtils, Forms, Controls, Dialogs, StdCtrls, EditBtn, FileUtil,
LazUTF8, LazFileUtils, UITypes, SynEdit, SynHighlighterHTML;
LazUTF8, LazFileUtils, LCLIntf, SynEdit, SynHighlighterHTML;
type
@ -16,6 +16,7 @@ type
btnCreateHTML: TButton;
btnSave: TButton;
btnClose: TButton;
btnShow: TButton;
DirectoryEdit: TDirectoryEdit;
SynEdit: TSynEdit;
SynHTMLSyn: TSynHTMLSyn;
@ -23,6 +24,7 @@ type
procedure btnCloseClick(Sender: TObject);
procedure btnCreateHTMLClick(Sender: TObject);
procedure btnSaveClick(Sender: TObject);
procedure btnShowClick(Sender: TObject);
procedure FormShow(Sender: TObject);
private
@ -99,8 +101,9 @@ begin
if PixSizeStr = '_64' then
SynEdit.Lines.Add(' </tr>');
end;
end else
begin
end
else
begin
SynEdit.Lines.Clear;
TaskDialog.Caption := 'Error';
TaskDialog.MainIcon := tdiError;
@ -111,16 +114,16 @@ begin
TaskDialog.Execute;
exit;
end;
finally
FileList.Free;
Screen.EndWaitCursor;
end;
SynEdit.Lines.Add('</table>');
SynEdit.Lines.Add('</body>');
SynEdit.Lines.Add('</html>');
finally
SynEdit.Lines.EndUpdate;
end;
@ -152,6 +155,15 @@ begin
TaskDialog.Execute;
end;
procedure TMainForm.btnShowClick(Sender: TObject);
var
fn: String;
begin
fn := AppendPathDelim(DirectoryEdit.Text) + 'IconTable.html';
if FileExists(fn) then
OpenURL(fn);
end;
procedure TMainForm.btnCloseClick(Sender: TObject);
begin
Close;