Re: [Lazarus] For QtLCL users - new feature, need testers

2013-10-13 Thread zeljko

On 10/13/2013 01:14 AM, Krzysztof wrote:

I'm still dreaming about modular Qt :) . Now to deploy QtLCL application
I need to provide all Qt libs (even webkit, but I don't use it). I'm
working on project based on pure Qt 5.1, I needed to use C++ instead of
FPC :/ . Those libs are amazing, not only GUI but for example
QMultimedia, QNetwork and websockets. I'm wondering if exists any tool
which can automatically convert Qt API headers into FPC. For example
gtk3 headers for FPC are generated by some tool (don't remember the
name). Was current Qt4Pas unit written manually line by line? My dream
is to write pure Qt application (I'm not interested in LCL) using FPC
for all platforms as I'm doing now with C++


Yes, there is actually tool which can create modular Qt libs, but it 
needs a lot of time to create C bindings. Feel free to create it using 
doxygen. From times of Kylix 3 Andreas Hausladen created QtC bindings by 
using doxygen (which creates classes in xml) ,and then via small console 
program he created libqtc and QtLibrary.pas.
Of course that was all in one library binding, but it can be separated 
into various C bindings. I support your idea too, but Den Jean created 
current bindings and he is working on that part, so maybe you should ask 
him , or maybe we can provide to him some bounty to create separated qtc 
bindings (libQt4Core - libQt4PasCore,libQt4Gui - libQt4PasGui, 
libQt4Network - libQt4PasNetwork etc etc).


zeljko




2013/10/12 zeljko zel...@holobit.net mailto:zel...@holobit.net

On 10/12/2013 04:38 PM, zeljko wrote:

Hi all,
Today I've commited new feature of qt widgetset (r43218) -
scrollable
forms.
Now FCentralWidget isn't pure widget anymore but
QAbstractScrollArea,
which provides scrollbars on forms for us.
IT'S DISABLED BY DEFAULT, so if you want to test and use scrollable
forms with qt widgetset you must enable QTSCROLLABLEFORMS define in
lcl/interfaces/qt/qtdefines.__inc.
It will be merged to 1.99.


Not, 1.99 , but 1.0.99, it was typo .. sorry.


zeljko



--
_
Lazarus mailing list
Lazarus@lists.lazarus.__freepascal.org
mailto:Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.__freepascal.org/mailman/__listinfo/lazarus
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus




--
___
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus




--
___
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus


[Lazarus] Lookup field

2013-10-13 Thread Chris Crori

Hi guys!
	i am trying to make a lookup field and i found that i can't use a dataset  
that's not on the same form/datamodule.

is there a way to bypass this?

Regards

Chris

--
___
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus


Re: [Lazarus] Inserting new pages into a TPageControl

2013-10-13 Thread Howard Page-Clark

On 11/10/2013 22:00, Mark Morgan Lloyd wrote:


Given a TPageControl with several existing pages, how does one insert
a page at a specified position rather than at the end?


This function should do it:

uses ComCtrls;

function InsertAt(ExistingIndex: integer;
  aPageControl: TPageControl): TTabSheet;
begin
  Result:=nil;
  if (ExistingIndex0) or (ExistingIndexaPageControl.PageCount-1) then
Exit;
  Result:= aPageControl.AddTabSheet;
  if aPageControl.IndexOf(Result)  ExistingIndex then
TNBPages(TCustomTabControl(aPageControl).Pages).Move(
aPageControl.IndexOf(Result), ExistingIndex);
end;



--
___
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus


Re: [Lazarus] Graeme would love this, or not, I think

2013-10-13 Thread Marco van de Voort
On Sat, Oct 12, 2013 at 02:51:31PM +0200, Hans-Peter Diettrich wrote:
  One could argue about language, but Delphi as RAD-IDE is definitely not a 
  good
  choice. Students tend to overfocus on embellishing forms etc, and not 
  spending
  their time on the more problem-solving oriented assignment.
 
 What's a form worth without a task and event handlers?

(essentially to all replyers)

The course changed from TP to Delphi (as tool) and suddenly a lot more time
was spend on non-programming.

Not everything vaguely related (to IT) is part of a /programmer's/ course.
We knew students could click around in GUIs just fine. That was not what the
course was about. 

Btw, the course abandonned TP because too many students were unfamiliar
with the concept of console apps. Explaining it took a too large part of the 
course, and due to its (101) nature it had to be early in the curriculum.

  Probably because dolling up the UI is easier and gives
  instant-gratification.
 
 Modern (portable) devices are GUI based

I hope they use it in the Mobile development class then. This was not the
mobile development class. This was introduction to programming (not UI
design, not Mobile, not, not, ...) :-)

So the idea is that the students, euh, spend their time programming.


Anyway, the whole post was meant more or less as an argument that a good
educational tool should 1) be quick to start using (so not TP) 2) not
contain parts that are not part of the course and detract too much.


--
___
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus


Re: [Lazarus] Inserting new pages into a TPageControl

2013-10-13 Thread Mark Morgan Lloyd

Howard Page-Clark wrote:

On 11/10/2013 22:00, Mark Morgan Lloyd wrote:


Given a TPageControl with several existing pages, how does one insert
a page at a specified position rather than at the end?


This function should do it:

uses ComCtrls;

function InsertAt(ExistingIndex: integer;
  aPageControl: TPageControl): TTabSheet;
begin
  Result:=nil;
  if (ExistingIndex0) or (ExistingIndexaPageControl.PageCount-1) then
Exit;
  Result:= aPageControl.AddTabSheet;
  if aPageControl.IndexOf(Result)  ExistingIndex then
TNBPages(TCustomTabControl(aPageControl).Pages).Move(
aPageControl.IndexOf(Result), ExistingIndex);
end;


Thanks Howard, a slight variant of that is working. Any residual 
problems are my own doing :-)


--
Mark Morgan Lloyd
markMLl .AT. telemetry.co .DOT. uk

[Opinions above are the author's, not those of his employers or colleagues]

--
___
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus


Re: [Lazarus] Graeme would love this, or not, I think

2013-10-13 Thread Dmitry Boyarintsev
On Sun, Oct 13, 2013 at 3:14 PM, Marco van de Voort mar...@stack.nl wrote:

 Anyway, the whole post was meant more or less as an argument that a good
 educational tool should 1) be quick to start using (so not TP) 2) not
 contain parts that are not part of the course and detract too much.

 How come TP (turbo pascal?!) is not a quick start tool? (despite the fact
the old dos application will have problems running or a modern os).

thanks,
Dmitry
--
___
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus


Re: [Lazarus] Graeme would love this, or not, I think

2013-10-13 Thread Dmitry Boyarintsev
Well, after all if it's basic course, should they use something from
Children list of this page?
http://en.wikipedia.org/wiki/Educational_programming_languagehttp://en.wikipedia.org/wiki/Educational_programming_language#Historical

Surprisingly, pascal is the only in historical section.



On Sun, Oct 13, 2013 at 5:14 PM, Dmitry Boyarintsev 
skalogryz.li...@gmail.com wrote:


 On Sun, Oct 13, 2013 at 3:14 PM, Marco van de Voort mar...@stack.nlwrote:

 Anyway, the whole post was meant more or less as an argument that a good
 educational tool should 1) be quick to start using (so not TP) 2) not
 contain parts that are not part of the course and detract too much.

 How come TP (turbo pascal?!) is not a quick start tool? (despite the fact
 the old dos application will have problems running or a modern os).

 thanks,
 Dmitry

--
___
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus