mirror of
https://github.com/doublecmd/doublecmd.git
synced 2026-06-28 10:02:14 +00:00
99e0534915
UPD: Use in Viewer modal windows that blocks only parent form (fixes "jumping" between main window and viewer form, don't block main form)
81 lines
1.5 KiB
ObjectPascal
81 lines
1.5 KiB
ObjectPascal
{
|
|
Seksi Commander
|
|
----------------------------
|
|
Find dialog for Viewer
|
|
|
|
Licence : GNU GPL v 2.0
|
|
Author : radek.cervinka@centrum.cz
|
|
|
|
contributors:
|
|
|
|
|
|
}
|
|
|
|
unit fFindView;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
SysUtils, Classes, Controls, Forms, StdCtrls, Buttons, uOSForms;
|
|
|
|
type
|
|
TfrmFindView = class(TModalForm)
|
|
cbDataToFind: TComboBox;
|
|
btnFind: TBitBtn;
|
|
btnClose: TBitBtn;
|
|
cbCaseSens: TCheckBox;
|
|
procedure FormShow(Sender: TObject);
|
|
procedure btnFindClick(Sender: TObject);
|
|
procedure cbDataToFindKeyUp(Sender: TObject; var Key: Word;
|
|
Shift: TShiftState);
|
|
private
|
|
{ Private declarations }
|
|
public
|
|
{ Public declarations }
|
|
end;
|
|
|
|
|
|
implementation
|
|
|
|
{$R *.lfm}
|
|
|
|
uses
|
|
LCLProc, LCLType, uDCUtils;
|
|
|
|
procedure TfrmFindView.FormShow(Sender: TObject);
|
|
begin
|
|
if cbDataToFind.Text = EmptyStr then
|
|
begin
|
|
if cbDataToFind.Items.Count > 0 then
|
|
cbDataToFind.Text:= cbDataToFind.Items[0];
|
|
end;
|
|
cbDataToFind.SelectAll;
|
|
end;
|
|
|
|
procedure TfrmFindView.btnFindClick(Sender: TObject);
|
|
begin
|
|
InsertFirstItem(cbDataToFind.Text, cbDataToFind);
|
|
ModalResult:= mrOk;
|
|
end;
|
|
|
|
procedure TfrmFindView.cbDataToFindKeyUp(Sender: TObject; var Key: Word;
|
|
Shift: TShiftState);
|
|
begin
|
|
inherited;
|
|
if (Key = VK_Down) and (cbDataToFind.Items.Count > 0) then
|
|
cbDataToFind.DroppedDown:= True;
|
|
if Key = 13 then
|
|
begin
|
|
Key:= 0;
|
|
btnFind.Click;
|
|
end;
|
|
if Key = 27 then
|
|
begin
|
|
Key:= 0;
|
|
ModalResult:= mrCancel;
|
|
end;
|
|
end;
|
|
|
|
end.
|