What do you make Dialog and Windows on?

Author

Message

MSon

19

Years of Service

User Offline

Joined: 13th Jul 2004

Location: Earth, (I Think).

Posted: 17th Aug 2007 10:31 Edited at: 17th Aug 2007 12:58

Link

I have a Strange request...

When people want to make a Window or Dialog for DBPro via a DLL:
1. what are the prefered languages for creating windows?
2. Does anyone know where i can get the file format from for these languages

This may sound like a strange request, but its because im working on import options for my UI Designer, http://forum.thegamecreators.com/?m=forum_view&t=110695&b=8

so far i can import

Blues Rainbow Layouts, (.GUI)

VB 5/6 Forms, (.FRM)

VB.Net Projects, (.Designer.vb + .VBProj)

ResHack Exported Dialogs, (.RC)

These are the completed import options i have so far, all it imports is the window layouts so it can export them in DarkBasic Source.

Im looking to improve on this import list, but need to know what the most used languages are.

And sorry, i would of posted this in Programmers Talk, but its not a request for any paticular language

Everyone Be Cool, You, Be Cool.

Back to top

Profile PM Email Website

hyrichter

20

Years of Service

User Offline

Joined: 15th Feb 2004

Location: Arizona

Posted: 22nd Aug 2007 16:24

Link

Well, I use Delphi for any desktop app I'm building. However, I'm not sure how you would go about importing much from it aside from the very basic standard Windows controls. You see, Delphi comes with several hundred components, plus almost any Delphi developer will add on another 1000 or so 3rd party components. Last I checked, I believe I had around 1500 components in my Delphi toolbox.

Anyway, Delphi can save its form files in a text version (.dfm file)
Here's an example form from CodeSurge. This is the "Find" form. Notice the glyph data, which is just an image stored right in the dfm.

object frmFind: TfrmFind
  Left = 0
  Top = 0
  BorderStyle = bsDialog
  Caption = 'Find'
  ClientHeight = 179
  ClientWidth = 346
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnCloseQuery = FormCloseQuery
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 8
    Top = 15
    Width = 54
    Height = 13
    Caption = '&Search for:'
  end
  object rgSearchDirection: TRadioGroup
    Left = 175
    Top = 38
    Width = 154
    Height = 65
    Caption = 'Direction'
    ItemIndex = 0
    Items.Strings = (
      '&Forward'
      '&Backward')
    TabOrder = 2
  end
  object cboSearchText: TComboBox
    Left = 80
    Top = 11
    Width = 249
    Height = 21
    ItemHeight = 13
    TabOrder = 0
  end
  object gbSearchOptions: TGroupBox
    Left = 8
    Top = 38
    Width = 154
    Height = 131
    Caption = 'Options'
    TabOrder = 1
    object cbSearchCaseSensitive: TCheckBox
      Left = 11
      Top = 18
      Width = 140
      Height = 17
      Caption = 'C&ase sensitivity'
      TabOrder = 0
    end
    object cbSearchWholeWords: TCheckBox
      Left = 11
      Top = 40
      Width = 140
      Height = 17
      Caption = '&Whole words only'
      TabOrder = 1
    end
    object cbSearchFromCursor: TCheckBox
      Left = 11
      Top = 62
      Width = 140
      Height = 17
      Caption = 'Search from &caret'
      TabOrder = 2
    end
    object cbSearchSelectedOnly: TCheckBox
      Left = 11
      Top = 84
      Width = 140
      Height = 17
      Caption = '&Selected text only'
      TabOrder = 3
    end
    object cbRegularExpression: TCheckBox
      Left = 11
      Top = 105
      Width = 140
      Height = 17
      Caption = '&Regular expression'
      TabOrder = 4
    end
  end
  object BitBtn1: TBitBtn
    Left = 175
    Top = 144
    Width = 75
    Height = 25
    Caption = 'Find'
    Default = True
    ModalResult = 1
    TabOrder = 3
    Glyph.Data = {
      36030000424D3603000000000000360000002800000010000000100000000100
      18000000000000030000120B0000120B00000000000000000000FF00FF4A667C
      BE9596FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
      FFFF00FFFF00FFFF00FF6B9CC31E89E84B7AA3C89693FF00FFFF00FFFF00FFFF
      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF4BB4FE51B5FF
      2089E94B7AA2C69592FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
      FFFF00FFFF00FFFF00FFFF00FF51B7FE51B3FF1D87E64E7AA0CA9792FF00FFFF
      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
      51B7FE4EB2FF1F89E64E7BA2B99497FF00FFFF00FFFF00FFFF00FFFF00FFFF00
      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF52B8FE4BB1FF2787D95F6A76FF
      00FFB0857FC09F94C09F96BC988EFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
      FF00FFFF00FF55BDFFB5D6EDBF9D92BB9B8CE7DAC2FFFFE3FFFFE5FDFADAD8C3
      B3B58D85FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFCEA795FD
      EEBEFFFFD8FFFFDAFFFFDBFFFFE6FFFFFBEADDDCAE837FFF00FFFF00FFFF00FF
      FF00FFFF00FFFF00FFFF00FFC1A091FBDCA8FEF7D0FFFFDBFFFFE3FFFFF8FFFF
      FDFFFFFDC6A99CFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFC1A091FEE3ACF1
      C491FCF2CAFFFFDDFFFFE4FFFFF7FFFFF7FFFFE9EEE5CBB9948CFF00FFFF00FF
      FF00FFFF00FFFF00FFC2A191FFE6AEEEB581F7DCAEFEFDD8FFFFDFFFFFE3FFFF
      E4FFFFE0F3ECD2BB968EFF00FFFF00FFFF00FFFF00FFFF00FFBC978CFBE7B7F4
      C791F2C994F8E5B9FEFCD8FFFFDDFFFFDCFFFFE0E2D2BAB68E86FF00FFFF00FF
      FF00FFFF00FFFF00FFFF00FFD9C3A9FFFEE5F7DCB8F2C994F5D4A5FAE8BDFDF4
      C9FDFBD6B69089FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFB58D85E8
      DEDDFFFEF2F9D8A3F4C48CF9D49FFDEAB8D0B49FB89086FF00FFFF00FFFF00FF
      FF00FFFF00FFFF00FFFF00FFFF00FFAD827FC9AA9EEFE0B7EFDFB2E7CEACB890
      86B89086FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
      00FFFF00FFBA968ABB988CB79188FF00FFFF00FFFF00FFFF00FF}
  end
  object BitBtn2: TBitBtn
    Left = 254
    Top = 144
    Width = 75
    Height = 25
    TabOrder = 4
    Kind = bkCancel
  end
