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

MG: fixed client events

Browse Source 
git-svn-id: trunk@729 -
This commit is contained in:
lazarus 2002-02-09 01:45:56 +00:00
parent d986734622
commit 2074dee40b
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2472,7 +2472,7 @@ begin
end; end;
{------------------------------------------------------------------------------- {-------------------------------------------------------------------------------
TgtkObject.HookSignals TgtkObject.DestroyLCLControl
Params: Sender: TObject Params: Sender: TObject
Destroy the widget and all associated data Destroy the widget and all associated data
@ -3656,7 +3656,7 @@ begin
csProgressBar: csProgressBar:
with (TProgressBar (Sender)) do with (TProgressBar (Sender)) do
begin begin
{ Create a GtkAdjusment object to hold the range of the progress bar } { Create a GtkAdjustment object to hold the range of the progress bar }
TempWidget := PGtkWidget( gtk_adjustment_new (Position, Min, Max, 0, 0, 0)); TempWidget := PGtkWidget( gtk_adjustment_new (Position, Min, Max, 0, 0, 0));
{ Create the GtkProgressBar using the adjustment } { Create the GtkProgressBar using the adjustment }
P := gtk_progress_bar_new_with_adjustment (PGtkAdjustment (TempWidget)); P := gtk_progress_bar_new_with_adjustment (PGtkAdjustment (TempWidget));
@ -5266,6 +5266,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.151 2002/08/04 07:09:28 lazarus
MG: fixed client events
Revision 1.150 2002/07/29 13:26:57 lazarus Revision 1.150 2002/07/29 13:26:57 lazarus
MG: source notebook pagenames are now updated more often MG: source notebook pagenames are now updated more often