paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-17 04:29:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

updated translations and raised message window on error

Browse Source 
git-svn-id: trunk@2568 -
This commit is contained in:
mattias 2002-08-17 23:41:29 +00:00
parent 0d4c7a4741
commit 600e5ef1b4
2 changed files with 15 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/synedit/synedit.pp
View File

@ -3159,10 +3159,11 @@ begin
try
Clipboard.GetFormat(SynEditClipboardFormat,MemStream);
if MemStream.Size>=SizeOf(TSynSelectionMode)+1 then begin
GetMem(Buf,MemStream.Size);
GetMem(Buf,MemStream.Size+1);
MemStream.Position:=0;
MemStream.Read(Buf^,MemStream.Size);
P:=PChar(Buf);
P[MemStream.Size]:=#0;
{$ELSE}
Clipboard.Open;
try
@ -3678,7 +3679,8 @@ var
Start := PChar(Value);
P := GetEOL(Start);
if P^ <> #0 then begin
TrimmedSetLine(CaretY - 1, sLeftSide + Copy(Value, 1, P - Start));
SetString(Str, Value, P - Start);
TrimmedSetLine(CaretY - 1, sLeftSide + Str);
TSynEditStringList(Lines).InsertLines(CaretY, CountLines(P)); // djlp 2000-09-07
end else
TrimmedSetLine(CaretY - 1, sLeftSide + Value + sRightSide);

18
lcl/languages/lcl.po
View File

@ -1,13 +1,13 @@
#: lclstrconsts:rsmbyes
msgid "Yes"
msgid "&Yes"
msgstr ""
#: lclstrconsts:rsmbno
msgid "No"
msgid "&No"
msgstr ""
#: lclstrconsts:rsmbok
msgid "OK"
msgid "&OK"
msgstr ""
#: lclstrconsts:rsmbcancel
@ -19,15 +19,15 @@ msgid "Abort"
msgstr ""
#: lclstrconsts:rsmbretry
msgid "Retry"
msgid "&Retry"
msgstr ""
#: lclstrconsts:rsmbignore
msgid "Ignore"
msgid "&Ignore"
msgstr ""
#: lclstrconsts:rsmball
msgid "All?"
msgid "&All"
msgstr ""
#: lclstrconsts:rsmbnotoall
@ -39,7 +39,11 @@ msgid "Yes to all"
msgstr ""
#: lclstrconsts:rsmbhelp
msgid "Help"
msgid "&Help"
msgstr ""
#: lclstrconsts:rsmbclose
msgid "&Close"
msgstr ""
#: lclstrconsts:rsmtwarning