| Swat | 01 Temmuz 2014 13:07 |
Web Browser (Tarayıcı) Programı
C++ Builder 6 ile uyumludur. Bu programda bir web tarayıcısı (web browser) yapılmıştır. Programda C++ Builder bünyesinde bulunan bileşenlerin yanında estetik sağlaması amacıyla Alpha Control bileşeni kullanılmıştır. PHP- Kodu:
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "sSkinManager"
#pragma link "acPNG"
#pragma link "acAlphaImageList"
#pragma link "SHDocVw_OCX"
#pragma link "sBitBtn"
#pragma link "sComboBox"
#pragma link "sButton"
#pragma link "sScrollBar"
#pragma link "sPanel"
#pragma link "sEdit"
#pragma resource "*.dfm"
TForm1 *Form1;
bool buton=false;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::sBitBtn1Click(TObject *Sender)
{
CppWebBrowser1->GoBack();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::sBitBtn2Click(TObject *Sender)
{
CppWebBrowser1->Stop();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::sBitBtn3Click(TObject *Sender)
{
CppWebBrowser1->GoForward();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::sBitBtn4Click(TObject *Sender)
{
CppWebBrowser1->Refresh();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::sBitBtn6Click(TObject *Sender)
{
CppWebBrowser1->Navigate(WideString("
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">));
sComboBox1->Text="
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">;
Form1->Caption="Facebook - Koala Web Browser";
}
//---------------------------------------------------------------------------
void __fastcall TForm1::sBitBtn7Click(TObject *Sender)
{
CppWebBrowser1->Navigate(WideString("
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">));
sComboBox1->Text="
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">;
Form1->Caption="Google - Koala Web Browser";
}
//---------------------------------------------------------------------------
void __fastcall TForm1::sBitBtn8Click(TObject *Sender)
{
CppWebBrowser1->Navigate(WideString("
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">));
sComboBox1->Text="
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">;
Form1->Caption="Programlama Portalınız Hazır Program Programlama Dilleri Döküman Forum - Koala Web Browser";
}
//---------------------------------------------------------------------------
void __fastcall TForm1::sComboBox1KeyPress(TObject *Sender, char &Key)
{
if(Key==VK_RETURN)
CppWebBrowser1->Navigate(WideString(sComboBox1->Text));
}
//---------------------------------------------------------------------------
void __fastcall TForm1::sEdit1KeyPress(TObject *Sender, char &Key)
{
if(Key==VK_RETURN)
{
AnsiString arama=sEdit1->Text;
sComboBox1->Text="
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">+arama+"&aq=f&aqi=g10&aql=&oq=&gs_rfai=&fp=d409d42931bac555";
CppWebBrowser1->Navigate(WideString(sComboBox1->Text));
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::sBitBtn9Click(TObject *Sender)
{
AnsiString arama=sEdit1->Text;
sComboBox1->Text="
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">+arama+"&aq=f&aqi=g10&aql=&oq=&gs_rfai=&fp=d409d42931bac555";
CppWebBrowser1->Navigate(WideString(sComboBox1->Text));
}
//---------------------------------------------------------------------------
void __fastcall TForm1::k1Click(TObject *Sender)
{
Form1->Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::SekmeyiKapat1Click(TObject *Sender)
{
Form1->PageControl1->ActivePage->TabVisible=false;
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "sSkinManager"
#pragma link "acPNG"
#pragma link "acAlphaImageList"
#pragma link "SHDocVw_OCX"
#pragma link "sBitBtn"
#pragma link "sComboBox"
#pragma link "sButton"
#pragma link "sScrollBar"
#pragma link "sPanel"
#pragma link "sEdit"
#pragma resource "*.dfm"
TForm1 *Form1;
bool buton=false;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::sBitBtn1Click(TObject *Sender)
{
CppWebBrowser1->GoBack();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::sBitBtn2Click(TObject *Sender)
{
CppWebBrowser1->Stop();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::sBitBtn3Click(TObject *Sender)
{
CppWebBrowser1->GoForward();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::sBitBtn4Click(TObject *Sender)
{
CppWebBrowser1->Refresh();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::sBitBtn6Click(TObject *Sender)
{
CppWebBrowser1->Navigate(WideString("
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">));
sComboBox1->Text="
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">;
Form1->Caption="Facebook - Koala Web Browser";
}
//---------------------------------------------------------------------------
void __fastcall TForm1::sBitBtn7Click(TObject *Sender)
{
CppWebBrowser1->Navigate(WideString("
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">));
sComboBox1->Text="
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">;
Form1->Caption="Google - Koala Web Browser";
}
//---------------------------------------------------------------------------
void __fastcall TForm1::sBitBtn8Click(TObject *Sender)
{
CppWebBrowser1->Navigate(WideString("
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">));
sComboBox1->Text="
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">;
Form1->Caption="Programlama Portalınız Hazır Program Programlama Dilleri Döküman Forum - Koala Web Browser";
}
//---------------------------------------------------------------------------
void __fastcall TForm1::sComboBox1KeyPress(TObject *Sender, char &Key)
{
if(Key==VK_RETURN)
CppWebBrowser1->Navigate(WideString(sComboBox1->Text));
}
//---------------------------------------------------------------------------
void __fastcall TForm1::sEdit1KeyPress(TObject *Sender, char &Key)
{
if(Key==VK_RETURN)
{
AnsiString arama=sEdit1->Text;
sComboBox1->Text="
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">+arama+"&aq=f&aqi=g10&aql=&oq=&gs_rfai=&fp=d409d42931bac555";
CppWebBrowser1->Navigate(WideString(sComboBox1->Text));
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::sBitBtn9Click(TObject *Sender)
{
AnsiString arama=sEdit1->Text;
sComboBox1->Text="
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">+arama+"&aq=f&aqi=g10&aql=&oq=&gs_rfai=&fp=d409d42931bac555";
CppWebBrowser1->Navigate(WideString(sComboBox1->Text));
}
//---------------------------------------------------------------------------
void __fastcall TForm1::k1Click(TObject *Sender)
{
Form1->Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::SekmeyiKapat1Click(TObject *Sender)
{
Form1->PageControl1->ActivePage->TabVisible=false;
}
//---------------------------------------------------------------------------
| 