سلام
لطفا تکه کد مشابه زیر رو در فایل یافته و جایگزین کنید تا مشکل جابجایی آیکونها حل شود.
// Add This Block
if BiDiMode <> bdLeftToRight then
for I := 0 to LActionClients.Count - 1 do
// this loop run for each ribbon group from first button to the last .i=0 is the first button in ribbon group and so on.
begin
LAC := LActionClients[I];
LCtrl := LAC.Control;
if FGroupAlign = gaVertical then
begin
if (Not IsLargeButton(LAC)) and (LCtrl <> nil) then
LActionClients[I].Control.Left := LActionClients[I].Control.Left +
((MaxWidth - LActionClients[I].Control.Width) Div 2);
end;
end;
// To Here