Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/Giko.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.509 by h677, Wed Mar 23 13:07:19 2005 UTC revision 1.510 by h677, Thu Mar 31 13:01:55 2005 UTC
# Line 600  type Line 600  type
600      SortActiveColumnAction: TAction;      SortActiveColumnAction: TAction;
601      SortNextColumnAction: TAction;      SortNextColumnAction: TAction;
602      SortPrevColumnAction: TAction;      SortPrevColumnAction: TAction;
603        BeLogInOutAction: TAction;
604                                  procedure FormCreate(Sender: TObject);                                  procedure FormCreate(Sender: TObject);
605                  procedure FormDestroy(Sender: TObject);                  procedure FormDestroy(Sender: TObject);
606                  procedure CabinetPanelHide(Sender: TObject);                  procedure CabinetPanelHide(Sender: TObject);
# Line 957  type Line 958  type
958      procedure MessageListViewAdvancedCustomDrawItem(      procedure MessageListViewAdvancedCustomDrawItem(
959        Sender: TCustomListView; Item: TListItem; State: TCustomDrawState;        Sender: TCustomListView; Item: TListItem; State: TCustomDrawState;
960        Stage: TCustomDrawStage; var DefaultDraw: Boolean);        Stage: TCustomDrawStage; var DefaultDraw: Boolean);
961        procedure BeLogInOutActionExecute(Sender: TObject);
962        procedure BeLogInOutActionUpdate(Sender: TObject);
963          private          private
964                  { Private 宣言 }                  { Private 宣言 }
965          //RoundList : TRoundList;          //RoundList : TRoundList;
# Line 1342  begin Line 1345  begin
1345  {$ENDIF}  {$ENDIF}
1346          FStartUp := true;          FStartUp := true;
1347  //      LockWindowUpdate(Self.Handle);  //      LockWindowUpdate(Self.Handle);
1348          //Application.OnDeactivate := AppFormDeactivate;          Application.OnDeactivate := AppFormDeactivate;
1349          Self.OnDeactivate := AppFormDeactivate;          //Self.OnDeactivate := AppFormDeactivate;
1350          Application.HookMainWindow(Hook);          Application.HookMainWindow(Hook);
1351  //      Application.OnMessage := HandleAppMessage; //なんか無くても大丈夫になった by もじゅ  //      Application.OnMessage := HandleAppMessage; //なんか無くても大丈夫になった by もじゅ
1352          FTreeType := gttNone;          FTreeType := gttNone;
# Line 1360  begin Line 1363  begin
1363                  newBrowser.Align := alNone;                  newBrowser.Align := alNone;
1364                  newBrowser.Left := 0;                  newBrowser.Left := 0;
1365                  newBrowser.Top  := 0;                  newBrowser.Top  := 0;
1366                  newBrowser.StatusBar    := false;                  //newBrowser.StatusBar  := false;
1367                  newBrowser.MenuBar              := false;                  //newBrowser.MenuBar            := false;
1368                  newBrowser.AddressBar   := false;                  //newBrowser.AddressBar         := false;
1369                  newBrowser.OnDocumentComplete   := BrowserDocumentComplete;                  newBrowser.OnDocumentComplete   := BrowserDocumentComplete;
1370                  newBrowser.OnBeforeNavigate2    := BrowserBeforeNavigate2;                  newBrowser.OnBeforeNavigate2    := BrowserBeforeNavigate2;
1371                  newBrowser.OnEnter                              := BrowserEnter;                  newBrowser.OnEnter                              := BrowserEnter;
# Line 1805  begin Line 1808  begin
1808                  LoginAction.Execute;                  LoginAction.Execute;
1809    
1810          MuteAction.Checked := GikoSys.Setting.Mute;          MuteAction.Checked := GikoSys.Setting.Mute;
1811    
1812        GikoSys.Setting.BeLogin := GikoSys.Setting.BeAutoLogin;
1813  //      LockWindowUpdate(0);  //      LockWindowUpdate(0);
1814  end;  end;
1815    
# Line 12198  begin Line 12203  begin
12203  //        end;  //        end;
12204  end;  end;
12205    
12206    procedure TGikoForm.BeLogInOutActionExecute(Sender: TObject);
12207    begin
12208        GikoSys.Setting.BeLogin := not GikoSys.Setting.BeLogin;
12209    end;
12210    
12211    procedure TGikoForm.BeLogInOutActionUpdate(Sender: TObject);
12212    begin
12213            if (GikoSys.Setting.BeUserID <> '') and (GikoSys.Setting.BeCode <> '') then begin
12214            if (GikoSys.Setting.BeLogin) then BeLogInOutAction.Checked := true
12215            else BeLogInOutAction.Checked := false;
12216            BeLogInOutAction.Enabled := true
12217        end else
12218            BeLogInOutAction.Enabled := false;
12219    
12220    end;
12221    
12222  initialization  initialization
12223                                  OleInitialize(nil);                                  OleInitialize(nil);
12224  finalization  finalization

Legend:
Removed from v.1.509  
changed lines
  Added in v.1.510

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26