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

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

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

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

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