Welcome, Guest
Username: Password: Remember me
CodeTyphon MS Windows (XP, Vista, Win7, Win8.x and Win10) OS Development, discussions and problems
  • Page:
  • 1

TOPIC:

Unit form is shown as a floatting window 3 months 5 days ago #17267

  • Andrew John Richter Cass
  • Andrew John Richter Cass's Avatar Topic Author
  • Offline
  • Junior Member
  • Junior Member
  • Posts: 23
  • Thank you received: 0
Hi everyone!
One of my units from a project doesn't show it's form as an embeeded design window (i have to use F12 to show it). It's enoying since it happens only with one unit.
Someone knows what happening?
Thanxs
 

Please Log in or Create an account to join the conversation.

Unit form is shown as a floatting window 3 months 5 days ago #17268

  • Matis A.
  • Matis A.'s Avatar
  • Offline
  • Moderator
  • Moderator
  • Posts: 776
  • Thank you received: 76
We want more info for your form with the problem,
a source sample ?
PilotLogic Core Programmer

Please Log in or Create an account to join the conversation.

Last edit: by Matis A..

Unit form is shown as a floatting window 3 months 5 days ago #17269

  • Andrew John Richter Cass
  • Andrew John Richter Cass's Avatar Topic Author
  • Offline
  • Junior Member
  • Junior Member
  • Posts: 23
  • Thank you received: 0
object frmPanels: TfrmPanels
Left = 1134
Height = 320
Top = 556
Width = 620
Caption = 'Panels'
ClientHeight = 320
ClientWidth = 620
DragKind = dkDock
DragMode = dmAutomatic
OnCreate = FormCreate
OnResize = FormResize
LCLVersion = '7.9'
object pnlDraw: TcyNavPanel
Left = 24
Height = 81
Top = 24
Width = 171
Wallpaper.Transparent = False
Alignment = taLeftJustify
BorderWidth = 3
BorderStyle = bsSingle
Caption = 'Draw:'
TabOrder = 0
TabStop = True
Bevels = <>
Layout = tlTop
RunTimeDesign.AllowMove = True
RunTimeDesign.OutsideParentRect = False
Shadow.Color = clDefault
Degrade.FromColor = clBtnFace
Degrade.SpeedPercent = 100
Degrade.ToColor = clBtnFace
ActiveControlFrame = <>
InactiveControlsFrame = <>
object Label1: TLabel
Left = 160
Height = 15
Top = 0
Width = 7
Caption = 'X'
OnClick = Label1Click
end
end
object pnlView: TcyNavPanel
Left = 208
Height = 81
Top = 24
Width = 171
Wallpaper.Transparent = False
Alignment = taLeftJustify
BorderWidth = 3
BorderStyle = bsSingle
Caption = 'View:'
TabOrder = 1
TabStop = True
Bevels = <>
Layout = tlTop
RunTimeDesign.AllowMove = True
RunTimeDesign.OutsideParentRect = False
Shadow.Color = clDefault
Degrade.FromColor = clBtnFace
Degrade.SpeedPercent = 100
Degrade.ToColor = clBtnFace
ActiveControlFrame = <>
InactiveControlsFrame = <>
object Label2: TLabel
Left = 160
Height = 15
Top = 0
Width = 7
Caption = 'X'
OnClick = Label2Click
end
end
object pnlView1: TcyNavPanel
Left = 400
Height = 81
Top = 24
Width = 171
Wallpaper.Transparent = False
Alignment = taLeftJustify
BorderWidth = 3
BorderStyle = bsSingle
Caption = 'View:'
TabOrder = 2
TabStop = True
Bevels = <
item
end>
Layout = tlTop
RunTimeDesign.AllowMove = True
RunTimeDesign.OutsideParentRect = False
Shadow.Color = clDefault
Degrade.FromColor = clBtnFace
Degrade.SpeedPercent = 100
Degrade.ToColor = clBtnFace
ActiveControlFrame = <
item
HighlightColor = clNavy
ShadowColor = clNavy
Width = 4
end
item
HighlightColor = clNavy
ShadowColor = clNavy
Style = bcTransparent
Width = 4
end>
InactiveControlsFrame = <>
object Label3: TLabel
Left = 160
Height = 15
Top = 0
Width = 7
Caption = 'X'
OnClick = Label2Click
end
end
object popLines: TPopupMenu
Images = FrmMain.ImageList1
Left = 24
Top = 136
object MenuItem1: TMenuItem
Action = FrmMain.actDrawLine
SubMenuImages = FrmMain.ImageList1
end
object MenuItem2: TMenuItem
Action = FrmMain.actDrawRay
end
object MenuItem3: TMenuItem
Action = FrmMain.actDrawXLine
end
object MenuItem4: TMenuItem
Action = FrmMain.actDrawMLine
end
object MenuItem5: TMenuItem
Action = FrmMain.actDrawPolyline
end
object MenuItem22: TMenuItem
Action = FrmMain.actDrawSpline
end
end
object popCircle: TPopupMenu
Images = FrmMain.ImageList1
Left = 72
Top = 136
object MenuItem6: TMenuItem
Action = FrmMain.actDrawCircleCR
end
object MenuItem7: TMenuItem
Action = FrmMain.actDrawCircleCD
end
object MenuItem8: TMenuItem
Action = FrmMain.actDrawCircle2p
end
object MenuItem9: TMenuItem
Action = FrmMain.actDrawCircle3p
end
end
object popArc: TPopupMenu
Images = FrmMain.ImageList1
Left = 116
Top = 136
object MenuItem10: TMenuItem
Action = FrmMain.actDrawArc
end
object MenuItem11: TMenuItem
Action = FrmMain.actDrawArc3p
end
object MenuItem12: TMenuItem
Action = FrmMain.actDrawArcSCE
end
object MenuItem13: TMenuItem
Action = FrmMain.actDrawArcSCA
end
object MenuItem14: TMenuItem
Action = FrmMain.actDrawArcSCL
end
object MenuItem15: TMenuItem
Action = FrmMain.actDrawArcSEA
end
object MenuItem16: TMenuItem
Action = FrmMain.actDrawArcSED
end
object MenuItem17: TMenuItem
Action = FrmMain.actDrawArcSER
end
object MenuItem18: TMenuItem
Action = FrmMain.actDrawArcCSE
end
object MenuItem19: TMenuItem
Action = FrmMain.actDrawArcCSA
end
object MenuItem20: TMenuItem
Action = FrmMain.actDrawArcCSL
end
object MenuItem21: TMenuItem
Action = FrmMain.actDrawArcCont
end
end
object popText: TPopupMenu
Images = FrmMain.ImageList1
Left = 162
Top = 136
object MenuItem23: TMenuItem
Action = FrmMain.actDrawText
end
object MenuItem24: TMenuItem
Action = FrmMain.actDrawMText
end
object MenuItem25: TMenuItem
Action = FrmMain.actDrawWindowsText
end
end
end

