diff --git a/Client/CentrED.lpi b/Client/CentrED.lpi index a518e6a..44d1c1e 100644 --- a/Client/CentrED.lpi +++ b/Client/CentrED.lpi @@ -357,6 +357,7 @@ + diff --git a/Client/ULightManager.pas b/Client/ULightManager.pas index a46f85e..ab19783 100644 --- a/Client/ULightManager.pas +++ b/Client/ULightManager.pas @@ -147,7 +147,7 @@ end; procedure TLightManager.UpdateOverlay(AScreenRect: TRect); var - canvas, lightCanvas: TFastARGB32Canvas; + canvas: TFastARGB32Canvas; color: TColor32Rec; i: Integer; lightMaterial: TLightMaterial; diff --git a/Client/UPlatformTypes.pas b/Client/UPlatformTypes.pas index 96a777f..4ec55c9 100644 --- a/Client/UPlatformTypes.pas +++ b/Client/UPlatformTypes.pas @@ -1,53 +1,41 @@ -(* - * CDDL HEADER START - * - * The contents of this file are subject to the terms of the - * Common Development and Distribution License, Version 1.0 only - * (the "License"). You may not use this file except in compliance - * with the License. - * - * You can obtain a copy of the license at - * http://www.opensource.org/licenses/cddl1.php. - * See the License for the specific language governing permissions - * and limitations under the License. - * - * When distributing Covered Code, include this CDDL HEADER in each - * file and include the License file at - * http://www.opensource.org/licenses/cddl1.php. If applicable, - * add the following below this CDDL HEADER, with the fields enclosed - * by brackets "[]" replaced with your own identifying * information: - * Portions Copyright [yyyy] [name of copyright owner] - * - * CDDL HEADER END - * - * - * Portions Copyright 2007 Andreas Schneider - *) -unit UPlatformTypes; - -{$mode objfpc}{$H+} - -interface - -uses - Classes, SysUtils, ActiveX; - -type - IDataObject = ActiveX.IDataObject; - {IDataObject = Interface (IUnknown) - ['{0000010e-0000-0000-C000-000000000046}'] - function GetData(const formatetcIn: FORMATETC; out medium: STGMEDIUM): HRESULT; stdcall; - function GetDataHere(const pformatetc: FormatETC; out medium: STGMEDIUM): HRESULT; stdcall; - function QueryGetData(const pformatetc: FORMATETC): HRESULT; stdcall; - function GetCanonicalFormatTEtc(const pformatetcIn: FORMATETC; out pformatetcOut: FORMATETC): HResult; stdcall; - function SetData (const pformatetc: FORMATETC;const medium:STGMEDIUM;FRelease : BOOL):HRESULT; stdcall; - function EnumFormatEtc(dwDirection: DWord; out enumformatetcpara: IENUMFORMATETC): HRESULT; stdcall; - function DAdvise(const formatetc: FORMATETC; advf: DWORD; const AdvSink: IAdviseSink; out dwConnection: DWORD): HRESULT; stdcall; - function DUnadvise(dwconnection: DWord): HRESULT; stdcall; - function EnumDAvise(out enumAdvise: IEnumStatData): HRESULT; stdcall; - end;} - -implementation - -end. - +(* + * CDDL HEADER START + * + * The contents of this file are subject to the terms of the + * Common Development and Distribution License, Version 1.0 only + * (the "License"). You may not use this file except in compliance + * with the License. + * + * You can obtain a copy of the license at + * http://www.opensource.org/licenses/cddl1.php. + * See the License for the specific language governing permissions + * and limitations under the License. + * + * When distributing Covered Code, include this CDDL HEADER in each + * file and include the License file at + * http://www.opensource.org/licenses/cddl1.php. If applicable, + * add the following below this CDDL HEADER, with the fields enclosed + * by brackets "[]" replaced with your own identifying * information: + * Portions Copyright [yyyy] [name of copyright owner] + * + * CDDL HEADER END + * + * + * Portions Copyright 2007 Andreas Schneider + *) +unit UPlatformTypes; + +{$mode objfpc}{$H+} + +interface + +uses + Classes, SysUtils, ActiveX; + +type + IDataObject = ActiveX.IDataObject; + +implementation + +end. + diff --git a/MulProvider/ULightProvider.pas b/MulProvider/ULightProvider.pas index fab1b9d..8016b4f 100644 --- a/MulProvider/ULightProvider.pas +++ b/MulProvider/ULightProvider.pas @@ -30,7 +30,7 @@ unit ULightProvider; interface uses - UMulProvider, UMulBlock, UGenericIndex, ULight; + UMulProvider, UGenericIndex, ULight; type