paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-06 22:26:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Proper toolbar name

Browse Source
This commit is contained in:
Michaël Van Canneyt 2022-03-19 10:04:09 +01:00
parent e727e9f13b
commit a94312373c
2 changed files with 24 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
components/pas2js/frmhtmltoform.lfm
View File

@ -26,8 +26,8 @@ object frmHTML2Form: TfrmHTML2Form
end end
object PCOptions: TPageControl object PCOptions: TPageControl
Left = 0 Left = 0
Height = 408 Height = 394
Top = 26 Top = 40
Width = 633 Width = 633
ActivePage = TSHTML ActivePage = TSHTML
Align = alClient Align = alClient
@ -35,7 +35,7 @@ object frmHTML2Form: TfrmHTML2Form
TabOrder = 1 TabOrder = 1
object TSHTML: TTabSheet object TSHTML: TTabSheet
Caption = 'HTML File' Caption = 'HTML File'
ClientHeight = 378 ClientHeight = 364
ClientWidth = 623 ClientWidth = 623
OnContextPopup = TSHTMLContextPopup OnContextPopup = TSHTMLContextPopup
object lblHTMLFile: TLabel object lblHTMLFile: TLabel
@ -50,6 +50,7 @@ object frmHTML2Form: TfrmHTML2Form
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Right = 8 BorderSpacing.Right = 8
Caption = 'HTML File' Caption = 'HTML File'
ParentColor = False
end end
object FEHTMLFile: TFileNameEdit object FEHTMLFile: TFileNameEdit
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
@ -102,15 +103,17 @@ object frmHTML2Form: TfrmHTML2Form
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Right = 8 BorderSpacing.Right = 8
Caption = 'Below element ID' Caption = 'Below element ID'
ParentColor = False
end end
object mExclude: TMemo object mExclude: TMemo
AnchorSideLeft.Control = FEHTMLFile AnchorSideLeft.Control = FEHTMLFile
AnchorSideTop.Control = cbBelowID AnchorSideTop.Control = cbBelowID
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 136 Left = 136
Height = 272 Height = 245
Top = 109 Top = 109
Width = 424 Width = 424
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Top = 8 BorderSpacing.Top = 8
Lines.Strings = ( Lines.Strings = (
'mExclude' 'mExclude'
@ -128,11 +131,12 @@ object frmHTML2Form: TfrmHTML2Form
BorderSpacing.Top = 8 BorderSpacing.Top = 8
BorderSpacing.Right = 8 BorderSpacing.Right = 8
Caption = 'Exclude elements' Caption = 'Exclude elements'
ParentColor = False
end end
end end
object TSCodeGen: TTabSheet object TSCodeGen: TTabSheet
Caption = 'Generated code' Caption = 'Generated code'
ClientHeight = 378 ClientHeight = 364
ClientWidth = 623 ClientWidth = 623
object edtFormClassName: TEdit object edtFormClassName: TEdit
AnchorSideTop.Control = TSCodeGen AnchorSideTop.Control = TSCodeGen
@ -192,6 +196,7 @@ object frmHTML2Form: TfrmHTML2Form
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Right = 8 BorderSpacing.Right = 8
Caption = 'GetElement' Caption = 'GetElement'
ParentColor = False
end end
object cgOverrides: TCheckGroup object cgOverrides: TCheckGroup
AnchorSideTop.Control = edtFormClassName AnchorSideTop.Control = edtFormClassName
@ -331,6 +336,7 @@ object frmHTML2Form: TfrmHTML2Form
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Right = 8 BorderSpacing.Right = 8
Caption = 'Class name' Caption = 'Class name'
ParentColor = False
end end
object lblParentClassName: TLabel object lblParentClassName: TLabel
AnchorSideTop.Control = cbParentName AnchorSideTop.Control = cbParentName
@ -344,6 +350,7 @@ object frmHTML2Form: TfrmHTML2Form
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Right = 8 BorderSpacing.Right = 8
Caption = 'Parent class name' Caption = 'Parent class name'
ParentColor = False
end end
object lblEventSignature: TLabel object lblEventSignature: TLabel
AnchorSideTop.Control = cbEventSignature AnchorSideTop.Control = cbEventSignature
@ -357,6 +364,7 @@ object frmHTML2Form: TfrmHTML2Form
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Right = 8 BorderSpacing.Right = 8
Caption = 'Event signature' Caption = 'Event signature'
ParentColor = False
end end
object lblEventModifiers: TLabel object lblEventModifiers: TLabel
AnchorSideTop.Control = cbEventModifiers AnchorSideTop.Control = cbEventModifiers
@ -370,6 +378,7 @@ object frmHTML2Form: TfrmHTML2Form
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Right = 8 BorderSpacing.Right = 8
Caption = 'Event modifiers' Caption = 'Event modifiers'
ParentColor = False
end end
object lblConstructorArgs: TLabel object lblConstructorArgs: TLabel
AnchorSideTop.Control = cbConstructorArgs AnchorSideTop.Control = cbConstructorArgs
@ -383,6 +392,7 @@ object frmHTML2Form: TfrmHTML2Form
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Right = 8 BorderSpacing.Right = 8
Caption = 'Constructor args' Caption = 'Constructor args'
ParentColor = False
end end
object FETagMapFile: TFileNameEdit object FETagMapFile: TFileNameEdit
Left = 137 Left = 137
@ -409,6 +419,7 @@ object frmHTML2Form: TfrmHTML2Form
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Right = 8 BorderSpacing.Right = 8
Caption = 'Tag Map file' Caption = 'Tag Map file'
ParentColor = False
end end
object cbDefaultElements: TCheckBox object cbDefaultElements: TCheckBox
AnchorSideLeft.Control = edtFormClassName AnchorSideLeft.Control = edtFormClassName
@ -458,16 +469,19 @@ object frmHTML2Form: TfrmHTML2Form
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Right = 8 BorderSpacing.Right = 8
Caption = 'Extra units in uses' Caption = 'Extra units in uses'
ParentColor = False
end end
end end
end end
object ToolBar1: TToolBar object TBHTML2Form: TToolBar
Left = 0 Left = 0
Height = 26 Height = 40
Top = 0 Top = 0
Width = 633 Width = 633
Caption = 'TBHTML2Form' ButtonHeight = 40
ButtonWidth = 32
Images = ilHTML2Form Images = ilHTML2Form
ShowCaptions = True
TabOrder = 2 TabOrder = 2
object tbLoad: TToolButton object tbLoad: TToolButton
Left = 1 Left = 1
@ -475,7 +489,7 @@ object frmHTML2Form: TfrmHTML2Form
Action = aLoad Action = aLoad
end end
object tbSave: TToolButton object tbSave: TToolButton
Left = 24 Left = 39
Top = 2 Top = 2
Action = aSave Action = aSave
end end

2
components/pas2js/frmhtmltoform.pas
View File

@ -50,7 +50,7 @@ type
odSettings: TOpenDialog; odSettings: TOpenDialog;
PCOptions: TPageControl; PCOptions: TPageControl;
sdSettings: TSaveDialog; sdSettings: TSaveDialog;
ToolBar1: TToolBar; TBHTML2Form: TToolBar;
tbLoad: TToolButton; tbLoad: TToolButton;
tbSave: TToolButton; tbSave: TToolButton;
TSCodeGen: TTabSheet; TSCodeGen: TTabSheet;