paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-24 07:09:07 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: fixed typo in postscriptcanvas (bug #11629)

Browse Source 
git-svn-id: trunk@15706 -
This commit is contained in:
vincents 2008-07-08 16:45:16 +00:00
parent 53f2b70699
commit d49446d842
5 changed files with 28 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/include/listitem.inc
View File

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

1
lcl/include/listitems.inc
View File

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

26
lcl/lclproc.pas
View File

@ -376,29 +376,10 @@ type
mkcDel, mkcShift, mkcCtrl, mkcAlt); mkcDel, mkcShift, mkcCtrl, mkcAlt);
const 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 = ( MenuKeyCaps: array[TMenuKeyCap] of string = (
SmkcBkSp, SmkcTab, SmkcEsc, SmkcEnter, SmkcSpace, SmkcPgUp, rssmkcBkSp, rssmkcTab, rssmkcEsc, rssmkcEnter, rssmkcSpace, rssmkcPgUp,
SmkcPgDn, SmkcEnd, SmkcHome, SmkcLeft, SmkcUp, SmkcRight, rssmkcPgDn, rssmkcEnd, rssmkcHome, rssmkcLeft, rssmkcUp, rssmkcRight,
SmkcDown, SmkcIns, SmkcDel, SmkcShift, SmkcCtrl, SmkcAlt); rssmkcDown, rssmkcIns, rssmkcDel, rssmkcShift, rssmkcCtrl, rssmkcAlt);
function GetSpecialShortCutName(ShortCut: TShortCut): string; function GetSpecialShortCutName(ShortCut: TShortCut): string;
{var {var
@ -452,6 +433,7 @@ var
Name: string; Name: string;
Key: Byte; Key: Byte;
begin begin
MenuKeyCaps[mkcShift] := rssmkcShift;
Key := ShortCut and $FF; Key := ShortCut and $FF;
case Key of case Key of
$08, $09: $08, $09:

20
lcl/lclstrconsts.pas
View File

@ -266,6 +266,26 @@ ResourceString
ifsVK_NUMLOCK = 'Numlock'; ifsVK_NUMLOCK = 'Numlock';
ifsVK_SCROLL = 'Scroll'; 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 // docking
rsDocking = 'Docking'; rsDocking = 'Docking';

2
lcl/postscriptcanvas.pas
View File

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