[lazarus] how to...

Thu Jul 6 17:28:25 EDT 2000

Here's the output... I missed the "-" sign :(((

This time I even saw the splash screen for about half a second :)

Pavlovic Ivan
---------------------------------
E-mail:
----------
vampir at net.yu
vampir at tesla.rcub.bg.ac.yu

Homepage:
----------
www.tisoft.cjb.net

----- Original Message -----
From: Marc Weustink <Marc.Weustink at cuperus.nl>
To: <lazarus at miraclec.com>
Sent: Wednesday, 05 July, 2000 10:34
Subject: RE: [lazarus] how to...

> + From: Pavlovic Ivan [mailto:vampir at tesla.rcub.bg.ac.yu]
>
> + > pfew... I'm not sure if the problems are related. The
> + > missing fontname is indeed an error and the reason for
> + > that is known. The code around it can handle it and
> + > should not dump.
> +
> + OK... What do I do to code around it??? (where should I look
> + for the error)
>
> You don't need to code around it. The error you see is probably not
related
> to the missing font, but somewhere further in the code. The error message
is
> the last one you see.
>
> +
> + > - can you remake lazarus with the trace option and look if
> + >   the output is different ?
> +
> + The output look pretty much the same... I can send you what it wrote if
> you
> + want...
>
> Please send it to m.weustink at cuperus.nl
>
> Marc
>
> _________________________________________________________________
>      To unsubscribe: mail lazarus-request at miraclec.com with
>                 "unsubscribe" as the Subject
>     archives at http://www.miraclec.com/list_archives/lazarus
>

Message recieved
Compiler Options Class Created
in TWinControl Constructor
TWinControl Constructor inherited create complete
Message recieved
[TgtkObject.IntSendMessage3] TSPLASHFORM --> Sent LM_Message: $101B (LM_SetColor); Data: 0
[TWinControl.WMWindowPosChanged] TSPLASHFORM
[TControl.WMWindowPosChanged] TSPLASHFORM
[TWinControl.WMWindowPosChanged] TSPLASHFORM
[TControl.WMWindowPosChanged] TSPLASHFORM
[TWinControl.WMWindowPosChanged] TSPLASHFORM
[TControl.WMWindowPosChanged] TSPLASHFORM
[TWinControl.WMWindowPosChanged] TSPLASHFORM
[TControl.WMWindowPosChanged] TSPLASHFORM
[TWinControl.WMWindowPosChanged] TSPLASHFORM
[TControl.WMWindowPosChanged] TSPLASHFORM
[TWinControl.WMWindowPosChanged] TSPLASHFORM
[TControl.WMWindowPosChanged] TSPLASHFORM
In TTimer.SetInterval
SETTING TIMER CALLBACK
Message recieved
[TgtkObject.IntSendMessage3] TTIMER --> Sent LM_Message: $1001 (LM_Create); Data: 0
Callling CreateComponent
In CreateComponet
----------------------Creating component in TgtkObject-   STR = Unknown-
1
Creating a timer in CreateComponent
Called CreateComponent
In TTimer.SetEnabled
Message recieved
[TgtkObject.IntSendMessage3] TTIMER --> Sent LM_Message: $402 (Unkown message 0x402 (1026)); Data: 0
removing timer!!!
 [TWinControl.Show] TSPLASHFORM()
