Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Media";
Текущий архив: 2004.11.28;
Скачать: [xml.tar.bz2];

Вниз

Смена картинок по таймеру   Найти похожие ветки 

 
clampo ©   (2004-08-28 23:19) [0]

Привет всем!!! Как сделать так что бы н\р 5 картинок менялись одна за другой,
и это снова повторялось и без могания и торможения


 
dRake   (2004-08-29 01:57) [1]

VAR
 ABMP  : array [1..5] of TBitmap;
 Index : integer;

{...}

Procedure FormCreate;
var i : integer;
   s : string;
begin;

for i := 1 to 5 do
 begin;
   TBMP[i] := TBitmap.Create;
   
   case i of
     1: s := "Image1.bmp";
     2: s := "Image2.bmp";
     {...}
   end;

   TBMP[i].LoadFromFile(s);
 end;

Index := 1;

end;

{...}

procedure Timer1OnTimer;
begin;

 inc(Index);
 if Index > 5 then Index := 1;

 BitBlt(Form1.Canvas.Handle, 10, 10, TBMP[Index].Width,
        TBMP[Index].Height, TBMP[Index].Canvas.Handle, 0, 0,
        SRCCOPY);

end;


 
dRake   (2004-08-29 02:00) [2]

Блин забыл :)

procedure FormDestroy;
var i : integer;
begin

for i := 1 to 5 do TBMP[i].Free;

end;



Страницы: 1 вся ветка

Форум: "Media";
Текущий архив: 2004.11.28;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.44 MB
Время: 0.042 c
1-1100261601
Jann
2004-11-12 15:13
2004.11.28
StatusBar


14-1100212541
GanibalLector
2004-11-12 01:35
2004.11.28
Слова тренера после матча !!!


11-1083006760
Дас Виндовс 45
2004-04-26 23:12
2004.11.28
Как определить язык, используемый пользователем по умолчанию.


3-1099159192
SergP
2004-10-30 21:59
2004.11.28
Отображение номера записи в DBCtrlGrid


14-1100242672
MBo
2004-11-12 09:57
2004.11.28
Пятница - новые похождения Васи Пупкина и другие задачки ;)





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский