Моя первая программа

[igroman]

Это моя первая программа, не пинайте меня сильно, я только учусь. Программа для автоматической смены обоев рабочего стола. Понимаю что тема несколько избита, но всё-же...
В планах - смена обоев по расписанию, и то что вы предложите.

Я принимаю критику хорошо, смело и сильно ругайтесь на все мои ошибки)... Пинайте меня ногами и руками, только не очень больно)

Блин, волнуюсь)) Несмотря на то что бред, но всё равно волнительно...

Ой ой ой, я кое-что забыл... Программка пока-что неработает... Извините за беспокойство, завтра я выложу работающую программку))

[Rembo]

Сообщение от igroman

Ой ой ой, я кое-что забыл... Программка пока-что неработает... Извините за беспокойство, завтра я выложу работающую программку))

Ок, ждем с нетерпением И самое главное - волноваться нечему...

[igroman]

Фух, вроде теперь всё работает...

Правда работает програмка только с bmp и jpg файлами, и не работает стиль выравнивания... Но у меня ещё всё впереди)))

Да, и ещё программа в папке с собой создаёт файл convert.bmp, результат конвертации из жпег в бмп, чуть потом я от этого избавлюсь.

Да, кстати, при дабл-клике на элементе листбокса, выбранный элемент устанавливается в качестве обоев...

[Черничный]

а е первый варийнат скачал, хорошая прога, дизайн отладишь, альфаскин втюкаешь и воля! я записную книжку маленькую написал, ништяк обормление получилосью. Рабоатет с базой ацесса.

Поделись кодом выбора из папки)) вот такой бы код мне надо))

[igroman]

FindFirst и FindNext использовал, и заносил в стринглист, и всё... Или вы про ExtractFileName???
Дизайн помоему дело последнее, и не совсем нужное в таких маленьких программах..

[Черничный]

Сообщение от igroman

FindFirst и FindNext использовал, и заносил в стринглист, и всё... Или вы про ExtractFileName???
Дизайн помоему дело последнее, и не совсем нужное в таких маленьких программах..

Мне код нужен кнопки выбор из каталога и как они в лист грузятся. Весь код вот этот

[igroman]

var
Path: Integer; //Глобальные переменные
Pictures: StringLIst;


procedure TForm1.Button5Click(Sender: TObject);
begin
If SelectDirectory('Выберите папку', '', Path)  then
begin
Path := Path + '/';
FillListBox;
end;
end;

procedure TForm1.FillListBox;
var
SearchRec: TSearchRec;
r, s: Integer;
begin
 r:= FindFirst(Path + '*.jpg', faAnyFile,SearchRec);
 if r = 0 then
 begin
 Pictures.Add(Path + '\' + SearchRec.Name);
 while 0 = FindNext(SearchRec) do
  begin
   Pictures.Add(Path +'\' + SearchRec.Name);
  end;
  begin
  s:= FindFirst(Path + '*.bmp', faAnyFile,SearchRec);
 if s = 0 then
 begin
 Pictures.Add(Path + '\' + SearchRec.Name);
 while 0 = FindNext(SearchRec) do
  begin
   Pictures.Add(Path +'\' + SearchRec.Name);
   end;
   end;
 LoadAr2;
end;
end;
end;

Procedure TForm1.LoadAr2;
var
s: Integer;
begin
Listbox1.Clear;
for s:= 0 to Pictures.Count -1 do
Listbox1.Items.Add(ExtractFileName(Pictures[s]));
end;

Это нужно???

[Черничный]

да вроде, но что то какие то не стыковочки в коде. Может зашлешь мне исходник?

[igroman]

Какие ошибки?? ты обьявил эти процедуры? Ты вызывал Pictures := TStringList.Create;? Попробуй эти процедуры задом наперёд поменять...вначале LoadAr2 потом FillListBox а потом кнопка

[Черничный]

да, обявил, но в строчке

 r:= FindFirst(Path + '*.jpg', faAnyFile,SearchRec);

пишет типы integer и стринг, оибочка