Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

графика [D7, WinXP]

Страницы: < 1 2 3 4 >
Вера © (2008-12-24 12:02:00)
Помогите сделать слайд шоу.Я делаю программу просмотра графических файлов.Как там сделать слайд шоу.На делфи

Сергей М. (2008-12-24 17:11:00) [21]

> Вера (24.12.08 16:24) [26]
>
> Можно я перешлю вам вы посмотрите?

Предлагаю вместе с этой бедой переслать, ну скажем, 1000 WMR, чтобы тебя совесть не мучила)
Назад получишь отремонтированный проект с работающим слайд-шоу)

Вера (2008-12-24 17:08:00) [22]
ну он серый а не зеленый как когда запускается

Сергей М. (2008-12-24 17:06:00) [23]

> does not exist

А он, как видишь, существует.

Выбери его явно в Инспекторе объектов в выпадающем списке выбора обработчиков события OnCreate формы Form1

> Run не работает

Неужели прямо вот так и говорит "Не работаю" ?

Вера (2008-12-24 17:00:00) [24]
и вообще прога даже не запускается-т.е. Run не работает

Вера (2008-12-24 16:59:00) [25]
The FormCreate method referenced by Form1.OnCreate does not exist.Remove the reference?Выдает когда пытаюсь закрыть проект

Сергей М. (2008-12-24 16:56:00) [26]

> ошибку такую выдает

А где в этой фразе слово "ошибка" ? Не вижу .. Приводи фразу дословно, а не огрызок ..

И если это ошибка, то где, в какой момент и при каких обстоятельствах ты ее наблюдаешь ?

Вера (2008-12-24 16:53:00) [27]
ошибку такую выдает

Сергей М. (2008-12-24 16:48:00) [28]

> The FormCreate method referenced by Form1

Это что ?

Вера (2008-12-24 16:41:00) [29]
The FormCreate method referenced by Form1

Сергей М. (2008-12-24 16:37:00) [30]
Что конкретно в этом коде не работает ?

Вера (2008-12-24 16:35:00) [31]
да

Сергей М. (2008-12-24 16:32:00) [32]
Так..

И в этом коде не работает ?

Вера (2008-12-24 16:30:00) [33]
unit frame_image;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, jpeg, ExtCtrls;

type
TFrame3 = class(TFrame)
Image1: TImage;
private
{ Private declarations }
public
{ Public declarations }
procedure Resize_Up(X:integer);
procedure Resize_Down(X:integer);
procedure scandir(startdir: string; mask:string; list:tstrings);
procedure Center();
procedure Zap_massiva(List:tstrings);
procedure Open_Picture(FileName:string);

end;

implementation

{$R *.dfm}

//Поиск в текущей директории по заданной маске всех файлов и заполнение им массива List
procedure TFrame3.scandir(startdir: string; mask:string; list:tstrings);
var searchrec : tsearchrec;
begin
if mask = '' then mask := '*.*';
if startdir[length(startdir)] <> '' then startdir := startdir + '';
if findfirst(startdir+mask, faanyfile, searchrec) = 0 then
begin
repeat
application.processmessages;
if (searchrec.attr and fadirectory) <> fadirectory then
list.add(searchrec.name)
else if
(searchrec.name <> '..') and (searchrec.name <> '.') then
begin
list.add(searchrec.name + '');
scandir(startdir + searchrec.name + '',mask,list);
end;
until
findnext(searchrec) <> 0;
findclose(searchrec);
end;
end;

procedure TFrame3.Resize_Up(X:integer);
begin
Image1.Height:=Image1.Height+X;
Image1.Width:=Image1.Width+X;
Center();
end;

procedure TFrame3.Open_Picture(FileName:string);
begin
Image1.Picture.LoadFromFile(FileName);
end;

// Процедура заполнения массива названиями картинок из текущего каталога
procedure TFrame3.Zap_massiva(List:tstrings);
var
path,disc:string;
i:integer;
begin
getdir(0,path);

disc:='';
for i:=1 to 2 do
disc:=disc+path[i];

List.Clear;

scandir(disc,'*.jpg',List);

scandir(disc,'*.jpeg',List);
scandir(disc,'*.ico',List);
scandir(disc,'*.jpg',List);
scandir(disc,'*.bmp',List);
end;

//Уменьшение размера картинки на Х
procedure TFrame3.Resize_Down(X:integer);
begin
Image1.Height:=Image1.Height-X;
Image1.Width:=Image1.Width-X;
//Вызов процедуры установки картинки в центр окна
Center();
end;