Please Log in or Create an account to join the conversation.

Unit form is shown as a floatting window 3 months 5 days ago #17270

  • Andrew John Richter Cass
  • Andrew John Richter Cass's Avatar Topic Author
  • Offline
  • Junior Member
  • Junior Member
  • Posts: 23
  • Thank you received: 0
object frmPanels: TfrmPanels
  Left = 1134
  Height = 320
  Top = 556
  Width = 620
  Caption = 'Panels'
  ClientHeight = 320
  ClientWidth = 620
  DragKind = dkDock
  DragMode = dmAutomatic
  OnCreate = FormCreate
  OnResize = FormResize
  LCLVersion = '7.9'
  object pnlDraw: TcyNavPanel
    Left = 24
    Height = 81
    Top = 24
    Width = 171
    Wallpaper.Transparent = False
    Alignment = taLeftJustify
    BorderWidth = 3
    BorderStyle = bsSingle
    Caption = 'Draw:'
    TabOrder = 0
    TabStop = True
    Bevels = <>
    Layout = tlTop
    RunTimeDesign.AllowMove = True
    RunTimeDesign.OutsideParentRect = False
    Shadow.Color = clDefault
    Degrade.FromColor = clBtnFace
    Degrade.SpeedPercent = 100
    Degrade.ToColor = clBtnFace
    ActiveControlFrame = <>
    InactiveControlsFrame = <>
    object Label1: TLabel
      Left = 160
      Height = 15
      Top = 0
      Width = 7
      Caption = 'X'
      OnClick = Label1Click
    end
  end
  object pnlView: TcyNavPanel
    Left = 208
    Height = 81
    Top = 24
    Width = 171
    Wallpaper.Transparent = False
    Alignment = taLeftJustify
    BorderWidth = 3
    BorderStyle = bsSingle
    Caption = 'View:'
    TabOrder = 1
    TabStop = True
    Bevels = <>
    Layout = tlTop
    RunTimeDesign.AllowMove = True
    RunTimeDesign.OutsideParentRect = False
    Shadow.Color = clDefault
    Degrade.FromColor = clBtnFace
    Degrade.SpeedPercent = 100
    Degrade.ToColor = clBtnFace
    ActiveControlFrame = <>
    InactiveControlsFrame = <>
    object Label2: TLabel
      Left = 160
      Height = 15
      Top = 0
      Width = 7
      Caption = 'X'
      OnClick = Label2Click
    end
  end
  object pnlView1: TcyNavPanel
    Left = 400
    Height = 81
    Top = 24
    Width = 171
    Wallpaper.Transparent = False
    Alignment = taLeftJustify
    BorderWidth = 3
    BorderStyle = bsSingle
    Caption = 'View:'
    TabOrder = 2
    TabStop = True
    Bevels = <    
      item
      end>
    Layout = tlTop
    RunTimeDesign.AllowMove = True
    RunTimeDesign.OutsideParentRect = False
    Shadow.Color = clDefault
    Degrade.FromColor = clBtnFace
    Degrade.SpeedPercent = 100
    Degrade.ToColor = clBtnFace
    ActiveControlFrame = <    
      item
        HighlightColor = clNavy
        ShadowColor = clNavy
        Width = 4
      end    
      item
        HighlightColor = clNavy
        ShadowColor = clNavy
        Style = bcTransparent
        Width = 4
      end>
    InactiveControlsFrame = <>
    object Label3: TLabel
      Left = 160
      Height = 15
      Top = 0
      Width = 7
      Caption = 'X'
      OnClick = Label2Click
    end
  end
  object popLines: TPopupMenu
    Images = FrmMain.ImageList1
    Left = 24
    Top = 136
    object MenuItem1: TMenuItem
      Action = FrmMain.actDrawLine
      SubMenuImages = FrmMain.ImageList1
    end
    object MenuItem2: TMenuItem
      Action = FrmMain.actDrawRay
    end
    object MenuItem3: TMenuItem
      Action = FrmMain.actDrawXLine
    end
    object MenuItem4: TMenuItem
      Action = FrmMain.actDrawMLine
    end
    object MenuItem5: TMenuItem
      Action = FrmMain.actDrawPolyline
    end
    object MenuItem22: TMenuItem
      Action = FrmMain.actDrawSpline
    end
  end
  object popCircle: TPopupMenu
    Images = FrmMain.ImageList1
    Left = 72
    Top = 136
    object MenuItem6: TMenuItem
      Action = FrmMain.actDrawCircleCR
    end
    object MenuItem7: TMenuItem
      Action = FrmMain.actDrawCircleCD
    end
    object MenuItem8: TMenuItem
      Action = FrmMain.actDrawCircle2p
    end
    object MenuItem9: TMenuItem
      Action = FrmMain.actDrawCircle3p
    end
  end
  object popArc: TPopupMenu
    Images = FrmMain.ImageList1
    Left = 116
    Top = 136
    object MenuItem10: TMenuItem
      Action = FrmMain.actDrawArc
    end
    object MenuItem11: TMenuItem
      Action = FrmMain.actDrawArc3p
    end
    object MenuItem12: TMenuItem
      Action = FrmMain.actDrawArcSCE
    end
    object MenuItem13: TMenuItem
      Action = FrmMain.actDrawArcSCA
    end
    object MenuItem14: TMenuItem
      Action = FrmMain.actDrawArcSCL
    end
    object MenuItem15: TMenuItem
      Action = FrmMain.actDrawArcSEA
    end
    object MenuItem16: TMenuItem
      Action = FrmMain.actDrawArcSED
    end
    object MenuItem17: TMenuItem
      Action = FrmMain.actDrawArcSER
    end
    object MenuItem18: TMenuItem
      Action = FrmMain.actDrawArcCSE
    end
    object MenuItem19: TMenuItem
      Action = FrmMain.actDrawArcCSA
    end
    object MenuItem20: TMenuItem
      Action = FrmMain.actDrawArcCSL
    end
    object MenuItem21: TMenuItem
      Action = FrmMain.actDrawArcCont
    end
  end
  object popText: TPopupMenu
    Images = FrmMain.ImageList1
    Left = 162
    Top = 136
    object MenuItem23: TMenuItem
      Action = FrmMain.actDrawText
    end
    object MenuItem24: TMenuItem
      Action = FrmMain.actDrawMText
    end
    object MenuItem25: TMenuItem
      Action = FrmMain.actDrawWindowsText
    end
  end