end

+ Code Snippet

object frmFind: TfrmFind
  Left = 0
  Top = 0
  BorderStyle = bsDialog
  Caption = 'Find'
  ClientHeight = 179
  ClientWidth = 346
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnCloseQuery = FormCloseQuery
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 8
    Top = 15
    Width = 54
    Height = 13
    Caption = '&Search for:'
  end
  object rgSearchDirection: TRadioGroup
    Left = 175
    Top = 38
    Width = 154
    Height = 65
    Caption = 'Direction'
    ItemIndex = 0
    Items.Strings = (
      '&Forward'
      '&Backward')
    TabOrder = 2
  end
  object cboSearchText: TComboBox
    Left = 80
    Top = 11
    Width = 249
    Height = 21
    ItemHeight = 13
    TabOrder = 0
  end
  object gbSearchOptions: TGroupBox
    Left = 8
    Top = 38
    Width = 154
    Height = 131
    Caption = 'Options'
    TabOrder = 1
    object cbSearchCaseSensitive: TCheckBox
      Left = 11
      Top = 18
      Width = 140
      Height = 17
      Caption = 'C&ase sensitivity'
      TabOrder = 0
    end
    object cbSearchWholeWords: TCheckBox
      Left = 11
      Top = 40
      Width = 140
      Height = 17
      Caption = '&Whole words only'
      TabOrder = 1
    end
    object cbSearchFromCursor: TCheckBox
      Left = 11
      Top = 62
      Width = 140
      Height = 17
      Caption = 'Search from &caret'
      TabOrder = 2
    end
    object cbSearchSelectedOnly: TCheckBox
      Left = 11
      Top = 84
      Width = 140
      Height = 17
      Caption = '&Selected text only'
      TabOrder = 3
    end
    object cbRegularExpression: TCheckBox
      Left = 11
      Top = 105
      Width = 140
      Height = 17
      Caption = '&Regular expression'
      TabOrder = 4
    end
  end
  object BitBtn1: TBitBtn
    Left = 175
    Top = 144
    Width = 75
    Height = 25
    Caption = 'Find'
    Default = True
    ModalResult = 1
    TabOrder = 3
    Glyph.Data = {
      36030000424D3603000000000000360000002800000010000000100000000100
      18000000000000030000120B0000120B00000000000000000000FF00FF4A667C
      BE9596FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
      FFFF00FFFF00FFFF00FF6B9CC31E89E84B7AA3C89693FF00FFFF00FFFF00FFFF
      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF4BB4FE51B5FF
      2089E94B7AA2C69592FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
      FFFF00FFFF00FFFF00FFFF00FF51B7FE51B3FF1D87E64E7AA0CA9792FF00FFFF
      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
      51B7FE4EB2FF1F89E64E7BA2B99497FF00FFFF00FFFF00FFFF00FFFF00FFFF00
      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF52B8FE4BB1FF2787D95F6A76FF
      00FFB0857FC09F94C09F96BC988EFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
      FF00FFFF00FF55BDFFB5D6EDBF9D92BB9B8CE7DAC2FFFFE3FFFFE5FDFADAD8C3
      B3B58D85FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFCEA795FD
      EEBEFFFFD8FFFFDAFFFFDBFFFFE6FFFFFBEADDDCAE837FFF00FFFF00FFFF00FF
      FF00FFFF00FFFF00FFFF00FFC1A091FBDCA8FEF7D0FFFFDBFFFFE3FFFFF8FFFF
      FDFFFFFDC6A99CFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFC1A091FEE3ACF1
      C491FCF2CAFFFFDDFFFFE4FFFFF7FFFFF7FFFFE9EEE5CBB9948CFF00FFFF00FF
      FF00FFFF00FFFF00FFC2A191FFE6AEEEB581F7DCAEFEFDD8FFFFDFFFFFE3FFFF
      E4FFFFE0F3ECD2BB968EFF00FFFF00FFFF00FFFF00FFFF00FFBC978CFBE7B7F4
      C791F2C994F8E5B9FEFCD8FFFFDDFFFFDCFFFFE0E2D2BAB68E86FF00FFFF00FF
      FF00FFFF00FFFF00FFFF00FFD9C3A9FFFEE5F7DCB8F2C994F5D4A5FAE8BDFDF4
      C9FDFBD6B69089FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFB58D85E8
      DEDDFFFEF2F9D8A3F4C48CF9D49FFDEAB8D0B49FB89086FF00FFFF00FFFF00FF
      FF00FFFF00FFFF00FFFF00FFFF00FFAD827FC9AA9EEFE0B7EFDFB2E7CEACB890
      86B89086FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
      00FFFF00FFBA968ABB988CB79188FF00FFFF00FFFF00FFFF00FF}
  end
  object BitBtn2: TBitBtn
    Left = 254
    Top = 144
    Width = 75
    Height = 25
    TabOrder = 4
    Kind = bkCancel
  end
