View Issue Details
| ID | Project | Category | View Status | Date Submitted | Last Update |
|---|---|---|---|---|---|
| 0000259 | Double Commander | Graphical user interface | public | 2011-11-21 20:58 | 2014-01-14 22:52 |
| Reporter | denis230 | Assigned To | Alexx2000 | ||
| Priority | normal | Severity | minor | Reproducibility | always |
| Status | closed | Resolution | fixed | ||
| Projection | none | ETA | none | ||
| Product Version | 0.5.1 | ||||
| Fixed in Version | 0.5.5 | ||||
| Summary | 0000259: Неправильно отображается командная строка для windows OS, должно быть C:\что-то> | ||||
| Description | Неправильно отображается командная строка для windows, должно быть примерно так 'C:\что-то>' а для остальных OS наверное оставить как есть сейчас | ||||
| Tags | No tags attached. | ||||
| Attached Files | fmain.pas.patch (1,156 bytes)
Index: fmain.pas
===================================================================
--- fmain.pas (revision 4107)
+++ fmain.pas (working copy)
@@ -4580,8 +4580,14 @@
end;
procedure TfrmMain.UpdatePrompt;
-const
+ const
PTLen = 40;
+ {$IFDEF MSWINDOWS}
+ cCommandPath = '%s>';
+ {$ELSE}
+ cCommandPath = '[%s]$:';
+ {$ENDIF}
+ var st:string;
begin
if (fsoExecute in ActiveFrame.FileSource.GetOperationsTypes) then
begin
@@ -4589,13 +4595,15 @@
begin
Visible := True;
AutoSize := False;
- if Length(ActiveFrame.CurrentPath) > PTLen then
- Caption := '[' + Copy(ActiveFrame.CurrentPath,
+ if Length(ActiveFrame.CurrentPath) > PTLen
+ then
+ st:=Copy(ActiveFrame.CurrentPath,
Length(ActiveFrame.CurrentPath) - PTLen,
- PTLen) + ']$:'
+ PTLen)
else
- Caption := '[' + ActiveFrame.CurrentPath + ']$:';
-
+ st:=ActiveFrame.CurrentPath;
+ //
+ Caption := Format(cCommandPath,[st]);
AutoSize := True;
Left := 1;
end;
| ||||
| Fixed in Revision | 4109 | ||||
| Operating system | Windows | ||||
| Widgetset | Win32 | ||||
| Architecture | 32-bit, 64-bit | ||||
|
|
Готово, прошу проверить и залить в SVN Скрипт: измененный файл приложил к заявке |
|
|
Применил, только константу перенес в uOSUtils. В кроссплатформенных юнитах лучше не использовать IFDEF'ы, если этого можно избежать. Для платформо-зависимых констант/функций у нас есть соответствующие модули в подкаталоге platform, в частности вышеописанный uOSUtils. |
| Date Modified | Username | Field | Change |
|---|---|---|---|
| 2011-11-21 20:58 | denis230 | New Issue | |
| 2011-11-21 20:58 | denis230 | File Added: DC_Командная строка.png | |
| 2011-11-22 10:36 | denis230 | Assigned To | => denis230 |
| 2011-11-22 10:36 | denis230 | Status | new => assigned |
| 2011-11-22 10:36 | denis230 | File Added: fmain.pas | |
| 2011-11-22 10:37 | denis230 | Note Added: 0000177 | |
| 2011-11-22 10:37 | denis230 | Assigned To | denis230 => Alexx2000 |
| 2011-11-22 10:37 | denis230 | Status | assigned => feedback |
| 2011-11-23 00:59 | denis230 | File Added: fmain.pas.patch | |
| 2011-11-23 22:23 | Alexx2000 | Fixed in Revision | => 4109 |
| 2011-11-23 22:23 | Alexx2000 | Note Added: 0000205 | |
| 2011-11-23 22:23 | Alexx2000 | Status | feedback => resolved |
| 2011-11-23 22:23 | Alexx2000 | Fixed in Version | => 0.5.5 |
| 2011-11-23 22:23 | Alexx2000 | Resolution | open => fixed |
| 2014-01-14 22:52 | Alexx2000 | Status | resolved => closed |