paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-20 22:39:56 +02:00
Code Issues Packages Projects Releases Wiki Activity

Changed to TCOmboBox focusing.

Browse Source 
Shane

git-svn-id: trunk@160 -
This commit is contained in:
lazarus 2001-01-31 21:16:45 +00:00
parent 6e5214d1d9
commit ab5868d740
4 changed files with 35 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ide/uniteditor.pp
View File

@ -269,6 +269,8 @@ const
ecOpen = ecFirstParent+2; ecOpen = ecFirstParent+2;
ecClose = ecFirstParent+3; ecClose = ecFirstParent+3;
ecJumpToEditor = ecFirstParent+4;
var var
Editor_Num : Integer; Editor_Num : Integer;
aHighlighter: TSynPasSyn; aHighlighter: TSynPasSyn;
@ -831,6 +833,7 @@ if assigned(FEditor) then
AddKey(ecSave, word('S'), [ssCtrl], 0, []); AddKey(ecSave, word('S'), [ssCtrl], 0, []);
AddKey(ecOpen, word('O'), [ssCtrl], 0, []); AddKey(ecOpen, word('O'), [ssCtrl], 0, []);
AddKey(ecClose, VK_F4, [ssCtrl], 0, []); AddKey(ecClose, VK_F4, [ssCtrl], 0, []);
OnStatusChange := @EditorStatusChanged; OnStatusChange := @EditorStatusChanged;
OnProcessUserCommand := @ProcessUserCommand; OnProcessUserCommand := @ProcessUserCommand;
Show; Show;
@ -1782,6 +1785,10 @@ begin
writeln('CloseClicked being called'); writeln('CloseClicked being called');
CloseClicked(self); CloseClicked(self);
end; end;
ecJumpToEditor : Begin
//This is NOT implemented yet
end;
end; //case end; //case
end; end;

4
lcl/graphics.pp
View File

@ -511,6 +511,10 @@ end.
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.3 2001/01/31 21:16:45 lazarus
Changed to TCOmboBox focusing.
Shane
Revision 1.2 2000/08/10 18:56:23 lazarus Revision 1.2 2000/08/10 18:56:23 lazarus
Added some winapi calls. Added some winapi calls.
Most don't have code yet. Most don't have code yet.

6
lcl/interfaces/gtk/gtkcallback.inc
View File

@ -255,6 +255,7 @@ var
Mess : TLMessage; Mess : TLMessage;
begin begin
EventTrace('focus', data); EventTrace('focus', data);
Writeln('Getting Focus...');
//TODO: fill in old focus //TODO: fill in old focus
Mess.msg := LM_SETFOCUS; Mess.msg := LM_SETFOCUS;
Assert(False, Format('Trace:TODO: [gtkfocusCB] %s finish', [TObject(Data).ClassName])); Assert(False, Format('Trace:TODO: [gtkfocusCB] %s finish', [TObject(Data).ClassName]));
@ -266,6 +267,7 @@ var
Mess : TLMessage; Mess : TLMessage;
begin begin
EventTrace('killfocus', data); EventTrace('killfocus', data);
Writeln('KIlling Focus...');
Mess.msg := LM_KILLFOCUS; Mess.msg := LM_KILLFOCUS;
//TODO: fill in new focus //TODO: fill in new focus
Assert(False, Format('Trace:TODO: [gtkkillfocusCB] %s finish', [TObject(Data).ClassName])); Assert(False, Format('Trace:TODO: [gtkkillfocusCB] %s finish', [TObject(Data).ClassName]));
@ -1075,6 +1077,10 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.21 2001/01/31 21:16:45 lazarus
Changed to TCOmboBox focusing.
Shane
Revision 1.20 2001/01/30 18:15:02 lazarus Revision 1.20 2001/01/30 18:15:02 lazarus
Added code for TStatusBar Added code for TStatusBar
I'm now capturing WMPainT and doing the drawing myself. I'm now capturing WMPainT and doing the drawing myself.

14
lcl/interfaces/gtk/gtkobject.inc
View File

@ -1243,9 +1243,19 @@ begin
LM_FOCUS : LM_FOCUS :
begin begin
//ConnectSignal(gObject, 'focus', @gtkfocusCB); //ConnectSignal(gObject, 'focus', @gtkfocusCB);
if (sender is TCustomComboBox) then
Begin
ConnectSignal(PgtkObject(PgtkCombo(TCustomComboBox(sender).handle)^.entry), 'focus-in-event', @gtkFocusCB);
ConnectSignal(PgtkObject(PgtkCombo(TCustomComboBox(sender).handle)^.entry), 'focus-out-event', @gtkKillFocusCB);
ConnectSignal(PgtkObject(PgtkCombo(TCustomComboBox(sender).handle)^.list), 'focus-in-event', @gtkFocusCB);
ConnectSignal(PgtkObject(PgtkCombo(TCustomComboBox(sender).handle)^.list), 'focus-out-event', @gtkKillFocusCB);
end
else
Begin
ConnectSignal(gObject, 'focus-in-event', @gtkFocusCB); ConnectSignal(gObject, 'focus-in-event', @gtkFocusCB);
ConnectSignal(gObject, 'focus-out-event', @gtkKillFocusCB); ConnectSignal(gObject, 'focus-out-event', @gtkKillFocusCB);
end; end;
end;
LM_KEYDOWN, LM_KEYDOWN,
LM_CHAR, LM_CHAR,
@ -2596,6 +2606,10 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.24 2001/01/31 21:16:45 lazarus
Changed to TCOmboBox focusing.
Shane
Revision 1.23 2001/01/28 21:06:07 lazarus Revision 1.23 2001/01/28 21:06:07 lazarus
Changes for TComboBox events KeyPress Focus. Changes for TComboBox events KeyPress Focus.
Shane Shane