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

MG: removed splashform fix, because of the unpredictable side effects

Browse Source 
git-svn-id: trunk@353 -
This commit is contained in:
lazarus 2001-10-16 20:01:28 +00:00
parent d5ce8010d6
commit 6897d83bf2
4 changed files with 22 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ide/uniteditor.pp
View File

@ -2451,11 +2451,11 @@ writeln('[TSourceNotebook.NewFile] D ');
{$ENDIF}
Notebook.Pages[Notebook.PageIndex] :=
FindUniquePageName(NewShortName,Notebook.PageIndex);
if (SplashForm.Visible) and (Notebook.Pages.Count=1) then begin
{ if (SplashForm.Visible) and (Notebook.Pages.Count=1) then begin
SplashForm.Hide;
SplashForm.Show;
Application.ProcessMessages;
end;
end;}
{$IFDEF IDE_DEBUG}
writeln('[TSourceNotebook.NewFile] end');
{$ENDIF}

4
lcl/include/control.inc
View File

@ -1272,7 +1272,6 @@ end;
{------------------------------------------------------------------------------}
procedure TControl.DestroyComponent;
begin
//TODO: Does this procedure belong here
CNSendMessage(LM_DESTROY, Self, nil);
end;
@ -1326,6 +1325,9 @@ end;
{ =============================================================================
$Log$
Revision 1.27 2001/10/16 20:01:28 lazarus
MG: removed splashform fix, because of the unpredictable side effects
Revision 1.26 2001/10/16 14:19:13 lazarus
MG: added nvidia opengl support and a new opengl example from satan

6
lcl/include/customform.inc
View File

@ -99,7 +99,8 @@ Procedure TCustomForm.FocusControl(Control : TWinControl);
Begin
//Writeln('[TCustomForm.FocusControl] A ',ClassName,' ',Control.ClassName);
FActiveControl := Control;
LCLLinux.SetFocus(Control.Handle);
if HandleAllocated and Visible then
LCLLinux.SetFocus(Control.Handle);
//Writeln('[TCustomForm.FocusControl] END ',ClassName,' ',Control.ClassName);
End;
@ -943,6 +944,9 @@ end;
{ =============================================================================
$Log$
Revision 1.29 2001/10/16 20:01:28 lazarus
MG: removed splashform fix, because of the unpredictable side effects
Revision 1.28 2001/10/10 17:55:04 lazarus
MG: fixed caret lost, gtk cleanup, bracket lvls, bookmark saving

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

@ -452,7 +452,16 @@ begin
//writeln('>>> LM_DESTROY ',Sender.Classname,' Sender=',HexStr(Cardinal(Sender),8),' Handle=',HexStr(Cardinal(Handle),8));
if Handle<>0 then begin
if MCaptureHandle=Handle then MCaptureHandle:=0;
//writeln('>>> LM_DESTROY A ',Sender.Classname,' Sender=',HexStr(Cardinal(Sender),8),' Handle=',HexStr(Cardinal(Handle),8));
{
Important (Mattias):
If Sender is TForm and one of its components was focused by SetFocus then
the next line will produce a gtk warning. The PGtkWidget(Handle) is also
a dirty cast. If Sender is TForm, Handle is a PGtkWindow !
}
gtk_widget_destroy(PGtkWidget(Handle));
//writeln('>>> LM_DESTROY END ',Sender.Classname,' Sender=',HexStr(Cardinal(Sender),8),' Handle=',HexStr(Cardinal(Handle),8));
end;
// remove all remaining messages to this component
QueueItem:=FMessageQueue.First;
@ -3092,6 +3101,9 @@ end;
{ =============================================================================
$Log$
Revision 1.63 2001/10/16 20:01:28 lazarus
MG: removed splashform fix, because of the unpredictable side effects
Revision 1.62 2001/10/16 10:51:10 lazarus
MG: added clicked event to TButton, MessageDialog reacts to return key