diff options
| author | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2008-06-29 21:10:30 +0000 |
|---|---|---|
| committer | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2008-06-29 21:10:30 +0000 |
| commit | 685f23e41a294cd432d9e6b575fa5a95e93d6d12 (patch) | |
| tree | e48ac9197f6aed52e601919165ec89b20f0d8b5e | |
| parent | 7d4ef6b4b534b7bbe87cf3173e718de01bca00fe (diff) | |
| download | fpGUI-685f23e41a294cd432d9e6b575fa5a95e93d6d12.tar.xz | |
* GDI: Minor bug fix in Canvas.DoSetColor. It reset the LineStyle to lsSolid.
| -rw-r--r-- | src/corelib/gdi/gfx_gdi.pas | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/src/corelib/gdi/gfx_gdi.pas b/src/corelib/gdi/gfx_gdi.pas index 497f66b0..4fcd3cd5 100644 --- a/src/corelib/gdi/gfx_gdi.pas +++ b/src/corelib/gdi/gfx_gdi.pas @@ -1601,14 +1601,10 @@ end; procedure TfpgCanvasImpl.DoSetColor(cl: TfpgColor); begin DeleteObject(FBrush); - DeleteObject(FPen); - FWindowsColor := fpgColorToWin(cl); - FBrush := CreateSolidBrush(FWindowsColor); - FPen := CreatePen(FintLineStyle, FLineWidth, FWindowsColor); + DoSetLineStyle(FLineWidth, FLineStyle); SelectObject(Fgc, FBrush); - SelectObject(Fgc, FPen); end; procedure TfpgCanvasImpl.DoSetLineStyle(awidth: integer; astyle: TfpgLineStyle); |