[cybervampire]

Просидел весь день разбирая что дак, не понял как сделать эти еффекты хоть убей.. перелопатил компонент... не совсем все понятно.
Помогите с реализацией еффектов пожалуйста.
Добавил Лист бокс. в листбокс добавляеться с текстового файла список.
К примеру:
Сверху
Снизу
Слева
Справа
...
К примеру если выбран первый елемент в списке то делать следующее

Код:

// efflist это listbox
if efflist.Enabled=true then
  if efflist.ItemIndex=0 then
    begin
    rect.Left:=0; rect.Top:=-100; rect.Right:=imgphoto.Width-100;    rect.Bottom:=imgphoto.Height-100;
    imgphoto.Picture.bitmap.width:=imgphoto.Width;
    imgphoto.Picture.Bitmap.Height:=imgphoto.Height;
    imgPhoto.Picture.Bitmap.Canvas.Brush.Color:=clblack;
    imgPhoto.Picture.Bitmap.Canvas.Brush.Style:=bsSolid;
    imgPhoto.Picture.Bitmap.Canvas.FillRect(Rect);
    imgPhoto.Picture.Bitmap.Canvas.Refresh;
    end;

Как еще и таймер реализовать?
P/S простите за дурацкие вопросы, просто плохо в это еще разбираюсь, но пытаюсь разобраться. Исходник прилагаеться