Оптимизировать код

[NeiL]

Господа программисты, как можно оптимизировать нижеописанный код:

function ReceivePoint: TPoint;
begin
if X < 0 then
begin
Result := Point(-1, 0);
SetTimer(
Handle, FKeyId_TranslocateIn,
const_def_DELAYTRANSLOCATEIN, FlpTimerFunc);
end
else
if Y < 0 then
begin
Result := Point(0, -1);
SetTimer(Handle, FKeyId_TranslocateIn,
const_def_DELAYTRANSLOCATEIN, FlpTimerFunc);
end
else
if (X > FDownCtrl.Width -
TCustomRangeBar(FDownCtrl.ScrollBar s.Slave).Width) then
begin
Result := Point(1, 0);
SetTimer(
Handle, FKeyId_TranslocateIn,
const_def_DELAYTRANSLOCATEIN, FlpTimerFunc);
end
else
if (Y > FDownCtrl.Height -
TCustomRangeBar(FDownCtrl.ScrollBar s.Master).Height) then
begin
Result := Point(0, 1);
SetTimer(Handle, FKeyId_TranslocateIn,
const_def_DELAYTRANSLOCATEIN, FlpTimerFunc);
end
else
begin
KillTimer(Handle, FKeyId_TranslocateIn);
end;
end;

[alexBlack]

Я бы сделал так:

Для начала разобьем плоскость на 9 областей и произвольно пронумеруем их

1|2|3
------
4|5|6
------
7|8|9

Определим, в какую область попадает точка:

function ReceivePoint: TPoint;
var N : integer;
begin
    if x < 0 then begin
        if        y < 0 then N := 1
        else if  y < FDownCtrl.Height then N := 4
        else N := 7             
    end else 
    if x <= FDownCtrl.Width then begin
        if        y < 0 then N := 2
        else if  y < FDownCtrl.Height then N := 5
        else N := 8             
    end else 
    begin
        if        y < 0 then N := 3
        else if  y < FDownCtrl.Height then N := 6
        else N := 9             
    end;

Далее действия в зависимости от того, в какую область попадает точка

case N of 
    1 : result := point(-1, 0)
    ...
end;

if N = 5 
then KillTimer(Handle, FKeyId_TranslocateIn)
else SetTimer(Handle, FKeyId_TranslocateIn, const_def_DELAYTRANSLOCATEIN, FlpTimerFunc);

И еще, Ваша функция возвращает point(1, 0). Видимо это какой то признак. Можно сразу вернуть N (в моем примере номер области) и измениль логику кода, который вызывает ReceivePoint.

[Stilet]

Ябы просто аккуратно это переписал:

function ReceivePoint: TPoint;
begin
if X < 0 then Result := Point(-1, 0) else
 if Y < 0 then Result := Point(0, -1) else
  if (X > FDownCtrl.Width -TCustomRangeBar(FDownCtrl.ScrollBars.Slave).Width) then Result := Point(1, 0) else
    if (Y > FDownCtrl.Height -TCustomRangeBar(FDownCtrl.ScrollBars.Master).Heigh t) then Result := Point(0, 1);

if KillTimer(Handle, FKeyId_TranslocateIn)=0 then SetTimer(Handle, FKeyId_TranslocateIn,
const_def_DELAYTRANSLOCATEIN, FlpTimerFunc);
end;