Нужна ваша оценка проги на делфи

[Rustam_Hacker]

исходник есть, найдешь его в папке c:\program files\Alarm! 3.0 beta 1\Alarm

[Rustam_Hacker]

исходник там в корневом каталоге программы....

[AlDelta]

Rustam_Hacker, сделайте скриншоты и разместите их здесь.

[celovec]

Rustam_Hacker, ты не понял сути.
AlDelta, тоже дал хороший совет, поддерживаю.

[Rustam_Hacker]

вот скрин.....

[celovec]

1,2,3,4. Что это?
5,6, Тоже не совсем читабельно, хотя бы добавьте ":"
7 - не сразу понял что это, нужно дать понять что это плеер. + Зачем вы делаете 2 кнопки, Произвести, Стоп. Нужно сделать 1 кнопку. Которая меняется на Стоп если вы слушаете mp3
Сделаете это, покажете потом расскажу другие нюансы.

[Человек_Борща]

ахахах как интересно всё..

[f]
1=E:\Program Files\Alarm! 3.0 beta 1\Uninstall.exe
2=C:\Documents and Settings\Александр\Рабочий стол\Alarm! 3.0 beta 1.lnk
[e]
[o1]
0=2
1=C:\Program Files\Alarm! 3.0 beta 1
[o2]
0=0
1=C:\Program Files\Alarm! 3.0 beta 1\Alarm\Alarm.exe

а можно узнать почему программа не установилась по указанному мной пути установки? И всеравно поставилась на C?


Ошибок уйма =)
Я там как минимум 6 ACV насчитал если в папке с программой не будет нужного файла. Интерфейс даже мне с трудом понять. Уж лучше вместо картинок используйте кнопки с текстом. И то понятнее будет.
Ни к одному контролу нет подсказки.
Нет проверок на наличие файлов. Нет блоков исключений. Молчу про тучу таймеров. Которые можно заменить на потоки.
Убила кнопка "Удалить лицензию". ЗАЧЕМ?! Если удалять лицензию то и всю программу вместе с ней, без лицензии программа не работает.

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

Я насчитал 7 способов обойти защиту=)

про оформление интерфейса я молчу.

Далее с Unit1:
Интересный сабж:

procedure TForm1.Timer6Timer(Sender: TObject);
begin
  if Edit1.Text + Edit2.Text = ('' + '') then
  begin

    Image9.Visible := false;
  end
  else
    Image9.Visible := true;

end;

procedure TForm1.Image8Click(Sender: TObject);
begin
  Edit1.Text := ('');
  Edit2.Text := ('');
  Edit1.ReadOnly := False;
  Edit2.ReadOnly := False;
end;

можно проще:

procedure TForm1.Timer6Timer(Sender: TObject);
begin
  if ((Edit1.Text and Edit2.Text) = '') then
    Image9.Visible := false
  else
    Image9.Visible := true;
end;

procedure TForm1.Image8Click(Sender: TObject);
begin
  Edit1.Text :='';
  Edit2.Text :='';
  Edit1.ReadOnly := False;
  Edit2.ReadOnly := False;
end;

кароче много мелких и откровенно ненужных и глупых ошибок.

[Rustam_Hacker]

Понятно, спасибо.

[Rustam_Hacker]

я хочу многие настройки убрать из главной формы в "Дополнительные настройки", стоит ли это делать?

[xwicked]

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

я хочу многие настройки убрать из главной формы в "Дополнительные настройки", стоит ли это делать?

Стоит. Можно просто назвать "Настройки". Так как, при расширении функционала Вашей программы - это станет просто необходимо.