paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Workaround to LCL bug 8553

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@134 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
blikblum 2007-03-22 15:17:42 +00:00
parent fbcb3d0030
commit 2bb98d8d9a
3 changed files with 11 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
components/virtualtreeview-unstable/VirtualTrees.pas
View File

@ -3357,6 +3357,10 @@ const
Copyright: string = 'Virtual Treeview © 1999, 2003 Mike Lischke'; Copyright: string = 'Virtual Treeview © 1999, 2003 Mike Lischke';
var var
//Workaround to LCL bug 8553
{$ifndef Windows}
pf32bit: TPixelFormat = pfDevice;
{$endif}
StandardOLEFormat: TFormatEtc = ( StandardOLEFormat: TFormatEtc = (
// Format must later be set. // Format must later be set.
@ -7529,7 +7533,6 @@ var
ScreenDC: HDC; ScreenDC: HDC;
begin begin
{$ifdef NeedWindows}
if FStates * [disInDrag, disHidden, disPrepared, disSystemSupport] = [disInDrag, disHidden, disPrepared] then if FStates * [disInDrag, disHidden, disPrepared, disSystemSupport] = [disInDrag, disHidden, disPrepared] then
begin begin
Exclude(FStates, disHidden); Exclude(FStates, disHidden);
@ -7545,7 +7548,6 @@ begin
ReleaseDC(0, ScreenDC); ReleaseDC(0, ScreenDC);
end; end;
end; end;
{$endif}
end; end;
//---------------------------------------------------------------------------------------------------------------------- //----------------------------------------------------------------------------------------------------------------------
@ -10547,7 +10549,10 @@ begin
FColumns.FHoverIndex := NoColumn; FColumns.FHoverIndex := NoColumn;
if I > NoColumn then if I > NoColumn then
Invalidate(FColumns[I]); Invalidate(FColumns[I]);
//todo: implement drag image under gtk
{$ifdef Windows}
PrepareDrag(P, FDragStart); PrepareDrag(P, FDragStart);
{$endif}
FStates := FStates - [hsDragPending] + [hsDragging]; FStates := FStates - [hsDragPending] + [hsDragging];
HandleHeaderMouseMove := True; HandleHeaderMouseMove := True;
Result := 0; Result := 0;
@ -28009,11 +28014,7 @@ begin
Logger.Send([lcPaintDetails],'NodeBitmap.Handle',NodeBitmap.Handle); Logger.Send([lcPaintDetails],'NodeBitmap.Handle',NodeBitmap.Handle);
// Avoid unnecessary copying of bitmap content. This will destroy the DC handle too. // Avoid unnecessary copying of bitmap content. This will destroy the DC handle too.
NodeBitmap.Height := 0; NodeBitmap.Height := 0;
{$ifdef Windows}
NodeBitmap.PixelFormat := pf32Bit; NodeBitmap.PixelFormat := pf32Bit;
{$else}
NodeBitmap.PixelFormat := pfDevice;
{$endif}
NodeBitmap.Width := TargetRect.Right - TargetRect.Left + 1; NodeBitmap.Width := TargetRect.Right - TargetRect.Left + 1;
NodeBitmap.Height := TargetRect.Bottom - TargetRect.Top + 1; NodeBitmap.Height := TargetRect.Bottom - TargetRect.Top + 1;
Logger.Send([lcPaintDetails],'NodeBitmap.Handle',NodeBitmap.Handle); Logger.Send([lcPaintDetails],'NodeBitmap.Handle',NodeBitmap.Handle);

2
components/virtualtreeview-unstable/demos/mininal/Main.lrs
View File

@ -1,3 +1,5 @@
{ This is an automatically generated lazarus resource file }
LazarusResources.Add('TMainForm','FORMDATA',[ LazarusResources.Add('TMainForm','FORMDATA',[
'TPF0'#9'TMainForm'#8'MainForm'#4'Left'#3#181#1#6'Height'#3#225#1#3'Top'#3#22 'TPF0'#9'TMainForm'#8'MainForm'#4'Left'#3#181#1#6'Height'#3#225#1#3'Top'#3#22
+#1#5'Width'#3#169#1#18'HorzScrollBar.Page'#3#168#1#18'VertScrollBar.Page'#3 +#1#5'Width'#3#169#1#18'HorzScrollBar.Page'#3#168#1#18'VertScrollBar.Page'#3

7
components/virtualtreeview-unstable/demos/mininal/minimal_lcl.lpi
View File

@ -69,13 +69,8 @@
</CodeGeneration> </CodeGeneration>
<Linking> <Linking>
<Debugging> <Debugging>
<UseHeaptrc Value="True"/> <UseLineInfoUnit Value="False"/>
</Debugging> </Debugging>
<Options>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking> </Linking>
<Other> <Other>
<CompilerPath Value="$(CompPath)"/> <CompilerPath Value="$(CompPath)"/>