paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-29 12:30:36 +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 Loaded; override;
procedure DoPositionLabel; virtual; procedure DoPositionLabel; virtual;
procedure Notification(AComponent: TComponent; Operation: TOperation); override; procedure Notification(AComponent: TComponent; Operation: TOperation); override;
procedure CMBiDiModeChanged(var Msg: TLMessage); message CM_BIDIMODECHANGED;
procedure CMVisibleChanged(var Msg: TLMessage); message CM_VISIBLECHANGED; procedure CMVisibleChanged(var Msg: TLMessage); message CM_VISIBLECHANGED;
procedure CMEnabledChanged(var Msg: TLMessage); message CM_ENABLEDCHANGED; procedure CMEnabledChanged(var Msg: TLMessage); message CM_ENABLEDCHANGED;
procedure CreateInternalLabel; virtual; procedure CreateInternalLabel; virtual;

8
lcl/include/customlabelededit.inc
View File

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