modified History.txt

modified   KBLVisualizer.dof
modified   KBLVisualizer.res
modified   KBLVisualizerU.dfm
modified   KBLVisualizerU.pas
-keys shown with rounded rectangles
-selected key is marked with red border in visual
-click on a key in visual lets the cursor jump to that key in source

History.txt

@@ -3,6 +3,15 @@ KBL-Visualizer HISTORY
 x Fixed, + Added, * Improved/Changed, i Information
 
 
+2004-02-20 (1.2)
+----------------
+
++ : rounded borders around keys
++ : key at cursor position is marked with red border in visual
++ : click on a key in visual lets the cursor jump to that key
+
+* : some optimizations
+
 
 2004-02-17 (1.1)
 ----------------

KBLVisualizer.dof

@@ -113,9 +113,9 @@ RootDir=
 IncludeVerInfo=1
 AutoIncBuild=1
 MajorVer=1
-MinorVer=1
+MinorVer=2
 Release=0
-Build=9
+Build=11
 Debug=0
 PreRelease=0
 Special=0
@@ -126,11 +126,11 @@ CodePage=1252
 [Version Info Keys]
 CompanyName=
 FileDescription=KBL-Visualizer
-FileVersion=1.1.0.9
+FileVersion=1.2.0.11
 InternalName=KBLVisualizer
 LegalCopyright=(c)2004 by Markus Birth <mbirth@webwriters.de>
 LegalTrademarks=
 OriginalFilename=KBLVisualizer.exe
 ProductName=KBL-Visualizer
-ProductVersion=1.1.0.0
+ProductVersion=1.2.0.0
 Comments=Editor to visualize keyboard layouts for PopOnTop of Symbitz Software.

KBLVisualizerU.dfm

@@ -32,6 +32,7 @@ object KBLEditForm: TKBLEditForm
     Top = 35
     Width = 208
     Height = 320
+    OnMouseDown = Px00ScreenMouseDown
   end
   object LabelByMarkusBirth: TLabel
     Left = 473

KBLVisualizerU.pas

@@ -52,6 +52,8 @@ type
     procedure Memo1Change(Sender: TObject);
     procedure TimerScrollTimer(Sender: TObject);
     procedure Memo1Click(Sender: TObject);
+    procedure Px00ScreenMouseDown(Sender: TObject; Button: TMouseButton;
+      Shift: TShiftState; X, Y: Integer);
   private
     { Private declarations }
   public
@@ -74,6 +76,11 @@ const
 
 type
   TArray = array of string;
+  TSelection = record
+                 map: integer;
+                 row: integer;
+                 key: integer;
+               end;
   TKey = record
            typ: char;
            value: string;
@@ -191,6 +198,35 @@ begin
   Result := r;
 end;
 
+function GetCursorPos: TSelection;
+var cp, i: integer;
+    t: AnsiString;
+    test: char;
+    m, r, k: integer;
+begin
+  m := 0;
+  r := 0;
+  k := 0;
+  t := KBLEditForm.Memo1.Lines.Text;
+  cp := KBLEditForm.Memo1.SelStart;
+  for i:=1 to cp+1 do begin
+    test := UpCase(t[i]);
+    if ((i=1) OR (Ord(t[i-1])=10)) AND (test='M') then begin
+      Inc(m);
+      r := 0;
+      k := 0;
+    end;
+    if ((i=1) OR (Ord(t[i-1])=10)) AND (test='R') then begin
+      Inc(r);
+      k := 0;
+    end;
+    if ((i=1) OR (Ord(t[i-1])=10)) AND ((test='K') OR (test='L') OR (test='S')) then Inc(k);
+  end;
+  Result.map := m;
+  Result.row := r;
+  Result.key := k;
+end;
+
 function Hex2Col(h: string): TColor;
 var r,g,b: integer;
 begin
@@ -287,16 +323,16 @@ begin
   Result := r;
 end;
 
-procedure KeyRect(map: TMap; i,j,ki: integer; lbl: string);
+function GetKeyRect(map: TMap; i,j: integer): TRect;
-const space = 2;
+const space = 1.5;
-var top, left, bottom, right: integer;  // final rect for key
+var key: TKey;
     dt, dl, db, dr: double; // final rect as double
     mw, mh: double; // keymap width/height
-    tw, th: integer; // Text width/height
+    k, ki: integer; // key-index
-    ow, oh: double; // output key width/height
-    key: TKey;
 begin
   try
+    ki := 1;
+    for k:=0 to j-1 do ki := ki + map.Data[i].keys[k].width;
     key := map.Data[i].keys[j];
     Stat('map: ('+IntToStr(map.left)+','+IntToStr(map.top)+'),('+IntToStr(map.right)+','+IntToStr(map.bottom)+')');
     mw := map.right-map.left;
@@ -306,19 +342,45 @@ begin
     dr := map.left + (mw/map.cols) * (ki-1+key.width) - space;
     dt := map.top + (mh/(map.rows)) * i + space;  // ki=keyindex 1..x; i=row 0..x
     db := map.top + (mh/(map.rows)) * (i+1) - space;
