VPF::Оптимизировать код - Форум программистов

NieL

Дата 20.2.2008, 22:22 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 214
Регистрация: 10.2.2008

Репутация: 1
Всего: 1

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

Код


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;

Это сообщение отредактировал(а) Alexeis - 21.2.2008, 10:39

THandle

Дата 20.2.2008, 22:39 (ссылка)

(нет голосов)

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 65
Всего: 372

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

source777

Дата 20.2.2008, 22:44 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1878
Регистрация: 12.3.2007

Репутация: 4
Всего: 56

Для начала можно
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 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 214
Регистрация: 10.2.2008

Репутация: 1
Всего: 1

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

source777

Дата 21.2.2008, 16:48 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1878
Регистрация: 12.3.2007

Репутация: 4
Всего: 56

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

--------------------

ivan219

Дата 22.2.2008, 15:37 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1121
Регистрация: 19.11.2005
Где: Планета земля

Репутация: 2
Всего: 12

Или вот так:

Код


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;

--------------------

Мой первый сайт и моя первая программа!!!!!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »