docs: adds missing doc examples

2 files changed, 15 insertions, 0 deletions

diff --git a/docs/xml/corelib/examples/fpg_base.fpgcanvasbase.drawarc.pas b/docs/xml/corelib/examples/fpg_base.fpgcanvasbase.drawarc.pas
new file mode 100644
index 00000000..d85fadf2
--- /dev/null
+++ b/docs/xml/corelib/examples/fpg_base.fpgcanvasbase.drawarc.pas
@@ -0,0 +1,7 @@
+{ This will draw a red arc, starting at the 6 o'clock position, and
+  drawing 90 degrees of the arc, ending at the 3 o'clock position. }
+procedure TMainForm.FormPaint;  // the forms OnPaint event handler
+begin
+  Canvas.Color := clRed;
+  Canvas.DrawArc(5, 5, 100, 100, 270, 90);
+end;
diff --git a/docs/xml/corelib/examples/fpg_base.fpgcanvasbase.fillarc.pas b/docs/xml/corelib/examples/fpg_base.fpgcanvasbase.fillarc.pas
new file mode 100644
index 00000000..897ac0ec
--- /dev/null
+++ b/docs/xml/corelib/examples/fpg_base.fpgcanvasbase.fillarc.pas
@@ -0,0 +1,8 @@
+{ This will draw a red filled arc, starting at the 6 o'clock position, and
+  drawing 45 degrees of the arc, ending at the half-past-four position. }
+procedure TMainForm.FormPaint;  // the form's OnPaint event handler. 
+begin
+  Canvas.Color := clRed;
+  Canvas.FillArc(5, 5, 100, 100, 270, 45);
+end;
+