mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-21 09:59:32 +02:00
anchordocking: transparent captions
git-svn-id: trunk@26092 -
This commit is contained in:
parent
40a2dd61bf
commit
7eee71e774
@ -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
|
||||
|
@ -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>
|
||||
|
Loading…
Reference in New Issue
Block a user