VPF::[Delphi] Как обеденить 2 кода?? - Форум программистов

Volkogriz

Дата 16.12.2007, 07:11 (ссылка)

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

Загрузка ...

Бывалый

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

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

Доброе время суток!
Кто может мне помочь памагите пожалусто!!!!!
Есть два кода

Этот >1):

Код


implementation

{$R *.dfm}
var
  SplashImage: TImage;
  SplashForm: TForm;
  I : Integer;

begin
  SplashForm := TForm.create(nil);//Создание Формы
  with SplashForm do
   begin
    // Color:=  clFuchsia;  Цвет Формы
    BorderStyle := bsNone; //Стиль Границ
    Position := poScreenCenter; //Позиция
     //TransparentColor:= True; Прозрачьность
    // размеры показываемого изображения
    ClientWidth := 405; //Ширина
    ClientHeight := 310;// Высота
end;

    SplashImage := TImage.Create(SplashForm);//Создание рисунка на созданай форме


  with SplashImage do
 begin
SplashImage.Picture.LoadFromFile('splash.bmp');// Загрузка ресунка
    Stretch := true;
    Align := alClient;
    Parent := SplashForm;
    end;
  with SplashForm do
   begin
     Show; //Паказать Форму
     for I := 1 to 1 do
      begin
    Repaint;
        // паказ изоброжения в секундах (1000 – одна секунда, 2000 – две секунды и т.д.)
    Sleep(5000);
      end;
    Close;
    Free;  //Уничьтожить SplashForm
   end;
end.

и этот >2):

Код


implementation

{$R *.dfm}

var
  Form1: TForm1;
  jpg: array[1..8]of tjpegimage;
  i: integer;

procedure TForm1.FormCreate(Sender: TObject);
begin
  for i:=1 to 8 do
  begin
    jpg[i]:=tjpegimage.Create;
    jpg[i].LoadFromFile(inttostr(i)+'.jpg');
  end;
  i:=1;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  form1.Image1.Canvas.Draw(0,0,jpg[i]);
  inc(i);
  if i=9 then
    i:=1;
  case i of
    1..4: form1.Timer1.Interval:=350;
    5..8: form1.Timer1.Interval:=100;
  end;
end;

end.

Памагите их обеденить пажалусто нужен первый код рабочий!
Я его написал для заставки но теперь хочу использовать в других целях
но обявить процедуры onTimer и FormCreate которые нужно для второго кода в первом не могу не догоняю и стаимером проблемы!!!
Памагите если не трудно пожалусто!!!
За рание блогодарен !!!
С уважением Volkogriz!

Это сообщение отредактировал(а) Volkogriz - 16.12.2007, 07:13

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

("`-''-/").___..--''"`-._`6_6 ) ,,,`-. ( ''' ).` "_-.__.')(_Y_.)' ._''' ) `._ `. ``-.__'.-'_..`--'_..-_/'''/--'_.' ,'(il).-'''''(li).' ((!.-'

Rennigth

Дата 16.12.2007, 07:46 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1708
Регистрация: 21.6.2004
Где: Moscow

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

Volkogriz, Ты лутше скажи что ты в этоге хочешь получить? А то, извини, один бред, с другим мешать нехочеться.
дальше этого даже смотреть не стал:

Код


    for I := 1 to 1 do

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

(* Honesta mors turpi vita potior *)

Volkogriz

Дата 16.12.2007, 09:43 (ссылка)

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

Загрузка ...

Бывалый

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

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

Цитата(Rennigth @ 16.12.2007, 07:46

)

Ты лутше скажи что ты в этоге хочешь получить?

Я пишу сетапчик к игре! Я думаю запихнуть это в Dll и собрать на этом слайд шоу в процесе установки тоесть отдельный модуль!
А эту ерунду я прошу смешать для того чтоб понять как правильно создать таймер и заставить его работать и как создать оброботчик процедуры onTimer и FormCreate именно создать а ни кидать на готовую форму готовый таймер! smile

Мне нужен чисто пример рабочий и именно с этими кодами для того штоб я разабралсь как это делать!!!
Если не трудно!?
С уважением Volkogriz! smile

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

("`-''-/").___..--''"`-._`6_6 ) ,,,`-. ( ''' ).` "_-.__.')(_Y_.)' ._''' ) `._ `. ``-.__'.-'_..`--'_..-_/'''/--'_.' ,'(il).-'''''(li).' ((!.-'

MetalFan

Дата 16.12.2007, 10:12 (ссылка)

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

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

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

напиши внятно и с расстановкой и по пунктам что тебе нужно в итоге получить....

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

There are always someone smarter than you...

Volkogriz

Дата 16.12.2007, 10:41 (ссылка)

(голосов:1)

Загрузка ...

Бывалый

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

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

1)Мне хотелось бы Понять как напмсать и обработать таймар так чтобы при создании окна с Image
Загружались jpg рисунки типо слаидов!
Но на созданай форме !
2)Как при создании обекта обработать событие например onTimer, onCreate, onShow!?
С уважением Volkogriz! smile

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

("`-''-/").___..--''"`-._`6_6 ) ,,,`-. ( ''' ).` "_-.__.')(_Y_.)' ._''' ) `._ `. ``-.__'.-'_..`--'_..-_/'''/--'_.' ,'(il).-'''''(li).' ((!.-'

MetalFan

Дата 16.12.2007, 11:17 (ссылка)

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

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

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

ну алгоритм мне видится примерно таким:
1. в OnCreate Формы инициализируем необходимые переменные
2. В OnShow формы запускаем таймер и грузится первая картинка
3. По таймеру загружаем след.картинку по списку...
в чем проблема с реализацией?

Добавлено @ 11:18
афтар ашипки/ачепятки в тексте ниправиряит?

Это сообщение отредактировал(а) MetalFan - 16.12.2007, 11:18

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

There are always someone smarter than you...

Volkogriz

Дата 16.12.2007, 11:57 (ссылка)

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

Загрузка ...

Бывалый

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

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

Проблем то не каких! только ето я умею делать с формой которую создал делфи а вот когда саздаю форму так Form := TForm.create(nil); у ня не получается оброботать событие формы как я только не пытался всегда ошибки!!!
По этому и попросил соеденить 2 кода чтоб понять как зто делается!
Мне кажется для людей знающих это не составит труда?
С уважением Volkogriz! smile

Это сообщение отредактировал(а) Volkogriz - 16.12.2007, 11:59

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

("`-''-/").___..--''"`-._`6_6 ) ,,,`-. ( ''' ).` "_-.__.')(_Y_.)' ._''' ) `._ `. ``-.__'.-'_..`--'_..-_/'''/--'_.' ,'(il).-'''''(li).' ((!.-'

MetalFan

Дата 16.12.2007, 12:04 (ссылка)

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

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

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

зачем тебе TForm ? чем десигнер форм не устраивает?
смотри пример в аттаче.
для проверки работоспособности кинь в папку images несколько картинок.

Это сообщение отредактировал(а) MetalFan - 16.12.2007, 12:54

Присоединённый файл ( Кол-во скачиваний: 7 )

SlideShow.rar 2,20 Kb

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

There are always someone smarter than you...

Alexeis

Дата 16.12.2007, 13:49 (ссылка)

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

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

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

Для домашних заданий, курсовых, существует "Центр Помощи".

Тема перенесена!

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

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

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