paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 14:59:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: improve TCustomForm.CMBidiModeChanged

Browse Source 
git-svn-id: trunk@22036 -
This commit is contained in:
paul 2009-10-05 03:45:07 +00:00
parent 89b271b14f
commit 6d32896b7f
1 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
lcl/include/customform.inc
View File

@ -592,21 +592,22 @@ end;
procedure TCustomForm.CMBiDiModeChanged(var Message: TLMessage);
var
i:Integer;
lMessage:TLMessage;
i: Integer;
lMessage: TLMessage;
begin
inherited;
//send CM_PARENTBIDIMODECHANGED to All Component owned by Form
{ This way is usefull for other TMenu components that need BidiMode of form changed
Like as TToolbar }
// send CM_PARENTBIDIMODECHANGED to all components owned by the form
// this is needed for menus
lMessage.msg := CM_PARENTBIDIMODECHANGED;
lMessage.wParam := 0;
lMessage.lParam := 0;
lMessage.Result := 0;
for i := 0 to ComponentCount - 1 do
begin
if not (Components[i] is TCustomControl) then //TCustomControl already has this notification
Components[i].Dispatch(lMessage);
// all TControl descendants have this notification in TWinControl.CMBidiModeChanged
if Components[i] is TControl then
Continue;
Components[i].Dispatch(lMessage);
end;
end;