From 055d42cf99ddf3657691af9557ee3fb279ed24a4 Mon Sep 17 00:00:00 2001
From: yangjixian <yangjixian@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Thu, 5 May 2011 01:16:37 +0000
Subject: [PATCH] Ellipse eraser works.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1611 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 applications/lazimageeditor/DLBitmap.pas      |   3 +-
 .../lazimageeditor/lazimageeditor.lpi         | 132 +++++++++---------
 2 files changed, 68 insertions(+), 67 deletions(-)

diff --git a/applications/lazimageeditor/DLBitmap.pas b/applications/lazimageeditor/DLBitmap.pas
index 3eee6a0fb..fd3427748 100644
--- a/applications/lazimageeditor/DLBitmap.pas
+++ b/applications/lazimageeditor/DLBitmap.pas
@@ -530,7 +530,8 @@ end;
 
 procedure TDLBitmap.FillEllipse(X1, Y1, X2, Y2: integer);
 begin
-
+  Canvas.Brush.Style := bsSolid;
+  Canvas.Ellipse(X1, Y1, X2, Y2);
 end;
 
 procedure TDLBitmap.ColorReplace(ColorFrom, ColorTo: TColor);
diff --git a/applications/lazimageeditor/lazimageeditor.lpi b/applications/lazimageeditor/lazimageeditor.lpi
index 6f6371de1..4a56a96c8 100644
--- a/applications/lazimageeditor/lazimageeditor.lpi
+++ b/applications/lazimageeditor/lazimageeditor.lpi
@@ -69,10 +69,11 @@
       <Unit2>
         <Filename Value="picturectrls.pas"/>
         <UnitName Value="PictureCtrls"/>
+        <IsVisibleTab Value="True"/>
         <EditorIndex Value="1"/>
         <WindowIndex Value="0"/>
-        <TopLine Value="430"/>
-        <CursorPos X="23" Y="443"/>
+        <TopLine Value="874"/>
+        <CursorPos X="17" Y="890"/>
         <UsageCount Value="32"/>
         <Loaded Value="True"/>
       </Unit2>
@@ -242,8 +243,8 @@
         <UnitName Value="BmpRGBTypes"/>
         <EditorIndex Value="2"/>
         <WindowIndex Value="0"/>
-        <TopLine Value="592"/>
-        <CursorPos X="27" Y="604"/>
+        <TopLine Value="107"/>
+        <CursorPos X="46" Y="116"/>
         <UsageCount Value="28"/>
         <Loaded Value="True"/>
       </Unit21>
@@ -357,8 +358,8 @@
         <UnitName Value="DLBitmap"/>
         <EditorIndex Value="3"/>
         <WindowIndex Value="0"/>
-        <TopLine Value="132"/>
-        <CursorPos X="42" Y="147"/>
+        <TopLine Value="42"/>
+        <CursorPos X="1" Y="52"/>
         <UsageCount Value="16"/>
         <Loaded Value="True"/>
       </Unit35>
@@ -388,11 +389,10 @@
       </Unit38>
       <Unit39>
         <Filename Value="DLBmpUtils.inc"/>
-        <IsVisibleTab Value="True"/>
         <EditorIndex Value="4"/>
         <WindowIndex Value="0"/>
-        <TopLine Value="673"/>
-        <CursorPos X="27" Y="687"/>
+        <TopLine Value="672"/>
+        <CursorPos X="11" Y="686"/>
         <UsageCount Value="14"/>
         <Loaded Value="True"/>
       </Unit39>
@@ -430,123 +430,123 @@
     <JumpHistory Count="30" HistoryIndex="29">
       <Position1>
         <Filename Value="DLBmpUtils.inc"/>
-        <Caret Line="536" Column="13" TopLine="516"/>
+        <Caret Line="695" Column="61" TopLine="676"/>
       </Position1>
       <Position2>