end
 
Attachments:

Please Log in or Create an account to join the conversation.

Unit form is shown as a floatting window 3 months 5 days ago #17274

  • Matis A.
  • Matis A.'s Avatar
  • Offline
  • Moderator
  • Moderator
  • Posts: 776
  • Thank you received: 76
Try this
-Change the Form name in Object ins
-Save project
-Close TyphonIDE
-ReOpen TyphonIDE
PilotLogic Core Programmer

Please Log in or Create an account to join the conversation.

Unit form is shown as a floatting window 3 months 4 days ago #17275

  • Andrew John Richter Cass
  • Andrew John Richter Cass's Avatar Topic Author
  • Offline
  • Junior Member
  • Junior Member
  • Posts: 23
  • Thank you received: 0
Hi, 
Thanks for your help. 
I found the fallowing solution/problem:
Looking at the project files i found that the statement "Application.CreateForm(TfrmPanels, frmPanels) in 'ppr' file; " wasn't there! 
For some reason the form (automatic) creation wasn't there. I insert the statment manually 'close all' and then restart the IDE
Reopening the project all was returned to normal. But it's important to perform 'close all' before! If you don't do this the IDE will 'try/force' to reopen the form as a floating one.
I was able to reproduce the error again just deleting the statement in the 'ppr' file. The onliest way to return the project to normal was reproducing the steps mentioned before.
For some reason the 'Project Inspector' after adding a unit with a form associated may not include a 'CreateForm' statement on 'ppr' project file, even if the in 'Project options' the 'Auto-Create form' option is setted. There is some glitch (or attention needed) there...
Once again, thanks for your help and i expect to be contributing in some way, even with a bad english...
 
  

