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

* Gtk - Draw dotted line using a bitmap brush like win32

Browse Source 
* Workaround to LCL bug 8823

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@163 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
blikblum
2007-05-07 02:20:44 +00:00
parent 790cf39be4
commit 2843f3cd0c
3 changed files with 5 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -4764,6 +4764,7 @@ begin
else
Images.Handle := LoadBitmap(FindClassHInstance(TBaseVirtualTree), PChar(ImageName));
}
Images.TransparentColor := clNone;
Images.LoadFromLazarusResource(ImageName);
Logger.SendBitmap([lcCheck],ImageName,Images);
try
@ -13702,8 +13703,7 @@ begin
if NeedLines then
begin
//Workaround till LCL gets fixed
{$ifdef Windows}
//WARNING: It requires a patched LCL
if FDottedBrush <> 0 then
DeleteObject(FDottedBrush);
@ -13719,9 +13719,6 @@ begin
PatternBitmap := CreateBitmap(8, 8, 1, 1, Bits);
FDottedBrush := CreatePatternBrush(PatternBitmap);
DeleteObject(PatternBitmap);
{$else}
FDottedBrush := CreatePatternBrush(0);
{$endif}
end;
end;

1
components/virtualtreeview-unstable/demos/images/images.lpi
View File

@ -17,7 +17,6 @@
</VersionInfo>
<PublishOptions>
<Version Value="2"/>
<IgnoreBinaries Value="False"/>
<IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
<ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
</PublishOptions>

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

@ -64,6 +64,9 @@
</ProjectOptions>
<CompilerOptions>
<Version Value="5"/>
<SearchPaths>
<LCLWidgetType Value="gtk"/>
</SearchPaths>
<CodeGeneration>
<Generate Value="Faster"/>
</CodeGeneration>