-        <Filename Value="DLBitmap.pas"/>
-        <Caret Line="147" Column="47" TopLine="137"/>
+        <Filename Value="picturectrls.pas"/>
+        <Caret Line="4" Column="90" TopLine="1"/>
       </Position2>
       <Position3>
-        <Filename Value="DLBmpUtils.inc"/>
-        <Caret Line="662" Column="20" TopLine="655"/>
+        <Filename Value="picturectrls.pas"/>
+        <Caret Line="114" Column="63" TopLine="88"/>
       </Position3>
       <Position4>
-        <Filename Value="DLBmpUtils.inc"/>
-        <Caret Line="661" Column="34" TopLine="651"/>
+        <Filename Value="picturectrls.pas"/>
+        <Caret Line="174" Column="20" TopLine="157"/>
       </Position4>
       <Position5>
-        <Filename Value="DLBmpUtils.inc"/>
-        <Caret Line="662" Column="30" TopLine="651"/>
+        <Filename Value="picturectrls.pas"/>
+        <Caret Line="438" Column="10" TopLine="427"/>
       </Position5>
       <Position6>
-        <Filename Value="DLBmpUtils.inc"/>
-        <Caret Line="664" Column="35" TopLine="652"/>
+        <Filename Value="picturectrls.pas"/>
+        <Caret Line="643" Column="19" TopLine="617"/>
       </Position6>
       <Position7>
-        <Filename Value="DLBmpUtils.inc"/>
-        <Caret Line="665" Column="26" TopLine="653"/>
+        <Filename Value="picturectrls.pas"/>
+        <Caret Line="663" Column="21" TopLine="637"/>
       </Position7>
       <Position8>
-        <Filename Value="DLBmpUtils.inc"/>
-        <Caret Line="666" Column="40" TopLine="655"/>
+        <Filename Value="picturectrls.pas"/>
+        <Caret Line="739" Column="15" TopLine="713"/>
       </Position8>
       <Position9>
-        <Filename Value="DLBmpUtils.inc"/>
-        <Caret Line="662" Column="18" TopLine="654"/>
+        <Filename Value="picturectrls.pas"/>
+        <Caret Line="757" Column="15" TopLine="731"/>
       </Position9>
       <Position10>
-        <Filename Value="DLBitmap.pas"/>
-        <Caret Line="184" Column="23" TopLine="167"/>
+        <Filename Value="picturectrls.pas"/>
+        <Caret Line="841" Column="84" TopLine="824"/>
       </Position10>
       <Position11>
-        <Filename Value="DLBitmap.pas"/>
-        <Caret Line="176" Column="5" TopLine="165"/>
+        <Filename Value="picturectrls.pas"/>
+        <Caret Line="842" Column="25" TopLine="824"/>
       </Position11>
       <Position12>
-        <Filename Value="DLBitmap.pas"/>
-        <Caret Line="180" Column="16" TopLine="167"/>
+        <Filename Value="picturectrls.pas"/>
+        <Caret Line="887" Column="25" TopLine="873"/>
       </Position12>
       <Position13>
         <Filename Value="picturectrls.pas"/>
-        <Caret Line="443" Column="22" TopLine="430"/>
+        <Caret Line="911" Column="30" TopLine="885"/>
       </Position13>
       <Position14>
-        <Filename Value="bmprgbtypes.pas"/>
-        <Caret Line="131" Column="28" TopLine="120"/>
+        <Filename Value="picturectrls.pas"/>
+        <Caret Line="3" Column="85" TopLine="1"/>
       </Position14>
       <Position15>
-        <Filename Value="bmprgbtypes.pas"/>
-        <Caret Line="603" Column="18" TopLine="589"/>
+        <Filename Value="picturectrls.pas"/>
+        <Caret Line="78" Column="20" TopLine="52"/>
       </Position15>
       <Position16>
         <Filename Value="picturectrls.pas"/>
-        <Caret Line="443" Column="23" TopLine="430"/>
+        <Caret Line="114" Column="33" TopLine="91"/>
       </Position16>
       <Position17>
