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

Adds a default role for TCustomLabel

Browse Source 
git-svn-id: trunk@35587 -
This commit is contained in:
sekelsenmat 2012-02-24 19:33:47 +00:00
parent 62739cca82
commit 0eb5dd0740
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/include/customlabel.inc
View File

@ -213,6 +213,8 @@ begin
FInternalSetBounds := False; FInternalSetBounds := False;
Color := clNone; Color := clNone;
AutoSize := True; AutoSize := True;
// Accessibility
AccessibleRole := larLabel;
end; end;
function TCustomLabel.GetTransparent: boolean; function TCustomLabel.GetTransparent: boolean;