mbirth/delphi-kblvis
Archived
1
0
Fork 0
Code Releases 1 Activity

modified History.txt

Browse Source 
modified   KBLVisualizerU.pas
-font size now depends on key height
-if a key has unicode 0000 it is not displayed
This commit is contained in:
mbirth 2004-12-08 09:20:41 +00:00
parent 18165c96e8
commit 7d78de1dc6
2 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
History.txt
View File

@ -9,6 +9,7 @@ x Fixed, + Added, * Improved/Changed, i Information
x : Memo field now jumps to cursor position after key was clicked
* : more optimizations
* : font size now depends on key height
2004-02-20 (1.2)

6
KBLVisualizerU.pas
View File

@ -419,7 +419,9 @@ begin
Pen.Color := clBlack;
Font.Name := 'Arial';
Font.Color := clBlack;
Font.Size := 8;
Font.Height := ((map.bottom-map.top) DIV map.rows)-4;
if (Font.Height>22) then Font.Height := 22;
if (Font.Height<12) then Font.Height := 12;
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
@ -432,7 +434,7 @@ begin
hicol := clBlack;
Pen.Width := 1;
end;
Keyrect(map, i, j, keyindex, map.Data[i].keys[j].legend, hicol);
if (map.Data[i].keys[j].value<>'0000') then Keyrect(map, i, j, keyindex, map.Data[i].keys[j].legend, hicol);
if (exoc) then begin
exoc := false;
Exit;