-    ow := dr-dl+1;
+    Result.left := Round(dl);
-    oh := db-dt+1;
+    Result.right := Round(dr)+1;
-    left := Round(dl);
+    Result.top := Round(dt);
-    right := Round(dr);
+    Result.bottom := Round(db)+1;
-    top := Round(dt);
+  except
-    bottom := Round(db);
+    on e: Exception do begin
+      ShowMessage('Exception: '+e.Message+CRLF+CRLF+'Something seems to be wrong with this map.');
+      exoc := true;
+      Exit;
+    end;
+  end;
+end;
+
+procedure KeyRect(map: TMap; i,j,ki: integer; lbl: string; hicol: TColor);
+var top, left, bottom, right: integer;  // final rect for key
+    tw, th: integer; // Text width/height
+    ow, oh: double; // output key width/height
+    key: TKey;
+    keyrect: TRect;
+begin
+  try
+    key := map.Data[i].keys[j];
+    keyrect := GetKeyRect(map, i, j);
+    ow := keyrect.Right - keyrect.Left;
+    oh := keyrect.Bottom - keyrect.Top;
+    left := keyrect.Left;
+    right := keyrect.Right;
+    top := keyrect.Top;
+    bottom := keyrect.Bottom;
     with KBLEditForm.Px00Screen.Canvas do begin
       Brush.Color := map.Data[i].keys[j].keycap;
       Font.Color := map.Data[i].keys[j].ink;
-      Rectangle(left, top, right+1, bottom+1);
+      Pen.Color := hicol;
+      Pen.Style := psSolid;
+      RoundRect(left, top, right, bottom,(right-left) DIV 4, (bottom-top) DIV 3);
+      Brush.Style := bsClear;
       th := TextHeight(key.legend);
       tw := TextWidth(key.legend);
-      TextRect(Rect(left,top,right+1,bottom+1),Round(left+(ow-tw)/2),Round(top+(oh-th)/2),key.legend);
+      TextRect(Rect(left,top,right,bottom),Round(left+(ow-tw)/2),Round(top+(oh-th)/2),key.legend);
     end;
   except
     on e: Exception do begin
@@ -329,11 +391,12 @@ begin
   end;
 end;
 
-procedure VisMap(x: integer);
+procedure VisMap(x: integer; highlight: TSelection);
 var m: TArray;
     map: TMap;
     i, j: integer;
     keyindex: integer;
+    hicol: TColor;
 begin
   SetLength(m, 200);
   SetLength(map.Data, 200);
@@ -351,7 +414,14 @@ begin
     for i:=0 to Length(map.Data)-1 do begin
       keyindex := 1;
       for j:=0 to Length(map.Data[i].keys)-1 do begin
-        Keyrect(map, i, j, keyindex, map.Data[i].keys[j].legend);
+        if (x=highlight.map) AND (i+1=highlight.row) AND (j+1=highlight.key) then begin
+          hicol := clRed;
+          Pen.Width := 2;
+        end else begin
+          hicol := clBlack;
+          Pen.Width := 1;
+        end;
+        Keyrect(map, i, j, keyindex, map.Data[i].keys[j].legend, hicol);
         if (exoc) then begin
           exoc := false;
           Exit;
@@ -363,9 +433,12 @@ begin
 end;
 
 procedure TKBLEditForm.ButtonVisualizeClick(Sender: TObject);
+var pos: TSelection;
 begin
   ClearScreen;
-  VisMap(SpinEdit1.Value);
+  pos := GetCursorPos;
+  VisMap(SpinEdit1.Value, pos);
+  Memo1.SetFocus;
 end;
 
 procedure TKBLEditForm.ButtonOpenClick(Sender: TObject);
@@ -447,7 +520,7 @@ begin
     AddUnicode('F809', 'Up - Move cursor up one character');
     AddUnicode('F80A', 'Down - Move cursor down one character');
     AddUnicode('F7FE', 'Horizontal - Move keyboard horizontally');
-    AddUnicode('F7FF', 'Vertical - Move keyboard vertically'); 
+    AddUnicode('F7FF', 'Vertical - Move keyboard vertically');
   end;
 end;
 
@@ -672,4 +745,67 @@ begin
   Memo1Change(Sender);
 end;
 
+function GetClickedKey(mapnum, x, y: integer): TSelection;
+var m: TArray;
+    map: TMap;
+    keyrect: TRect;
+    i,j: integer;
+    found: boolean;
+begin
+  m := GetMap(mapnum);
+  map := ParseMap(m);
+  Result.map := 0;
+  Result.row := 0;
+  Result.key := 0;
+  found := false;
+  for i:=0 to Length(map.Data)-1 do begin
+    for j:=0 to Length(map.Data[i].keys)-1 do begin
+      keyrect := GetKeyRect(map, i, j);
+      if (x>=keyrect.Left) AND (x<=keyrect.Right) AND (y>=keyrect.Top) AND (y<=keyrect.Bottom) then begin
+        Result.map := mapnum;
+        Result.row := i+1;
+        Result.key := j+1;
+        found := true;
+        Break;
+      end;
+    end;
+    if (found) then Break;
+  end;
+end;
+
+procedure MemoJumpTo(map, row, key: integer);
+var t: AnsiString;
+    i: integer;
+    test: char;
+begin
+  with KBLEditForm.Memo1 do begin
+    t := Lines.Text;
+    for i:=1 to Length(t) do begin
+      test := UpCase(t[i]);
+      if (i>1) AND (Ord(t[i-1])=10) then begin
+        if (test='M') AND (map>0) then map := map - 1;
+        if (test='R') AND (map=0) AND (row>0) then row := row - 1;
+        if ((test='K') OR (test='L') OR (test='S')) AND (map=0) AND (row=0) AND (key>0) then key := key - 1;
+      end;
+      if (map=0) AND (row=0) AND (key=0) then begin
+        SelStart := i-1;
+        SetFocus;
+        Break;
+      end;
+    end;
+  end;
+end;
+
+procedure TKBLEditForm.Px00ScreenMouseDown(Sender: TObject;
+  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
+var sel: TSelection;
+begin
+  if (Button=mbLeft) AND (Shift=[ssLeft]) then begin
+    sel := GetClickedKey(SpinEdit1.Value,x,y);
+    if (sel.map>0) then begin
+      MemoJumpTo(sel.map, sel.row, sel.key);
+    end;
+  end;
+end;
+
 end.