| 92,7 → 92,7 |
|---|
| Temp := ''; |
| for I := 1 to L2 do |
| begin |
| Temp := ThousandSeparator + Copy (S, LS - 3 * I + 1, 3) + Temp; |
| Temp := {$IF not Declared(ThousandSeparator)}FormatSettings.{$IFEND}ThousandSeparator + Copy (S, LS - 3 * I + 1, 3) + Temp; |
| end; |
| Result := Copy (S, N, (LS - 1) mod 3 + 1) + Temp; |
| if N > 1 then Result := '-' + Result; |
| 101,6 → 101,8 |
|---|
| { TMainForm } |
| |
| procedure TMainForm.cbPictureShow(ASender: TGame; AFilename: string; AType: TPictureType); |
| resourcestring |
| S_YOUR_SCORE = 'Your score is: %s'; |
| begin |
| if FileExists(AFilename) then |
| begin |
| 146,7 → 148,7 |
|---|
| End; |
| end; |
| |
| Panel1.Caption := Format('Your score is: %s', [AddThouSeps(IntToStr(ASender.Score))]); |
| Panel1.Caption := Format(S_YOUR_SCORE, [AddThouSeps(IntToStr(ASender.Score))]); |
| Panel1.Left := 8; |
| Panel1.Top := Min(ClientHeight, Screen.Height) - Panel1.Height - 8; |
| Panel1.Visible := AType = ptDecision; |