瀏覽代碼

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

git-svn-id: trunk@24708 -
marco 12 年之前
父節點
當前提交
c009679d82
共有 2 個文件被更改,包括 2 次插入2 次删除
  1. 1 1
      ide/winclip.pas
  2. 1 1
      ide/wutils.pas

+ 1 - 1
ide/winclip.pas

@@ -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;

+ 1 - 1
ide/wutils.pas

@@ -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);