summaryrefslogtreecommitdiff
path: root/src/corelib/x11/gfx_x11.pas
diff options
context:
space:
mode:
Diffstat (limited to 'src/corelib/x11/gfx_x11.pas')
-rw-r--r--src/corelib/x11/gfx_x11.pas22
1 files changed, 9 insertions, 13 deletions
diff --git a/src/corelib/x11/gfx_x11.pas b/src/corelib/x11/gfx_x11.pas
index 014efc8b..6a1531bd 100644
--- a/src/corelib/x11/gfx_x11.pas
+++ b/src/corelib/x11/gfx_x11.pas
@@ -1501,38 +1501,34 @@ var
aCapStyle: Longint;
begin
aCapStyle := CapNotLast;
- if awidth < 0 then
- begin
- { Alternative line drawing - Using X algorithm instead of hardware algorithm }
- awidth := -awidth;
- if (awidth > 1) and (astyle = lsSolid) then
- aCapStyle := CapButt;
- end
- else
- awidth := 0;
+ // Is this still needed?? I don't think so
+ //if (awidth > 1) and (astyle = lsSolid) then
+ // aCapStyle := CapButt;
+ if awidth = 1 then
+ awidth := 0; // switch to hardware algorithm
case AStyle of
lsDot:
begin
- XSetLineAttributes(xapplication.display, Fgc, 1,
+ XSetLineAttributes(xapplication.display, Fgc, awidth,
LineOnOffDash, aCapStyle, JoinMiter);
XSetDashes(xapplication.display, Fgc, 0, cDot, 2);
end;
lsDash:
begin
- XSetLineAttributes(xapplication.display, Fgc, 1,
+ XSetLineAttributes(xapplication.display, Fgc, awidth,
LineOnOffDash, aCapStyle, JoinMiter);
XSetDashes(xapplication.display, Fgc, 0, cDash, 2);
end;
lsDashDot:
begin
- XSetLineAttributes(xapplication.display, Fgc, 1,
+ XSetLineAttributes(xapplication.display, Fgc, awidth,
LineOnOffDash, aCapStyle, JoinMiter);
XSetDashes(xapplication.display, Fgc, 0, cDashDot, 4);
end;
lsDashDotDot:
begin
- XSetLineAttributes(xapplication.display, Fgc, 1,
+ XSetLineAttributes(xapplication.display, Fgc, awidth,
LineOnOffDash, aCapStyle, JoinMiter);
XSetDashes(xapplication.display, Fgc, 0, cDashDotDot, 6);
end;