paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-01 21:20:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: Use ListFilterEdit in UseProjUnit dialog.

Browse Source 
git-svn-id: trunk@31528 -
This commit is contained in:
juha 2011-07-03 06:55:56 +00:00
parent 714becaee7
commit 15f0447544
2 changed files with 20 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/useprojunitdlg.lfm
View File

@ -96,8 +96,6 @@ object UseUnitDialog: TUseUnitDialog
Width = 332
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 6
OnKeyDown = UnitnameEditKeyDown
OnKeyPress = UnitnameEditKeyPress
TabOrder = 0
end
object AllUnitsCheckBox: TCheckBox

39
ide/useprojunitdlg.pas
View File

@ -48,9 +48,8 @@ type
procedure AllUnitsCheckBoxChange(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure UnitnameEditKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure UnitnameEditKeyPress(Sender: TObject; var Key: char);
// procedure UnitnameEditKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
// procedure UnitnameEditKeyPress(Sender: TObject; var Key: char);
procedure UnitsListBoxClick(Sender: TObject);
procedure UnitsListBoxDblClick(Sender: TObject);
procedure UnitsListBoxDrawItem(Control: TWinControl; Index: Integer;
@ -70,8 +69,8 @@ type
function InterfaceSelected: Boolean;
procedure EnableOnlyInterface;
procedure SearchList(StartIndex: Integer = -1);
procedure UpdateUnitName(Index: Integer);
function UnitExists(AUnitName: string): Boolean;
// procedure UpdateUnitName(Index: Integer);
// function UnitExists(AUnitName: string): Boolean;
public
end;
@ -92,7 +91,7 @@ type
Handled: Boolean;
constructor Create(AIdentList: TIdentifierList; AIdentItem: TIdentifierListItem);
end;
{
function FindUnitName(f: TUnitsListBoxObject): string;
var
CodeBuf: TCodeBuffer;
@ -104,7 +103,7 @@ begin
if Result = '' then
Result := f.IdentItem.Identifier;
end;
}
function ShowUseUnitDialog: TModalResult;
var
UseProjUnitDlg: TUseUnitDialog;
@ -192,9 +191,10 @@ begin
AddOtherUnits
else
RemoveOtherUnits;
if Visible then UnitnameEdit.SetFocus;
if Visible then
UnitnameEdit.SetFocus;
end;
{
procedure TUseUnitDialog.UnitnameEditKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
@ -223,16 +223,17 @@ begin
SearchList;
Key := #0;
end;
}
procedure TUseUnitDialog.UnitsListBoxClick(Sender: TObject);
begin
with UnitsListBox do
if ItemIndex >= 0 then
begin
UpdateUnitName(ItemIndex);
UnitnameEdit.Text := Items[ItemIndex];
if Visible then UnitnameEdit.SetFocus;
UnitnameEdit.SelectAll;
{ UnitnameEdit.Text := Items[ItemIndex];
if Visible then
UnitnameEdit.SetFocus;
UnitnameEdit.SelectAll; }
end;
end;
@ -241,8 +242,8 @@ begin
with UnitsListBox do
if ItemIndex >= 0 then
begin
UpdateUnitName(ItemIndex);
UnitnameEdit.Text := Items[ItemIndex];
// UpdateUnitName(ItemIndex);
// UnitnameEdit.Text := Items[ItemIndex];
ModalResult := mrOK;
end;
end;
@ -364,12 +365,12 @@ begin
Screen.Cursor:=crDefault;
end;
end;
{
function TUseUnitDialog.SelectedUnit: string;
begin
Result := Trim(UnitnameEdit.Text);
end;
}
function TUseUnitDialog.InterfaceSelected: Boolean;
begin
Result:=SectionRadioGroup.ItemIndex=0;
@ -395,7 +396,7 @@ begin
Break;
end;
end;
{
procedure TUseUnitDialog.SearchList(StartIndex: Integer);
var
Index, Len: Integer;
@ -435,7 +436,7 @@ begin
Result := FOtherUnits.IndexOf(AUnitName) >= 0;
end;
end;
}
end.