pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

NiceChart: Fix gtk2/gtk3 crashing in demo project at rotated font.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8855 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2023-06-25 22:16:45 +00:00
parent 180cb09d31
commit b2f0c3f051
1 changed files with 8 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
components/nicechart/source/NiceChart.pas
View File

@ -829,13 +829,20 @@ begin
end;
procedure RotTextOut(ACanvas: TCanvas; x, y, Angle: Integer; Txt: String);
{$IFNDEF FPC}
var
RotFont, OldFont: Integer;
FBold, FItalic, FUnderline, FStrikeOut: integer;
{$ENDIF}
begin
if (Txt = '')
then Exit;
SetBkMode(ACanvas.Handle, TRANSPARENT);
{$IFDEF FPC}
ACanvas.Font.Orientation := Angle * 10;
ACanvas.TextOut(x, y, Txt);
ACanvas.Font.Orientation := 0;
{$ELSE}
if (fsItalic in ACanvas.Font.Style)
then FItalic := 1
else FItalic := 0;
@ -855,6 +862,7 @@ begin
TextOut(ACanvas.Handle, x, y, PChar(Txt), Length(Txt));
SelectObject(ACanvas.Handle, OldFont);
DeleteObject(RotFont);
{$ENDIF}
end;
procedure TNiceChart.InternalPaint(ACanvas: TCanvas);