FIX: Bug [ 1947579 ] Quick search by letter and non-alpha characters

This commit is contained in:
Alexander Koblov 2008-07-06 09:41:03 +00:00
commit 78faa0d6cb
4 changed files with 2823 additions and 2807 deletions

View file

@ -1,4 +1,5 @@
03.07.2008 FIX: Bug [ 1945378 ] Crash on changing icon size
06.07.2008 FIX: Bug [ 1947579 ] Quick search by letter and non-alpha characters
03.07.2008 FIX: Bug [ 1945378 ] Crash on changing icon size
17.05.2008 ADD: Feature Request [ 1951507 ] Wipe file
02.05.2008 ADD: Feature Request [ 1880894 ] Open in tab directory under cursor (Ctrl+Up)
28.04.2008 FIX: Bug [ 1953396 ] Error if "Directory hotlist" (Ctrl+D) is empty

View file

@ -25,6 +25,7 @@ object frmMain: TfrmMain
OnPaint = FormPaint
OnResize = FormResize
OnShow = frmMainShow
OnUTF8KeyPress = FormUTF8KeyPress
OnWindowStateChange = FormWindowStateChange
Position = poDesktopCenter
ShowHint = True

5622
fmain.pas

File diff suppressed because it is too large Load diff

View file

@ -132,7 +132,7 @@ type
procedure Init;
procedure ClearCmdLine;
procedure CloseAltPanel;
procedure ShowAltPanel(Char : Char = #0);
procedure ShowAltPanel(Char : TUTF8Char = #0);
procedure UnMarkAll;
procedure UpDatelblInfo;
Function GetActiveDir:String;
@ -605,7 +605,7 @@ begin
edtSearch.Text:='';
end;
procedure TFrameFilePanel.ShowAltPanel(Char : Char);
procedure TFrameFilePanel.ShowAltPanel(Char : TUTF8Char);
begin
pnAltSearch.Top := dgPanel.Top + dgPanel.Height;
pnAltSearch.Left := dgPanel.Left;