paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-06 07:27:43 +01:00
Code Issues Packages Projects Releases Wiki Activity

ide: paint text on restricted page with clear brush to prevent filling themed bg with solid color

Browse Source 
git-svn-id: trunk@14947 -
This commit is contained in:
paul 2008-04-24 06:22:32 +00:00
parent a64c31fd1b
commit 22a852a20c
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
ideintf/objectinspector.pp
View File

@ -3880,11 +3880,14 @@ var
S: TSize;
Platform: TLCLPlatform;
None: Boolean;
OldStyle: TBrushStyle;
begin
if RestrictedProps = nil then Exit;
X := 0;
Y := (WidgetSetsRestrictedBox.Height - IDEImages.Images_16.Height) div 2;
OldStyle := WidgetSetsRestrictedBox.Canvas.Brush.Style;
WidgetSetsRestrictedBox.Canvas.Brush.Style := bsClear;
None := True;
for Platform := Low(TLCLPlatform) to High(TLCLPlatform) do
begin
@ -3907,6 +3910,7 @@ begin
S := WidgetSetsRestrictedBox.Canvas.TextExtent(oisNone);
WidgetSetsRestrictedBox.Canvas.TextOut(4, (WidgetSetsRestrictedBox.Height - S.CY) div 2, oisNone);
end;
WidgetSetsRestrictedBox.Canvas.Brush.Style := OldStyle;
end;
procedure TObjectInspectorDlg.ComponentRestrictedPaint(Sender: TObject);
@ -3916,12 +3920,16 @@ var
Platform: TLCLPlatform;
WidgetSetRestrictions: Array [TLCLPlatform] of Integer;
None: Boolean;
OldStyle: TBrushStyle;
begin
for Platform := Low(TLCLPlatform) to High(TLCLPlatform) do WidgetSetRestrictions[Platform] := 0;
if RestrictedProps = nil then Exit;
if Selection = nil then Exit;
OldStyle := ComponentRestrictedBox.Canvas.Brush.Style;
ComponentRestrictedBox.Canvas.Brush.Style := bsClear;
for I := 0 to RestrictedProps.Count - 1 do
begin
for J := 0 to Selection.Count - 1 do
@ -3959,6 +3967,7 @@ begin
S := ComponentRestrictedBox.Canvas.TextExtent(oisNone);
ComponentRestrictedBox.Canvas.TextOut(4, (ComponentRestrictedBox.Height - S.CY) div 2, oisNone);
end;
ComponentRestrictedBox.Canvas.Brush.Style := OldStyle;
end;
procedure TObjectInspectorDlg.CreateSplitter;