implementation
uses
- Giko, BoardGroup, RoundData, Math;
+ Giko, BoardGroup, RoundData, Math, GikoDataModule;
{$R *.DFM}
RoundItem: TRoundItem;
begin
{$IF Defined(FRCRND) }
- Giko.GikoForm.LoginAction.Checked := true; // \93®\8dì\8e\8e\8c±\97p\93r
+ GikoDM.LoginAction.Checked := true; // \93®\8dì\8e\8e\8c±\97p\93r
{$IFEND}
{$IFNDEF LOOSENUP} //\8f\84\89ñ\90§\8cÀ\82ð\8aÉ\82ß\82é\82±\82Æ\82É\82µ\82Ä\82½\82ç{$ELSE}\82Ì\95û\82ð\8eg\82¤
- if not Giko.GikoForm.LoginAction.Checked then begin
+ if not GikoDM.LoginAction.Checked then begin
if GikoSys.Setting.UserID <> '' then begin
msg := '\83\8d\83O\83C\83\93\82µ\82È\82¢\82Æ\8f\84\89ñ\82Í\8fo\97\88\82Ü\82¹\82ñ' + #13#10
+ '\8d¡\83\8d\83O\83C\83\93\82µ\82Ü\82·\82©';
if MsgBox(Handle, msg, '\8am\94F', MB_YESNO or MB_ICONQUESTION or MB_DEFBUTTON2) <> IDYES then begin
Exit;
end;
- Giko.GikoForm.LoginAction.Execute;
+ GikoDM.LoginAction.Execute;
end;
- if not Giko.GikoForm.LoginAction.Checked then begin
+ if not GikoDM.LoginAction.Checked then begin
msg := '\83\8d\83O\83C\83\93\82µ\82È\82¢\82Æ\8f\84\89ñ\82Í\8fo\97\88\82Ü\82¹\82ñ';
MsgBox(Handle, msg, '\83G\83\89\81[', MB_OK or MB_ICONSTOP);
Exit;
end;
{$ELSE}
//\8bK\90§\82ð\8aÉ\82ß\82½\82Ù\82¤\82Í\81A\83X\83\8c\88ê\97\97\82Ì\82Ý\8f\84\89ñ\89Â\94\
- if not Giko.GikoForm.LoginAction.Checked then begin
+ if not GikoDM.LoginAction.Checked then begin
if GikoSys.Setting.UserID <> '' then begin
msg := '\83\8d\83O\83C\83\93\82µ\82È\82¢\82Æ\83X\83\8c\83b\83h\82Ì\8f\84\89ñ\82Í\8fo\97\88\82Ü\82¹\82ñ' + #13#10
+ '\8d¡\83\8d\83O\83C\83\93\82µ\82Ü\82·\82©';
if MsgBox(Handle, msg, '\8am\94F', MB_YESNO or MB_ICONQUESTION or MB_DEFBUTTON2) <> IDYES then begin
Exit;
end;
- Giko.GikoForm.LoginAction.Execute;
+ GikoDM.LoginAction.Execute;
end;
end;
//\81\9c\82È\82µ\8f\84\89ñ\82Í15\95ª\88È\8fã\82Ì\8aÔ\8au\82ð\95K\97v\82Æ\82·\82é
- if not Giko.GikoForm.LoginAction.Checked then begin
+ if not GikoDM.LoginAction.Checked then begin
if CompareTime(GikoForm.LastRoundTime, Now, 30) then begin
msg := '\88ê\93x\8f\84\89ñ\82·\82é\82Æ\82R\82O\95ª\8aÔ\8f\84\89ñ\82Í\8fo\97\88\82Ü\82¹\82ñ';
MsgBox(Handle, msg, '\83G\83\89\81[', MB_OK or MB_ICONSTOP);
{$IFNDEF LOOSENUP}
//\81\9c\82È\82µ\8f\84\89ñ\82Í\82P\93x\82É100\8cÂ\82Ü\82Å\82É\82·\82é
- if not Giko.GikoForm.LoginAction.Checked then begin
+ if not GikoDM.LoginAction.Checked then begin
if cnt > 100 then begin
msg := '\82P\82O\82O\8cÂ\88È\8fã\82Í\88ê\93x\82É\8f\84\89ñ\82Å\82«\82Ü\82¹\82ñ';
MsgBox(Handle, msg, '\83G\83\89\81[', MB_OK or MB_ICONSTOP);
if not RoundItem.BoolData then Continue;
{$IFDEF LOOSENUP}
//\81\9c\82È\82µ\8f\84\89ñ\82Í\83X\83\8c\83b\83h\82Í\82Å\82«\82È\82¢\82±\82Æ\82É\82·\82é
- if not Giko.GikoForm.LoginAction.Checked then begin
+ if not GikoDM.LoginAction.Checked then begin
msg := '\83\8d\83O\83C\83\93\82µ\82È\82¢\82Æ\83X\83\8c\83b\83h\82Ì\8f\84\89ñ\82Í\82Å\82«\82Ü\82¹\82ñ\81B';
MsgBox(Handle, msg, '\83G\83\89\81[', MB_OK or MB_ICONSTOP);
break;
begin
//\83J\83\89\83\80\82Ì\83\\81[\83g\8bL\8d\86\83C\83\81\81[\83W\82ð\89ð\8f\9c\82·\82é
if FColumnToSort > -1 then
- (Sender as TCustomListView).Column[FColumnToSort].ImageIndex := -1;
+ RoundListView.Column[FColumnToSort].ImageIndex := -1;
FColumnToSort := -1;
-
if RoundNameComboBox.ItemIndex = 0 then
SetRoundItem('')
else
SetRoundItem(RoundNameComboBox.Items[RoundNameComboBox.itemIndex]);
+
end;
procedure TRoundDialog.SetRoundItem(RoundName: string);
procedure TRoundDialog.RoundListViewColumnClick(Sender: TObject;
Column: TListColumn);
begin
- if FColumnToSort > -1 then
- (Sender as TCustomListView).Column[FColumnToSort].ImageIndex := -1;
+ if (Sender is TCustomListView) then begin
- if FColumnToSort = Column.Index then
- FSortOrder := not FSortOrder
- else
- FSortOrder := false;
+ if FColumnToSort > -1 then
+ (Sender as TCustomListView).Column[FColumnToSort].ImageIndex := -1;
- if FSortOrder then
- Column.ImageIndex := 3
- else
- Column.ImageIndex := 2;
+ if FColumnToSort = Column.Index then
+ FSortOrder := not FSortOrder
+ else
+ FSortOrder := false;
+
+ if FSortOrder then
+ Column.ImageIndex := 3
+ else
+ Column.ImageIndex := 2;
- FColumnToSort := Column.Index;
- (Sender as TCustomListView).AlphaSort;
+ FColumnToSort := Column.Index;
+ (Sender as TCustomListView).AlphaSort;
+ end;
end;
procedure TRoundDialog.RoundListViewCompare(Sender: TObject; Item1,