* * *

Author Topic: FreePascal text mode dialog designer for Free Vision  (Read 17371 times)

RolandC

  • New member
  • *
  • Posts: 34
    • Eschecs
Re: FreePascal text mode dialog designer for Free Vision
« Reply #30 on: March 27, 2016, 02:33:05 pm »
Hello! Here is the file:

www.eschecs.fr/fichiers/DIALEDIT3b.zip

Happy Easter!

jc99

  • Sr. Member
  • ****
  • Posts: 325
    • My private Site
Re: FreePascal text mode dialog designer for Free Vision
« Reply #31 on: March 27, 2016, 03:10:22 pm »
Hello! Here is the file:

www.eschecs.fr/fichiers/DIALEDIT3b.zip

Happy Easter!
Thanks, Happy (and peaceful) Easter to you and everyone.
OS: Win XP x64, Win 7, Win 7 x64, Win 10, Win 10 x64, Suse Linux 13.2
Laz: 1.2.6, 1.4.0, 1.4.2, 1.4.4, 1.6, 1.7.X (trunk)
'~|    /''
,_|oe \_,are

Bocian

  • Newbie
  • Posts: 1
Re: FreePascal text mode dialog designer for Free Vision
« Reply #32 on: March 08, 2017, 12:36:57 pm »
Well, I happen to be an author of TVGen mentioned in one of the posts of this thread...  so I might be of help, maybe ☺

avra

  • Hero Member
  • *****
  • Posts: 867
    • Additional info
Re: FreePascal text mode dialog designer for Free Vision
« Reply #33 on: March 08, 2017, 07:30:41 pm »
Well, I happen to be an author of TVGen mentioned in one of the posts of this thread...  so I might be of help, maybe ☺
FreePascal is missing a text mode dialog designer for quite a lot of time. As you can see from previous posts, our attempts to resurrect one have failed. If you can take a look into that and help, or convert your own dialog designer to FreePascal that would be really, really great. Thank you very much for any effort you can put into this. Right now we have nothing, so even if you can't convert it to FreePascal it would be very useful even if it remains a dos application adapted just to design dialogs for use in FreePascal. The world of nice looking linux terminal TUI applications is waiting for us, but we are stuck at this first big step.

Btw. I can't find much more about your TVGen on the net but this http://m.zkratky.cz/TVGen/6986. Do you have any screenshot or URL download location to take a look at it?
ct2laz - Easily convert components and projects between Lazarus and CodeTyphon

jc99

  • Sr. Member
  • ****
  • Posts: 325
    • My private Site
Re: FreePascal text mode dialog designer for Free Vision
« Reply #34 on: April 23, 2017, 01:22:57 am »
I played a little with the Source of Dialedit
it's still a work in progress
so here the source ...
OS: Win XP x64, Win 7, Win 7 x64, Win 10, Win 10 x64, Suse Linux 13.2
Laz: 1.2.6, 1.4.0, 1.4.2, 1.4.4, 1.6, 1.7.X (trunk)
'~|    /''
,_|oe \_,are

avra

  • Hero Member
  • *****
  • Posts: 867
    • Additional info
Re: FreePascal text mode dialog designer for Free Vision
« Reply #35 on: April 24, 2017, 01:33:56 pm »
I played a little with the Source of Dialedit
it's still a work in progress
so here the source ...
This is awesome  8) ::) 8)

I could not compile until line 1724 in obj_dialeditapp.pas was commented out like this:
Code: Pascal  [Select]
  1.    //DoScreenShot(screen);

Basic functionality mostly works well, with SIGSEGV if radio boxes, check boxes and lists are used. So far code gen outputs only to screen but according to what I see it looks promissing.

It's very, very, very nice work and much appreciated! Thanks a lot!!!  :D
ct2laz - Easily convert components and projects between Lazarus and CodeTyphon

avra

  • Hero Member
  • *****
  • Posts: 867
    • Additional info
Re: FreePascal text mode dialog designer for Free Vision
« Reply #36 on: April 24, 2017, 03:23:32 pm »
I have managed to get file output after setting output file name in File/SelectFile and after playing with File/OutputOptions. This is a file output of a simple dialog with just Ok and Cancel buttons:

Code: Pascal  [Select]
  1. unit MyOutput;
  2.  
  3. interface
  4.  
  5. uses Objects, Views, Dialogs;
  6.  
  7. (*
  8.   ascii picture is skipped here since it shows a lot of null characters
  9.   probably because of commented line DoScreenShot(screen)
  10. *)
  11. { TestDialog }
  12.  
  13. type
  14.   PTestDialog = ^TTestDialog;
  15.   TTestDialog = object(TDialog)
  16.     constructor Init;
  17.   end;
  18.  
  19.   PTestData = ^TTestData;
  20.   TTestData = record
  21.   end;
  22.  
  23. const
  24.   TestDefaults: TTestData = (
  25.  
  26.   );
  27.  
  28. implementation
  29.  
  30. uses Menus;
  31.  
  32. { TestDialog }
  33.  
  34. constructor TTestDialog.Init;
  35. var
  36.   R: TRect;
  37. begin
  38.   R.Assign(4, 4, 40, 19);
  39.   inherited Init(R, 'Test Dialog');
  40.   Options:= Options or ofCentered;
  41.  
  42.   R.Assign(19, 11, 29, 13);
  43.   Insert(New(PButton, Init(R, '~O~k', cmOK, bfDefault)));
  44.  
  45.   R.Assign(7, 11, 17, 13);
  46.   Insert(New(PButton, Init(R, 'C~a~ncel', cmCancel, bfNormal)));
  47. end; {TTestDialog.Init}
  48.  
  49. begin end.
« Last Edit: April 24, 2017, 03:55:32 pm by avra »
ct2laz - Easily convert components and projects between Lazarus and CodeTyphon

