Recent

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

marcov

  • Administrator
  • Hero Member
  • *
  • Posts: 11383
  • FPC developer.
Re: FreePascal text mode dialog designer for Free Vision
« Reply #15 on: May 12, 2014, 11:30:36 am »

with this ( for test only) no crash :
Code: [Select]
    TrialDialog := New (PTrialDialog);
                PV:= ValidView(New(PTrialDialog, Init(@DialogData)));
                DeskTop^.Insert(PV);
                TrialDialog:= PTrialDialog(PV);     

True, but that is wrong. That instantiates two different PTrialDialog's. I guess this is a bug, but the original code doesn't deserve a beauty price.

Jurassic Pork

  • Hero Member
  • *****
  • Posts: 1228
Re: FreePascal text mode dialog designer for Free Vision
« Reply #16 on: May 12, 2014, 01:36:01 pm »
hello,
may be it is better to do this ?  :
Code: [Select]
      TrialDialog := New(PTrialDialog);
                TrialDialog^.Init(@DialogData);
                PV:= ValidView(PVIEW(TrialDialog));
                DeskTop^.Insert(PV);
                DialSaved:= false;           
Jurassic computer : Sinclair ZX81 - Zilog Z80A à 3,25 MHz - RAM 1 Ko - ROM 8 Ko

marcov

  • Administrator
  • Hero Member
  • *
  • Posts: 11383
  • FPC developer.
Re: FreePascal text mode dialog designer for Free Vision
« Reply #17 on: May 12, 2014, 05:08:08 pm »
I guess this one is the only one with src?

Jurassic Pork

  • Hero Member
  • *****
  • Posts: 1228
Re: FreePascal text mode dialog designer for Free Vision
« Reply #18 on: May 12, 2014, 05:18:50 pm »
Sorry, i don't understand  :-[
Quote
the only one with src?

is it for turbo vision dialog editor with source code ?
Jurassic computer : Sinclair ZX81 - Zilog Z80A à 3,25 MHz - RAM 1 Ko - ROM 8 Ko

Paul Breneman

  • Sr. Member
  • ****
  • Posts: 290
    • Control Pascal
Re: FreePascal text mode dialog designer for Free Vision
« Reply #19 on: May 12, 2014, 05:33:30 pm »
I'm *glad* to discover this thread today.

I think there is a place for nice Free Vision tools for using Free Pascal linux console apps on Android:
http://turbocontrol.com/gnuroot.htm

http://forum.lazarus.freepascal.org/index.php/topic,23927.msg143489.html

I have a topic (Free Pascal console programs on Android are easy) under Free Pascal General but I can't figure out how to put a link directly to it.   :(

When I look at this message on another PC that is *not* logged into the forum, the above link doesn't work.  Any suggestions?
« Last Edit: May 12, 2014, 05:57:59 pm by Paul Breneman »
Regards,
Paul Breneman
www.ControlPascal.com

marcov

  • Administrator
  • Hero Member
  • *
  • Posts: 11383
  • FPC developer.
Re: FreePascal text mode dialog designer for Free Vision
« Reply #20 on: May 12, 2014, 08:43:48 pm »
Sorry, i don't understand  :-[
Quote
the only one with src?

is it for turbo vision dialog editor with source code ?

Yes, dialedit, the one from the threadstarter.

Tomas Hajny

  • Moderator
  • New Member
  • *****
  • Posts: 45
Re: FreePascal text mode dialog designer for Free Vision
« Reply #21 on: May 14, 2014, 09:47:43 am »
Regarding sources for other TV dialog designing utilities:

Sources for Dialog Designer 4.6 are available nowadays (see http://pbear.com), but it was apparently written in C++ rather than Pascal.

Sources for TVRW don't seem to be available for direct download, but it should be possible to find current contact information for the the original author Balazs Scheidler (I could find him e.g. on LinkedIn) and I guess that he would be willing to share them nowadays, since the original company under which he was selling the licences doesn't exist any longer apparently and he seems to be still involved in the open source area (although apparently not using Pascal any longer).

Regarding TVGen - well, if you wanted to try contacting the author(s), it might be possible because I found a trace which might help in that, but I wouldn't start with that because it probably wasn't as well established as the others.

Rave

  • Full Member
  • ***
  • Posts: 165
Re: FreePascal text mode dialog designer for Free Vision
« Reply #22 on: August 11, 2014, 10:24:08 am »
Hm.. Don't you think it'd be easier to write new dialog editor from scratch rather than trying to fight bugs in this one? If you'd start it from scratch, you'd know every little bit of code so you could add/remove features easily. Plus code could be written in more readable manner.

My opinion? We need something like Lazarus but for FreeVision.

marcov

  • Administrator
  • Hero Member
  • *
  • Posts: 11383
  • FPC developer.
Re: FreePascal text mode dialog designer for Free Vision
« Reply #23 on: August 11, 2014, 10:35:16 am »
Hm.. Don't you think it'd be easier to write new dialog editor from scratch rather than trying to fight bugs in this one?

Assuming they are bugs in the dialedit, and not FV.   Worse, that is totally different time magnitude. For me it is as much FV testing as work on dialedit.

Quote
If you'd start it from scratch, you'd know every little bit of code so you could add/remove features easily. Plus code could be written in more readable manner.
 
My opinion? We need something like Lazarus but for FreeVision.

Lazarus' LCL is more designed to make this possible. Keep in mind that FV is only Turbo Pascal level.



Rave

  • Full Member
  • ***
  • Posts: 165
Re: FreePascal text mode dialog designer for Free Vision
« Reply #24 on: August 11, 2014, 10:52:43 am »
I know. I never said Lazarus should be used for it, just that we need some IDE like Lazarus (with events, etc.) that works purely on FreeVision to make FV apps. Something like very first VisualBASIC for DOS.

marcov

  • Administrator
  • Hero Member
  • *
  • Posts: 11383
  • FPC developer.
Re: FreePascal text mode dialog designer for Free Vision
« Reply #25 on: August 11, 2014, 11:55:12 am »
I mean a designer for FV within current lazarus, yes. Currently FV doesn't work with events, but with overriding, something that can't be done runtime.

Also the streaming is not generalized, there is no RTTI, and the string system has severe (255 char and unicode) limitations.

So I think first you would have to re- setup FV on VCL/LCL principles like RTTI based streaming, a more delegating event model uniform constructors etc.

Rave

  • Full Member
  • ***
  • Posts: 165
Re: FreePascal text mode dialog designer for Free Vision
« Reply #26 on: August 12, 2014, 07:22:12 pm »
I don't think it'd be good on Lazarus to design for FV as FV uses component dimensions in characters, not pixels (for obvious reasons). Also you won't be able to really see how it would ACTUALLY look like until you run this app, unless designer would be a console application, at which point you could make it special "lazarus" (not actual lazarus) for FreeVision or integrate it into fp.

Unfortunately I don't think I have what it takes to do such task like making RTTI for FV, so this is all you can get out of me (I even barely understand FV and when I made console apps I've usually done in pure text (write, writeln and so on)).

