Как обещал сделал первую версию WMmail браузера! Версия будет 0.1!
Вот ссылочка на скачиваение: http://zalil.ru/33556885
Вирусов нет! Кто хочет можете проверить веб антивирусом!
Ваше мнение о программе? Ваши идеи?
5+ :>
18
5
2
4
10
3
7
2
2
1
3
0 :<
15
Модератор Kir1975 выписал штраф создателю темы в размере 0.1$ за несоблюдение правил рекламы, по причине: реклама
Не в обиду автора, но пользоваться ею я не буду вообще. меня и так устраивают браузеры, которые есть. Кто хочет, пусть пользуется, но мне не особо нравится идея о браузере мпециально для вммайла.
procedure TForm1.Button2Click(Sender: TObject);
begin
if PageWeb.PageCount>2 then begin
PageWeb.Pages[PageWeb.TabIndex].Destroy;
PageWeb.TabIndex:=PageWeb.PageCount-2;
Browsers.Delete(Browsers.Count-1);
end else if PageWeb.PageCount=2 then begin
TWebBrowser(Browsers.Last).Navigate(blank);
PageWeb.Pages[PageWeb.PageCount-2].Caption:=blank;
end;
end;
procedure TForm1.Edit1Click(Sender: TObject);
begin
Edit1.SelStart:=0;
Edit1.SelLength:=length(Edit1.Text);
Edit1.SetFocus;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
edit1.Align:=albottom;
// запуск формы
Browsers:=TList.Create;
Browsers.Add(WebBrowser1);
speedbutton2.Click;
end;
procedure TForm1.PageWebChange(Sender: TObject);
var tab:TTabSheet; wl,wb: TWebBrowser;
begin
// вкладки переход
if PageWeb.TabIndex=PageWeb.PageCount-1 then begin
tab:=TTabSheet.Create(PageWeb);
tab.PageControl:=PageWeb;
tab.Caption:=blank;
tab.PageIndex:=PageWeb.PageCount-2;
PageWeb.TabIndex:=tab.PageIndex;
wl:=TWebBrowser(Browsers.last);
wb:=TWebBrowser.Create(tab);
with TWinControl(wb) do begin
parent:=tab; // веб браузер активизация
// загрузка параметров
visible:=true; width:=wl.Width; height:=wl.Height; left:=wl.Left; top:=wl.Top;
Align:=wl.Align;
end;
wb.OnDocumentComplete:=self.WebBrowser1DocumentComplete;
Browsers.Add(wb);
end else begin
Edit1.Text:=TWebBrowser(Browsers[PageWeb.TabIndex]).LocationURL;
end;
end;
procedure TForm1.WebBrowser1DocumentComplete(ASender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
begin
// зарузка страницы
PageWeb.ActivePage.Caption:=copy(TWebBrowser(ASender).LocationName,1,23);
Edit1.Text:=TWebBrowser(ASender).LocationUrl;
end;
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
// стоп
TWebBrowser(Browsers[PageWeb.TabIndex]).Stop;
end;
procedure TForm1.SpeedButton3Click(Sender: TObject);
begin
// назад
TWebBrowser(Browsers[PageWeb.TabIndex]).GoBack;
end;
procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
// навигация, кнопка GO
TWebBrowser(Browsers[PageWeb.TabIndex]).Navigate(self.Edit1.Text);
PageWeb.ActivePage.Caption:='Загрузка...';
end;
procedure TForm1.SpeedButton4Click(Sender: TObject);
begin
// Вперед
TWebBrowser(Browsers[PageWeb.TabIndex]).GoForward;
end;
procedure TForm1.SpeedButton5Click(Sender: TObject);
begin
// обновить
TWebBrowser(Browsers[PageWeb.TabIndex]).Refresh;
end;
procedure TForm1.N2Click(Sender: TObject);
begin
form1.close;
end;
procedure TForm1.N1Click(Sender: TObject);
begin
CoolTrayIcon1.ShowMainForm;
end;
procedure TForm1.CoolTrayIcon1Click(Sender: TObject);
begin
CoolTrayIcon1.ShowMainForm;
end;
procedure TForm1.N4Click(Sender: TObject);
begin
form2.Show;
end;
Не в обиду автора, но пользоваться ею я не буду вообще. меня и так устраивают браузеры, которые есть. Кто хочет, пусть пользуется, но мне не особо нравится идея о браузере мпециально для вммайла.
он будет помогать выполнить задание
Добавлено спустя 40 секунд
Да, прога еще сырая
а кто говорил, что это финал? Версия 0.1 тестим на баги и предлогаем идеи!
браузер очень шустрый, но косяков достаточно. Первый - всё мигает. Это очень неприятно. Второй - прокрутку очень сложно назвать плавной. Не приятно смотреть, когда при скроле сайт прыгает с одного места на другое. Третье - очень большие кнопки функционала (остановить, назад, вперед и тп.) И не понятно какая кнопка за что отвечает. сделай всплывающие пояснения. Четвертое - команды не работают. Нажимаю CTRL + Enter - никакого результата. Если че то еще надумаю - отпишу.
Нее, это только интерфейс, оболочка так сказать ) Ну и браузер мини )
так тестить что тогда?!сделал для начала хоть чтобы задания помогало делать,а там видно будет!
ок! Ждите в след. версии
Добавлено спустя 02 минуты 25 секунд
хорошая у тебя аватара, доверительная, но в чужие проги лучше свои пароли не ставить. Если админ даст добро, тогда да
ты пароль можешь не вводить! Открой IE авторизируйся там и открывай прогу
браузер очень шустрый, но косяков достаточно. Первый - всё мигает. Это очень неприятно. Второй - прокрутку очень сложно назвать плавной. Не приятно смотреть, когда при скроле сайт прыгает с одного места на другое. Третье - очень большие кнопки функционала (остановить, назад, вперед и тп.) И не понятно какая кнопка за что отвечает. сделай всплывающие пояснения. Четвертое - команды не работают. Нажимаю CTRL + Enter - никакого результата. Если че то еще надумаю - отпишу.
Кнопочки уменьши если будет место мало, подсказки сделаю, перечисли команды типо CTRL + Enter
Добавлено спустя 02 минуты 55 секунд
Модератор Kir1975 выписал штраф создателю темы в размере 0.1$ за несоблюдение правил рекламы, по причине: реклама
У проги много минусов таких примеру как элементов проблемы с Alt-изчезновением и базовых горячих клавишь.
Да и вообще Кто сказал что прога не передаёт пароли тебе? xD
Добавлено спустя 05 минут 42 секунды
Но всё таки прятно видеть код Delphi)))
Эх, конечно вы делаете благое дело, но это уж слишком подозрительно... Вчера предложили, сегодня уже написали. Я извиняюсь, конечно, что обвиняю вас без доказательств, но как уже писал, пользоваться я ею не буду. Может и буду таким один, но уже столько насоздавали помошников... Конечно, есть такие, что действительно помогают, но есть и другие, для других целей. Мне б не очень хотелось, чтобы этоа праграмма отнеслась ко второму. Очень не хотелось... Порядочных людей и так мало, а талантливых ешё меньше... И всё же удачи.