Ellipse eraser works.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1611 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
yangjixian
2011-05-05 01:16:37 +00:00
parent 8f132d9180
commit 055d42cf99
2 changed files with 68 additions and 67 deletions

View File

@ -530,7 +530,8 @@ end;
procedure TDLBitmap.FillEllipse(X1, Y1, X2, Y2: integer); procedure TDLBitmap.FillEllipse(X1, Y1, X2, Y2: integer);
begin begin
Canvas.Brush.Style := bsSolid;
Canvas.Ellipse(X1, Y1, X2, Y2);
end; end;
procedure TDLBitmap.ColorReplace(ColorFrom, ColorTo: TColor); procedure TDLBitmap.ColorReplace(ColorFrom, ColorTo: TColor);

View File

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