Initial Revision
This commit is contained in:
mbirth
commit
b154ad549e
29
History.txt
Normal file
29
History.txt
Normal file
@ -0,0 +1,29 @@
|
|||||||
|
KBL-Visualizer HISTORY
|
||||||
|
|
||||||
|
x Fixed, + Added, * Improved/Changed, i Information
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
2004-02-17 (1.1)
|
||||||
|
----------------
|
||||||
|
|
||||||
|
x : palette of loaded .bmp was used instead of truecolor
|
||||||
|
|
||||||
|
+ : unicode support
|
||||||
|
+ : "New"-button
|
||||||
|
+ : "Modified"-checks and questions to save/abort
|
||||||
|
+ : ColorEditor
|
||||||
|
+ : unicode-Table from unicode-index.txt
|
||||||
|
+ : Syntax-Helper
|
||||||
|
+ : some error handling
|
||||||
|
+ : PopOnTop icon for application
|
||||||
|
+ : Support for row-specific colors
|
||||||
|
|
||||||
|
* : rewrote keymap-painting, now behaves correctly
|
||||||
|
* : renamed from "KBL-Editor" to "KBL-Visualizer"
|
||||||
|
|
||||||
|
|
||||||
|
2004-02-13 (1.0)
|
||||||
|
----------------
|
||||||
|
|
||||||
|
i : initial working version
|
||||||
BIN
KBLVisualizer.bmp
Normal file
BIN
KBLVisualizer.bmp
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 33 KiB |
38
KBLVisualizer.cfg
Normal file
38
KBLVisualizer.cfg
Normal file
@ -0,0 +1,38 @@
|
|||||||
|
-$A8
|
||||||
|
-$B-
|
||||||
|
-$C+
|
||||||
|
-$D+
|
||||||
|
-$E-
|
||||||
|
-$F-
|
||||||
|
-$G+
|
||||||
|
-$H+
|
||||||
|
-$I+
|
||||||
|
-$J-
|
||||||
|
-$K-
|
||||||
|
-$L+
|
||||||
|
-$M-
|
||||||
|
-$N+
|
||||||
|
-$O+
|
||||||
|
-$P+
|
||||||
|
-$Q-
|
||||||
|
-$R-
|
||||||
|
-$S-
|
||||||
|
-$T-
|
||||||
|
-$U-
|
||||||
|
-$V+
|
||||||
|
-$W-
|
||||||
|
-$X+
|
||||||
|
-$YD
|
||||||
|
-$Z1
|
||||||
|
-cg
|
||||||
|
-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
|
||||||
|
-H+
|
||||||
|
-W+
|
||||||
|
-M
|
||||||
|
-$M16384,1048576
|
||||||
|
-K$00400000
|
||||||
|
-LE"c:\program files\borland\delphi7\Projects\Bpl"
|
||||||
|
-LN"c:\program files\borland\delphi7\Projects\Bpl"
|
||||||
|
-w-UNSAFE_TYPE
|
||||||
|
-w-UNSAFE_CODE
|
||||||
|
-w-UNSAFE_CAST
|
||||||
136
KBLVisualizer.dof
Normal file
136
KBLVisualizer.dof
Normal file
@ -0,0 +1,136 @@
|
|||||||
|
[FileVersion]
|
||||||
|
Version=7.0
|
||||||
|
[Compiler]
|
||||||
|
A=8
|
||||||
|
B=0
|
||||||
|
C=1
|
||||||
|
D=1
|
||||||
|
E=0
|
||||||
|
F=0
|
||||||
|
G=1
|
||||||
|
H=1
|
||||||
|
I=1
|
||||||
|
J=0
|
||||||
|
K=0
|
||||||
|
L=1
|
||||||
|
M=0
|
||||||
|
N=1
|
||||||
|
O=1
|
||||||
|
P=1
|
||||||
|
Q=0
|
||||||
|
R=0
|
||||||
|
S=0
|
||||||
|
T=0
|
||||||
|
U=0
|
||||||
|
V=1
|
||||||
|
W=0
|
||||||
|
X=1
|
||||||
|
Y=1
|
||||||
|
Z=1
|
||||||
|
ShowHints=1
|
||||||
|
ShowWarnings=1
|
||||||
|
UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
|
||||||
|
NamespacePrefix=
|
||||||
|
SymbolDeprecated=1
|
||||||
|
SymbolLibrary=1
|
||||||
|
SymbolPlatform=1
|
||||||
|
UnitLibrary=1
|
||||||
|
UnitPlatform=1
|
||||||
|
UnitDeprecated=1
|
||||||
|
HResultCompat=1
|
||||||
|
HidingMember=1
|
||||||
|
HiddenVirtual=1
|
||||||
|
Garbage=1
|
||||||
|
BoundsError=1
|
||||||
|
ZeroNilCompat=1
|
||||||
|
StringConstTruncated=1
|
||||||
|
ForLoopVarVarPar=1
|
||||||
|
TypedConstVarPar=1
|
||||||
|
AsgToTypedConst=1
|
||||||
|
CaseLabelRange=1
|
||||||
|
ForVariable=1
|
||||||
|
ConstructingAbstract=1
|
||||||
|
ComparisonFalse=1
|
||||||
|
ComparisonTrue=1
|
||||||
|
ComparingSignedUnsigned=1
|
||||||
|
CombiningSignedUnsigned=1
|
||||||
|
UnsupportedConstruct=1
|
||||||
|
FileOpen=1
|
||||||
|
FileOpenUnitSrc=1
|
||||||
|
BadGlobalSymbol=1
|
||||||
|
DuplicateConstructorDestructor=1
|
||||||
|
InvalidDirective=1
|
||||||
|
PackageNoLink=1
|
||||||
|
PackageThreadVar=1
|
||||||
|
ImplicitImport=1
|
||||||
|
HPPEMITIgnored=1
|
||||||
|
NoRetVal=1
|
||||||
|
UseBeforeDef=1
|
||||||
|
ForLoopVarUndef=1
|
||||||
|
UnitNameMismatch=1
|
||||||
|
NoCFGFileFound=1
|
||||||
|
MessageDirective=1
|
||||||
|
ImplicitVariants=1
|
||||||
|
UnicodeToLocale=1
|
||||||
|
LocaleToUnicode=1
|
||||||
|
ImagebaseMultiple=1
|
||||||
|
SuspiciousTypecast=1
|
||||||
|
PrivatePropAccessor=1
|
||||||
|
UnsafeType=0
|
||||||
|
UnsafeCode=0
|
||||||
|
UnsafeCast=0
|
||||||
|
[Linker]
|
||||||
|
MapFile=0
|
||||||
|
OutputObjs=0
|
||||||
|
ConsoleApp=1
|
||||||
|
DebugInfo=0
|
||||||
|
RemoteSymbols=0
|
||||||
|
MinStackSize=16384
|
||||||
|
MaxStackSize=1048576
|
||||||
|
ImageBase=4194304
|
||||||
|
ExeDescription=
|
||||||
|
[Directories]
|
||||||
|
OutputDir=
|
||||||
|
UnitOutputDir=
|
||||||
|
PackageDLLOutputDir=
|
||||||
|
PackageDCPOutputDir=
|
||||||
|
SearchPath=
|
||||||
|
Packages=vcl;dclOfficeXP;vcldb;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;soaprtl;VclSmp;dbexpress;dbxcds;inetdb;bdertl;vcldbx;webdsnap;websnap;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclshlctrls;IntrawebDB_50_70;Intraweb_50_70;Rave50CLX;Rave50VCL;vclactnband;adortl
|
||||||
|
Conditionals=
|
||||||
|
DebugSourceDirs=
|
||||||
|
UsePackages=0
|
||||||
|
[Parameters]
|
||||||
|
RunParams=
|
||||||
|
HostApplication=
|
||||||
|
Launcher=
|
||||||
|
UseLauncher=0
|
||||||
|
DebugCWD=
|
||||||
|
[Language]
|
||||||
|
ActiveLang=
|
||||||
|
ProjectLang=
|
||||||
|
RootDir=
|
||||||
|
[Version Info]
|
||||||
|
IncludeVerInfo=1
|
||||||
|
AutoIncBuild=1
|
||||||
|
MajorVer=1
|
||||||
|
MinorVer=0
|
||||||
|
Release=0
|
||||||
|
Build=3
|
||||||
|
Debug=0
|
||||||
|
PreRelease=0
|
||||||
|
Special=0
|
||||||
|
Private=0
|
||||||
|
DLL=0
|
||||||
|
Locale=1033
|
||||||
|
CodePage=1252
|
||||||
|
[Version Info Keys]
|
||||||
|
CompanyName=
|
||||||
|
FileDescription=KBL-Editor
|
||||||
|
FileVersion=1.0.0.3
|
||||||
|
InternalName=KBLEdit
|
||||||
|
LegalCopyright=(c)2004 by Markus Birth <mbirth@webwriters.de>
|
||||||
|
LegalTrademarks=
|
||||||
|
OriginalFilename=KBLEdit.exe
|
||||||
|
ProductName=KBL-Editor
|
||||||
|
ProductVersion=1.0.0.0
|
||||||
|
Comments=Editor to visualize keyboard layouts for PopOnTop of Symbitz Software.
|
||||||
14
KBLVisualizer.dpr
Normal file
14
KBLVisualizer.dpr
Normal file
@ -0,0 +1,14 @@
|
|||||||
|
program KBLEdit;
|
||||||
|
|
||||||
|
uses
|
||||||
|
Forms,
|
||||||
|
KBLEditU in 'KBLEditU.pas' {KBLEditForm};
|
||||||
|
|
||||||
|
{$R *.res}
|
||||||
|
|
||||||
|
begin
|
||||||
|
Application.Initialize;
|
||||||
|
Application.Title := 'PopOnTop Keyboard Layout Editor';
|
||||||
|
Application.CreateForm(TKBLEditForm, KBLEditForm);
|
||||||
|
Application.Run;
|
||||||
|
end.
|
||||||
BIN
KBLVisualizer.res
Normal file
BIN
KBLVisualizer.res
Normal file
Binary file not shown.
34
KBLVisualizer.txt
Normal file
34
KBLVisualizer.txt
Normal file
@ -0,0 +1,34 @@
|
|||||||
|
KBL-Editor
|
||||||
|
(c)2004 by Markus Birth <mbirth@webwriters.de>
|
||||||
|
==============================================
|
||||||
|
|
||||||
|
This program allows you to visualize keyboard
|
||||||
|
layout files (KBL) of Symbitz Software's
|
||||||
|
PopOnTop keyboard replacement for Symbian UIQ
|
||||||
|
devices.
|
||||||
|
|
||||||
|
The program itself should be self-explanatory.
|
||||||
|
The left area is the working space which
|
||||||
|
contains the keyboard layout you are working
|
||||||
|
on. You can open and save your work using the
|
||||||
|
buttons above the text area. THE PROGRAM WON'T
|
||||||
|
ASK YOU TO SAVE YOUR WORK BEFORE EXITING!
|
||||||
|
|
||||||
|
The right hand side shows a preview of the
|
||||||
|
keyboard so that you get an idea how it
|
||||||
|
looks like. Use the SpinControl next to the
|
||||||
|
"Visualize!"-button to select the map you
|
||||||
|
want to see.
|
||||||
|
|
||||||
|
Landscape keyboards are not yet supported.
|
||||||
|
|
||||||
|
I don't take *ANY* responsibility for any
|
||||||
|
damage to your computer which might occur by
|
||||||
|
using this program.
|
||||||
|
|
||||||
|
Please make sure the file KBLEdit.bmp is in
|
||||||
|
the same directory as KBLEdit.exe. If you
|
||||||
|
rename KBLEdit.exe, do so with KBLEdit.bmp.
|
||||||
|
|
||||||
|
Feel free to replace KBLEdit.bmp by a screen-
|
||||||
|
shot of your own Px00. (208x320 pixels)
|
||||||
364
KBLVisualizerU.dfm
Normal file
364
KBLVisualizerU.dfm
Normal file
@ -0,0 +1,364 @@
|
|||||||
|
object KBLEditForm: TKBLEditForm
|
||||||
|
Left = 192
|
||||||
|
Top = 107
|
||||||
|
BorderStyle = bsDialog
|
||||||
|
Caption = 'KBL-Editor'
|
||||||
|
ClientHeight = 389
|
||||||
|
ClientWidth = 572
|
||||||
|
Color = clBtnFace
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -11
|
||||||
|
Font.Name = 'MS Sans Serif'
|
||||||
|
Font.Style = []
|
||||||
|
OldCreateOrder = False
|
||||||
|
OnCreate = FormCreate
|
||||||
|
PixelsPerInch = 96
|
||||||
|
TextHeight = 13
|
||||||
|
object Px00Screen: TImage
|
||||||
|
Left = 360
|
||||||
|
Top = 40
|
||||||
|
Width = 208
|
||||||
|
Height = 320
|
||||||
|
end
|
||||||
|
object Label1: TLabel
|
||||||
|
Left = 376
|
||||||
|
Top = 24
|
||||||
|
Width = 192
|
||||||
|
Height = 13
|
||||||
|
Caption = 'by Markus Birth <mbirth@webwriters.de>'
|
||||||
|
Enabled = False
|
||||||
|
end
|
||||||
|
object Memo1: TMemo
|
||||||
|
Left = 8
|
||||||
|
Top = 40
|
||||||
|
Width = 345
|
||||||
|
Height = 297
|
||||||
|
HideSelection = False
|
||||||
|
Lines.Strings = (
|
||||||
|
'T,Fitaly (US)'
|
||||||
|
''
|
||||||
|
'! Maps:'
|
||||||
|
'! 1 - Lowercase (arrows)'
|
||||||
|
'! 2 - Uppercase (arrows)'
|
||||||
|
'! 3 - Numeric'
|
||||||
|
'! 4 - Numeric shifted (Symbols)'
|
||||||
|
''
|
||||||
|
'! MAP 1 Lowercase FITALY'
|
||||||
|
''
|
||||||
|
|
||||||
|
'M,0,0,210,0,300,207,5,12,195,0,209,207,ffffff,000000,333333,dddd' +
|
||||||
|
'ff'
|
||||||
|
'R'
|
||||||
|
'K,001b,2,c0c0c0,000000,Esc'
|
||||||
|
'K,007a'
|
||||||
|
'K,0076'
|
||||||
|
'K,0063'
|
||||||
|
'K,0068'
|
||||||
|
'K,0077'
|
||||||
|
'K,006b'
|
||||||
|
'K,0031,1,ffffa0'
|
||||||
|
'K,0032,1,ffffa0'
|
||||||
|
'K,0008,2,c0c0c0,000000,BS'
|
||||||
|
'R'
|
||||||
|
'K,0009,2,c0c0c0,000000,TAB'
|
||||||
|
'K,0066'
|
||||||
|
'K,0069'
|
||||||
|
'K,0074'
|
||||||
|
'K,0061'
|
||||||
|
'K,006c'
|
||||||
|
'K,0079'
|
||||||
|
'K,0033,1,ffffa0'
|
||||||
|
'K,0034,1,ffffa0'
|
||||||
|
'K,000d,2,c0c0c0,000000,RET'
|
||||||
|
'R'
|
||||||
|
'L,2,2,c0c0c0,000000,Cap'
|
||||||
|
'K,0020,2'
|
||||||
|
'K,006e'
|
||||||
|
'K,0065'
|
||||||
|
'K,0020,2'
|
||||||
|
'K,0035,1,ffffa0'
|
||||||
|
'K,0036,1,ffffa0'
|
||||||
|
'S,2,2,c0c0c0,000000,Shift'
|
||||||
|
'R'
|
||||||
|
'S,1,2,c0c0c0,000000,Ctrl'
|
||||||
|
'K,0067'
|
||||||
|
'K,0064'
|
||||||
|
'K,006f'
|
||||||
|
'K,0072'
|
||||||
|
'K,0073'
|
||||||
|
'K,0062'
|
||||||
|
'K,0037,1,ffffa0'
|
||||||
|
'K,0038,1,ffffa0'
|
||||||
|
'K,f807,1,c0ffff,000000,<'
|
||||||
|
'K,f6dd,1,c0ffff,000000,<<'
|
||||||
|
'R'
|
||||||
|
'L,3,2,c0c0c0,000000,123'
|
||||||
|
'K,0071'
|
||||||
|
'K,006a'
|
||||||
|
'K,0075'
|
||||||
|
'K,006d'
|
||||||
|
'K,0070'
|
||||||
|
'K,0078'
|
||||||
|
'K,0039,1,ffffa0'
|
||||||
|
'K,0030,1,ffffa0'
|
||||||
|
'K,f808,1,c0ffff,000000,>'
|
||||||
|
'K,f6dc,1,c0ffff,000000,>>'
|
||||||
|
''
|
||||||
|
'! MAP 2 Uppercase FITALY'
|
||||||
|
''
|
||||||
|
|
||||||
|
'M,0,0,210,0,300,207,5,12,195,0,209,207,ffffff,000000,333333,dddd' +
|
||||||
|
'ff'
|
||||||
|
'R'
|
||||||
|
'K,001b,2,c0c0c0,000000,Esc'
|
||||||
|
'K,005a'
|
||||||
|
'K,0056'
|
||||||
|
'K,0043'
|
||||||
|
'K,0048'
|
||||||
|
'K,0057'
|
||||||
|
'K,004b'
|
||||||
|
'K,002d,1,ffffa0'
|
||||||
|
'K,0021,1,ffffa0'
|
||||||
|
'K,0008,2,c0c0c0,000000,BS'
|
||||||
|
'R'
|
||||||
|
'K,0009,2,c0c0c0,000000,TAB'
|
||||||
|
'K,0046'
|
||||||
|
'K,0049'
|
||||||
|
'K,0054'
|
||||||
|
'K,0041'
|
||||||
|
'K,004c'
|
||||||
|
'K,0059'
|
||||||
|
'K,002c,1,ffffa0'
|
||||||
|
'K,003f,1,ffffa0'
|
||||||
|
'K,000d,2,c0c0c0,000000,RET'
|
||||||
|
'R'
|
||||||
|
'L,1,2,000000,c0c0c0,Cap'
|
||||||
|
'K,0020,2'
|
||||||
|
'K,004e'
|
||||||
|
'K,0045'
|
||||||
|
'K,0020,2'
|
||||||
|
'K,002e,1,ffffa0'
|
||||||
|
'K,003a,1,ffffa0'
|
||||||
|
'S,1,2,c0c0c0,000000,Shift'
|
||||||
|
'R'
|
||||||
|
'S,1,2,c0c0c0,000000,Ctrl'
|
||||||
|
'K,0047'
|
||||||
|
'K,0044'
|
||||||
|
'K,004f'
|
||||||
|
'K,0052'
|
||||||
|
'K,0053'
|
||||||
|
'K,0042'
|
||||||
|
'K,0027,1,ffffa0'
|
||||||
|
'K,0028,1,ffffa0'
|
||||||
|
'K,f807,1,c0ffff,000000,<'
|
||||||
|
'K,f6dd,1,c0ffff,000000,<<'
|
||||||
|
'R'
|
||||||
|
'L,3,2,c0c0c0,000000,123'
|
||||||
|
'K,0051'
|
||||||
|
'K,004a'
|
||||||
|
'K,0055'
|
||||||
|
'K,004d'
|
||||||
|
'K,0050'
|
||||||
|
'K,0058'
|
||||||
|
'K,002f,1,ffffa0'
|
||||||
|
'K,0029,1,ffffa0'
|
||||||
|
'K,f808,1,c0ffff,000000,>'
|
||||||
|
'K,f6dc,1,c0ffff,000000,>>'
|
||||||
|
''
|
||||||
|
'! MAP 3 Numeric FITALY'
|
||||||
|
''
|
||||||
|
|
||||||
|
'M,0,0,210,0,300,207,5,12,195,0,209,207,ffffff,000000,333333,dddd' +
|
||||||
|
'ff'
|
||||||
|
'R'
|
||||||
|
'K,001b,2,c0c0c0,000000,Esc'
|
||||||
|
'K,003c'
|
||||||
|
'K,003e'
|
||||||
|
'K,003d'
|
||||||
|
'K,00d7'
|
||||||
|
'K,00f7'
|
||||||
|
'K,002b'
|
||||||
|
'K,002d,1,ffffa0'
|
||||||
|
'K,0021,1,ffffa0'
|
||||||
|
'K,0008,2,c0c0c0,000000,BS'
|
||||||
|
'R'
|
||||||
|
'K,0009,2,c0c0c0,000000,TAB'
|
||||||
|
'K,00a4'
|
||||||
|
'K,00b0'
|
||||||
|
'K,0040'
|
||||||
|
'K,0031'
|
||||||
|
'K,0032'
|
||||||
|
'K,0033'
|
||||||
|
'K,002c,1,ffffa0'
|
||||||
|
'K,003f,1,ffffa0'
|
||||||
|
'K,000d,2,c0c0c0,000000,RET'
|
||||||
|
'R'
|
||||||
|
'L,4,2,c0c0c0,000000,Cap'
|
||||||
|
'K,0020,2'
|
||||||
|
'K,0026'
|
||||||
|
'K,0034'
|
||||||
|
'K,0035'
|
||||||
|
'K,0036'
|
||||||
|
'K,002e,1,ffffa0'
|
||||||
|
'K,003a,1,ffffa0'
|
||||||
|
'S,4,2,c0c0c0,000000,Shift'
|
||||||
|
'R'
|
||||||
|
'S,1,2,c0c0c0,000000,Ctrl'
|
||||||
|
'K,00a5'
|
||||||
|
'K,00a2'
|
||||||
|
'K,0025'
|
||||||
|
'K,0037'
|
||||||
|
'K,0038'
|
||||||
|
'K,0039'
|
||||||
|
'K,0027,1,ffffa0'
|
||||||
|
'K,0028,1,ffffa0'
|
||||||
|
'K,f807,1,c0ffff,000000,<'
|
||||||
|
'K,f6dd,1,c0ffff,000000,<<'
|
||||||
|
'R'
|
||||||
|
'L,1,2,c0c0c0,000000,abc'
|
||||||
|
'K,20ac'
|
||||||
|
'K,00a3'
|
||||||
|
'K,0024'
|
||||||
|
'K,002a'
|
||||||
|
'K,0030'
|
||||||
|
'K,0023'
|
||||||
|
'K,002f,1,ffffa0'
|
||||||
|
'K,0029,1,ffffa0'
|
||||||
|
'K,f808,1,c0ffff,000000,>'
|
||||||
|
'K,f6dc,1,c0ffff,000000,>>'
|
||||||
|
''
|
||||||
|
'! MAP 4 Symbols (Numeric shifted)'
|
||||||
|
''
|
||||||
|
|
||||||
|
'M,0,0,210,0,300,207,5,12,195,0,209,207,ffffff,000000,333333,dddd' +
|
||||||
|
'ff'
|
||||||
|
'R'
|
||||||
|
'K,001b,2,c0c0c0,000000,Esc'
|
||||||
|
'K,2020'
|
||||||
|
'K,2021'
|
||||||
|
'K,00aa'
|
||||||
|
'K,00ac'
|
||||||
|
'K,00ba'
|
||||||
|
'K,00b1'
|
||||||
|
'K,005f,1,ffffa0'
|
||||||
|
'K,00a1,1,ffffa0'
|
||||||
|
'K,0008,2,c0c0c0,000000,BS'
|
||||||
|
'R'
|
||||||
|
'K,0009,2,c0c0c0,000000,TAB'
|
||||||
|
'K,2021'
|
||||||
|
'K,2021'
|
||||||
|
'K,007c'
|
||||||
|
'K,00b9'
|
||||||
|
'K,00b2'
|
||||||
|
'K,00b3'
|
||||||
|
'K,2018,1,ffffa0'
|
||||||
|
'K,00bf,1,ffffa0'
|
||||||
|
'K,000d,2,c0c0c0,000000,RET'
|
||||||
|
'R'
|
||||||
|
'L,3,2,c0c0c0,000000,Cap'
|
||||||
|
'K,00a0,2,ffffff,000000,n.b.'
|
||||||
|
'K,00a6'
|
||||||
|
'K,00bc'
|
||||||
|
'K,00bd'
|
||||||
|
'K,00be'
|
||||||
|
'K,2019,1,ffffa0'
|
||||||
|
'K,003b,1,ffffa0'
|
||||||
|
'S,3,2,c0c0c0,000000,Shift'
|
||||||
|
'R'
|
||||||
|
'S,1,2,c0c0c0,000000,Ctrl'
|
||||||
|
'K,00e3'
|
||||||
|
'K,00f5'
|
||||||
|
'K,2030'
|
||||||
|
'K,201a'
|
||||||
|
'K,00af'
|
||||||
|
'K,00b7'
|
||||||
|
'K,0022,1,ffffa0'
|
||||||
|
'K,201c,1,ffffa0'
|
||||||
|
'K,f807,1,c0ffff,000000,<'
|
||||||
|
'K,f6dd,1,c0ffff,000000,<<'
|
||||||
|
'R'
|
||||||
|
'L,1,2,c0c0c0,000000,abc'
|
||||||
|
'K,00c3'
|
||||||
|
'K,00d5'
|
||||||
|
'K,0192'
|
||||||
|
'K,201e'
|
||||||
|
'K,00ad'
|
||||||
|
'K,2026'
|
||||||
|
'K,005c,1,ffffa0'
|
||||||
|
'K,201d,1,ffffa0'
|
||||||
|
'K,f808,1,c0ffff,000000,>'
|
||||||
|
'K,f6dc,1,c0ffff,000000,>>')
|
||||||
|
ScrollBars = ssVertical
|
||||||
|
TabOrder = 0
|
||||||
|
WordWrap = False
|
||||||
|
end
|
||||||
|
object Button1: TButton
|
||||||
|
Left = 8
|
||||||
|
Top = 8
|
||||||
|
Width = 75
|
||||||
|
Height = 25
|
||||||
|
Caption = 'Open...'
|
||||||
|
TabOrder = 1
|
||||||
|
OnClick = Button1Click
|
||||||
|
end
|
||||||
|
object Button2: TButton
|
||||||
|
Left = 88
|
||||||
|
Top = 8
|
||||||
|
Width = 75
|
||||||
|
Height = 25
|
||||||
|
Caption = 'Save'
|
||||||
|
Enabled = False
|
||||||
|
TabOrder = 2
|
||||||
|
OnClick = Button2Click
|
||||||
|
end
|
||||||
|
object Button3: TButton
|
||||||
|
Left = 168
|
||||||
|
Top = 8
|
||||||
|
Width = 75
|
||||||
|
Height = 25
|
||||||
|
Caption = 'Save As...'
|
||||||
|
TabOrder = 3
|
||||||
|
OnClick = Button3Click
|
||||||
|
end
|
||||||
|
object Button4: TButton
|
||||||
|
Left = 408
|
||||||
|
Top = 360
|
||||||
|
Width = 161
|
||||||
|
Height = 25
|
||||||
|
Caption = 'Visualize!'
|
||||||
|
TabOrder = 4
|
||||||
|
OnClick = Button4Click
|
||||||
|
end
|
||||||
|
object Stat: TListBox
|
||||||
|
Left = 8
|
||||||
|
Top = 344
|
||||||
|
Width = 345
|
||||||
|
Height = 41
|
||||||
|
ItemHeight = 13
|
||||||
|
TabOrder = 5
|
||||||
|
end
|
||||||
|
object SpinEdit1: TSpinEdit
|
||||||
|
Left = 360
|
||||||
|
Top = 360
|
||||||
|
Width = 41
|
||||||
|
Height = 22
|
||||||
|
MaxValue = 255
|
||||||
|
MinValue = 1
|
||||||
|
TabOrder = 6
|
||||||
|
Value = 1
|
||||||
|
end
|
||||||
|
object OpenDialog1: TOpenDialog
|
||||||
|
DefaultExt = 'kbl'
|
||||||
|
Filter = 'PopOnTob Keyboard Layouts (*.kbl)|*.kbl|All Files (*.*)|*.*'
|
||||||
|
Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist, ofEnableSizing, ofDontAddToRecent]
|
||||||
|
Left = 264
|
||||||
|
Top = 8
|
||||||
|
end
|
||||||
|
object SaveDialog1: TSaveDialog
|
||||||
|
Filter = 'PopOnTop Keyboard Layout (*.kbl)|*.kbl|All Files (*.*)|*.*'
|
||||||
|
Options = [ofOverwritePrompt, ofHideReadOnly, ofPathMustExist, ofEnableSizing, ofDontAddToRecent]
|
||||||
|
Left = 320
|
||||||
|
Top = 8
|
||||||
|
end
|
||||||
|
end
|
||||||
277
KBLVisualizerU.pas
Normal file
277
KBLVisualizerU.pas
Normal file
@ -0,0 +1,277 @@
|
|||||||
|
unit KBLEditU;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Windows, Forms, Graphics, SysUtils, StrUtils, Spin, ExtCtrls, Dialogs,
|
||||||
|
StdCtrls, Controls, Classes;
|
||||||
|
|
||||||
|
type
|
||||||
|
TKBLEditForm = class(TForm)
|
||||||
|
OpenDialog1: TOpenDialog;
|
||||||
|
SaveDialog1: TSaveDialog;
|
||||||
|
Px00Screen: TImage;
|
||||||
|
Memo1: TMemo;
|
||||||
|
Button1: TButton;
|
||||||
|
Button2: TButton;
|
||||||
|
Button3: TButton;
|
||||||
|
Button4: TButton;
|
||||||
|
Stat: TListBox;
|
||||||
|
SpinEdit1: TSpinEdit;
|
||||||
|
Label1: TLabel;
|
||||||
|
procedure Button4Click(Sender: TObject);
|
||||||
|
procedure Button1Click(Sender: TObject);
|
||||||
|
procedure Button3Click(Sender: TObject);
|
||||||
|
procedure FormCreate(Sender: TObject);
|
||||||
|
procedure Button2Click(Sender: TObject);
|
||||||
|
private
|
||||||
|
{ Private declarations }
|
||||||
|
public
|
||||||
|
{ Public declarations }
|
||||||
|
end;
|
||||||
|
|
||||||
|
var
|
||||||
|
KBLEditForm: TKBLEditForm;
|
||||||
|
Screenshot: TBitmap;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
{$R *.dfm}
|
||||||
|
|
||||||
|
type
|
||||||
|
TArray = array of string;
|
||||||
|
TKey = record
|
||||||
|
typ: char;
|
||||||
|
value: string;
|
||||||
|
width: integer;
|
||||||
|
keycap: TColor;
|
||||||
|
ink: TColor;
|
||||||
|
legend: string;
|
||||||
|
end;
|
||||||
|
TRow = array of TKey;
|
||||||
|
TMap = record
|
||||||
|
landscape: boolean;
|
||||||
|
fullscreen: boolean;
|
||||||
|
top, left, bottom, right: integer;
|
||||||
|
rows, cols: integer;
|
||||||
|
otop, oleft, obottom, oright: integer;
|
||||||
|
keycap: TColor;
|
||||||
|
ink: TColor;
|
||||||
|
highlight: TColor;
|
||||||
|
background: TColor;
|
||||||
|
Data: array of TRow;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure ClearScreen;
|
||||||
|
begin
|
||||||
|
KBLEditForm.Px00Screen.Picture.LoadFromFile(ChangeFileExt(Application.ExeName,'.bmp'));
|
||||||
|
end;
|
||||||
|
|
||||||
|
function GetMap(x: integer): TArray;
|
||||||
|
var i,j: integer;
|
||||||
|
t: string;
|
||||||
|
r: TArray;
|
||||||
|
begin
|
||||||
|
i := 0;
|
||||||
|
SetLength(r, 200);
|
||||||
|
for j:=0 to KBLEditForm.Memo1.Lines.Count do begin
|
||||||
|
t := KBLEditForm.Memo1.Lines.Strings[j];
|
||||||
|
if (Length(t)>0) then begin
|
||||||
|
if (UpCase(t[1])='M') AND (x>0) then Dec(x)
|
||||||
|
else if (UpCase(t[1])='M') AND (x<=0) then Break;
|
||||||
|
end;
|
||||||
|
if (x=0) then begin
|
||||||
|
r[i] := t;
|
||||||
|
Inc(i);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
SetLength(r, i);
|
||||||
|
Result := r;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function Split(x: string): TArray;
|
||||||
|
var i,p,o: integer;
|
||||||
|
r: TArray;
|
||||||
|
begin
|
||||||
|
i := 0;
|
||||||
|
o := 1;
|
||||||
|
SetLength(r, 50);
|
||||||
|
p := PosEx(',',x,o);
|
||||||
|
while (p>0) do begin
|
||||||
|
r[i] := Copy(x,o,p-o);
|
||||||
|
Inc(i);
|
||||||
|
o := p+1;
|
||||||
|
p := PosEx(',',x,o);
|
||||||
|
end;
|
||||||
|
r[i] := Copy(x,o,Length(x)-o+1);
|
||||||
|
Inc(i);
|
||||||
|
SetLength(r, i);
|
||||||
|
Result := r;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function Hex2Col(h: string): TColor;
|
||||||
|
const Hexmap = '0123456789ABCDEF';
|
||||||
|
var r,g,b: integer;
|
||||||
|
begin
|
||||||
|
h := UpperCase(h);
|
||||||
|
r := (Pos(h[1],hexmap)-1)*16 + (Pos(h[2],hexmap)-1);
|
||||||
|
g := (Pos(h[3],hexmap)-1)*16 + (Pos(h[4],hexmap)-1);
|
||||||
|
b := (Pos(h[5],hexmap)-1)*16 + (Pos(h[6],hexmap)-1);
|
||||||
|
// KBLEditForm.Stat.Items.Add('In:'+h+' --- Out r:'+IntToStr(r)+' g:'+IntToStr(g)+' b:'+IntToStr(b));
|
||||||
|
Result := rgb(r, g, b);
|
||||||
|
end;
|
||||||
|
|
||||||
|
function Hex2Str(h: string): string;
|
||||||
|
const Hexmap = '0123456789ABCDEF';
|
||||||
|
var c: integer;
|
||||||
|
t: string;
|
||||||
|
begin
|
||||||
|
h := UpperCase(h);
|
||||||
|
c := (Pos(h[3],hexmap)-1)*16 + (Pos(h[4],hexmap)-1);
|
||||||
|
t := Chr(c);
|
||||||
|
Result := t;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function ParseMap(m: TArray): TMap;
|
||||||
|
var i, rows, keys: integer;
|
||||||
|
l: TArray;
|
||||||
|
r: TMap;
|
||||||
|
begin
|
||||||
|
SetLength(r.Data, 100);
|
||||||
|
SetLength(l, 100);
|
||||||
|
rows := 0;
|
||||||
|
keys := 0;
|
||||||
|
for i:=0 to Length(m)-1 do begin
|
||||||
|
if (Length(m[i])>0) then begin
|
||||||
|
l := Split(m[i]);
|
||||||
|
if Length(l)>0 then begin
|
||||||
|
if (l[0]='M') then begin
|
||||||
|
if (Length(l)=17) then begin
|
||||||
|
if (l[1]='0') then r.landscape := false else r.landscape := true;
|
||||||
|
if (l[2]='0') then r.fullscreen := false else r.fullscreen := true;
|
||||||
|
r.top := StrToInt(l[3]);
|
||||||
|
r.left := StrToInt(l[4]);
|
||||||
|
r.bottom := StrToInt(l[5]);
|
||||||
|
r.right := StrToInt(l[6]);
|
||||||
|
r.rows := StrToInt(l[7]);
|
||||||
|
r.cols := StrToInt(l[8]);
|
||||||
|
r.otop := StrToInt(l[9]);
|
||||||
|
r.oleft := StrToInt(l[10]);
|
||||||
|
r.obottom := StrToInt(l[11]);
|
||||||
|
r.oright := StrToInt(l[12]);
|
||||||
|
r.keycap := Hex2Col(l[13]);
|
||||||
|
r.ink := Hex2Col(l[14]);
|
||||||
|
r.highlight := Hex2Col(l[15]);
|
||||||
|
r.background := Hex2Col(l[16]);
|
||||||
|
end;
|
||||||
|
end else if (l[0]='R') then begin
|
||||||
|
if (rows>0) then SetLength(r.Data[rows-1], keys);
|
||||||
|
Inc(rows);
|
||||||
|
SetLength(r.Data[rows-1], 100);
|
||||||
|
keys := 0;
|
||||||
|
end else if (l[0]='L') OR (l[0]='K') OR (l[0]='S') then begin
|
||||||
|
with r.Data[rows-1][keys] do begin
|
||||||
|
typ := l[0][1];
|
||||||
|
value := l[1];
|
||||||
|
if (Length(l)>2) then width := StrToInt(l[2]) else width := 1;
|
||||||
|
if (Length(l)>3) then keycap := Hex2Col(l[3]) else keycap := r.keycap;
|
||||||
|
if (Length(l)>4) then ink := Hex2Col(l[4]) else ink := r.ink;
|
||||||
|
if (Length(l)>5) then legend := l[5] else legend := Hex2Str(l[1]);
|
||||||
|
end;
|
||||||
|
Inc(keys);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
if (rows>0) then begin
|
||||||
|
SetLength(r.Data[rows-1], keys);
|
||||||
|
SetLength(r.Data, rows);
|
||||||
|
end;
|
||||||
|
Result := r;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure KeyRect(map: TMap; i,j,ki: integer; lbl: string);
|
||||||
|
const space = 3;
|
||||||
|
var top, left, bottom, right: integer;
|
||||||
|
kw, kh: integer;
|
||||||
|
hc, vc: integer;
|
||||||
|
key: TKey;
|
||||||
|
begin
|
||||||
|
key := map.Data[i][j];
|
||||||
|
hc := map.left + Round((map.right-map.left)/(map.cols+1)) * ki;
|
||||||
|
vc := map.top + Round((map.bottom-map.top)/(map.rows+1)) * (i+1);
|
||||||
|
kw := Round(( map.right - map.left ) / (map.cols+1)) - space;
|
||||||
|
kh := Round(( map.bottom - map.top ) / (map.rows+1)) - space;
|
||||||
|
left := hc - Round(kw/2);
|
||||||
|
right := hc + Round(kw/2) + (key.width-1)*(kw+space);
|
||||||
|
top := vc - Round(kh/2);
|
||||||
|
bottom := vc + Round(kh/2);
|
||||||
|
with KBLEditForm.Px00Screen.Canvas do begin
|
||||||
|
Brush.Color := map.Data[i][j].keycap;
|
||||||
|
Font.Color := map.Data[i][j].ink;
|
||||||
|
Rectangle(left, top, right+1, bottom+1);
|
||||||
|
TextRect(Rect(left,top,right+1,bottom+1),hc-2,vc-Round(kh/2),key.legend);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure VisMap(x: integer);
|
||||||
|
var m: TArray;
|
||||||
|
map: TMap;
|
||||||
|
i, j: integer;
|
||||||
|
keyindex: integer;
|
||||||
|
begin
|
||||||
|
SetLength(m, 200);
|
||||||
|
SetLength(map.Data, 200);
|
||||||
|
m := GetMap(x);
|
||||||
|
map := ParseMap(m);
|
||||||
|
with KBLEditForm.Px00Screen.Canvas do begin
|
||||||
|
Brush.Style := bsSolid;
|
||||||
|
Brush.Color := map.background;
|
||||||
|
Pen.Color := clBlack;
|
||||||
|
Font.Name := 'Arial';
|
||||||
|
Font.Color := clBlack;
|
||||||
|
Font.Size := 8;
|
||||||
|
Rectangle(Rect(map.oleft, map.otop, map.oright+1, map.obottom+1));
|
||||||
|
FillRect(Rect(map.left, map.top, map.right+1, map.bottom+1));
|
||||||
|
for i:=0 to Length(map.Data)-1 do begin
|
||||||
|
keyindex := 1;
|
||||||
|
for j:=0 to Length(map.Data[i])-1 do begin
|
||||||
|
Keyrect(map, i, j, keyindex, map.Data[i][j].legend);
|
||||||
|
Inc(keyindex, map.Data[i][j].width);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TKBLEditForm.Button4Click(Sender: TObject);
|
||||||
|
begin
|
||||||
|
ClearScreen;
|
||||||
|
VisMap(SpinEdit1.Value);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TKBLEditForm.Button1Click(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if (OpenDialog1.Execute) then begin
|
||||||
|
Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
|
||||||
|
Button2.Enabled := true;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TKBLEditForm.Button3Click(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if (SaveDialog1.Execute) then begin
|
||||||
|
Memo1.Lines.SaveToFile(SaveDialog1.FileName);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TKBLEditForm.FormCreate(Sender: TObject);
|
||||||
|
begin
|
||||||
|
ClearScreen;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TKBLEditForm.Button2Click(Sender: TObject);
|
||||||
|
begin
|
||||||
|
Memo1.Lines.SaveToFile(OpenDialog1.FileName);
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
BIN
PopOnTop.ico
Normal file
BIN
PopOnTop.ico
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 3.2 KiB |
6
Todo.txt
Normal file
6
Todo.txt
Normal file
@ -0,0 +1,6 @@
|
|||||||
|
KBLVisualizer TODO
|
||||||
|
|
||||||
|
-automatically visualize/render map at cursor, update on changes
|
||||||
|
-show unicode character in unicode list
|
||||||
|
-LANDSCAPE SUPPORT
|
||||||
|
(render in other canvas and translate pixel by pixel to horizontal) or (find out how fonts can be painted vertically)
|
||||||
4145
unicode-index.txt
Normal file
4145
unicode-index.txt
Normal file
File diff suppressed because it is too large
Load Diff
Reference in New Issue
Block a user