modified History.txt

modified   KBLVisualizer.dof
modified   KBLVisualizer.res
modified   KBLVisualizer.txt
modified   KBLVisualizerU.pas
-Memo1 now jumps to cursor position upon click on a key in visual
-more optimizations for GetFirstCharInLine and GetSelection

History.txt

@@ -3,6 +3,14 @@ KBL-Visualizer HISTORY
 x Fixed, + Added, * Improved/Changed, i Information
 
 
+2004-02-21
+----------
+
+x : Memo field now jumps to cursor position after key was clicked
+
+* : more optimizations
+
+
 2004-02-20 (1.2)
 ----------------
 

KBLVisualizer.dof

@@ -115,7 +115,7 @@ AutoIncBuild=1
 MajorVer=1
 MinorVer=2
 Release=0
-Build=11
+Build=12
 Debug=0
 PreRelease=0
 Special=0
@@ -126,7 +126,7 @@ CodePage=1252
 [Version Info Keys]
 CompanyName=
 FileDescription=KBL-Visualizer
-FileVersion=1.2.0.11
+FileVersion=1.2.0.12
 InternalName=KBLVisualizer
 LegalCopyright=(c)2004 by Markus Birth <mbirth@webwriters.de>
 LegalTrademarks=

KBLVisualizer.txt

@@ -9,15 +9,20 @@ devices.
 
 The program itself should be self-explanatory.
 The left area is the working space which
-contains the keyboard layout you are working
+contains the keyboard layout source code you
-on. You can open and save your work using the
+are working on. The syntax of the command in
-buttons above the text area.
+the current line is displayed above the text
+area. You can open and save your work using
+the buttons above the syntax line.
 
 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.
+want to see. Click on a key to jump to that
+key in the KBL source code. The key at the
+cursor position is highlighted using a red
+border.
 
 The bottom left corner contains the unicode
 table. It is loaded from the file

KBLVisualizerU.pas

@@ -4,7 +4,7 @@ interface
 
 uses
   Windows, Forms, Graphics, SysUtils, StrUtils, Spin, ExtCtrls, Dialogs,
-  StdCtrls, Controls, Classes, ComCtrls, Grids, Clipbrd;
+  StdCtrls, Controls, Classes, ComCtrls, Grids, Clipbrd, Messages;
 
 type
   TKBLEditForm = class(TForm)
@@ -81,6 +81,9 @@ type
                  row: integer;
                  key: integer;
                end;
+  TRowCol = record
+              row, col: integer;
+            end;
   TKey = record
            typ: char;
            value: string;
@@ -148,6 +151,12 @@ begin
   end;
 end;
 
+function GetMemoRowCol(M: TMemo): TRowCol;
+begin
+  Result.row := M.Perform(EM_LINEFROMCHAR, M.SelStart, 0);
+  Result.col := M.SelStart - M.Perform(EM_LINEINDEX, Result.row, 0);
+end;
+
 procedure UpdateTitle;
 begin
   with KBLEditForm do begin
@@ -199,28 +208,30 @@ begin
 end;
 
 function GetCursorPos: TSelection;
-var cp, i: integer;
+var i: integer;
-    t: AnsiString;
     test: char;
     m, r, k: integer;
+    cpos: TRowCol;
 begin
   m := 0;
   r := 0;
   k := 0;
-  t := KBLEditForm.Memo1.Lines.Text;
+  cpos := GetMemoRowCol(KBLEditForm.Memo1);
-  cp := KBLEditForm.Memo1.SelStart;
+  for i:=0 to cpos.row do begin
-  for i:=1 to cp+1 do begin
+    if (Length(KBLEditForm.Memo1.Lines.Strings[i])>0) then begin
-    test := UpCase(t[i]);
+      test := UpCase(KBLEditForm.Memo1.Lines.Strings[i][1]);
-    if ((i=1) OR (Ord(t[i-1])=10)) AND (test='M') then begin
+      Stat('Memo1 #:'+IntToStr(i)+' - value: '+test);
-      Inc(m);
+      if (test='M') then begin
-      r := 0;
+        Inc(m);
-      k := 0;
+        r := 0;
+        k := 0;
+      end;
+      if (test='R') then begin
+        Inc(r);
+        k := 0;
+      end;
+      if (test='K') OR (test='L') OR (test='S') then Inc(k);
     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;
@@ -525,12 +536,17 @@ begin
 end;
 
 procedure TKBLEditForm.FormCreate(Sender: TObject);
+var ts: TSelection;
 begin
+  ts.map := 0;
+  ts.row := 0;
+  ts.key := 0;
   if (debug) then Status.Visible := true;
   TimerScroll.Enabled := false;
   LabelFile.Caption := '';
   LabelSyntax.Caption := '';
   ClearScreen;
+  VisMap(1, ts);
   LoadUnicodes;
 end;
 
@@ -599,11 +615,12 @@ procedure TKBLEditForm.ButtonNewClick(Sender: TObject);
 begin
   if (Memo1.Modified) then if (Application.MessageBox('Are you sure to clear everything?', 'Please confirm', MB_YESNO)=IDNO) then Exit;
   Memo1.Clear;
-  Memo1.SetFocus;
   ButtonSave.Enabled := false;
   Memo1.Modified := false;
   LabelFile.Caption := '';
   UpdateTitle;
+  ClearScreen;
+  Memo1.SetFocus;
 end;
 
 procedure UpdateColor;
@@ -688,13 +705,13 @@ begin
   end;
 end;
 
-function GetFirstCharInLine(s: AnsiString; i: integer): char;
+function GetFirstCharInLine(m: TMemo): char;
-var j: integer;
+var p: TRowCol;
 begin
   Result := Chr(0);
-  for j:=i downto 1 do begin
+  p := GetMemoRowCol(m);
-    if (Ord(s[j])=13) OR (Ord(s[j])=10) then Break;
+  if (Length(m.Lines.Strings[p.row])>0) then begin
-    Result := s[j];
+    Result := m.Lines.Strings[p.row][1];
   end;
 end;
 
@@ -728,7 +745,7 @@ end;
 procedure TKBLEditForm.Memo1Change(Sender: TObject);
 var x: char;
 begin
-  x := GetFirstCharInLine(Memo1.Lines.Text, Memo1.SelStart);
+  x := GetFirstCharInLine(Memo1);
   SetSyntax(GetHelpByKey(x));
 end;
 
@@ -776,6 +793,7 @@ end;
 procedure MemoJumpTo(map, row, key: integer);
 var t: AnsiString;
     i: integer;
+    x: char;
     test: char;
 begin
   with KBLEditForm.Memo1 do begin
@@ -789,6 +807,9 @@ begin
       end;
       if (map=0) AND (row=0) AND (key=0) then begin
         SelStart := i-1;
+        x := GetFirstCharInLine(KBLEditForm.Memo1);
+        Perform(EM_SCROLLCARET, 0, 0);
+        SetSyntax(GetHelpByKey(x));
         SetFocus;
         Break;
       end;
@@ -804,6 +825,7 @@ begin
     sel := GetClickedKey(SpinEdit1.Value,x,y);
     if (sel.map>0) then begin
       MemoJumpTo(sel.map, sel.row, sel.key);
+      VisMap(SpinEdit1.Value, sel);
     end;
   end;
 end;