procedure THotTrackImage.Paint;
var
Save: Boolean;
begin
if csDesigning in ComponentState then
with inherited Canvas do
begin
Pen.Style := psDash;
Brush.Style := bsClear;
Rectangle(0, 0, Width, Height);
end;
Save := FDrawing;
FDrawing := True;
try
with inherited Canvas do
begin
if FIsHoted and not(csDesigning in ComponentState) then
StretchDraw(DestRect, FHotPicture)
else
StretchDraw(DestRect, FPicture);
end;
finally
FDrawing := Save;
end;
end;

procedure THotTrackImage.PictureChanged(Sender: TObject);
begin
Picture.Transp

上一页  [1] [2] [3] [4] [5]  下一页