mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-09-13 13:19:18 +02:00
CHMMaker: Rename unit1 to CHMMain. Activate themes and high-dpi scaling.
This commit is contained in:
wp_xyz
parent
0fd5753a20
commit
476a492d5b
@ -1,4 +1,4 @@
|
||||
unit unit1;
|
||||
unit CHMMain;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
@ -8,7 +8,12 @@
|
||||
<CompatibilityMode Value="True"/>
|
||||
</Flags>
|
||||
<SessionStorage Value="InIDEConfig"/>
|
||||
<Scaled Value="True"/>
|
||||
<ResourceType Value="res"/>
|
||||
<UseXPManifest Value="True"/>
|
||||
<XPManifest>
|
||||
<DpiAware Value="True"/>
|
||||
</XPManifest>
|
||||
</General>
|
||||
<BuildModes Count="1">
|
||||
<Item1 Name="default" Default="True"/>
|
||||
@ -40,11 +45,12 @@
|
||||
<IsPartOfProject Value="True"/>
|
||||
</Unit0>
|
||||
<Unit1>
|
||||
<Filename Value="unit1.pas"/>
|
||||
<Filename Value="chmmain.pas"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ComponentName Value="CHMForm"/>
|
||||
<HasResources Value="True"/>
|
||||
<ResourceBaseClass Value="Form"/>
|
||||
<UnitName Value="CHMMain"/>
|
||||
</Unit1>
|
||||
<Unit2>
|
||||
<Filename Value="chmsitemapeditor.pas"/>
|
||||
|
||||
@ -8,13 +8,17 @@ uses
|
||||
{$ENDIF}
|
||||
Interfaces, // this includes the LCL widgetset
|
||||
Forms, LazFileUtils,
|
||||
unit1, CHMSiteMapEditor, lhelpcontrolpkg;
|
||||
CHMMain, CHMSiteMapEditor;
|
||||
|
||||
var
|
||||
i: Integer;
|
||||
Filename: String;
|
||||
|
||||
{$R *.res}
|
||||
|
||||
begin
|
||||
Application.Title:='';
|
||||
Application.Scaled := True;
|
||||
Application.Title := '';
|
||||
Application.Initialize;
|
||||
Application.CreateForm(TCHMForm, CHMForm);
|
||||
Application.CreateForm(TSitemapEditForm, SitemapEditForm);
|
||||
|
||||
@ -1,216 +1,215 @@
|
||||
object SitemapEditForm: TSitemapEditForm
|
||||
Left = 298
|
||||
Height = 814
|
||||
Height = 651
|
||||
Top = 87
|
||||
Width = 966
|
||||
Width = 773
|
||||
ActiveControl = SitemapTree
|
||||
Caption = 'Sitemap Editor'
|
||||
ClientHeight = 814
|
||||
ClientWidth = 966
|
||||
DesignTimePPI = 120
|
||||
ClientHeight = 651
|
||||
ClientWidth = 773
|
||||
ShowInTaskBar = stAlways
|
||||
LCLVersion = '3.2.0.0'
|
||||
LCLVersion = '4.99.0.0'
|
||||
object Label3: TLabel
|
||||
Left = 530
|
||||
Height = 20
|
||||
Top = 20
|
||||
Width = 115
|
||||
Left = 424
|
||||
Height = 15
|
||||
Top = 16
|
||||
Width = 90
|
||||
Caption = 'Global Properties'
|
||||
end
|
||||
object Label4: TLabel
|
||||
Left = 555
|
||||
Height = 20
|
||||
Top = 170
|
||||
Width = 117
|
||||
Left = 444
|
||||
Height = 15
|
||||
Top = 136
|
||||
Width = 94
|
||||
Caption = 'Foreground Color'
|
||||
end
|
||||
object Label5: TLabel
|
||||
Left = 555
|
||||
Height = 20
|
||||
Top = 220
|
||||
Width = 119
|
||||
Left = 444
|
||||
Height = 15
|
||||
Top = 176
|
||||
Width = 96
|
||||
Caption = 'Background Color'
|
||||
end
|
||||
object ForegroundClrBtn: TColorButton
|
||||
Left = 750
|
||||
Height = 31
|
||||
Top = 164
|
||||
Width = 94
|
||||
Left = 600
|
||||
Height = 25
|
||||
Top = 131
|
||||
Width = 75
|
||||
BorderWidth = 2
|
||||
ButtonColorSize = 20
|
||||
ButtonColorSize = 16
|
||||
ButtonColor = clBlack
|
||||
end
|
||||
object BackgroundClrBtn: TColorButton
|
||||
Left = 750
|
||||
Height = 31
|
||||
Top = 214
|
||||
Width = 94
|
||||
Left = 600
|
||||
Height = 25
|
||||
Top = 171
|
||||
Width = 75
|
||||
BorderWidth = 2
|
||||
ButtonColorSize = 20
|
||||
ButtonColorSize = 16
|
||||
ButtonColor = clNone
|
||||
end
|
||||
object GroupBox1: TGroupBox
|
||||
Left = 0
|
||||
Height = 814
|
||||
Height = 651
|
||||
Top = 0
|
||||
Width = 505
|
||||
Width = 404
|
||||
Align = alLeft
|
||||
Caption = 'Sitemap Tree/List'
|
||||
ClientHeight = 789
|
||||
ClientWidth = 501
|
||||
ClientHeight = 631
|
||||
ClientWidth = 400
|
||||
TabOrder = 0
|
||||
object Label1: TLabel
|
||||
Left = 14
|
||||
Height = 20
|
||||
Top = 584
|
||||
Width = 120
|
||||
Left = 11
|
||||
Height = 15
|
||||
Top = 467
|
||||
Width = 98
|
||||
Caption = 'Local link (in chm)'
|
||||
Enabled = False
|
||||
end
|
||||
object Label2: TLabel
|
||||
Left = 14
|
||||
Height = 20
|
||||
Top = 719
|
||||
Width = 62
|
||||
Left = 11
|
||||
Height = 15
|
||||
Top = 575
|
||||
Width = 49
|
||||
Caption = 'Add Item'
|
||||
end
|
||||
object SitemapTree: TTreeView
|
||||
Left = 0
|
||||
Height = 506
|
||||
Height = 405
|
||||
Top = 0
|
||||
Width = 501
|
||||
Width = 400
|
||||
Align = alTop
|
||||
HideSelection = False
|
||||
ReadOnly = True
|
||||
TabOrder = 0
|
||||
Options = [tvoAutoItemHeight, tvoKeepCollapsedNodes, tvoReadOnly, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips]
|
||||
OnCustomCreateItem = SitemapTreeCustomCreateItem
|
||||
OnSelectionChanged = SitemapTreeSelectionChanged
|
||||
Options = [tvoAutoItemHeight, tvoKeepCollapsedNodes, tvoReadOnly, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips]
|
||||
end
|
||||
object DescriptionEdit: TLabeledEdit
|
||||
Left = 14
|
||||
Height = 28
|
||||
Top = 544
|
||||
Width = 365
|
||||
EditLabel.Height = 20
|
||||
EditLabel.Width = 365
|
||||
Left = 11
|
||||
Height = 23
|
||||
Top = 435
|
||||
Width = 292
|
||||
EditLabel.Height = 15
|
||||
EditLabel.Width = 292
|
||||
EditLabel.Caption = 'Description'
|
||||
Enabled = False
|
||||
TabOrder = 1
|
||||
OnChange = DescriptionEditChange
|
||||
end
|
||||
object DescFromTitleBtn: TButton
|
||||
Left = 389
|
||||
Height = 31
|
||||
Top = 544
|
||||
Width = 94
|
||||
BorderSpacing.InnerBorder = 5
|
||||
Left = 311
|
||||
Height = 25
|
||||
Top = 435
|
||||
Width = 75
|
||||
BorderSpacing.InnerBorder = 4
|
||||
Caption = 'From Title'
|
||||
Enabled = False
|
||||
TabOrder = 2
|
||||
OnClick = DescFromTitleBtnClick
|
||||
end
|
||||
object LocalCombo: TComboBox
|
||||
Left = 14
|
||||
Height = 28
|
||||
Top = 609
|
||||
Width = 469
|
||||
Left = 11
|
||||
Height = 23
|
||||
Top = 487
|
||||
Width = 375
|
||||
Enabled = False
|
||||
ItemHeight = 20
|
||||
ItemHeight = 15
|
||||
TabOrder = 3
|
||||
OnChange = LocalComboChange
|
||||
OnKeyUp = LocalComboKeyUp
|
||||
end
|
||||
object URLEdit: TLabeledEdit
|
||||
Left = 14
|
||||
Height = 28
|
||||
Top = 674
|
||||
Width = 469
|
||||
EditLabel.Height = 20
|
||||
EditLabel.Width = 469
|
||||
Left = 11
|
||||
Height = 23
|
||||
Top = 539
|
||||
Width = 375
|
||||
EditLabel.Height = 15
|
||||
EditLabel.Width = 375
|
||||
EditLabel.Caption = 'URL (http)'
|
||||
Enabled = False
|
||||
TabOrder = 4
|
||||
OnChange = URLEditChange
|
||||
end
|
||||
object BeforeBtn: TButton
|
||||
Left = 112
|
||||
Height = 31
|
||||
Top = 714
|
||||
Width = 94
|
||||
BorderSpacing.InnerBorder = 5
|
||||
Left = 90
|
||||
Height = 25
|
||||
Top = 571
|
||||
Width = 75
|
||||
BorderSpacing.InnerBorder = 4
|
||||
Caption = 'Before'
|
||||
Enabled = False
|
||||
TabOrder = 5
|
||||
OnClick = BeforeBtnClick
|
||||
end
|
||||
object AfterBtn: TButton
|
||||
Left = 212
|
||||
Height = 31
|
||||
Top = 714
|
||||
Width = 94
|
||||
BorderSpacing.InnerBorder = 5
|
||||
Left = 170
|
||||
Height = 25
|
||||
Top = 571
|
||||
Width = 75
|
||||
BorderSpacing.InnerBorder = 4
|
||||
Caption = 'After'
|
||||
TabOrder = 6
|
||||
OnClick = AfterBtnClick
|
||||
end
|
||||
object SubItemBtn: TButton
|
||||
Left = 112
|
||||
Height = 31
|
||||
Top = 751
|
||||
Width = 194
|
||||
BorderSpacing.InnerBorder = 5
|
||||
Left = 90
|
||||
Height = 25
|
||||
Top = 601
|
||||
Width = 155
|
||||
BorderSpacing.InnerBorder = 4
|
||||
Caption = 'Subitem'
|
||||
Enabled = False
|
||||
TabOrder = 7
|
||||
OnClick = SubItemBtnClick
|
||||
end
|
||||
object DeleteBtn: TButton
|
||||
Left = 14
|
||||
Height = 31
|
||||
Top = 751
|
||||
Width = 94
|
||||
BorderSpacing.InnerBorder = 5
|
||||
Left = 11
|
||||
Height = 25
|
||||
Top = 601
|
||||
Width = 75
|
||||
BorderSpacing.InnerBorder = 4
|
||||
Caption = 'Delete'
|
||||
TabOrder = 8
|
||||
OnClick = DeleteBtnClick
|
||||
end
|
||||
end
|
||||
object FontEdit: TLabeledEdit
|
||||
Left = 555
|
||||
Height = 28
|
||||
Top = 90
|
||||
Width = 290
|
||||
EditLabel.Height = 20
|
||||
EditLabel.Width = 290
|
||||
Left = 444
|
||||
Height = 23
|
||||
Top = 72
|
||||
Width = 232
|
||||
EditLabel.Height = 15
|
||||
EditLabel.Width = 232
|
||||
EditLabel.Caption = 'Font'
|
||||
TabOrder = 1
|
||||
end
|
||||
object FolderViewCheck: TCheckBox
|
||||
Left = 555
|
||||
Height = 24
|
||||
Top = 265
|
||||
Width = 129
|
||||
Left = 444
|
||||
Height = 19
|
||||
Top = 212
|
||||
Width = 104
|
||||
Caption = 'Use Folder Icons'
|
||||
TabOrder = 2
|
||||
end
|
||||
object SaveBtn: TButton
|
||||
Left = 700
|
||||
Height = 31
|
||||
Top = 770
|
||||
Width = 94
|
||||
BorderSpacing.InnerBorder = 5
|
||||
Left = 560
|
||||
Height = 25
|
||||
Top = 616
|
||||
Width = 75
|
||||
BorderSpacing.InnerBorder = 4
|
||||
Caption = 'Save'
|
||||
ModalResult = 1
|
||||
TabOrder = 3
|
||||
OnClick = SaveBtnClick
|
||||
end
|
||||
object CancelBtn: TButton
|
||||
Left = 815
|
||||
Height = 31
|
||||
Top = 770
|
||||
Width = 94
|
||||
BorderSpacing.InnerBorder = 5
|
||||
Left = 652
|
||||
Height = 25
|
||||
Top = 616
|
||||
Width = 75
|
||||
BorderSpacing.InnerBorder = 4
|
||||
Caption = 'Cancel'
|
||||
ModalResult = 2
|
||||
TabOrder = 4
|
||||
|
||||
@ -66,7 +66,7 @@ implementation
|
||||
{$R *.lfm}
|
||||
|
||||
uses
|
||||
LCLType, unit1;
|
||||
LCLType, CHMMain;
|
||||
|
||||
type
|
||||
|
||||
|
||||
Loading…
Reference in New Issue
Block a user