-        <Filename Value="bmprgbtypes.pas"/>
-        <Caret Line="131" Column="28" TopLine="116"/>
+        <Filename Value="picturectrls.pas"/>
+        <Caret Line="172" Column="20" TopLine="146"/>
       </Position17>
       <Position18>
-        <Filename Value="bmprgbtypes.pas"/>
-        <Caret Line="603" Column="27" TopLine="585"/>
+        <Filename Value="picturectrls.pas"/>
+        <Caret Line="477" Column="35" TopLine="451"/>
       </Position18>
       <Position19>
-        <Filename Value="DLBitmap.pas"/>
-        <Caret Line="232" Column="14" TopLine="218"/>
+        <Filename Value="picturectrls.pas"/>
+        <Caret Line="479" Column="20" TopLine="453"/>
       </Position19>
       <Position20>
-        <Filename Value="bmprgbtypes.pas"/>
-        <Caret Line="603" Column="17" TopLine="588"/>
+        <Filename Value="picturectrls.pas"/>
+        <Caret Line="640" Column="20" TopLine="614"/>
       </Position20>
       <Position21>
-        <Filename Value="bmprgbtypes.pas"/>
-        <Caret Line="606" Column="16" TopLine="588"/>
+        <Filename Value="picturectrls.pas"/>
+        <Caret Line="661" Column="23" TopLine="635"/>
       </Position21>
       <Position22>
-        <Filename Value="bmprgbtypes.pas"/>
-        <Caret Line="606" Column="16" TopLine="588"/>
+        <Filename Value="picturectrls.pas"/>
+        <Caret Line="191" Column="95" TopLine="185"/>
       </Position22>
       <Position23>
-        <Filename Value="bmprgbtypes.pas"/>
-        <Caret Line="606" Column="17" TopLine="588"/>
+        <Filename Value="picturectrls.pas"/>
+        <Caret Line="640" Column="21" TopLine="614"/>
       </Position23>
       <Position24>
-        <Filename Value="bmprgbtypes.pas"/>
-        <Caret Line="606" Column="28" TopLine="591"/>
+        <Filename Value="picturectrls.pas"/>
+        <Caret Line="661" Column="23" TopLine="635"/>
       </Position24>
       <Position25>
-        <Filename Value="bmprgbtypes.pas"/>
-        <Caret Line="608" Column="63" TopLine="593"/>
+        <Filename Value="picturectrls.pas"/>
+        <Caret Line="890" Column="30" TopLine="874"/>
       </Position25>
       <Position26>
-        <Filename Value="DLBmpUtils.inc"/>
-        <Caret Line="692" Column="57" TopLine="670"/>
+        <Filename Value="bmprgbtypes.pas"/>
+        <Caret Line="123" Column="21" TopLine="107"/>
       </Position26>
       <Position27>
-        <Filename Value="DLBmpUtils.inc"/>
-        <Caret Line="678" Column="15" TopLine="663"/>
+        <Filename Value="DLBitmap.pas"/>
+        <Caret Line="72" Column="26" TopLine="56"/>
       </Position27>
       <Position28>
-        <Filename Value="bmprgbtypes.pas"/>
-        <Caret Line="602" Column="22" TopLine="593"/>
+        <Filename Value="DLBitmap.pas"/>
+        <Caret Line="533" Column="32" TopLine="515"/>
       </Position28>
       <Position29>
-        <Filename Value="DLBmpUtils.inc"/>
-        <Caret Line="698" Column="7" TopLine="670"/>
+        <Filename Value="DLBitmap.pas"/>
+        <Caret Line="534" Column="32" TopLine="517"/>
       </Position29>
       <Position30>
-        <Filename Value="DLBmpUtils.inc"/>
-        <Caret Line="678" Column="18" TopLine="670"/>
+        <Filename Value="DLBitmap.pas"/>
+        <Caret Line="532" Column="27" TopLine="514"/>
       </Position30>
     </JumpHistory>
   </ProjectOptions>