Paul Breneman

  • Full Member
  • ***
  • Posts: 214
    • Control Pascal
Re: FreePascal text mode dialog designer for Free Vision
« Reply #37 on: April 24, 2017, 04:04:47 pm »
I'd really like to use Free Vision in Android but something broke in the past three years.

Can someone please help me? http://forum.lazarus.freepascal.org/index.php/topic,23927.msg244283/topicseen.html#new
Regards,
Paul Breneman
www.ControlPascal.com

Graeme

  • Hero Member
  • *****
  • Posts: 1322
    • Graeme on the web
Re: FreePascal text mode dialog designer for Free Vision
« Reply #38 on: April 24, 2017, 05:34:55 pm »
I haven't tried the Dialedit code, but thought I would mentioned a possible alternative... fpGUI's standalone UIDesigner application is designed in such a way that it can easily be extended. I've even used the core concept of UIDesigner to implement a data mapping tool to populate PDF designed Forms (where data fields should appear on a page). A fork of UIDesigner could easily be modified to generate Free Vision dialogs and code.
--
fpGUI Toolkit - a cross-platform GUI toolkit using Free Pascal
http://fpgui.sourceforge.net/

jc99

  • Sr. Member
  • ****
  • Posts: 325
    • My private Site
Re: FreePascal text mode dialog designer for Free Vision
« Reply #39 on: April 24, 2017, 09:42:58 pm »
@Graeme: You are aware that we're talking about Text-Mode, AFAIK UIDesigner is for GUI (Graphic User Interface) can UIDesigner do FV ?
OS: Win XP x64, Win 7, Win 7 x64, Win 10, Win 10 x64, Suse Linux 13.2
Laz: 1.2.6, 1.4.0, 1.4.2, 1.4.4, 1.6, 1.7.X (trunk)
'~|    /''
,_|oe \_,are

jc99

  • Sr. Member
  • ****
  • Posts: 325
    • My private Site
Re: FreePascal text mode dialog designer for Free Vision
« Reply #40 on: April 24, 2017, 09:50:50 pm »
BTW: I also work on something like FV2
- using classes not objects,
- using Enumerators instead of Callbacks.
- objpas support
... if someone like

Some Errors in DialEdit are due to the fact that i upgraded my fv to be objpas compatible
e.G: string_var[0] -> length(string_var)
OS: Win XP x64, Win 7, Win 7 x64, Win 10, Win 10 x64, Suse Linux 13.2
Laz: 1.2.6, 1.4.0, 1.4.2, 1.4.4, 1.6, 1.7.X (trunk)
'~|    /''
,_|oe \_,are

Graeme

  • Hero Member
  • *****
  • Posts: 1322
    • Graeme on the web
Re: FreePascal text mode dialog designer for Free Vision
« Reply #41 on: April 24, 2017, 11:18:21 pm »
@Graeme: You are aware that we're talking about Text-Mode, AFAIK UIDesigner is for GUI (Graphic User Interface) can UIDesigner do FV ?
Yes, that's exactly what I'm saying. The dialog designer will be a GUI application, but the code in generates will be Free Vision style dialogs.

eg: In a fork of UIDesigner you can register a "Button" control. In the UIDesigner that button will look like fpGUI's Button - but that's just looks, nothing else. The Object Inspector will display the properties you registered for a button (fpGUI's UIDesigner doesn't simply use RTTI to extract property information like Lazarus or Delphi does). When you save the form design to a file, it can generate Free Vision dialog code. fpGUI's UIDesigner again doesn't use TComponent streaming for form designs - it has its own code parser and generator that doesn't use RTTI.

There is no reason why a Free Vision form designer must be a console application. Just like you don't need to use Free Pascal's Text IDE to write Console applications - you can use Lazarus IDE. A button is a button, a listbox is a listbox etc. It's what code gets generated that matters.
--
fpGUI Toolkit - a cross-platform GUI toolkit using Free Pascal
http://fpgui.sourceforge.net/

Graeme

  • Hero Member
  • *****
  • Posts: 1322
    • Graeme on the web
Re: FreePascal text mode dialog designer for Free Vision
« Reply #42 on: April 24, 2017, 11:19:36 pm »
BTW: I also work on something like FV2
- using classes not objects,
- using Enumerators instead of Callbacks.
- objpas support
... if someone like

Now that is awesome news!!! I believe that was on many peoples wish lists - mine included
--
fpGUI Toolkit - a cross-platform GUI toolkit using Free Pascal
http://fpgui.sourceforge.net/

avra

  • Hero Member
  • *****
  • Posts: 867
    • Additional info
Re: FreePascal text mode dialog designer for Free Vision
« Reply #43 on: April 25, 2017, 12:48:35 pm »
Some Errors in DialEdit are due to the fact...
Could you please attach code for DoScreenShot procedure?

It is not in downloaded sources, and without it we can not have a picture of the dialog to attach to generated code.
ct2laz - Easily convert components and projects between Lazarus and CodeTyphon

x2nie

  • Sr. Member
  • ****
  • Posts: 439
  • Impossible=I don't know the way
    • impossible is nothing - www.x2nie.com
Re: FreePascal text mode dialog designer for Free Vision
« Reply #44 on: April 25, 2017, 01:21:54 pm »
...we're talking about Text-Mode, AFAIK UIDesigner is for GUI (Graphic User Interface) can UIDesigner do FV ?


I proof that TextMode is not problem for Lazarus (see picture below)
When you were logged in, you can see attachments.
Lazarus Trunk @ Windows7 64bit, XP 32bit, Debian under VirtualMachine

 

Recent

Get Lazarus at SourceForge.net. Fast, secure and Free Open Source software downloads Open Hub project report for Lazarus