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

LCL, patch to fix TLabeledEdit position on bidimode change, from avishai, issue #20622

Browse Source 
git-svn-id: trunk@33320 -
This commit is contained in:
jesus 2011-11-05 05:53:47 +00:00
parent 7d583e3b30
commit 6d26a20cb4
2 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lcl/extctrls.pp
View File

@ -857,6 +857,7 @@ type
procedure Loaded; override;
procedure DoPositionLabel; virtual;
procedure Notification(AComponent: TComponent; Operation: TOperation); override;
procedure CMBiDiModeChanged(var Msg: TLMessage); message CM_BIDIMODECHANGED;
procedure CMVisibleChanged(var Msg: TLMessage); message CM_VISIBLECHANGED;
procedure CMEnabledChanged(var Msg: TLMessage); message CM_ENABLEDCHANGED;
procedure CreateInternalLabel; virtual;

8
lcl/include/customlabelededit.inc
View File

@ -105,6 +105,14 @@ begin
FEditLabel := nil;
end;
procedure TCustomLabeledEdit.CMBiDiModeChanged(var Msg: TLMessage);
begin
inherited CMBiDiModeChanged(Msg);
FEditLabel.BiDiMode := BiDiMode;
DoPositionLabel;
Invalidate;
end;
procedure TCustomLabeledEdit.CMVisibleChanged(var Msg: TLMessage);
begin
inherited CMVisiblechanged(Msg);