Commit d6025c73be86189d945a4dcd5c24e6560fa86e86 to plus7's bagel

plus7 / bagel

Description:	A Gecko-based web browser for Windows edit
Homepage:	http://ipt.sakura.ne.jp/gecko/bagel/ edit
Public Clone URL:	git://github.com/plus7/bagel.git Give this clone URL to anyone. `git clone git://github.com/plus7/bagel.git`
Your Clone URL:	git@github.com:plus7/bagel.git Use this clone URL yourself. `git clone git@github.com:plus7/bagel.git`

removed 'Gecko' tab

plus7 (author)

Mon Jul 28 16:49:21 -0700 2008

commit d6025c73be86189d945a4dcd5c24e6560fa86e86
tree 9c8c2278b81a777fe3185b19bedeb6320bc0eee6
parent 601b084892ddf3124b51448a0af655743d874e3e

Legacy/Bagel/AboutBagel.dfm
Legacy/Bagel/AboutBagel.pas

Legacy/Bagel/AboutBagel.dfm

0
@@ -14,7 +14,6 @@ object AboutBagelForm: TAboutBagelForm
0   OldCreateOrder = False
0   Position = poMainFormCenter
0   OnClose = FormClose
0-  OnCreate = FormCreate
0   OnShow = FormShow
0   PixelsPerInch = 96
0   TextHeight = 12
0
@@ -26,7 +25,6 @@ object AboutBagelForm: TAboutBagelForm
0     ActivePage = TabSheet1
0     Align = alClient
0     TabOrder = 0
0-    OnChange = PageControl1Change
0     object TabSheet1: TTabSheet
0       Caption = 'Bagel'
0       object Label2: TLabel
0
@@ -50,8 +48,8 @@ object AboutBagelForm: TAboutBagelForm
0         Caption = #12356#12435#12373#12540#12392#12288#12418#12387#12392#12288#12402#12354#65281
0       end
0       object Image1: TImage
0-        Left = 16
0-        Top = 8
0+        Left = 23
0+        Top = 3
0         Width = 33
0         Height = 33
0         Picture.Data = {
0
@@ -147,36 +145,22 @@ object AboutBagelForm: TAboutBagelForm
0         ViewStyle = vsReport
0       end
0     end
0-    object TabSheet2: TTabSheet
0-      Caption = 'Gecko'
0-      ImageIndex = 2
0-      ExplicitLeft = 0
0-      ExplicitTop = 0
0-      ExplicitWidth = 0
0-      ExplicitHeight = 0
0-    end
0     object TabSheet3: TTabSheet
0       Caption = #12496#12464#22577#21578
0       ImageIndex = 2
0-      ExplicitLeft = 0
0-      ExplicitTop = 0
0-      ExplicitWidth = 0
0-      ExplicitHeight = 0
0       object Label3: TLabel
0         Left = 8
0         Top = 8
0-        Width = 433
0-        Height = 36
0-        Caption = 
0-          #12392#12426#12354#12360#12378'Gecko'#12392'Bagel'#12398#24773#22577#12399#26360#12356#12390#12354#12427#12398#12391#12289#36969#23452#33258#20998#12398#29872#22659#12398#24773#22577#12434#22475#12417#12390#22577#21578#26178#12395#36028#12387#12390#12367#12384#12373#12356#12290#65288#12371#12371#12434#12393#12358#20351#12358#12363#20998 +
0-          #12363#12425#12394#12356#20154#12399#12381#12418#12381#12418#12486#12473#12488#29256#12398'Bagel'#12434#12414#12384#20351#12431#12394#12356#12411#12358#12364#33391#12356#12424#12358#12394#12290#65289
0+        Width = 210
0+        Height = 12
0+        Caption = #12496#12464#22577#21578#12486#12531#12503#12524#12391#12377#12290#27963#29992#12375#12390#12367#12384#12373#12356#12290
0         WordWrap = True
0       end
0       object Memo1: TMemo
0         Left = 8
0
-        Top = 56
0
+        Top = 26
0         Width = 441
0
-        Height = 185
0
+        Height = 215
0         Lines.Strings = (
0           #12304'OS'#12305
0           'Windows98'

Legacy/Bagel/AboutBagel.pas

0
@@ -19,17 +19,12 @@ type
0     TabSheet3: TTabSheet;
0     Label3: TLabel;
0     Memo1: TMemo;
0-    TabSheet2: TTabSheet;
0     procedure FormShow(Sender: TObject);
0     procedure FormClose(Sender: TObject; var Action: TCloseAction);
0-    procedure FormCreate(Sender: TObject);
0-    procedure PageControl1Change(Sender: TObject);
0   private
0     { Private �錾 }
0   public
0     { Public �錾 }
0-    GeckoBrowser1: TGeckoBrowser;
0-    BrowserCreated: Boolean;
0   end;
0 
0 var
0
@@ -39,123 +34,95 @@ implementation
0 
0 {$R *.dfm}
0 
0-procedure TAboutBagelForm.FormCreate(Sender: TObject);
0-begin
0-  BrowserCreated := False;
0-  //ShowMessage(IntToStr(PageControl1.TabIndex));
0-  GeckoBrowser1 := TGeckoBrowser.Create(Self);
0-  GeckoBrowser1.Align := alClient;
0-  GeckoBrowser1.Enabled := False;
0-  GeckoBrowser1.Parent := TabSheet2;
0-  //ShowMessage(IntToStr(PageControl1.TabIndex));
0-  //GeckoBrowser1.Show;
0-end;
0-
0 procedure TAboutBagelForm.FormShow(Sender: TObject);
0 var
0-item:TListItem;
0-list:TStringList;
0-i:Integer;
0-//ios:nsIIOService;
0-//p:nsIProtocolHandler;
0-scheme:PChar;
0-http:nsIHttpProtocolHandler;
0-productSub:nsACString;
0-ips:IInterfacedCString;
0-tmp:String;
0-    info: OSVERSIONINFO;
0-begin
0-ListVIew1.Clear;
0-tmp:='Bagel���=plus7'+#13#10;
0-tmp:=tmp+'TGeckoBrowser���=>>74'+#13#10;
0-tmp:=tmp+'Contributers=��W��'+#13#10;
0-tmp:=tmp+'SpecialThanks=Mozilla.org'+#13#10;
0-tmp:=tmp+' =Borland Software Corporation'+#13#10;
0-tmp:=tmp+' =OpenJane'+#13#10;
0-tmp:=tmp+' =�z�b�g�]�k'+#13#10;
0-tmp:=tmp+' =�M�R�i�r'+#13#10;
0-tmp:=tmp+' =Donut,DonutP,unDonut,Donut RAPT'+#13#10;
0-tmp:=tmp+' =����Bagel���g���Ă��邠�Ȃ�'+#13#10;
0-
0-list:=TStringList.Create;
0-list.SetText(PChar(tmp));
0-for i:=0 to list.Count-1 do
0+  item:TListItem;
0+  list:TStringList;
0+  i:Integer;
0+  http:nsIHttpProtocolHandler;
0+  productSub:nsACString;
0+  ips:IInterfacedCString;
0+  tmp:String;
0+  info: OSVERSIONINFO;
0 begin
0- item:=TListItem.Create(ListView1.Items);
0- ListView1.Items.AddItem(item);
0- item.Caption:=list.Names[i];
0- item.SubItems.Add(Copy(list.Strings[i],1+Pos('=',list.Strings[i]),Length(list.Strings[i])-Pos('=',list.Strings[i])) );
0-end;
0-
0- //Label2.Caption:='Bagel '+BAGEL_STATUS+' '+IntToStr(BAGEL_NUMBER);
0- Label2.Caption:='Bagel ' + version.theVersion.StringVersion;
0+  ListVIew1.Clear;
0+  tmp:='Bagel���=plus7'+#13#10;
0+  tmp:=tmp+'TGeckoBrowser���=>>74'+#13#10;
0+  tmp:=tmp+'Contributers=��W��'+#13#10;
0+  tmp:=tmp+'SpecialThanks=Mozilla.org'+#13#10;
0+  tmp:=tmp+' =CodeGear'+#13#10;
0+  tmp:=tmp+' =OpenJane'+#13#10;
0+  tmp:=tmp+' =github'+#13#10;
0+  tmp:=tmp+' =�z�b�g�]�k'+#13#10;
0+  tmp:=tmp+' =�M�R�i�r'+#13#10;
0+  tmp:=tmp+' =Donut,DonutP,unDonut,Donut RAPT'+#13#10;
0+  tmp:=tmp+' =����Bagel���g���Ă��邠�Ȃ�'+#13#10;
0+
0+  list:=TStringList.Create;
0+  list.SetText(PChar(tmp));
0+  for i:=0 to list.Count-1 do
0+  begin
0+    item:=TListItem.Create(ListView1.Items);
0+    ListView1.Items.AddItem(item);
0+    item.Caption:=list.Names[i];
0+    item.SubItems.Add(Copy(list.Strings[i],1+Pos('=',list.Strings[i]),Length(list.Strings[i])-Pos('=',list.Strings[i])) );
0+  end;
0 
0
- Memo1.Clear;
0
+  Label2.Caption:='Bagel ' + version.theVersion.StringVersion;
0 
0
- Memo1.lines.Add('�yOS�z');
0
+  Memo1.Clear;
0 
0+  Memo1.lines.Add('�yOS�z');
0 
0-    info.dwOSVersionInfoSize := SizeOf(info);
0-    GetVersionEx(info);
0-    if info.dwPlatFormId = VER_PLATFORM_WIN32_NT then
0-    begin
0-      Memo1.lines.Add('OS �F Windows NT');
0-      Memo1.lines.Add('Version ' + IntToStr(info.dwMajorVersion) + '.' + IntToStr(info.dwMinorVersion) + ' ' + info.szCSDVersion);
0-      Memo1.lines.Add('Build ' + IntToStr(info.dwBuildNumber));
0-   end
0-   else if info.dwPlatFormId = VER_PLATFORM_WIN32_WINDOWS then
0-   begin
0-     Memo1.lines.Add('OS �F Windows (Win32)');
0-     Memo1.lines.Add('Version ' + IntToStr(info.dwMajorVersion) + '.' +
0-        IntToStr(info.dwMinorVersion));
0-     Memo1.lines.Add('Build ' + IntToStr($FFFF and info.dwBuildNumber));;
0+  info.dwOSVersionInfoSize := SizeOf(info);
0+  GetVersionEx(info);
0+  if info.dwPlatFormId = VER_PLATFORM_WIN32_NT then
0+  begin
0+    Memo1.lines.Add('OS �F Windows NT');
0+    Memo1.lines.Add('Version ' + IntToStr(info.dwMajorVersion) + '.' + IntToStr(info.dwMinorVersion) + ' ' + info.szCSDVersion);
0+    Memo1.lines.Add('Build ' + IntToStr(info.dwBuildNumber));
0+  end
0+  else if info.dwPlatFormId = VER_PLATFORM_WIN32_WINDOWS then
0+  begin
0+    Memo1.lines.Add('OS �F Windows (Win32)');
0+    Memo1.lines.Add('Version ' + IntToStr(info.dwMajorVersion) + '.' +
0+       IntToStr(info.dwMinorVersion));
0+    Memo1.lines.Add('Build ' + IntToStr($FFFF and info.dwBuildNumber));;
0   end
0   else
0-     Memo1.lines.Add('OS �F Windowns3.1 + Win32s');
0-
0- scheme:=PChar('@mozilla.org/network/protocol;1?name=http');
0- NS_GetService(scheme,nsIHttpProtocolHandler,http);
0+    Memo1.lines.Add('OS �F Windowns3.1 + Win32s');
0 
0- ips:=NewCString();
0- productSub:=ips.ACString;
0+  NS_GetService('@mozilla.org/network/protocol;1?name=http',nsIHttpProtocolHandler,http);
0 
0- Memo1.lines.Add('�yGecko�z');
0+  ips:=NewCString();
0+  productSub:=ips.ACString;
0 
0- http.GetUserAgent(productSub);
0- Memo1.Lines.Add('���[�U�[�G�[�W�F���g �F '+ips.ToString);
0+  Memo1.lines.Add('�yGecko�z');
0 
0- http.GetMisc(productSub);
0- Memo1.Lines.Add('���r�W���� �F ' +ips.ToString);
0+  http.GetUserAgent(productSub);
0+  Memo1.Lines.Add('���[�U�[�G�[�W�F���g �F '+ips.ToString);
0 
0- http.GetProductSub(productSub);
0- Memo1.Lines.Add('Gecko �F '+ips.ToString);
0+  http.GetMisc(productSub);
0+  Memo1.Lines.Add('���r�W���� �F ' +ips.ToString);
0 
0- http := nil;
0+  http.GetProductSub(productSub);
0+  Memo1.Lines.Add('Gecko �F '+ips.ToString);
0 
0- Memo1.lines.Add('�yBagel�z');
0- Memo1.Lines.Add('�o�[�W���� �F '+theVersion.StringVersion);
0- Memo1.Lines.Add('�X�e�[�^�X �F '+BAGEL_STATUS);
0- //Memo1.Lines.Add('�ԍ� �F '+IntToStr(BAGEL_NUMBER));
0+  http := nil;
0 
0- Memo1.lines.Add('�y�풓�\�t�g/�t�@�C�A�E�H�[�����z');
0- Memo1.lines.Add('');
0+  Memo1.lines.Add('�yBagel�z');
0+  Memo1.Lines.Add('�o�[�W���� �F '+theVersion.StringVersion);
0+  Memo1.Lines.Add('�X�e�[�^�X �F '+BAGEL_STATUS);
0 
0-end;
0+  Memo1.lines.Add('�y�풓�\�t�g/�t�@�C�A�E�H�[�����z');
0+  Memo1.lines.Add('');
0 
0-procedure TAboutBagelForm.PageControl1Change(Sender: TObject);
0-begin
0-  if PageControl1.TabIndex = 1 then
0-  begin
0-    GeckoBrowser1.Enabled := True;
0-    GeckoBrowser1.LoadURI('http://www.w3.org/');
0-    BrowserCreated := True;
0-  end;
0 end;
0 
0 procedure TAboutBagelForm.FormClose(Sender: TObject;
0   var Action: TCloseAction);
0 begin
0
-action:=CAFree;
0
+  action:=caFree;
0 end;
0 
0 end.

Comments