English Dictionary v1.0 (просьба потестить немного)

[Rebel123]

Доброго времени суток. Просьба потестить мою прожку.
О программе:
- Мало весит
- Удобный поисковик
- Загружено более 1400 слов

[Hollander]

Я так и не понял, что он переводит. Слово good перевел как "кончать университет с ученой степенью".
UI вообще никакого нету. Не скопировать ничего.
Даю гарантию, что если ты раширишь свою базу около 1-го миллиона слов, твоя прога упадет.
В общем, без обид, но это версия очень далека до альфы.

[Rebel123]

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

Я так и не понял, что он переводит. Слово good перевел как "кончать университет с ученой степенью".
UI вообще никакого нету. Не скопировать ничего.
Даю гарантию, что если ты раширишь свою базу около 1-го миллиона слов, твоя прога упадет.
В общем, без обид, но это версия очень далека до альфы.

перевел он так, потому что я их в Items закинул! соответственно закидывая их вручную правильность перевода слово good оказался чуть выше или ниже, я сам только что заметил, но на то и она v.1.0 что в будущем баги будут исправлены! и я не обижаюсь, даже спасибо вам, что заметили вот такую вот ошибку!

[Levsha100]

Кстати, ссылку на мейл можно сделать активной.

[Rebel123]

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

Кстати, ссылку на мейл можно сделать активной.

ага, только я не знаю как это реализовать.

[ZuBy]

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

ага, только я не знаю как это реализовать.

ShellExecute();
при наведении меняй цвет

[Altera]

2Rebel123
Ну, вообще это не через items делается

Кстати, книжку сами рисовал?

Какая-то она не похожая....

Вот так как-бы лучше


//2Rebel123, ты уверен, что создал тему там где надо? Ей месть в Обсуждении программ и скорее всего какой нить модератор ей туда перенесёт. Так что готовься

Бот с ограниченной фантазией какой-то (предыдущий пост)

[KREGI]

Подправлю ZuBy, вот как будет выглядеть обычная ссылка

uses ShellAPI
...
procedure TForm1.Label1Click(Sender: TObject);
begin
ShellExecute(handle,'open','http://site.ru/',nil,nil,SW_SHOW);
end;

а вот так будет e-mail

uses ShellAPI
...
procedure TForm1.Label1Click(Sender: TObject);
begin
ShellExecute(handle,'open','mailto:nick@mail.ru',nil,nil,SW_SHOW);
end;