paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-05 20:38:08 +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;
ecClose = ecFirstParent+3;
ecJumpToEditor = ecFirstParent+4;
var
Editor_Num : Integer;
aHighlighter: TSynPasSyn;
@ -831,6 +833,7 @@ if assigned(FEditor) then
AddKey(ecSave, word('S'), [ssCtrl], 0, []);
AddKey(ecOpen, word('O'), [ssCtrl], 0, []);
AddKey(ecClose, VK_F4, [ssCtrl], 0, []);
OnStatusChange := @EditorStatusChanged;
OnProcessUserCommand := @ProcessUserCommand;
Show;
@ -1782,6 +1785,10 @@ begin
writeln('CloseClicked being called');
CloseClicked(self);
end;
ecJumpToEditor : Begin
//This is NOT implemented yet
end;
end; //case
end;

8
lcl/graphics.pp
View File

@ -130,8 +130,8 @@ type
Pitch : TFontPitch;
Style : TFontStylesBase;
CharSet : TFontCharSet;
Name : TFontDataName;
end;
Name : TFontDataName;
end;
TPenStyle = (psSolid, psDash, psDot, psDashDot, psDashDotDot, psClear, psInsideframe);
TPenMode = (pmBlack, pmWhite, pmNop, pmNot, pmCopy, pmNotCopy, pmMergePenNot,
@ -511,6 +511,10 @@ end.
{ =============================================================================
$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
Added some winapi calls.
Most don't have code yet.

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

@ -255,6 +255,7 @@ var
Mess : TLMessage;
begin
EventTrace('focus', data);
Writeln('Getting Focus...');
//TODO: fill in old focus
Mess.msg := LM_SETFOCUS;
Assert(False, Format('Trace:TODO: [gtkfocusCB] %s finish', [TObject(Data).ClassName]));
@ -266,6 +267,7 @@ var
Mess : TLMessage;
begin
EventTrace('killfocus', data);
Writeln('KIlling Focus...');
Mess.msg := LM_KILLFOCUS;
//TODO: fill in new focus
Assert(False, Format('Trace:TODO: [gtkkillfocusCB] %s finish', [TObject(Data).ClassName]));
@ -1075,6 +1077,10 @@ end;
{ =============================================================================
$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
Added code for TStatusBar
I'm now capturing WMPainT and doing the drawing myself.

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

@ -1243,8 +1243,18 @@ begin
LM_FOCUS :
begin
//ConnectSignal(gObject, 'focus', @gtkfocusCB);
ConnectSignal(gObject, 'focus-in-event', @gtkFocusCB);
ConnectSignal(gObject, 'focus-out-event', @gtkKillFocusCB);
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-out-event', @gtkKillFocusCB);
end;
end;
LM_KEYDOWN,
@ -2596,6 +2606,10 @@ end;
{ =============================================================================
$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
Changes for TComboBox events KeyPress Focus.
Shane