RickE

  • New Member
  • *
  • Posts: 13
Re: FreePascal text mode dialog designer for Free Vision
« Reply #27 on: August 13, 2014, 04:54:34 pm »
This thread is a great discovery. I have been a fan of Freepascal, and agree the Raspberry Pi is a great platform for textmode. I have some disagreement and some questions with the premise. Some years ago I did a straight use of linux "console codes" with freepascal and posted a link on the old "community" site. I still don't know why, as I assume, you want ncurses as yet another layer when the linux console has perhaps a larger set of console codes than most.

Given the memory and speed constraint of the RPI perhaps other options for a user interface can be considered. I like the XForms library and have done some freepascal work with it, but the reliance on an Xlib timer mechanism is a problem for some embedded use. I am currently trying to do a tcl-console codes interface, but re-inventing the wheel might be unwise. Nice to use framebuffer graphics if possible for accurate timing.

Some predefined freepascal textmode widgets would be nice if the compiled file was small enough. I don't particularly care about design editors, since I never learned how to use them. XForms has one and it does make a nice structure to convert into a pascal record, but making the code readable is a chore.

All in all, yes freepascal, the RPi, textmode, are interesting research.

ArtLogi

  • Full Member
  • ***
  • Posts: 184
Re: FreePascal text mode dialog designer for Free Vision
« Reply #28 on: January 07, 2016, 03:05:41 pm »
I will draw this "ancient" topic back to surface..

Have there been any succesful FPC builds from the DialEdit so far?

Also original download link is a dead end now.. So does anyone have working link to mirror.
« Last Edit: January 07, 2016, 03:19:11 pm by ArtLogi »
While Record is a drawer and method is a clerk, when both are combined to same space it forms an concept of office, which is alias for a great suffering.

jc99

  • Hero Member
  • *****
  • Posts: 553
    • My private Site
Re: FreePascal text mode dialog designer for Free Vision
« Reply #29 on: March 27, 2016, 12:35:34 pm »
I will draw this "ancient" topic back to surface..

Have there been any succesful FPC builds from the DialEdit so far?

Also original download link is a dead end now.. So does anyone have working link to mirror.
BTW: The original Website does not work anymore, could someone rerelease the code/archive please.
PS: Fv didn't compile on my Win64/FPC3.0.0 so I had to make a Patch to
outline.pas (Line 193ff)
 
Code: Pascal  [Select][+][-]
  1.    else
  2.       Graph[J] := Chars[Retracted+1];
  3.   end;
  4.   {$IF FPC_VERSION >= 3} //JC <-------
  5.   setlength(Graph,  J);
  6.   {$ELSE}
  7.   Graph[0] := Char(J);  // original
  8.   {$ENDIF}   //JC ---------->
  9.  
and to
app.pas (Line 806ff)
 
Code: Pascal  [Select][+][-]
  1.  { the orginal code can't be used here because of the limited
  2.     video unit capabilities, the mono modus can't be handled
  3.   }
  4.   video.InitVideo; // JC <---Quick Fix--->
  5.   Drivers.DetectVideo;
  6.   if (ScreenMode.Col div ScreenMode.Row<2) then
  7.  

Maybe someone knows a better solution
In the patch is also a Lazarus-Package
OS: Win XP x64, Win 7, Win 7 x64, Win 10, Win 10 x64, Suse Linux 13.2
Laz: 1.4 - 1.8.4, 2.0
https://github.com/joecare99/public
'~|    /''
,_|oe \_,are
If you want to do something for the environment: Twitter: #reduceCO2 or
https://www.betterplace.me/klimawandel-stoppen-co-ueber-preis-reduzieren

 

TinyPortal © 2005-2018