end

CodeSurge
Version 1.0 finally released! Code your DBP projects in style.

Back to top

Profile PM Email

MSon

19

Years of Service

User Offline

Joined: 13th Jul 2004

Location: Earth, (I Think).

Posted: 22nd Aug 2007 16:41 Edited at: 22nd Aug 2007 19:08

Link

Delphi?
I never thought about an Import Option for that, proberly as i dont have Delphi.

Quote: "I believe I have around 1500 components in my Delphi Toolbox"

I only have what blue provides, plus about 10 I've added.

Ho well, i can still import that code you posted, (basic gadgets Only), But i'll have to skip that glyph data as that means nothink to me

and Thanks
I currently have 8 import Options, This will be number 9

Everyone Be Cool, You, Be Cool.

Back to top

Profile PM Email Website

hyrichter

20

Years of Service

User Offline

Joined: 15th Feb 2004

Location: Arizona

Posted: 22nd Aug 2007 18:32

Link

You can download the free Turbo Delphi from www.turboexplorer.com. It's limited in that you can't add any 3rd party design components. 3rd party runtime components are just fine though.

I tried to post the dfm for the main form of CodeSurge, but it was too long and the forum rejected it.

CodeSurge
Version 1.0 finally released! Code your DBP projects in style.

Back to top

Profile PM Email

MSon

19

Years of Service

User Offline

Joined: 13th Jul 2004

Location: Earth, (I Think).

Posted: 22nd Aug 2007 19:04 Edited at: 22nd Aug 2007 19:14

Link

Importing Long Documents can take a while, maybe delphi will be better as an Import Script.

and Thanks for the link as i'll have to make a window with every gadget i can load in "Visual DarkBasic", (So i know what to look for), Although I have noted that I have a gadget or 2 that VB5/6 and .Net dont have, I wonder if Delphi will have them

Everyone Be Cool, You, Be Cool.

Back to top

Profile PM Email Website

Diggsey

18

Years of Service

User Offline

Joined: 24th Apr 2006

Location: On this web page.

Posted: 22nd Aug 2007 20:11

Link

@MSon
You obviously haven't clicked the browse button in the .net toolbox

The ones you see normally are only a select few out of the many possible!

VISIT MY WEBSITE!

Back to top

Profile PM Email Website

MSon

19

Years of Service

User Offline

Joined: 13th Jul 2004

Location: Earth, (I Think).

Posted: 23rd Aug 2007 12:06 Edited at: 23rd Aug 2007 12:07

Link

Quote: "You obviously haven't clicked the browse button in the .net toolbox The ones you see normally are only a select few out of the many possible!
"

Many Possible What???

I dont have .Net, The only .Net project i've got is one PowerSoft sent me

, (he uses vb.net)

Everyone Be Cool, You, Be Cool.

Back to top

Profile PM Email Website

Sorry your browser is not supported!

DLL Talk / What do you make Dialog and Windows on?