Subversion Repositories plumbers

Rev

Rev 8 | Rev 16 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 8 Rev 12
Line 90... Line 90...
90 
  if LS <= 3 then exit;
 90 
  if LS <= 3 then exit;
91 
  L2 := (LS - 1) div 3;
 91 
  L2 := (LS - 1) div 3;
92 
  Temp := '';
 92 
  Temp := '';
93 
  for I := 1 to L2 do
 93 
  for I := 1 to L2 do
94 
  begin
 94 
  begin
95 
    Temp := ThousandSeparator + Copy (S, LS - 3 * I + 1, 3) + Temp;
 95 
    Temp := {$IF not Declared(ThousandSeparator)}FormatSettings.{$IFEND}ThousandSeparator + Copy (S, LS - 3 * I + 1, 3) + Temp;
96 
  end;
 96 
  end;
97 
  Result := Copy (S, N, (LS - 1) mod 3 + 1) + Temp;
 97 
  Result := Copy (S, N, (LS - 1) mod 3 + 1) + Temp;
98 
  if N > 1 then Result := '-' + Result;
 98 
  if N > 1 then Result := '-' + Result;
99 
end;
 99 
end;
100 
 
 100 
 
101 
{ TMainForm }
 101 
{ TMainForm }
102 
 
 102 
 
103 
procedure TMainForm.cbPictureShow(ASender: TGame; AFilename: string; AType: TPictureType);
 103 
procedure TMainForm.cbPictureShow(ASender: TGame; AFilename: string; AType: TPictureType);
- 
 
 104 
resourcestring
- 
 
 105 
  S_YOUR_SCORE = 'Your score is: %s';
104 
begin
 106 
begin
105 
  if FileExists(AFilename) then
 107 
  if FileExists(AFilename) then
106 
  begin
 108 
  begin
107 
    Image1.Visible := false;
 109 
    Image1.Visible := false;
108 
    try
 110 
    try
Line 144... Line 146...
144 
      ptDia: Screen.Cursor := -1;
 146 
      ptDia: Screen.Cursor := -1;
145 
      ptDecision: Screen.Cursor := 0;
 147 
      ptDecision: Screen.Cursor := 0;
146 
    End;
 148 
    End;
147 
  end;
 149 
  end;
148 
 
 150 
 
149 
  Panel1.Caption := Format('Your score is: %s', [AddThouSeps(IntToStr(ASender.Score))]);
 151 
  Panel1.Caption := Format(S_YOUR_SCORE, [AddThouSeps(IntToStr(ASender.Score))]);
150 
  Panel1.Left := 8;
 152 
  Panel1.Left := 8;
151 
  Panel1.Top := Min(ClientHeight, Screen.Height) - Panel1.Height - 8;
 153 
  Panel1.Top := Min(ClientHeight, Screen.Height) - Panel1.Height - 8;
152 
  Panel1.Visible := AType = ptDecision;
 154 
  Panel1.Visible := AType = ptDecision;
153 
end;
 155 
end;
154 
 
 156