Message recieved
[TgtkObject.IntSendMessage3] TSPLASHFORM --> Sent LM_Message: $1001 (LM_Create); Data: 0
Callling CreateComponent
In CreateComponet
[TControl.GetText]
<TControl.GetText> End
----------------------Creating component in TgtkObject-   STR = Lazarus-
1
Called CreateComponent
[TWinControl.AttachSignals] TSPLASHFORM
[TGTKObject.SetCallback] TSPLASHFORM signal <destroy>
[TGTKObject.SetCallback] TSPLASHFORM signal <show>
[TGTKObject.SetCallback] TSPLASHFORM signal <hide>
[TGTKObject.SetCallback] TSPLASHFORM signal <focus-in-event>
[TGTKObject.SetCallback] TSPLASHFORM signal <focus-out-event>
[TGTKObject.SetCallback] TSPLASHFORM signal <size-allocate>
[TGTKObject.SetCallback] TSPLASHFORM signal <expose-event>
[TGTKObject.SetCallback] TSPLASHFORM signal <draw>
[TGTKObject.SetCallback] TSPLASHFORM signal <key-press-event>
[TGTKObject.SetCallback] TSPLASHFORM signal <key-release-event>
WARNING: [TGTKObject.SetCallback] TSPLASHFORM signal <key-press-event> set twice
WARNING: [TGTKObject.SetCallback] TSPLASHFORM signal <key-release-event> set twice
WARNING: [TGTKObject.SetCallback] TSPLASHFORM signal <key-press-event> set twice
WARNING: [TGTKObject.SetCallback] TSPLASHFORM signal <key-release-event> set twice
[TGTKObject.SetCallback] TSPLASHFORM signal <motion-notify-event>
[TGTKObject.SetCallback] TSPLASHFORM signal <button-press-event>
[TGTKObject.SetCallback] TSPLASHFORM signal <button-release-event>
WARNING: [TGTKObject.SetCallback] TSPLASHFORM signal <button-press-event> set twice
WARNING: [TGTKObject.SetCallback] TSPLASHFORM signal <button-release-event> set twice
WARNING: [TGTKObject.SetCallback] TSPLASHFORM signal <button-press-event> set twice
WARNING: [TGTKObject.SetCallback] TSPLASHFORM signal <button-release-event> set twice
WARNING: [TGTKObject.SetCallback] TSPLASHFORM signal <button-press-event> set twice
[TGTKObject.SetCallback] TSPLASHFORM signal <configure-event>
[TGTKObject.SetCallback] TSPLASHFORM signal <delete-event>
[TWinControl.InitializeWnd]  TSPLASHFORM
TODO: [TWinControl.InitializeWnd] move this code to the interface
Message recieved
[TgtkObject.IntSendMessage3] TSPLASHFORM --> Sent LM_Message: $1008 (LM_Setsize); Data: -1073745348
[TgtkObject.IntSendMessage3] TSPLASHFORM --> LM_SetSize(1, 1, 240, 180)
[TgtkObject.ResizeChild] TSPLASHFORM --> Resize
Message recieved
[TgtkObject.IntSendMessage3] TSPLASHFORM --> Sent LM_Message: $100E (LM_ShowHide); Data: 0
[TgtkObject.IntSendMessage3] TSPLASHFORM --> Show/Hide
Event [size-allocate] fired for TSPLASHFORM
[gtksize_allocateCB] TSPLASHFORM --> X: 1, Y: 1, Width: 240, Height: 180
[gtksize_allocateCB] DeliverMessage LM_WINDOWPOSCHANGED
[TWinControl.WMWindowPosChanged] TSPLASHFORM
[TControl.WMWindowPosChanged] TSPLASHFORM
[gtksize_allocateCB] DeliverMessage LM_SIZE
[gtksize_allocateCB] DeliverMessage LM_MOVE
Event [realize] fired
Event [show] fired for TSPLASHFORM
LM_SHOWWINDOW RECEIVED!!!!!!!!!!!
 [TCustomForm.LMShowWindow] Show TSPLASHFORM
