paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-11 14:48:47 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Clipboard and one occurance of getfullpath fixed for A/W issues.

Browse Source 
git-svn-id: trunk@24708 -
This commit is contained in:
marco 2013-06-01 12:46:15 +00:00
parent d04b286de6
commit c009679d82
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/winclip.pas
View File

@ -234,7 +234,7 @@ begin
res:=(SetClipboardData(CF_OEMTEXT,h)=h);
h:=GlobalAlloc(GMEM_MOVEABLE or GMEM_DDESHARE,l+1);
pp:=pchar(GlobalLock(h));
OemToCharBuff(p,pp,l+1);
OemToCharBuffA(p,pp,l+1);
SetClipboardData(CF_TEXT,h);
GlobalUnlock(h);
SetTextWinClipBoardData:=res;

2
ide/wutils.pas
View File

@ -621,7 +621,7 @@ begin
GetLongName:=n;
{$ifdef Windows}
hs:=n+#0;
i:=Windows.GetFullPathName(@hs[1],256,hs2,j);
i:=Windows.GetFullPathNameA(@hs[1],256,hs2,j);
if (i>0) and (i<=high(hs)) then
begin
hs:=strpas(hs2);