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

MG: TNotebook is now streamable

Browse Source 
git-svn-id: trunk@801 -
This commit is contained in:
lazarus 2002-02-09 01:46:44 +00:00
parent dd48bbf613
commit 7b68ee0230
1 changed files with 48 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1332,20 +1332,22 @@ begin
end;
LM_AddPage :
begin
if Sender is TControl then begin
Assert(False, Format('Trace: [TgtkObject.IntSendMessage3] %s --> Add NB page: %s', [Sender.ClassName, TLMNotebookEvent(Data^).Child.ClassName]));
if Sender is TCustomNoteBook then begin
AddNBPage(TControl(Sender), TLMNotebookEvent(Data^).Child,
TLMNotebookEvent(Data^).Page);
end;
end;
LM_RemovePage :
begin
if Sender is TControl then
if Sender is TCustomNoteBook then begin
RemoveNBPage(TControl(Sender), TLMNotebookEvent(Data^).Page);
end;
LM_MovePage :
if Sender is TCustomNoteBook then begin
MoveNBPage(TControl(Sender), TLMNotebookEvent(Data^).Child,
TLMNotebookEvent(Data^).Page);
end;
LM_ShowTabs :
begin
gtk_notebook_set_show_tabs(PGtkNotebook(Handle),
@ -2747,7 +2749,14 @@ begin
then
DestroyCaret(Handle);
if Sender is TCommonDialog then begin
if Sender is TControl then begin
case TControl(Sender).fCompStyle of
csComboBox:
SetComboBoxText(PGtkCombo(Handle),nil);
end;
end
else if Sender is TCommonDialog then begin
DestroyCommonDialogAddOns(TCommonDialog(Sender));
end;
@ -4539,6 +4548,20 @@ begin
UpdateNoteBookClientWidget(ANoteBook);
end;
{------------------------------------------------------------------------------
procedure TgtkObject.MoveNBPage(ANoteBook, APage: TObject; NewIndex: Integer);
Move a notebook page.
------------------------------------------------------------------------------}
procedure TgtkObject.MoveNBPage(ANoteBook, APage: TObject; NewIndex: Integer);
var
NoteBookWidget: PGtkNotebook;
begin
NoteBookWidget:=PGtkNotebook(TWinControl(ANoteBook).Handle);
gtk_notebook_reorder_child(NoteBookWidget,
PGtkWidget(TWinControl(APage).Handle),NewIndex);
UpdateNoteBookClientWidget(ANoteBook);
end;
{------------------------------------------------------------------------------}
{ TGtkObject ReDraw }
@ -4559,7 +4582,8 @@ begin
fWindow := pGtkWidget(widget)^.window;
//gc := gdk_gc_new(PgdkWindow(fWindow));
gdk_draw_pixmap(fwindow,PGtkStyle(widget^.TheStyle)^.fg_gc[GTK_WIDGET_STATE (widget)],
gdk_draw_pixmap(fwindow,
PGtkStyle(widget^.TheStyle)^.fg_gc[GTK_WIDGET_STATE (widget)],
pixmap,
0,0,
0,0,
@ -5700,7 +5724,11 @@ end;
{ =============================================================================
$Log$
Revision 1.199 2002/09/05 12:11:44 lazarus
MG: TNotebook is now streamable
Revision 1.198 2002/09/05 10:12:07 lazarus
New dialog for multiline caption of TCustomLabel.
Prettified TStrings property editor.
Memo now has automatic scrollbars (not fully working), WordWrap and Scrollbars property