paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 20:39:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

anchordocking: transparent captions

Browse Source 
git-svn-id: trunk@26092 -
This commit is contained in:
mattias 2010-06-13 15:27:33 +00:00
parent 40a2dd61bf
commit 7eee71e774
2 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
examples/anchordocking/anchordocking.pas
View File

@ -67,9 +67,7 @@
- dnd move page to another pagecontrol - dnd move page to another pagecontrol
ToDo: ToDo:
- windows: caption height for left aligned header - windows: caption for left aligned header wrong because of bug 16724
- windows: no menu item work
- use site icon from wrapped form
- popup menu - popup menu
- shrink side left, top, right, bottom - shrink side left, top, right, bottom
- fpdoc - fpdoc
@ -3898,6 +3896,8 @@ begin
// caption // caption
if Caption<>'' then begin if Caption<>'' then begin
Canvas.Brush.Color:=clNone;
Canvas.Brush.Style:=bsClear;
TxtH:=Canvas.TextHeight('ABCMgq'); TxtH:=Canvas.TextHeight('ABCMgq');
TxtW:=Canvas.TextWidth(Caption); TxtW:=Canvas.TextWidth(Caption);
if Align in [alLeft,alRight] then begin if Align in [alLeft,alRight] then begin

2
examples/anchordocking/minide/miniide1.lpi
View File

@ -69,6 +69,7 @@
<SearchPaths> <SearchPaths>
<IncludeFiles Value="$(ProjOutDir)/"/> <IncludeFiles Value="$(ProjOutDir)/"/>
<UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/> <UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
<LCLWidgetType Value="win32"/>
</SearchPaths> </SearchPaths>
<Parsing> <Parsing>
<SyntaxOptions> <SyntaxOptions>
@ -83,6 +84,7 @@
<StackChecks Value="True"/> <StackChecks Value="True"/>
</Checks> </Checks>
<VerifyObjMethodCallValidity Value="True"/> <VerifyObjMethodCallValidity Value="True"/>
<TargetOS Value="win32"/>
</CodeGeneration> </CodeGeneration>
<Linking> <Linking>
<Options> <Options>