pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

* Renamed TScrollBarStyle to TVTScrollBarStyle

Browse Source 
* Fix compilation with fpc222rc1 under win32
* Move the call to SetMapMode to the places where the buffer bitmap is resized

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@507 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
blikblum
2008-07-05 10:55:45 +00:00
parent 1552b81bc9
commit 4fc41c632f
3 changed files with 23 additions and 27 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
components/virtualtreeview-unstable/include/intf/win32/vtvdragmanager.inc
View File

@ -43,8 +43,7 @@ end;
//----------------------------------------------------------------------------------------------------------------------
function TEnumFormatEtc.Next(celt: LongWord; out elt: FormatEtc; out pceltFetched: LongWord): HResult;
function TEnumFormatEtc.Next(celt: LongWord; out elt: FormatEtc; pceltFetched:pULong=nil): HResult;
var
CopyCount: LongWord;
@ -62,8 +61,8 @@ begin
//todo_lcl_check Delphi treats pceltFetched an PInteger. Implemented like in fpc.activex. What heappens with
// a C Program call with a NULL in pCeltFetcjed??
//Answer: Yes. Is necessary a check here
if @pceltFetched <> nil then
pceltFetched := CopyCount;
if pceltFetched <> nil then
pceltFetched^ := CopyCount;
end;
//----------------------------------------------------------------------------------------------------------------------
@ -348,7 +347,7 @@ end;
//----------------------------------------------------------------------------------------------------------------------
function TVTDataObject.EnumDAvise(Out enumAdvise : IEnumStatData):HResult;
function TVTDataObject.EnumDAdvise(Out enumAdvise : IEnumStatData):HResult;
begin
if FAdviseHolder = nil then
@ -380,7 +379,7 @@ end;
//----------------------------------------------------------------------------------------------------------------------
Function TVTDataObject.GetCanonicalFormatTEtc(const pformatetcIn : FORMATETC;Out pformatetcOut : FORMATETC):HResult;
Function TVTDataObject.GetCanonicalFormatEtc(const pformatetcIn : FORMATETC;Out pformatetcOut : FORMATETC):HResult;
begin
Result := DATA_S_SAMEFORMATETC;