Please Log in or Create an account to join the conversation.

Unit form is shown as a floatting window 3 months 4 days ago #17276

  • Matis A.
  • Matis A.'s Avatar
  • Offline
  • Moderator
  • Moderator
  • Posts: 776
  • Thank you received: 76
Thanks
have fun
PilotLogic Core Programmer
The following user(s) said Thank You: Andrew John Richter Cass

Please Log in or Create an account to join the conversation.

Unit form is shown as a floatting window 3 months 2 days ago #17280

  • Andrew John Richter Cass
  • Andrew John Richter Cass's Avatar Topic Author
  • Offline
  • Junior Member
  • Junior Member
  • Posts: 23
  • Thank you received: 0
Unfortunately the problem merged again. Randomly the forms open as floating or embedded.
I turned off the embedded mode until the problem is solved. Thanks for your attention

Please Log in or Create an account to join the conversation.

Unit form is shown as a floatting window 2 months 3 weeks ago #17283

  • Andrew John Richter Cass
  • Andrew John Richter Cass's Avatar Topic Author
  • Offline
  • Junior Member
  • Junior Member
  • Posts: 23
  • Thank you received: 0
I'm leaving here a copy of the faulty project so you may see it.
The unit that isn't showing the form in an embeeded way is the upnlpanel.pas
regards
Andrew 
 

File Attachment:

File Name: GeoProps_VCad.7z
File Size:4,265 KB
Attachments:

Please Log in or Create an account to join the conversation.

Unit form is shown as a floatting window 2 months 3 weeks ago #17284

  • Matis A.
  • Matis A.'s Avatar
  • Offline
  • Moderator
  • Moderator
  • Posts: 776
  • Thank you received: 76
Please,
give us time to test and report
PilotLogic Core Programmer

Please Log in or Create an account to join the conversation.

Unit form is shown as a floatting window 2 months 3 weeks ago #17285

  • Matis A.
  • Matis A.'s Avatar
  • Offline
  • Moderator
  • Moderator
  • Posts: 776
  • Thank you received: 76
We Fix the upnlpanel.frm and
we Rename TfrmPanel =>TfrmPanelFFF
to ALL project units.

We test upnlpanel.pas many times and all are OK in Embedded Form Designer.

1) Because, Simple Forms names used and from TyphonIDE,
please, don't use so simple Forms names to your Projects.

2) in CadApi.pas, procedure ShowPropWndEmbedded(WindowHandle: THandle; Container: TWinControl); 
use similar "Embedded" way like Typhon Embedded Form Designer.
My suggestion is to use ShowPropWndEmbedded(Foo) only in runtime


Fixes without bin folder in attach file: GeoProps_VCad2.7z
Screen from Win 11 ent and Typhon32

 
PilotLogic Core Programmer
The following user(s) said Thank You: Andrew John Richter Cass

Please Log in or Create an account to join the conversation.

Last edit: by Matis A..
  • Page:
  • 1