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);
begin
Canvas.Brush.Style := bsSolid;
Canvas.Ellipse(X1, Y1, X2, Y2);
end;
procedure TDLBitmap.ColorReplace(ColorFrom, ColorTo: TColor);

View File

@ -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>