|
Line
Link Here
|
| 0 |
-- lazarus/lcl/interfaces/qt5/qtobjects.pas |
0 |
++ lazarus/lcl/interfaces/qt5/qtobjects.pas |
|
Lines 3115-3122
Link Here
|
| 3115 |
SelFont := AFont; |
3115 |
SelFont := AFont; |
| 3116 |
if (AFont.FHandle <> nil) and (Widget <> nil) then |
3116 |
if (AFont.FHandle <> nil) and (Widget <> nil) then |
| 3117 |
begin |
3117 |
begin |
| 3118 |
QFnt := QPainter_font(Widget); |
3118 |
QFnt := QFont_Create(AFont.FHandle); |
| 3119 |
AssignQtFont(AFont.FHandle, QFnt); |
3119 |
QPainter_setFont(Widget, QFnt); |
|
|
3120 |
QFont_destroy(QFnt); |
| 3120 |
vFont.Angle := AFont.Angle; |
3121 |
vFont.Angle := AFont.Angle; |
| 3121 |
end; |
3122 |
end; |
| 3122 |
end; |
3123 |
end; |