Message recieved
[TgtkObject.IntSendMessage3] TSPLASHFORM --> Sent LM_Message: $101B (LM_SetColor); Data: 0
[TgtkObject.SetBKColor]
[TgtkObject.IsValidDC] got --> False
Message recieved
[TgtkObject.IntSendMessage3] TSPLASHFORM --> Sent LM_Message: $1002 (LM_SetLabel); Data: 135362856
[TControl.GetText]
<TControl.GetText> End
[TgtkObject.SetLabel] TSPLASHFORM --> label Lazarus
Setting Str1 in SetLabel
[TgtkObject.SetLabel] TSPLASHFORM --> END
SETPROP**********************************************
[TCustomForm.CreateWnd] FMenu.HandleNeeded
Message recieved
[TgtkObject.IntSendMessage3] TSPLASHFORM --> Sent LM_Message: $100E (LM_ShowHide); Data: 0
[TgtkObject.IntSendMessage3] TSPLASHFORM --> Show/Hide
[TgtkObject.GetSystemMetrics]
[TgtkObject.GetSystemMetrics]
Message recieved
[TgtkObject.IntSendMessage3] TSPLASHFORM --> Sent LM_Message: $1008 (LM_Setsize); Data: -1073744884
[TgtkObject.IntSendMessage3] TSPLASHFORM --> LM_SetSize(392, 294, 240, 180)
[TgtkObject.ResizeChild] TSPLASHFORM --> Resize
[TgtkObject.CreateCompatibleDC]
[TgtkObject.IsValidDC] got --> False
[TgtkObject.IsValidDC] got --> False
[TgtkObject.IsValidGDIObject] got --> False
[TgtkObject.SelectObject] Bitmap
[TgtkObject.CreateBrushIndirect]  Style: 0, Color:   FFFFFF
[TgtkObject.CreateBrushIndirect]  Allocated R: FFFF, G: FFFF, B: FFFF
[TgtkObject.CreateBrushIndirect] Got --> 8118C94
[TgtkObject.IsValidDC] got --> False
[TgtkObject.IsValidGDIObject] got --> False
[TgtkObject.SelectObject] Brush
[TgtkObject.GetDC] Got 0x8118C44
ERROR: [TgtkObject.CreateFontIndirect] No fontname
[TgtkObject.IsValidDC] got --> False
[TgtkObject.IsValidGDIObject] got --> False
[TgtkObject.SetTextColor]
[TgtkObject.IsValidDC] got --> False
[TgtkObject.CreateBrushIndirect]  Style: 0, Color:   FFFFFF
[TgtkObject.CreateBrushIndirect]  Allocated R: FFFF, G: FFFF, B: FFFF
[TgtkObject.CreateBrushIndirect] Got --> 8118E24
[TgtkObject.IsValidDC] got --> False
[TgtkObject.IsValidGDIObject] got --> False
[TgtkObject.SelectObject] Brush
[TgtkObject.IsValidDC] got --> False
[TgtkObject.IsValidDC] got --> False
in TWinControl Constructor
TWinControl Constructor inherited create complete
Message recieved
[TgtkObject.IntSendMessage3] TFORM1 --> Sent LM_Message: $101B (LM_SetColor); Data: 0
[TWinControl.WMWindowPosChanged] TFORM1
[TControl.WMWindowPosChanged] TFORM1
[TWinControl.WMWindowPosChanged] TFORM1
[TControl.WMWindowPosChanged] TFORM1
[TWinControl.WMWindowPosChanged] TFORM1
[TControl.WMWindowPosChanged] TFORM1
[TWinControl.WMWindowPosChanged] TFORM1
[TControl.WMWindowPosChanged] TFORM1
[TWinControl.WMWindowPosChanged] TFORM1
[TControl.WMWindowPosChanged] TFORM1
[TWinControl.WMWindowPosChanged] TFORM1
[TControl.WMWindowPosChanged] TFORM1
[TgtkObject.GetSystemMetrics]
[TWinControl.WMWindowPosChanged] TFORM1
[TControl.WMWindowPosChanged] TFORM1
[TWinControl.WMWindowPosChanged] TFORM1
[TControl.WMWindowPosChanged] TFORM1
An unhandled exception occurred at 0x080D8435 :
Access violation
  0x080D8435
  0x080C1F7E
  0x080CC6C6
  0x080B1C87
  0x080B1C28
  0x080B230E
  0x0000000D
  0x00000001
An unhandled exception occurred at 0x080D5F6A :
Access violation
  0x080D5F6A
  0x3020200C
  0x00000000

An unhandled exception occurred at 0x54205D64 :
Access violation
  0x54205D64
  0xBFFFF5B0
An unhandled exception occurred at 0x080D5F6A :
Access violation
  0x080D5F6A
  0x3020200C
  0x00000000

[TgtkObject.Destroy] WARNING: There are 2 unreleased DCs and 9 unreleased GDIObjects
[TgtkObject.Destroy] WARNING: There are 2 messages left in the queue! I'll free them