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

MG: added TComboBox.OnPopup+OnCloseUp+ItemWidth

Browse Source 
git-svn-id: trunk@881 -
This commit is contained in:
lazarus 2002-02-09 01:47:13 +00:00
parent 26dd8be012
commit 750ed08ad0
3 changed files with 74 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -464,6 +464,7 @@ lcl/interfacebase.pp svneol=native#text/pascal
lcl/interfaces/abstract/interfaces.pp svneol=native#text/pascal
lcl/interfaces/gtk/dragicons.inc svneol=native#text/pascal
lcl/interfaces/gtk/gtkcallback.inc svneol=native#text/pascal
lcl/interfaces/gtk/gtkcomboboxcallback.inc svneol=native#text/pascal
lcl/interfaces/gtk/gtkdef.pp svneol=native#text/pascal
lcl/interfaces/gtk/gtkdragcallback.inc svneol=native#text/pascal
lcl/interfaces/gtk/gtkint.pp svneol=native#text/pascal

46
lcl/interfaces/gtk/gtkcomboboxcallback.inc Normal file
View File

@ -0,0 +1,46 @@
// included by gtkcallback.inc
{
*****************************************************************************
* *
* This file is part of the Lazarus Component Library (LCL) *
* *
* See the file COPYING.LCL, included in this distribution, *
* for details about the copyright. *
* *
* This program is distributed in the hope that it will be useful, *
* but WITHOUT ANY WARRANTY; without even the implied warranty of *
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. *
* *
*****************************************************************************
}
function gtkComboBoxShowCB(widget: PGtkWidget; data: gPointer): GBoolean; cdecl;
var
Mess : TLMCommand;
begin
Result := True;
EventTrace('ComboBoxShow', data);
FillChar(Mess,SizeOf(Mess),0);
Mess.Msg := CN_Command;
Mess.NotifyCode := CBN_DROPDOWN;
Result := DeliverMessage(Data, Mess) = 0;
end;
function gtkComboBoxHideCB(widget: PGtkWidget; data: gPointer): GBoolean; cdecl;
var
Mess : TLMCommand;
begin
Result := True;
EventTrace('ComboBoxHide', data);
FillChar(Mess,SizeOf(Mess),0);
Mess.Msg := CN_Command;
Mess.NotifyCode := CBN_CLOSEUP;
Result := DeliverMessage(Data, Mess) = 0;
end;
// included by gtkcallback.inc

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

@ -1621,7 +1621,8 @@ begin
csListBox :
begin
Widget:= GetWidgetInfo(Pointer(Handle), True)^.ImplementationWidget;
Data:= TGtkListStringList.Create(PGtkList(Widget));
Data:= TGtkListStringList.Create(PGtkList(Widget),
TWinControl(Sender));
Result:= Integer(Data);
end;
else
@ -1683,7 +1684,7 @@ begin
case TControl(Sender).fCompStyle of
csComboBox:
gtk_list_select_item(PGTKLIST(PGTKCOMBO(Handle)^.list), Integer(Data));
gtk_list_select_item(PGtkList(PGTKCOMBO(Handle)^.list), Integer(Data));
csListBox :
begin
@ -2302,19 +2303,6 @@ begin
{$Else}
Writeln('WARNING: [TgtkObject.SetColor] NOT Support under Win32 GTK')
{$EndIf}
// OBSOLETE
//NOT USED RIGHT NOW..........CAUSES ALL FORMS TO USE THESE COLORS!!!!!!
{
widget := TCustomForm(Sender).handle;
TheStyle := pgtkWidget(widget)^.thestyle;
NewColor := ConvertTogdk(TCustomForm(Sender).Color);
gdk_color_alloc (gdk_colormap_get_system (), @NewColor);
gdk_gc_set_foreground (TheStyle^.fg_gc[GTK_STATE_NORMAL], @NewColor);
gdk_gc_set_background (TheStyle^.fg_gc[GTK_STATE_NORMAL], @NewColor);
}
end;
{------------------------------------------------------------------------------
@ -2387,8 +2375,8 @@ begin
LM_ACTIVATE :
begin
if (Sender is TCustomForm) then begin
ConnectSenderSignal(gObject, 'focus-in-event', @gtkfrmactivate);
ConnectSenderSignal(gObject, 'focus-out-event', @gtkfrmdeactivate);
ConnectSenderSignal(gObject, 'focus-in-event', @gtkfrmactivate);
ConnectSenderSignal(gObject, 'focus-out-event', @gtkfrmdeactivate);
end else
ConnectSenderSignal(gObject, 'activate', @gtkactivateCB);
end;
@ -2786,6 +2774,16 @@ begin
ConnectSenderSignal(gCore, 'end-selection', @gtkLVEndSelection);
end;
LM_COMMAND:
begin
if Sender is TComboBox then begin
ConnectSenderSignalAfter(PgtkObject(PgtkCombo(gObject)^.popwin),
'show', @gtkComboBoxShowCB);
ConnectSenderSignalAfter(PgtkObject(PgtkCombo(gObject)^.popwin),
'hide', @gtkComboBoxHideCB);
end;
end;
(*
LM_WINDOWPOSCHANGED:
begin
@ -2974,7 +2972,13 @@ begin
SetCallback(LM_DAYCHANGED,Sender);
End;
csComboBox,csNotebook,csTrackBar :
csComboBox:
Begin
SetCallback(LM_CHANGED,Sender);
SetCallback(LM_COMMAND,Sender);
End;
csNotebook,csTrackBar :
Begin
SetCallback(LM_CHANGED,Sender);
End;
@ -3544,9 +3548,9 @@ begin
gtk_combo_disable_activate(Widget);
gtk_combo_set_case_sensitive(Widget, 1);
// Items
ItemList:= TGtkListStringList.Create(PGtkList(Widget^.List));
ItemList:= TGtkListStringList.Create(PGtkList(Widget^.List),ComboBox);
gtk_object_set_data(PGtkObject(Widget), 'LCLList', ItemList);
ItemList.Assign(ComboBox.Items);
ItemList.Sorted:= ComboBox.Sorted;
@ -5895,6 +5899,9 @@ end;
{ =============================================================================
$Log$
Revision 1.228 2002/10/03 14:47:31 lazarus
MG: added TComboBox.OnPopup+OnCloseUp+ItemWidth
Revision 1.227 2002/10/03 00:08:50 lazarus
AJ: TCustomLabel Autosize, TCustomCheckbox '&' shortcuts started