LCL: fixed typo in postscriptcanvas (bug #11629)

git-svn-id: trunk@15706 -

lcl/include/listitem.inc

@@ -321,6 +321,7 @@ end;
 {------------------------------------------------------------------------------}
 procedure TListItem.Delete;
 begin
+  DebugLn(['TListItem.Delete ', Caption, 'lifDestroying in FFlags: ', lifDestroying in FFlags]);
   if not (lifDestroying in FFlags) then Free;
 end;
 
@@ -329,6 +330,7 @@ end;
 {------------------------------------------------------------------------------}
 destructor TListItem.Destroy;
 begin
+  DebugLn(['TListItem.Destroy', Caption]);
   Include(FFlags, lifDestroying);
   if FOwner <> nil
   then FOwner.ItemDestroying(Self);

lcl/include/listitems.inc

@@ -189,6 +189,7 @@ begin
 
   if FCacheIndex = idx 
   then FCacheIndex := -1;
+  DebugLn([FItems.Count,' ', idx]);
   FItems.Delete(idx);
 end;
 

lcl/lclproc.pas

@@ -376,29 +376,10 @@ type
     mkcDel, mkcShift, mkcCtrl, mkcAlt);
 
 const
-  SmkcBkSp = 'BkSp';
-  SmkcTab = 'Tab';
-  SmkcEsc = 'Esc';
-  SmkcEnter = 'Enter';
-  SmkcSpace = 'Space';
-  SmkcPgUp = 'PgUp';
-  SmkcPgDn = 'PgDn';
-  SmkcEnd = 'End';
-  SmkcHome = 'Home';
-  SmkcLeft = 'Left';
-  SmkcUp = 'Up';
-  SmkcRight = 'Right';
-  SmkcDown = 'Down';
-  SmkcIns = 'Ins';
-  SmkcDel = 'Del';
-  SmkcShift = 'Shift+';
-  SmkcCtrl = 'Ctrl+';
-  SmkcAlt = 'Alt+';
-
   MenuKeyCaps: array[TMenuKeyCap] of string = (
-    SmkcBkSp, SmkcTab, SmkcEsc, SmkcEnter, SmkcSpace, SmkcPgUp,
-    SmkcPgDn, SmkcEnd, SmkcHome, SmkcLeft, SmkcUp, SmkcRight,
-    SmkcDown, SmkcIns, SmkcDel, SmkcShift, SmkcCtrl, SmkcAlt);
+    rssmkcBkSp, rssmkcTab, rssmkcEsc, rssmkcEnter, rssmkcSpace, rssmkcPgUp,
+    rssmkcPgDn, rssmkcEnd, rssmkcHome, rssmkcLeft, rssmkcUp, rssmkcRight,
+    rssmkcDown, rssmkcIns, rssmkcDel, rssmkcShift, rssmkcCtrl, rssmkcAlt);
 
 function GetSpecialShortCutName(ShortCut: TShortCut): string;
 {var
@@ -452,6 +433,7 @@ var
   Name: string;
   Key: Byte;
 begin
+  MenuKeyCaps[mkcShift] := rssmkcShift;
   Key := ShortCut and $FF;
   case Key of
     $08, $09:

lcl/lclstrconsts.pas

@@ -265,6 +265,26 @@ ResourceString
   ifsVK_NUMPAD     = 'Numpad %d';
   ifsVK_NUMLOCK    = 'Numlock';
   ifsVK_SCROLL     = 'Scroll';
+  
+  // shortcut keys
+  rssmkcBkSp = 'BkSp';
+  rssmkcTab = 'Tab';
+  rssmkcEsc = 'Esc';
+  rssmkcEnter = 'Enter';
+  rssmkcSpace = 'Space';
+  rssmkcPgUp = 'PgUp';
+  rssmkcPgDn = 'PgDn';
+  rssmkcEnd = 'End';
+  rssmkcHome = 'Home';
+  rssmkcLeft = 'Left';
+  rssmkcUp = 'Up';
+  rssmkcRight = 'Right';
+  rssmkcDown = 'Down';
+  rssmkcIns = 'Ins';
+  rssmkcDel = 'Del';
+  rssmkcShift = 'Shift+';
+  rssmkcCtrl = 'Ctrl+';
+  rssmkcAlt = 'Alt+';
 
   // docking
   rsDocking = 'Docking';

lcl/postscriptcanvas.pas

@@ -1060,7 +1060,7 @@ begin
 
   WriteHeader('/underline_off');
   WriteHeader('{ %def');
-  WriteHeader('    /undefline false def');
+  WriteHeader('    /underline false def');
   WriteHeader('    /TEXT { TEXTwithout } def');
   WriteHeader('} def');