paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-03 03:40:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

Qt: fixed TQtCheckListBox for BiDi mode. fixes #17055

Browse Source 
git-svn-id: trunk@27190 -
This commit is contained in:
zeljko 2010-08-26 08:23:08 +00:00
parent aa000f9e7e
commit fb63637d37
1 changed files with 30 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
lcl/interfaces/qt/qtwidgets.pas
View File

@ -204,6 +204,7 @@ type
function getFocusPolicy: QtFocusPolicy;
function getFrameGeometry: TRect;
function getGeometry: TRect; virtual;
function getLayoutDirection: QtLayoutDirection;
function getVisible: Boolean; virtual;
function getVisibleTo(AWidget: QWidgetH): Boolean; virtual;
function getParent: QWidgetH;
@ -3299,6 +3300,11 @@ begin
QWidget_geometry(Widget, @Result);
end;
function TQtWidget.getLayoutDirection: QtLayoutDirection;
begin
Result := QWidget_layoutDirection(Widget);
end;
function TQtWidget.getVisible: boolean;
begin
Result := QWidget_isVisible(Widget);
@ -8902,8 +8908,30 @@ function TQtCheckListBox.EventFilter(Sender: QObjectH; Event: QEventH
var
MousePos: TQtPoint;
Item: QListWidgetItemH;
x: Integer;
Msg: TLMessage;
function MouseInCheckBox: Boolean;
var
x: Integer;
R: TRect;
P: TPoint;
begin
Result := getLayoutDirection = QtRightToLeft;
x := QStyle_pixelMetric(QApplication_style(), QStylePM_IndicatorWidth,
nil, Widget);
if not Result then
Result := (MousePos.X > 2) and (MousePos.X < (X + 2))
else
begin
R := getVisualItemRect(Item);
R.Left := R.Right - X;
R.Right := R.Right + X;
P.X := MousePos.X;
P.Y := MousePos.Y;
Result := PtInRect(R, P);
end;
end;
begin
if (QEvent_type(Event) = QEventMouseButtonPress) or
(QEvent_type(Event) = QEventMouseButtonRelease) then
@ -8917,9 +8945,7 @@ begin
if (Item <> nil) and
((QListWidgetItem_flags(Item) and QtItemIsUserCheckable) <> 0) then
begin
x := QStyle_pixelMetric(QApplication_style(), QStylePM_IndicatorWidth,
nil, Widget);
if ((MousePos.X > 2) and (MousePos.X < (X + 2))) then
if MouseInCheckBox then
begin
if QListWidgetItem_checkState(Item) = QtUnChecked then
QListWidgetItem_setCheckState(Item, QtChecked)