diff options
Diffstat (limited to 'examples/apps/globe/frm_main.pas')
-rw-r--r-- | examples/apps/globe/frm_main.pas | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/examples/apps/globe/frm_main.pas b/examples/apps/globe/frm_main.pas index 76775a4b..ef80f2f7 100644 --- a/examples/apps/globe/frm_main.pas +++ b/examples/apps/globe/frm_main.pas @@ -579,7 +579,7 @@ procedure TGlobe.DrawGrid; var temp: integer; begin - Canvas.Color := TfpgColor($8080FF); // clGray; + Canvas.Color := TfpgColor($FF8080FF); // clGray; Canvas.SetLineStyle(0, lsDash); { Parallels } temp := Wfi; @@ -672,12 +672,8 @@ end; procedure TGlobe.HandlePaint; begin - Canvas.BeginDraw; Canvas.Clear(clWindowBackground); -// R := Width div 2; - // inherited HandlePaint; DrawGlobe; - Canvas.EndDraw; end; constructor TGlobe.Create(AOwner: TComponent); |