// Процедура установки картинки в центр окна
procedure TFrame3.Center();
begin
Image1.Left:=trunc(height/2-Image1.height/2);
Image1.top:=trunc(height/2-Image1.height/2)
end;

end.

Вера (2008-12-24 16:28:00) [34]
unit form_view;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtDlgs, U_Spisok, Menus, frame_image, U_Tree,
ExtCtrls, Buttons, ImgList, ComCtrls,U_ListView;

type
TForm1 = class(TForm);
Frame31: TFrame3;
OpenPictureDialog1: TOpenPictureDialog;
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
Image1: TImage;
N6: TMenuItem;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
BB_next: TBitBtn;
N1111: TMenuItem;
ImageList1: TImageList;
Button1: TButton;
Button2: TButton;
procedure Button2Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure ListBox1Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure BB_nextClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
List:tstrings;
LoadPicture:string;

implementation

{$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject);
begin
Form2.Show;
end;

procedure TForm1.Button5Click(Sender: TObject);
var
path:string;
begin
getdir(1,path);
Frame31.Open_Picture(path+ '\'+ Spisok.ListBox1.Items[Spisok.ListBox1.ItemIndex+1]);
Spisok.ListBox1.ItemIndex:=Spisok.ListBox1.ItemIndex+1;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
list:=TStringList.Create;
end;

procedure TForm1.ListBox1Click(Sender: TObject);
var
path:string;
begin
getdir(1,path);
Frame31.Open_Picture(path+ '\'+ Spisok.ListBox1.Items[Spisok.ListBox1.ItemIndex]);
end;

procedure TForm1.Button4Click(Sender: TObject);
var
path:string;
begin
getdir(1,path);
Frame31.Open_Picture(path+ '\'+ Spisok.ListBox1.Items[Spisok.ListBox1.ItemIndex-1]);
Spisok.ListBox1.ItemIndex:=Spisok.ListBox1.ItemIndex-1;
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
Spisok.Show;
end;

procedure TForm1.N3Click(Sender: TObject);
begin
if N3.Checked then
Spisok.Show
else
Spisok.Close;
end;

procedure TForm1.N4Click(Sender: TObject);
begin
if N4.Checked then
Tree.Show
else
Tree.Close;
end;

procedure TForm1.N5Click(Sender: TObject);
var
i:integer;
begin
if OpenPictureDialog1.Execute then
begin
Frame31.Open_Picture(OpenPictureDialog1.FileName);
Frame31.Zap_massiva(list);

with Spisok.ListBox1 do begin
Items.Assign(List);
ItemIndex := 0;
end;

for i:=0 to Spisok.ListBox1.Count-1 do
begin
with Form2.ListView1.Items.add do
begin
caption :=Spisok.ListBox1.Items[i];
imageindex := 0;
end;
end;

end;
end;

procedure TForm1.N6Click(Sender: TObject);
begin
close;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
Frame31.Resize_Down(100);
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
Frame31.Resize_Up(100);
end;

procedure TForm1.BitBtn3Click(Sender: TObject);
var
path:string;
begin
getdir(1,path);
Frame31.Open_Picture(path+ '\'+ Spisok.ListBox1.Items[Spisok.ListBox1.ItemIndex-1]);
Spisok.ListBox1.ItemIndex:=Spisok.ListBox1.ItemIndex-1;
end;

procedure TForm1.BB_nextClick(Sender: TObject);
var
path:string;
begin
getdir(1,path);
Frame31.Open_Picture(path+ '\'+ Spisok.ListBox1.Items[Spisok.ListBox1.ItemIndex+1]);
Spisok.ListBox1.ItemIndex:=Spisok.ListBox1.ItemIndex+1;
end;

end.

Сергей М. (2008-12-24 16:26:00) [35]
Да ты прямо сюда приводи фрагмены "своего" кода ..

Вера (2008-12-24 16:24:00) [36]
Можно я перешлю вам вы посмотрите?

Сергей М. (2008-12-24 16:22:00) [37]

> Блин я начала делать с этим таймером

Блины с икрой знаю, блины с таймером не знаю)

Вера (2008-12-24 16:19:00) [38]
Блин я начала делать с этим таймером-теперь вообще прога не работает((((((((((я его удалила и опять не работает

Сергей М. (2008-12-24 16:08:00) [39]

> с Click я не поняла

Что не поняла ?

> он выдает ошибку

Какую ?

Вера (2008-12-24 15:42:00) [40]
я сделала но он выдает ошибку

Страницы: < 1 2 3 4 >

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »