anchordocking: transparent captions

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

View File

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

View File

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