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

fixed win32/wince compilation

Browse Source 
git-svn-id: trunk@8670 -
This commit is contained in:
mattias 2006-01-31 13:57:43 +00:00
parent 1ef1568abb
commit ebb80e5949
4 changed files with 5 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ide/include/unix/lazbaseconf.inc
View File

@ -117,11 +117,6 @@ begin
end;
end;
function GetProjectSessionsConfigPath: String;
begin
Result:=AppendPathDelim(GetPrimaryConfigPath)+'projectsessions';
end;
{---------------------------------------------------------------------------
function CreateCompilerTestPascalFilename: string;
---------------------------------------------------------------------------}

5
ide/lazconf.pp
View File

@ -155,6 +155,11 @@ begin
List.Free;
end;
function GetProjectSessionsConfigPath: String;
begin
Result:=AppendPathDelim(GetPrimaryConfigPath)+'projectsessions';
end;
function GetDefaultTargetCPU: string;
begin
Result:='undefined';

5
lcl/interfaces/wince/wincewinapi.inc
View File

@ -57,11 +57,6 @@ begin
);
end;
function TWinCEWidgetSet.BringWindowToTop(hWnd: HWND): Boolean;
begin
Result:=inherited BringWindowToTop(hWnd);
end;
function TWinCEWidgetSet.CallNextHookEx(hHk: HHOOK; ncode: Integer;
wParam: WParam; lParam: LParam): Integer;
begin

1
lcl/interfaces/wince/wincewinapih.inc
View File

@ -42,7 +42,6 @@ function AngleChord(DC: HDC; x,y,width,height,angle1,angle2 : Integer): Boolean;
function BeginPaint(Handle: hWnd; Var PS : TPaintStruct) : hdc; override;
function BitBlt(DestDC: HDC; X, Y, Width, Height: Integer; SrcDC: HDC; XSrc, YSrc: Integer; Rop: DWORD): Boolean; override;
Function BringWindowToTop(hWnd : HWND): Boolean; override;
function CallNextHookEx(hHk: HHOOK; ncode : Integer; wParam: WParam; lParam : LParam) : Integer; override;
Function CallWindowProc(lpPrevWndFunc : TFarProc; Handle : HWND; Msg : UINT; wParam: WParam; lParam : lParam) : Integer; override;