| 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); |
| 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; |
| 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; |
| 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; |
| 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 |
|
|
| 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 |