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

fixed initial selection in goto dialog

Browse Source 
git-svn-id: trunk@5033 -
This commit is contained in:
mattias 2004-01-08 23:23:23 +00:00
parent d82bb3ac2b
commit 3192ecfa95
2 changed files with 46 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ide/uniteditor.pp
View File

@ -645,6 +645,7 @@ type
procedure Edit1KeyDown(Sender: TObject; var Key:Word; Shift:TShiftState);
public
constructor Create(AOwner : TComponent); override;
procedure DoShow; override;
end;
@ -4538,6 +4539,12 @@ begin
ActiveControl:=Edit1;
end;
procedure TfrmGoto.DoShow;
begin
Edit1.SelectAll;
inherited DoShow;
end;
procedure TfrmGoto.Edit1KeyDown(Sender: TObject; var Key:Word;
Shift:TShiftState);
begin

56
ideintf/objectinspector.pp
View File

@ -255,6 +255,10 @@ type
procedure MouseDown(Button:TMouseButton; Shift:TShiftState; X,Y:integer); override;
procedure MouseMove(Shift:TShiftState; X,Y:integer); override;
procedure MouseUp(Button:TMouseButton; Shift:TShiftState; X,Y:integer); override;
procedure KeyDown(var Key : Word; Shift : TShiftState); override;
procedure HandleStandardKeys(var Key : Word; Shift : TShiftState);
public
ValueEdit:TEdit;
ValueComboBox:TComboBox;
@ -841,17 +845,7 @@ end;
procedure TOIPropertyGrid.ValueEditKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
case Key of
VK_UP:
if (FItemIndex>0) then ItemIndex:=ItemIndex-1;
VK_Down:
if (FItemIndex<FRows.Count-1) then ItemIndex:=ItemIndex+1;
VK_RETURN:
SetRowValue;
end;
HandleStandardKeys(Key,Shift);
end;
procedure TOIPropertyGrid.ValueEditExit(Sender: TObject);
@ -885,12 +879,7 @@ end;
procedure TOIPropertyGrid.ValueComboBoxKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (Key=VK_UP) and (FItemIndex>0) then begin
ItemIndex:=ItemIndex-1;
end;
if (Key=VK_Down) and (FItemIndex<FRows.Count-1) then begin
ItemIndex:=ItemIndex+1;
end;
HandleStandardKeys(Key,Shift);
end;
procedure TOIPropertyGrid.ValueButtonClick(Sender: TObject);
@ -1257,6 +1246,39 @@ begin
end;
end;
procedure TOIPropertyGrid.KeyDown(var Key: Word; Shift: TShiftState);
begin
HandleStandardKeys(Key,Shift);
inherited KeyDown(Key, Shift);
end;
procedure TOIPropertyGrid.HandleStandardKeys(var Key: Word; Shift: TShiftState
);
var
Handled: Boolean;
begin
Handled:=true;
case Key of
VK_UP:
if (FItemIndex>0) then ItemIndex:=ItemIndex-1;
VK_Down:
if (FItemIndex<FRows.Count-1) then ItemIndex:=ItemIndex+1;
VK_TAB:
// ToDo: implement completion
if (FItemIndex<FRows.Count-1) then ItemIndex:=ItemIndex+1;
VK_RETURN:
SetRowValue;
else
Handled:=false;
end;
if Handled then Key:=VK_UNKNOWN;
end;
procedure TOIPropertyGrid.OnUserInput(Sender: TObject; Msg: Cardinal);
begin
ResetHintTimer;