View Issue Details

IDProjectCategoryView StatusLast Update
0000259Double CommanderGraphical user interfacepublic2014-01-14 22:52
Reporterdenis230 Assigned ToAlexx2000  
PrioritynormalSeverityminorReproducibilityalways
Status closedResolutionfixed 
ProjectionnoneETAnone 
Product Version0.5.1 
Fixed in Version0.5.5 
Summary0000259: Неправильно отображается командная строка для windows OS, должно быть C:\что-то>
DescriptionНеправильно отображается командная строка для windows,
должно быть примерно так 'C:\что-то>'
а для остальных OS наверное оставить как есть сейчас
TagsNo tags attached.
Attached Files
fmain.pas (148,398 bytes)
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;
fmain.pas.patch (1,156 bytes)   
Fixed in Revision4109
Operating systemWindows
WidgetsetWin32
Architecture32-bit, 64-bit

Activities

denis230

2011-11-22 10:37

reporter   ~0000177

Готово, прошу проверить и залить в SVN

Скрипт:
измененный файл приложил к заявке

Alexx2000

2011-11-23 22:23

administrator   ~0000205

Применил, только константу перенес в uOSUtils. В кроссплатформенных юнитах лучше не использовать IFDEF'ы, если этого можно избежать. Для платформо-зависимых констант/функций у нас есть соответствующие модули в подкаталоге platform, в частности вышеописанный uOSUtils.

Issue History

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