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

fixed typo

Browse Source 
git-svn-id: trunk@8725 -
This commit is contained in:
mattias 2006-02-10 12:15:21 +00:00
parent 1687699a68
commit e76dfaf3bd
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
languages/lazaruside.de.po
View File

@ -1514,7 +1514,7 @@ msgstr "Kopiere die Auswahl in die Zwischenablage"
#: lazarusidestrconsts:dlgcopywordatcursoroncopynone
msgid "Copy word on copy none"
msgstr "Kopiere Wort wenn nichts ausgeweählt"
msgstr "Kopiere Wort wenn nichts ausgewählt"
#: lazarusidestrconsts:liscopyingawholeformisnotimplemented
msgid "Copying a whole form is not implemented."

6
lcl/lclproc.pas
View File

@ -209,7 +209,7 @@ function DbgS(const i: int64): string; overload;
function DbgS(const r: TRect): string; overload;
function DbgS(const p: TPoint): string; overload;
function DbgS(const p: pointer): string; overload;
function DbgS(const e: extended): string; overload;
function DbgS(const e: extended; MaxDecimals: integer = 999): string; overload;
function DbgS(const b: boolean): string; overload;
function DbgSName(const p: TObject): string; overload;
function DbgSName(const p: TClass): string; overload;
@ -1352,9 +1352,9 @@ begin
Result:=HexStr(PtrInt(p),2*sizeof(PtrInt));
end;
function DbgS(const e: extended): string;
function DbgS(const e: extended; MaxDecimals: integer): string;
begin
Result:=FloatToStr(e);
Result:=copy(FloatToStr(e),1,MaxDecimals);
end;
function DbgS(const b: boolean): string;