Skip to content

Commit cb306c3

Browse files
committed
update
1 parent c4b70c5 commit cb306c3

8 files changed

Lines changed: 3750 additions & 19 deletions

APLFont.pas

Lines changed: 1023 additions & 0 deletions
Large diffs are not rendered by default.

FontScript.pas

Lines changed: 756 additions & 0 deletions
Large diffs are not rendered by default.

ScriptManager.lfm

Lines changed: 752 additions & 0 deletions
Large diffs are not rendered by default.

ScriptManager.pas

Lines changed: 807 additions & 0 deletions
Large diffs are not rendered by default.

bitmapfonteditor.lpi

Lines changed: 3 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -126,6 +126,9 @@
126126
<FormatVersion Value="2"/>
127127
</RunParams>
128128
<RequiredPackages>
129+
<Item>
130+
<PackageName Value="SynEdit"/>
131+
</Item>
129132
<Item>
130133
<PackageName Value="LCL"/>
131134
</Item>

bitmapfonteditor.lpr

Lines changed: 4 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -16,7 +16,10 @@
1616
WinFont,
1717
DPFont,
1818
TEGLFont,
19-
AmigaFont;
19+
AmigaFont,
20+
FontScript,
21+
ScriptManager,
22+
QBasicInterp;
2023

2124
{$R *.res}
2225

mainform.lfm

Lines changed: 12 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -1,12 +1,12 @@
11
object frmMain: TfrmMain
2-
Left = 213
3-
Height = 703
4-
Top = 221
2+
Left = 276
3+
Height = 752
4+
Top = 299
55
Width = 1057
66
BorderIcons = [biSystemMenu, biMinimize]
77
BorderStyle = bsSingle
88
Caption = 'FON Font Creator'
9-
ClientHeight = 703
9+
ClientHeight = 752
1010
ClientWidth = 1057
1111
KeyPreview = True
1212
Menu = MainMenu
@@ -564,7 +564,7 @@ object frmMain: TfrmMain
564564
object StatusBar: TStatusBar
565565
Left = 0
566566
Height = 23
567-
Top = 680
567+
Top = 729
568568
Width = 1057
569569
Panels = <
570570
item
@@ -674,6 +674,13 @@ object frmMain: TfrmMain
674674
Caption = '&Auto Trim All Characters'
675675
OnClick = mnuAutoTrimClick
676676
end
677+
object mnuSep8: TMenuItem
678+
Caption = '-'
679+
end
680+
object mnuScript: TMenuItem
681+
Caption = 'Script Manager'
682+
OnClick = mnuScriptClick
683+
end
677684
end
678685
object mnuHelp: TMenuItem
679686
Caption = '&Help'

0 commit comments

Comments
 (0)