Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Оптимизировать код

Автор: NieL 20.2.2008, 22:22

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

Код


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.ScrollBars.Slave).Width) then
   begin
     Result := Point(1,  0);
     SetTimer(
     Handle, FKeyId_TranslocateIn,
       const_def_DELAYTRANSLOCATEIN, FlpTimerFunc);
   end
   else
   if (Y > FDownCtrl.Height -
        TCustomRangeBar(FDownCtrl.ScrollBars.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;

Автор: THandle 20.2.2008, 22:39

NieL, пользуйся кнопкой "код".

Автор: source777 20.2.2008, 22:44

Для начала можно
SetTimer(Handle, FKeyId_TranslocateIn,
const_def_DELAYTRANSLOCATEIN, FlpTimerFunc);
вынести из проверок и поместить перед последним end; с каким-нить одним условием типа
if (Result.X<>0)or(Result.Y<>0) then ...

+ в начало функции нужно Result := Point(0, 0);

P.S. Ты бы хоть написал для чего этот код тебе нужен, в каком контексте вызывается...

Автор: NieL 20.2.2008, 22:58

функция вызывается на событии OnMouseMove и определяет параметры приращения шага по осям x, y. Короче, отслеживается выход курсора мыши за пределы контрола (ImgView32). В случае если курсор мыши выходит, скролим изображение на приращиваемый шаг.

Автор: source777 21.2.2008, 16:48

Тогда лучше вынести весь код проверки в событие таймера и сделать его постоянным, а в onMouseMove только менять текущую координату...
P.S. А этот код у тебя вообще работает? а то я что-то не припомню чтобы onMouseMove могло возвращать координаты вне компонента...

Автор: ivan219 22.2.2008, 15:37

Или вот так:

Код


function ReceivePoint: TPoint;
begin
   if X < 0 then  Result := Point(-1, 0)
   else
.
.
.
   else
   begin
     KillTimer(Handle, FKeyId_TranslocateIn);
     Exit;
   end;
  SetTimer(Handle, FKeyId_TranslocateIn, const_def_DELAYTRANSLOCATEIN, FlpTimerFunc);
 end;