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

TComboBox.Clear now clears Text as well

Browse Source 
git-svn-id: trunk@5530 -
This commit is contained in:
mattias 2004-05-30 08:53:27 +00:00
parent 39b476ca50
commit e915ff0e18
2 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ide/main.pp
View File

@ -2039,11 +2039,9 @@ var
CommandRelation: TKeyCommandRelation;
Handled: Boolean;
begin
writeln('TMainIDE.OnExecuteIDECommand A ',Key);
CommandRelation:=EditorOpts.KeyMap.Find(Key,Shift,Areas);
if (CommandRelation=nil) or (CommandRelation.Command=ecNone) then exit;
Handled:=false;
writeln('TMainIDE.OnExecuteIDECommand B ',CommandRelation.Command,' ',ecSave);
OnProcessIDECommand(Sender,CommandRelation.Command,Handled);
if Handled then Key:=VK_UNKNOWN;
end;
@ -10420,6 +10418,9 @@ end.
{ =============================================================================
$Log$
Revision 1.729 2004/05/30 08:53:26 mattias
TComboBox.Clear now clears Text as well
Revision 1.728 2004/05/29 18:56:05 mattias
added keys for adding/deleting breakpoints

4
lcl/include/customcombobox.inc
View File

@ -645,6 +645,7 @@ end;
procedure TCustomComboBox.Clear;
begin
Items.Clear;
Text:='';
end;
{------------------------------------------------------------------------------
@ -789,6 +790,9 @@ end;
{
$Log$
Revision 1.39 2004/05/30 08:53:27 mattias
TComboBox.Clear now clears Text as well
Revision 1.38 2004/04/10 17:58:57 mattias
implemented mainunit hints for include files