paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-25 14:48:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

Added some code to make the interbae components work better.

Browse Source 
Shane

git-svn-id: trunk@458 -
This commit is contained in:
lazarus 2001-11-26 14:19:34 +00:00
parent ffa1dda0c4
commit 33efd6b9a0
2 changed files with 21 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
ide/idecomp.pp
View File

@ -23,11 +23,22 @@ unit idecomp;
{$mode objfpc}{$H+} {$mode objfpc}{$H+}
{ $DEFINE DATABASE}
{ $DEFINE INTERBASE}
interface interface
uses uses
Classes, LclLinux, StdCtrls, Forms, Buttons, Menus, ComCtrls, Classes, LclLinux, StdCtrls, Forms, Buttons, Menus, ComCtrls,
Spin, SysUtils, Controls, CompReg, Graphics, ExtCtrls, Dialogs; //,db; Spin, SysUtils, Controls, CompReg, Graphics, ExtCtrls, Dialogs
{$IFDEF DATABASE}
,db
{$ENDIF}
{$IFDEF INTERBASE}
,interbase
{$ENDIF}
;
type type
@ -301,10 +312,13 @@ begin
RegisterComponents('Samples','Spin',[TSpinEdit]); RegisterComponents('Samples','Spin',[TSpinEdit]);
// RegisterComponents('Data Access','Db',[TDatasource,TDatabase]); {$IFDEF DATABASE}
RegisterComponents('Data Access','Db',[TDatasource,TDatabase]);
// RegisterComponents('Interbase Data Access','Interbase',[TIBStoredProc,TIBQuery,TIBDatabase]); {$ENDIF}
{$IFDEF INTERBASE}
//Interbase
RegisterComponents('Interbase Data Access','Interbase',[TIBStoredProc,TIBQuery,TIBDatabase]);
{$ENDIF}
// unselectable components // unselectable components
// components that are streamed but not selectable in the IDE // components that are streamed but not selectable in the IDE
RegisterComponents('','ExtCtrls',[TPage]); RegisterComponents('','ExtCtrls',[TPage]);

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

@ -424,7 +424,6 @@ begin
//trying to prevent some key actions.... //trying to prevent some key actions....
//this didn't work.... //this didn't work....
//if not (csAcceptsControls in TControl(Sender).ControlStyle) then gtk_widget_set_sensitive(PgtkWidget(TWinControl(sender).Handle),False); //if not (csAcceptsControls in TControl(Sender).ControlStyle) then gtk_widget_set_sensitive(PgtkWidget(TWinControl(sender).Handle),False);
if (Sender is TCustomComboBox) then if (Sender is TCustomComboBox) then
begin begin
gtk_combo_disable_activate(PGTKCombo(TWinControl(sender).handle)); gtk_combo_disable_activate(PGTKCombo(TWinControl(sender).handle));
@ -3359,8 +3358,8 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.76 2001/11/21 19:32:33 lazarus Revision 1.77 2001/11/26 14:19:34 lazarus
TComboBox can now be moved in FormEditor Added some code to make the interbae components work better.
Shane Shane
Revision 1.75 2001/11/21 14:55:33 lazarus Revision 1.75 2001/11/21 14:55:33 lazarus