Re: [Lazarus] Controls without a TCustomXClassname
2016-04-26 17:37 GMT-03:00 Bart : > > Maybe I'missing the point but: > > TDBEdit = class(TCustomMaskEdit) > TDBText = class(TCustomLabel) > > Yes, this is right, but I think that should be: TCustomDBEdit = class(TCustomMaskEdit) TDBEdit = class(TCustomDBEdit) On this scenario, the entire functionality of TDBEdit shoud be implemented into TCustomDBEdit and TDBEdit only publishes the wanted features. Or Am I wrong? -- The best regards, Fabio Luis Girardi PascalSCADA Project http://sourceforge.net/projects/pascalscada http://www.pascalscada.com -- ___ Lazarus mailing list Lazarus@lists.lazarus.freepascal.org http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
[Lazarus] Controls without a TCustomXClassname
Hi! Some time ago, I asked if TApplication.UpdateMainForm should accept a TCustomForm as parameter instead of TForm. The answers on this topic make me understand this decision. But now, extending some controls of LCL (including some kind of security on it), and some of then, don't have a TCustom as ancestor. Some controls that don't have: ** TScrollBox ** TDBText ** TDBEdit ** TNotebook (and TPage) Currently I'm extending the controls of DB Controls palette, so I think that has more controls without the TCustom ancestor. So, this is a bug or Is a design decision? -- The best regards, Fabio Luis Girardi PascalSCADA Project http://sourceforge.net/projects/pascalscada http://www.pascalscada.com -- ___ Lazarus mailing list Lazarus@lists.lazarus.freepascal.org http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
Re: [Lazarus] TApplication.UpdateMainForm
Em 17 de fev de 2016 18:41, "Mattias Gaertner" escreveu: > No. > Why can't you derive from TForm? > > Because TForm publishes some properties that I want keep in protected section. -- ___ Lazarus mailing list Lazarus@lists.lazarus.freepascal.org http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
[Lazarus] TApplication.UpdateMainForm
Hi all!! I'm creating a new form class with some extra features, derived from TCustomForm. But when I override the procedure CreateWnd to register the new instance of my form class as the main form of the application, I receive a warning talking that my form class (TSecureForm) and TForm are not related. The CreateWnd code is: procedure TSecureForm.CreateWnd; begin if (Application<>nil) then Application.UpdateMainForm(TForm(Self)); inherited CreateWnd; end; So, I take a look into TApplication.UpdateMainForm and I see: procedure TApplication.UpdateMainForm(AForm: TForm); My question is: The parameter AForm should be of type TCustomForm instead of TForm? -- The best regards, Fabio Luis Girardi PascalSCADA Project http://sourceforge.net/projects/pascalscada http://www.pascalscada.com -- ___ Lazarus mailing list Lazarus@lists.lazarus.freepascal.org http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
Re: [Lazarus] Theoretical question about future of Lazarus
> > Lazarus with support for dynamic packages? (once FPC supports them which > isn't that far in the future anymore ;) ) > +1 -- The best regards, Fabio Luis Girardi PascalSCADA Project http://sourceforge.net/projects/pascalscada http://www.pascalscada.com -- ___ Lazarus mailing list Lazarus@lists.lazarus.freepascal.org http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
Re: [Lazarus] Custom control clicks
Perfect!! Em 09/09/2015 19:38, "Mattias Gaertner" escreveu: > On Wed, 9 Sep 2015 23:16:09 +0100 > Martin Frb wrote: > > > On 09/09/2015 22:53, Mattias Gaertner wrote: > > > This should do the trick: > > > > > > > http://wiki.lazarus.freepascal.org/Extending_the_IDE#Disabling_the_designer_mouse_handler > > > > > Should > >TControlStyleType = ( > > csDesignInteractive, // wants mouse events in design mode > > > > do the trick too? > > Ehm. Yes. But it was not implemented. > I implemented it. > > Strange, it was used by TCustomControlBar, TCDCustomTabControl and > TCDTabSheet. > > Mattias > > -- > ___ > 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] Custom control clicks
Someone know how catch clicks on a control (TCustomControl) at design time? I override the methods Click and MouseDown, but these events are not called at design time and I don´t know a workaround to do this. The idea is construct a polyline control that can be edited at design time through a Component Editor. -- The best regards, Fabio Luis Girardi PascalSCADA Project http://sourceforge.net/projects/pascalscada http://www.pascalscada.com -- ___ Lazarus mailing list Lazarus@lists.lazarus.freepascal.org http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
[Lazarus] Way to detect control resize start-stop
The LCL has some mechanism to detect when a control is being re-sized and when resize is done? -- The best regards, Fabio Luis Girardi PascalSCADA Project http://sourceforge.net/projects/pascalscada http://www.pascalscada.com -- ___ Lazarus mailing list Lazarus@lists.lazarus.freepascal.org http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
Re: [Lazarus] Cross Codebot surface drawing examples
2015-03-26 16:27 GMT-03:00 Anthony Walter : > Leonardo, > > You can absolutely use Cross Codebot to make controls, in any shape you > want. These types of controls should be graphic controls, and I provide a > bass class name TRenderGraphicControl in the Codebot.Controls unit to help > in this endeavor. > > The key to making a control any shape with TRenderGraphicControl is to > override the "protected procedure Render" method, and draw using the > "protected property Surface: ISurface". Just doing your drawing in a non > rectangular manner, for example: > > procedure TYourControl.Renderl > begin > Surface.Ellipse(ClientRect); > Surface.Fill(NewBrush(clRed)); > end; > > And you control now appears as a nice anti-aliased red ellipse bound > within the client area of your control. Obviously this is a trivial drawing > example, but if you go to the Codebot Cross forums you can find examples of > more complicated drawing. I regularly add new stock drawing functions to > the Codebot.Graphics unit, along with control theming, so if you're > interested you can reuse my some of stock routines to draw your custom > controls, or reuse the theme drawing routines. > > I hope this helps. > > > Awesome! -- The best regards, Fabio Luis Girardi PascalSCADA Project http://sourceforge.net/projects/pascalscada http://www.pascalscada.com -- ___ Lazarus mailing list Lazarus@lists.lazarus.freepascal.org http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
Re: [Lazarus] Cross Codebot surface drawing examples
Hi Anthony!! I use BGRABitmap to draw non-rectangular controls (like polyline) using setshape. Can I use Codebots to do that? 2015-03-26 14:17 GMT-03:00 "Leonardo M. Ramé" : > El 21/03/15 a las 01:44, Anthony Walter escibió: > > Here is a brief overview of some of custom rendering which can be done >> with Cross Codebot graphics interfaces. A few videos are embedded in the >> page below: >> >> http://www.getlazarus.org/forums/viewtopic.php?f=18&t=35&p=150#p150 >> >> Here is a listing of the interfaces and their methods: >> >> http://www.getlazarus.org/videos/crossgraphics/ >> >> If you're interested in testing the Cross Codebot package let me know >> and I can provide user level account access to my private git server. >> >> > Hi Anthony, looks nice!, congrats for the great work you are doing. > > BTW, please, include some introduction about Cross Codebot, some people > (like me) doesn't know what it is. > > > -- > Leonardo M. Ramé > http://leonardorame.blogspot.com > > > -- > ___ > Lazarus mailing list > Lazarus@lists.lazarus.freepascal.org > http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus > -- The best regards, Fabio Luis Girardi PascalSCADA Project http://sourceforge.net/projects/pascalscada http://www.pascalscada.com -- ___ Lazarus mailing list Lazarus@lists.lazarus.freepascal.org http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
Re: [Lazarus] [fpc-pascal] Raspberry Pi
Hi Gustavo! Can you build shared libraries with FPC and load it with another FPC program on RPi? 2015-02-13 11:33 GMT-02:00 Gustavo Enrique Jimenez : > Thank you very much to all Freepascal and Lazarus developers. Today I > was able to compile all my applications within "Raspberry Pi". I am > very happy. Many thanks to everyone for this amazing tool that you > gave to the world. > > > Gustavo > ___ > fpc-pascal maillist - fpc-pas...@lists.freepascal.org > http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal > -- The best regards, Fabio Luis Girardi PascalSCADA Project http://sourceforge.net/projects/pascalscada http://www.pascalscada.com -- ___ Lazarus mailing list Lazarus@lists.lazarus.freepascal.org http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
Re: [Lazarus] Maybe a bug: click on TImage behind another control with SetShape
The problem is the concept of "transparent". 2014-11-22 10:40 GMT-02:00 Fabio Luis Girardi : > I think that we aren't talking about the same thing. > > I think that a transparent control must retain clicks to another controls > if it is uppermost and in front of these controls. I think that this is > correct. > > Polyline is a different control. The area of line is the area of the > control, other area will be full transparent and must pass the events to > controls behind. If you click on line, the click must be fired on Polyline > object, otherwise, it must be fired on the first control behind of polyline. > > The bug here is: I have two TImages and one polyline. The uppermost is > TImage is positioned in a removed area (transparent) of polyline and the > other TImage is the background. When I click on uppermost TImage click > isn't fired on it nor on background TImage. It's fired on TForm! The same > behavior happens if polyline is the uppermost control. > > Using SetShape make the "click" ignore TImages and TSpeedButtons (in front > or behind) positioned in a removed area of a Shaped control. > > Since the click messages are processed on parent, I made the message > redirection. Now I'm studing a way to check if the click is on a control > area or not, to make a TControl.CMHitTest fix. > > > > > 2014-11-22 7:57 GMT-02:00 Frederic Da Vitoria : > > I may be wrong, but this seems different from the problem you are >> describing: in the bugtracker issue, the click triggers the Form handler >> instead of being sent to a Control. In your problem, from your description, >> I thought the click triggered the polyline control while you would have >> wanted it to be handled by the TImage which is behind the polyline. In a >> way, your problem is not enough transparency (in terms of who gets to >> handle the click event) while the bugtracker bug is too much transparency. >> Or did I misunderstand you? >> >> >> 2014-11-22 10:01 GMT+01:00 Fabio Luis Girardi : >> >>> Here is it: http://bugs.freepascal.org/view.php?id=20381 >>> >>> 2014-11-21 22:24 GMT-02:00 Fabio Luis Girardi : >>> >>> I found this bug on bug tracker. I followed your idea and send a patch >>>> that solves this. I'll try another approach tomorrow. >>>> >>>> Thank you very much! >>>> Em 21/11/2014 20:48, "Frederic Da Vitoria" >>>> escreveu: >>>> >>>> 2014-11-21 16:01 GMT+01:00 Frederic Da Vitoria : >>>>> >>>>>> >>>>>> 2014-11-20 19:21 GMT+01:00 Fabio Luis Girardi >>>>> >: >>>>>> >>>>>>> I don't know if this is a bug or not. I created a control from a >>>>>>> TCustomControl that draws a polyline with a transparent background. The >>>>>>> transparent effect has been using SetShape procedure using a bitmap of 1 >>>>>>> bit color depth. >>>>>>> >>>>>>> The "bug" (I don't know if this is a bug) is that a TImage behind of >>>>>>> a instance of my polyline control don't receive the click messages, but >>>>>>> a >>>>>>> TButton instance receives. >>>>>>> >>>>>>> So, I don't know if this is a bug or I have to do something in my >>>>>>> control to send these messages to TImage behind. >>>>>>> >>>>>> >>>>>> I had once a similar issue with a tPanel behind another control, in >>>>>> Delphi. IIRC, I indeed had to forward the messages in some way to the >>>>>> tPanel. I can check in my archives, if you want, but I won't be able to >>>>>> do >>>>>> it before tomorrow. >>>>>> >>>>> >>>>> I just checked. Sorry, my memory was wrong, I did use TButtons. But it >>>>> makes sense that the uppermost control would prevent any deeper control >>>>> from receiving clicks, even if the uppermost control is visually >>>>> transparent. >>>>> >>>> >> -- >> Frederic Da Vitoria >> (davitof) >> >> Membre de l'April - « promouvoir et défendre le logiciel libre » - >> http://www.april.org >> > > > > -- > The best regards, > > Fabio Luis Girardi > PascalSCADA Project > http://sourceforge.net/projects/pascalscada > http://www.pascalscada.com > -- The best regards, Fabio Luis Girardi PascalSCADA Project http://sourceforge.net/projects/pascalscada http://www.pascalscada.com -- ___ Lazarus mailing list Lazarus@lists.lazarus.freepascal.org http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
Re: [Lazarus] Maybe a bug: click on TImage behind another control with SetShape
I think that we aren't talking about the same thing. I think that a transparent control must retain clicks to another controls if it is uppermost and in front of these controls. I think that this is correct. Polyline is a different control. The area of line is the area of the control, other area will be full transparent and must pass the events to controls behind. If you click on line, the click must be fired on Polyline object, otherwise, it must be fired on the first control behind of polyline. The bug here is: I have two TImages and one polyline. The uppermost is TImage is positioned in a removed area (transparent) of polyline and the other TImage is the background. When I click on uppermost TImage click isn't fired on it nor on background TImage. It's fired on TForm! The same behavior happens if polyline is the uppermost control. Using SetShape make the "click" ignore TImages and TSpeedButtons (in front or behind) positioned in a removed area of a Shaped control. Since the click messages are processed on parent, I made the message redirection. Now I'm studing a way to check if the click is on a control area or not, to make a TControl.CMHitTest fix. 2014-11-22 7:57 GMT-02:00 Frederic Da Vitoria : > I may be wrong, but this seems different from the problem you are > describing: in the bugtracker issue, the click triggers the Form handler > instead of being sent to a Control. In your problem, from your description, > I thought the click triggered the polyline control while you would have > wanted it to be handled by the TImage which is behind the polyline. In a > way, your problem is not enough transparency (in terms of who gets to > handle the click event) while the bugtracker bug is too much transparency. > Or did I misunderstand you? > > > 2014-11-22 10:01 GMT+01:00 Fabio Luis Girardi : > >> Here is it: http://bugs.freepascal.org/view.php?id=20381 >> >> 2014-11-21 22:24 GMT-02:00 Fabio Luis Girardi : >> >> I found this bug on bug tracker. I followed your idea and send a patch >>> that solves this. I'll try another approach tomorrow. >>> >>> Thank you very much! >>> Em 21/11/2014 20:48, "Frederic Da Vitoria" >>> escreveu: >>> >>> 2014-11-21 16:01 GMT+01:00 Frederic Da Vitoria : >>>> >>>>> >>>>> 2014-11-20 19:21 GMT+01:00 Fabio Luis Girardi >>>>> : >>>>> >>>>>> I don't know if this is a bug or not. I created a control from a >>>>>> TCustomControl that draws a polyline with a transparent background. The >>>>>> transparent effect has been using SetShape procedure using a bitmap of 1 >>>>>> bit color depth. >>>>>> >>>>>> The "bug" (I don't know if this is a bug) is that a TImage behind of >>>>>> a instance of my polyline control don't receive the click messages, but a >>>>>> TButton instance receives. >>>>>> >>>>>> So, I don't know if this is a bug or I have to do something in my >>>>>> control to send these messages to TImage behind. >>>>>> >>>>> >>>>> I had once a similar issue with a tPanel behind another control, in >>>>> Delphi. IIRC, I indeed had to forward the messages in some way to the >>>>> tPanel. I can check in my archives, if you want, but I won't be able to do >>>>> it before tomorrow. >>>>> >>>> >>>> I just checked. Sorry, my memory was wrong, I did use TButtons. But it >>>> makes sense that the uppermost control would prevent any deeper control >>>> from receiving clicks, even if the uppermost control is visually >>>> transparent. >>>> >>> > -- > Frederic Da Vitoria > (davitof) > > Membre de l'April - « promouvoir et défendre le logiciel libre » - > http://www.april.org > -- The best regards, Fabio Luis Girardi PascalSCADA Project http://sourceforge.net/projects/pascalscada http://www.pascalscada.com -- ___ Lazarus mailing list Lazarus@lists.lazarus.freepascal.org http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
Re: [Lazarus] Maybe a bug: click on TImage behind another control with SetShape
Here is it: http://bugs.freepascal.org/view.php?id=20381 2014-11-21 22:24 GMT-02:00 Fabio Luis Girardi : > I found this bug on bug tracker. I followed your idea and send a patch > that solves this. I'll try another approach tomorrow. > > Thank you very much! > Em 21/11/2014 20:48, "Frederic Da Vitoria" escreveu: > > 2014-11-21 16:01 GMT+01:00 Frederic Da Vitoria : >> >>> >>> 2014-11-20 19:21 GMT+01:00 Fabio Luis Girardi : >>> >>>> I don't know if this is a bug or not. I created a control from a >>>> TCustomControl that draws a polyline with a transparent background. The >>>> transparent effect has been using SetShape procedure using a bitmap of 1 >>>> bit color depth. >>>> >>>> The "bug" (I don't know if this is a bug) is that a TImage behind of a >>>> instance of my polyline control don't receive the click messages, but a >>>> TButton instance receives. >>>> >>>> So, I don't know if this is a bug or I have to do something in my >>>> control to send these messages to TImage behind. >>>> >>> >>> I had once a similar issue with a tPanel behind another control, in >>> Delphi. IIRC, I indeed had to forward the messages in some way to the >>> tPanel. I can check in my archives, if you want, but I won't be able to do >>> it before tomorrow. >>> >> >> I just checked. Sorry, my memory was wrong, I did use TButtons. But it >> makes sense that the uppermost control would prevent any deeper control >> from receiving clicks, even if the uppermost control is visually >> transparent. >> >> -- >> Frederic Da Vitoria >> (davitof) >> >> Membre de l'April - « promouvoir et défendre le logiciel libre » - >> http://www.april.org >> > -- The best regards, Fabio Luis Girardi PascalSCADA Project http://sourceforge.net/projects/pascalscada http://www.pascalscada.com -- ___ Lazarus mailing list Lazarus@lists.lazarus.freepascal.org http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
Re: [Lazarus] Maybe a bug: click on TImage behind another control with SetShape
I found this bug on bug tracker. I followed your idea and send a patch that solves this. I'll try another approach tomorrow. Thank you very much! Em 21/11/2014 20:48, "Frederic Da Vitoria" escreveu: > 2014-11-21 16:01 GMT+01:00 Frederic Da Vitoria : > >> >> 2014-11-20 19:21 GMT+01:00 Fabio Luis Girardi : >> >>> I don't know if this is a bug or not. I created a control from a >>> TCustomControl that draws a polyline with a transparent background. The >>> transparent effect has been using SetShape procedure using a bitmap of 1 >>> bit color depth. >>> >>> The "bug" (I don't know if this is a bug) is that a TImage behind of a >>> instance of my polyline control don't receive the click messages, but a >>> TButton instance receives. >>> >>> So, I don't know if this is a bug or I have to do something in my >>> control to send these messages to TImage behind. >>> >> >> I had once a similar issue with a tPanel behind another control, in >> Delphi. IIRC, I indeed had to forward the messages in some way to the >> tPanel. I can check in my archives, if you want, but I won't be able to do >> it before tomorrow. >> > > I just checked. Sorry, my memory was wrong, I did use TButtons. But it > makes sense that the uppermost control would prevent any deeper control > from receiving clicks, even if the uppermost control is visually > transparent. > > -- > Frederic Da Vitoria > (davitof) > > Membre de l'April - « promouvoir et défendre le logiciel libre » - > http://www.april.org > -- ___ Lazarus mailing list Lazarus@lists.lazarus.freepascal.org http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
[Lazarus] Maybe a bug: click on TImage behind another control with SetShape
I don't know if this is a bug or not. I created a control from a TCustomControl that draws a polyline with a transparent background. The transparent effect has been using SetShape procedure using a bitmap of 1 bit color depth. The "bug" (I don't know if this is a bug) is that a TImage behind of a instance of my polyline control don't receive the click messages, but a TButton instance receives. So, I don't know if this is a bug or I have to do something in my control to send these messages to TImage behind. Some idea? -- The best regards, Fabio Luis Girardi PascalSCADA Project http://sourceforge.net/projects/pascalscada http://www.pascalscada.com -- ___ Lazarus mailing list Lazarus@lists.lazarus.freepascal.org http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
[Lazarus] LCLMessageGlue Status
Hello!! I'm doing a virtual keyboard for lazarus using the LCLMessageGlue unit, but methods LCLSendKeyUpEvent and LCLSendKeyDownEvent are not working. So, what's the current status of LCLMessageGlue unit? -- The best regards, Fabio Luis Girardi PascalSCADA Project http://sourceforge.net/projects/pascalscada http://www.pascalscada.com -- ___ Lazarus mailing list Lazarus@lists.lazarus.freepascal.org http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
[Lazarus] Copy only visible lines from the editor
I don't know if this feature exists on Lazarus, but is possible to copy to clipboard only visible lines? See the attached picture to see a example... -- The best regards, Fabio Luis Girardi PascalSCADA Project http://sourceforge.net/projects/pascalscada http://www.pascalscada.com -- ___ Lazarus mailing list Lazarus@lists.lazarus.freepascal.org http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
Re: [Lazarus] Bugtracker
+1 Em 14/07/2014 04:46, "zeljko" escreveu: > Does not work (again). > > zeljko > > -- > ___ > 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
Re: [Lazarus] CeCILL-C licence and Lazarus?
Good!! So, If a project is released under CeCILL-C license and I create a fork of this project, and this fork stills under CeCILL-C, I have no problems, right? 2014-03-23 5:29 GMT-03:00 Geoffray « fatalerrors » < geoffray.levasseurbran...@numericable.fr>: > Le lundi 17 mars 2014 19:29:16 Fabio Luis Girardi a écrit : > > Somebody used this licence to release components for Lazarus? > > I'm sometimes using CeCILL license for some software I'm making. After re- > reading the license there's no opposition to use it allong with Lazarus > made > software. CeCILL is fully GPL compatible. > > For components you must add the same exception that FCL have with LGPL if > you > want to allow the use of your component in closed source software. > > Regards, > -- > Geoffray « Fatalerrors » Levasseur-Brandin > > > http://www.geoffray-levasseur.org/ > http://0linux.org/ > GNU/PG public key : A25E944254C62E34A8E58DCF688A5F74289C1897 > Errare humanum est sed perseverare diabolicum aut cretinum. -- The best regards, Fabio Luis Girardi PascalSCADA Project http://sourceforge.net/projects/pascalscada http://www.pascalscada.com -- ___ Lazarus mailing list Lazarus@lists.lazarus.freepascal.org http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
Re: [Lazarus] linux linking (Solved)
Units missing? Which units? 2014-03-18 12:23 GMT-03:00 Antonio Fortuny : > > Le 18/03/2014 14:09, Antonio Fortuny a écrit : > >> Hi Folks. >> >> I've ported a console project from win32 to Linux x86_64, Lazarus 1.0.12 >> On win32 it compiles and runs OK. >> On Linux, compilation fails with a linker error: >> Error: Error while linking >> and nothing else. Any track to follow ? >> Is it any way to display more diagnostics ? >> > Units missing. > >> >> Thanks, >> >> Antonio. >> >> >> --- >> Ce courrier électronique ne contient aucun virus ou logiciel malveillant >> parce que la protection avast! Antivirus est active. >> http://www.avast.com >> >> >> >> -- >> ___ >> Lazarus mailing list >> Lazarus@lists.lazarus.freepascal.org >> http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus >> >> > > > --- > Ce courrier électronique ne contient aucun virus ou logiciel malveillant > parce que la protection avast! Antivirus est active. > http://www.avast.com > > > > -- > ___ > Lazarus mailing list > Lazarus@lists.lazarus.freepascal.org > http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus > -- The best regards, Fabio Luis Girardi PascalSCADA Project http://sourceforge.net/projects/pascalscada http://www.pascalscada.com -- ___ Lazarus mailing list Lazarus@lists.lazarus.freepascal.org http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
[Lazarus] CeCILL-C licence and Lazarus?
Somebody used this licence to release components for Lazarus? -- The best regards, Fabio Luis Girardi PascalSCADA Project http://sourceforge.net/projects/pascalscada http://www.pascalscada.com -- ___ Lazarus mailing list Lazarus@lists.lazarus.freepascal.org http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
Re: [Lazarus] What GetChildParent does in designer and reader?
But I'll keep trying to implement this. Em 04/03/2014 21:34, "Fabio Luis Girardi" escreveu: > I'll try this approach. At the moment this is a good workaround... :) > Em 04/03/2014 21:22, "luiz americo pereira camara" > escreveu: > >> Hi Fabio, >> >> I'd like to share how i implemented similar behavior of TDbCtrlGrid, so >> maybe you can be interested. If not just ignore. >> >> First i create a TFrame in Lazarus put the controls that i need to be >> there. >> >> In the control i want to display the instances of the frame i create at >> runtime according to a configuration >> >> This way i have the easy of use of Lazarus designer with a lot of >> flexibility. >> >> I created an control ( >> https://code.google.com/p/luipack/source/browse/trunk/luicontrols/jsonmediators.pas) >> that does the above. The frame class (TJSONBooleanRadioButtonViewFrame) >> is hardcoded but it can be decoupled by using an interface. >> >> To implement TDbCtrlGrid like control with this approach seems easier >> then you are trying: >> >> - Define an interface with what you need to configure the DbCtrls like >> IDbCtrlItem = interface >> SetDatasource(Datasource: TDataSource); >> end; >> - Create a control that has a TFrameClass property >> - When the TFrameClass is set, check if implements IDbCtrlItem >> - At runtime create as many TFrameClass instances as needed configuring >> them at initialization through the IDbCtrlItem interface >> - Bind to dataset events and update the controls accordingly >> >> Luiz >> >> >> 2014-03-04 10:41 GMT-03:00 Fabio Luis Girardi : >> >>> Hi Mattias!! >>> >>> This solution don't work too. >>> >>> >>> 2014-03-04 9:46 GMT-03:00 Fabio Luis Girardi : >>> >>> Maybe RemoveHandlerAddClicked is a replacement? >>>> >>>> >>>> 2014-03-04 9:43 GMT-03:00 Fabio Luis Girardi : >>>> >>>> mytesthelper.pas(40,20) Error: identifier idents no member >>>>> "RemoveHandlerComponentAdded" >>>>> >>>>> Lazarus 1.3 >>>>> >>>>> >>>>> >>>>> 2014-03-03 18:56 GMT-03:00 Mattias Gaertner >>>> >: >>>>> >>>>> On Mon, 3 Mar 2014 16:47:30 -0300 >>>>>> Fabio Luis Girardi wrote: >>>>>> >>>>>> > Hi!! >>>>>> > >>>>>> > Attached the code of my prototype of TDBCtrlGrid. It works as >>>>>> expected on >>>>>> > Delphi (except the function GetDesignerDropTarget that don't exists >>>>>> on >>>>>> > Delphi TWinControl), but it don't works as expected on Lazarus. >>>>>> >>>>>> On second thought the LCL method is not very flexible. >>>>>> I added a general designer event. >>>>>> >>>>>> See >>>>>> >>>>>> http://wiki.lazarus.freepascal.org/Extending_the_IDE#Example:_When_dropping_a_new_component_move_control_to_a_child >>>>>> >>>>>> Please test. >>>>>> >>>>>> Mattias >>>>>> >>>>>> -- >>>>>> ___ >>>>>> Lazarus mailing list >>>>>> Lazarus@lists.lazarus.freepascal.org >>>>>> http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus >>>>>> >>>>> >>>>> >>>>> >>>>> -- >>>>> The best regards, >>>>> >>>>> Fabio Luis Girardi >>>>> PascalSCADA Project >>>>> http://sourceforge.net/projects/pascalscada >>>>> http://www.pascalscada.com >>>>> >>>> >>>> >>>> >>>> -- >>>> The best regards, >>>> >>>> Fabio Luis Girardi >>>> PascalSCADA Project >>>> http://sourceforge.net/projects/pascalscada >>>> http://www.pascalscada.com >>>> >>> >>> >>> >>> -- >>> The best regards, >>> >>> Fabio Luis Girardi >>> PascalSCADA Project >>> http://sourceforge.net/projects/pascalscada >>> http://www.pascalscada.com >>> >>> -- >>> ___ >>> 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 mailing list Lazarus@lists.lazarus.freepascal.org http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
Re: [Lazarus] What GetChildParent does in designer and reader?
I'll try this approach. At the moment this is a good workaround... :) Em 04/03/2014 21:22, "luiz americo pereira camara" escreveu: > Hi Fabio, > > I'd like to share how i implemented similar behavior of TDbCtrlGrid, so > maybe you can be interested. If not just ignore. > > First i create a TFrame in Lazarus put the controls that i need to be > there. > > In the control i want to display the instances of the frame i create at > runtime according to a configuration > > This way i have the easy of use of Lazarus designer with a lot of > flexibility. > > I created an control ( > https://code.google.com/p/luipack/source/browse/trunk/luicontrols/jsonmediators.pas) > that does the above. The frame class (TJSONBooleanRadioButtonViewFrame) > is hardcoded but it can be decoupled by using an interface. > > To implement TDbCtrlGrid like control with this approach seems easier then > you are trying: > > - Define an interface with what you need to configure the DbCtrls like > IDbCtrlItem = interface > SetDatasource(Datasource: TDataSource); > end; > - Create a control that has a TFrameClass property > - When the TFrameClass is set, check if implements IDbCtrlItem > - At runtime create as many TFrameClass instances as needed configuring > them at initialization through the IDbCtrlItem interface > - Bind to dataset events and update the controls accordingly > > Luiz > > > 2014-03-04 10:41 GMT-03:00 Fabio Luis Girardi : > >> Hi Mattias!! >> >> This solution don't work too. >> >> >> 2014-03-04 9:46 GMT-03:00 Fabio Luis Girardi : >> >> Maybe RemoveHandlerAddClicked is a replacement? >>> >>> >>> 2014-03-04 9:43 GMT-03:00 Fabio Luis Girardi : >>> >>> mytesthelper.pas(40,20) Error: identifier idents no member >>>> "RemoveHandlerComponentAdded" >>>> >>>> Lazarus 1.3 >>>> >>>> >>>> >>>> 2014-03-03 18:56 GMT-03:00 Mattias Gaertner >>>> : >>>> >>>> On Mon, 3 Mar 2014 16:47:30 -0300 >>>>> Fabio Luis Girardi wrote: >>>>> >>>>> > Hi!! >>>>> > >>>>> > Attached the code of my prototype of TDBCtrlGrid. It works as >>>>> expected on >>>>> > Delphi (except the function GetDesignerDropTarget that don't exists >>>>> on >>>>> > Delphi TWinControl), but it don't works as expected on Lazarus. >>>>> >>>>> On second thought the LCL method is not very flexible. >>>>> I added a general designer event. >>>>> >>>>> See >>>>> >>>>> http://wiki.lazarus.freepascal.org/Extending_the_IDE#Example:_When_dropping_a_new_component_move_control_to_a_child >>>>> >>>>> Please test. >>>>> >>>>> Mattias >>>>> >>>>> -- >>>>> ___ >>>>> Lazarus mailing list >>>>> Lazarus@lists.lazarus.freepascal.org >>>>> http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus >>>>> >>>> >>>> >>>> >>>> -- >>>> The best regards, >>>> >>>> Fabio Luis Girardi >>>> PascalSCADA Project >>>> http://sourceforge.net/projects/pascalscada >>>> http://www.pascalscada.com >>>> >>> >>> >>> >>> -- >>> The best regards, >>> >>> Fabio Luis Girardi >>> PascalSCADA Project >>> http://sourceforge.net/projects/pascalscada >>> http://www.pascalscada.com >>> >> >> >> >> -- >> The best regards, >> >> Fabio Luis Girardi >> PascalSCADA Project >> http://sourceforge.net/projects/pascalscada >> http://www.pascalscada.com >> >> -- >> ___ >> 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 mailing list Lazarus@lists.lazarus.freepascal.org http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
Re: [Lazarus] What GetChildParent does in designer and reader?
Hi Mattias!! This solution don't work too. 2014-03-04 9:46 GMT-03:00 Fabio Luis Girardi : > Maybe RemoveHandlerAddClicked is a replacement? > > > 2014-03-04 9:43 GMT-03:00 Fabio Luis Girardi : > > mytesthelper.pas(40,20) Error: identifier idents no member >> "RemoveHandlerComponentAdded" >> >> Lazarus 1.3 >> >> >> >> 2014-03-03 18:56 GMT-03:00 Mattias Gaertner : >> >> On Mon, 3 Mar 2014 16:47:30 -0300 >>> Fabio Luis Girardi wrote: >>> >>> > Hi!! >>> > >>> > Attached the code of my prototype of TDBCtrlGrid. It works as expected >>> on >>> > Delphi (except the function GetDesignerDropTarget that don't exists on >>> > Delphi TWinControl), but it don't works as expected on Lazarus. >>> >>> On second thought the LCL method is not very flexible. >>> I added a general designer event. >>> >>> See >>> >>> http://wiki.lazarus.freepascal.org/Extending_the_IDE#Example:_When_dropping_a_new_component_move_control_to_a_child >>> >>> Please test. >>> >>> Mattias >>> >>> -- >>> ___ >>> Lazarus mailing list >>> Lazarus@lists.lazarus.freepascal.org >>> http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus >>> >> >> >> >> -- >> The best regards, >> >> Fabio Luis Girardi >> PascalSCADA Project >> http://sourceforge.net/projects/pascalscada >> http://www.pascalscada.com >> > > > > -- > The best regards, > > Fabio Luis Girardi > PascalSCADA Project > http://sourceforge.net/projects/pascalscada > http://www.pascalscada.com > -- The best regards, Fabio Luis Girardi PascalSCADA Project http://sourceforge.net/projects/pascalscada http://www.pascalscada.com -- ___ Lazarus mailing list Lazarus@lists.lazarus.freepascal.org http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
Re: [Lazarus] What GetChildParent does in designer and reader?
Maybe RemoveHandlerAddClicked is a replacement? 2014-03-04 9:43 GMT-03:00 Fabio Luis Girardi : > mytesthelper.pas(40,20) Error: identifier idents no member > "RemoveHandlerComponentAdded" > > Lazarus 1.3 > > > > 2014-03-03 18:56 GMT-03:00 Mattias Gaertner : > > On Mon, 3 Mar 2014 16:47:30 -0300 >> Fabio Luis Girardi wrote: >> >> > Hi!! >> > >> > Attached the code of my prototype of TDBCtrlGrid. It works as expected >> on >> > Delphi (except the function GetDesignerDropTarget that don't exists on >> > Delphi TWinControl), but it don't works as expected on Lazarus. >> >> On second thought the LCL method is not very flexible. >> I added a general designer event. >> >> See >> >> http://wiki.lazarus.freepascal.org/Extending_the_IDE#Example:_When_dropping_a_new_component_move_control_to_a_child >> >> Please test. >> >> Mattias >> >> -- >> _______ >> Lazarus mailing list >> Lazarus@lists.lazarus.freepascal.org >> http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus >> > > > > -- > The best regards, > > Fabio Luis Girardi > PascalSCADA Project > http://sourceforge.net/projects/pascalscada > http://www.pascalscada.com > -- The best regards, Fabio Luis Girardi PascalSCADA Project http://sourceforge.net/projects/pascalscada http://www.pascalscada.com -- ___ Lazarus mailing list Lazarus@lists.lazarus.freepascal.org http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
Re: [Lazarus] What GetChildParent does in designer and reader?
mytesthelper.pas(40,20) Error: identifier idents no member "RemoveHandlerComponentAdded" Lazarus 1.3 2014-03-03 18:56 GMT-03:00 Mattias Gaertner : > On Mon, 3 Mar 2014 16:47:30 -0300 > Fabio Luis Girardi wrote: > > > Hi!! > > > > Attached the code of my prototype of TDBCtrlGrid. It works as expected on > > Delphi (except the function GetDesignerDropTarget that don't exists on > > Delphi TWinControl), but it don't works as expected on Lazarus. > > On second thought the LCL method is not very flexible. > I added a general designer event. > > See > > http://wiki.lazarus.freepascal.org/Extending_the_IDE#Example:_When_dropping_a_new_component_move_control_to_a_child > > Please test. > > Mattias > > -- > ___ > Lazarus mailing list > Lazarus@lists.lazarus.freepascal.org > http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus > -- The best regards, Fabio Luis Girardi PascalSCADA Project http://sourceforge.net/projects/pascalscada http://www.pascalscada.com -- ___ Lazarus mailing list Lazarus@lists.lazarus.freepascal.org http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
Re: [Lazarus] Não encontra o parametro?
No problema!!! :) 2014-03-03 17:07 GMT-03:00 William Oliveira Ferreira < bdexterholl...@gmail.com>: > Sorry Guy, I thought i was sending to a brazilian list... =( > -- The best regards, Fabio Luis Girardi PascalSCADA Project http://sourceforge.net/projects/pascalscada http://www.pascalscada.com -- ___ Lazarus mailing list Lazarus@lists.lazarus.freepascal.org http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
Re: [Lazarus] Não encontra o parametro?
William, rescreva a sua dúvida em inglês, talvez a resposta para ela venha
mais depressa...
Em 3 de março de 2014 16:58, William Oliveira Ferreira <
bdexterholl...@gmail.com> escreveu:
> Olá lista,
>
> eu tenho um código mamão com açúcar aqui que eu não consigo entender por
> que cargas d'água não encontra o parâmetro da SQL. Alguém quer chutar algo?
>
> var
> sql_Query : TSQLQuery;
> begin
> Result := False;
> sql_Query := TSQLQuery.Create(nil);
> sql_Query.DataBase := Self._Conexao;
> sql_Query.Transaction := TSQLTransaction(Self._Conexao.Transaction);
>
> sql_Query.SQL.Clear;
> if TSQLTransaction(Self._Conexao.Transaction).Active then
> TSQLTransaction(Self._Conexao.Transaction).EndTransaction;
>
> sql_Query.SQL.Add('DELETE FROM loc_clientes');
> sql_Query.SQL.Add('WHERE cli_codigo = :PCodigo');
>
> sql_Query.ParamByName(':PCodigo').AsInteger := Codigo;
>
> try
> sql_Query.ExecSQL;
> except
> raise Exception.Create('Erro ao excluir o cliente! [ID: ' +
> IntToStr(Codigo) + ']');
> end;
>
>
>
> A mensagem de erro:
>
> Parameter ":PCodigo" not found
>
>
> Vira e mexe esta mensagem me assombra...
>
>
> ...Digo isto porque em outros trechos não ocorre.
>
> --
>
> William de Oliveira Ferreira
>
> --
> _______
> Lazarus mailing list
> Lazarus@lists.lazarus.freepascal.org
> http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
>
>
--
The best regards,
Fabio Luis Girardi
PascalSCADA Project
http://sourceforge.net/projects/pascalscada
http://www.pascalscada.com
--
___
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
Re: [Lazarus] What GetChildParent does in designer and reader?
Hi!!
Attached the code of my prototype of TDBCtrlGrid. It works as expected on
Delphi (except the function GetDesignerDropTarget that don't exists on
Delphi TWinControl), but it don't works as expected on Lazarus.
2014-03-03 10:17 GMT-03:00 Fabio Luis Girardi :
> Hi Mattias!!
>
> Revision 44299 is related with this?
>
>
> The best regards
>
>
> 2014-02-28 7:56 GMT-03:00 Mattias Gaertner :
>
> On Fri, 28 Feb 2014 01:47:38 +0100
>> Hans-Peter Diettrich wrote:
>>
>> >[...]
>> > Component Drag&Drop operations
>>
>> There is no drag when adding a component to a form.
>>
>> Mattias
>>
>>
>> --
>> ___
>> Lazarus mailing list
>> Lazarus@lists.lazarus.freepascal.org
>> http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
>>
>
>
>
> --
> The best regards,
>
> Fabio Luis Girardi
> PascalSCADA Project
> http://sourceforge.net/projects/pascalscada
> http://www.pascalscada.com
>
--
The best regards,
Fabio Luis Girardi
PascalSCADA Project
http://sourceforge.net/projects/pascalscada
http://www.pascalscada.com
unit mytest;
interface
{$mode objfpc}{$H+}
uses
SysUtils, Classes, Controls, ExtCtrls;
type
{ TMyTest }
TMyTestChildContainer = class(TPanel);
TMyTest = class(TWinControl)
private
FChildContainerPanel:TMyTestChildContainer;
protected
function GetChildParent: TComponent; override;
public
constructor Create(AOwner:TComponent); override;
destructor Destroy; override;
function GetDesignerDropTarget(aComponent: TComponentClass): TWinControl;
override;
procedure GetChildren(Proc: TGetChildProc; Root: TComponent); override;
published
{ Published declarations }
end;
procedure Register;
implementation
procedure Register;
begin
RegisterComponents('Samples', [TMyTest]);
end;
{ TMyTest }
constructor TMyTest.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
ControlStyle:=ControlStyle-[csAcceptsControls];
FChildContainerPanel:=TMyTestChildContainer.Create(Self);
FChildContainerPanel.ControlStyle := [csAcceptsControls, csClickEvents,
csReplicatable, csOpaque];
FChildContainerPanel.Parent:=Self;
FChildContainerPanel.Align:=alTop;
FChildContainerPanel.Height:=40;
Height:=120;
end;
destructor TMyTest.Destroy;
begin
FreeAndNil(FChildContainerPanel);
inherited;
end;
function TMyTest.GetChildParent: TComponent;
begin
Result:=FChildContainerPanel;
end;
procedure TMyTest.GetChildren(Proc: TGetChildProc; Root: TComponent);
begin
FChildContainerPanel.GetChildren(Proc,Root);
end;
function TMyTest.GetDesignerDropTarget(aComponent: TComponentClass
): TWinControl;
begin
Result:=FChildContainerPanel;
end;
end.
--
___
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
Re: [Lazarus] What GetChildParent does in designer and reader?
Hi Mattias!! Revision 44299 is related with this? The best regards 2014-02-28 7:56 GMT-03:00 Mattias Gaertner : > On Fri, 28 Feb 2014 01:47:38 +0100 > Hans-Peter Diettrich wrote: > > >[...] > > Component Drag&Drop operations > > There is no drag when adding a component to a form. > > Mattias > > > -- > ___ > Lazarus mailing list > Lazarus@lists.lazarus.freepascal.org > http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus > -- The best regards, Fabio Luis Girardi PascalSCADA Project http://sourceforge.net/projects/pascalscada http://www.pascalscada.com -- ___ Lazarus mailing list Lazarus@lists.lazarus.freepascal.org http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
Re: [Lazarus] What GetChildParent does in designer and reader?
2014-02-27 11:14 GMT-03:00 Mattias Gaertner : > On Thu, 27 Feb 2014 10:26:04 -0300 > Fabio Luis Girardi wrote: > > > 2014-02-27 10:07 GMT-03:00 Mattias Gaertner : > > > > > On Thu, 27 Feb 2014 09:32:31 -0300 > > > Fabio Luis Girardi wrote: > > > > > > >[...] > > > > No. Lazarus allow me to add a child to my control, but I want > redirect > > > > these childs to use a Panel inside of my TCustomControl as their > parent. > > > > > > I see. There is no function yet, to redirect designer drops. Components > > > can only accept or refuse. > > > > > > Maybe a method can be added to TWinControl: > > > > > > function GetDesignerDropTarget(aControl: TControlClass): TWinControl; > > > virtual; > > > > > > > Yes, and by default it returns Self, and if it was override, this > function > > returns the new parent of child controls? This is your idea? > > Yes. You are reading my mind. > > hahahahahahah right... More mind reading: aControl parameter will be the control being inserted? > > Mattias > > > -- > ___ > Lazarus mailing list > Lazarus@lists.lazarus.freepascal.org > http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus > -- The best regards, Fabio Luis Girardi PascalSCADA Project http://sourceforge.net/projects/pascalscada http://www.pascalscada.com -- ___ Lazarus mailing list Lazarus@lists.lazarus.freepascal.org http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
Re: [Lazarus] What GetChildParent does in designer and reader?
2014-02-27 10:07 GMT-03:00 Mattias Gaertner : > On Thu, 27 Feb 2014 09:32:31 -0300 > Fabio Luis Girardi wrote: > > >[...] > > No. Lazarus allow me to add a child to my control, but I want redirect > > these childs to use a Panel inside of my TCustomControl as their parent. > > I see. There is no function yet, to redirect designer drops. Components > can only accept or refuse. > > Maybe a method can be added to TWinControl: > > function GetDesignerDropTarget(aControl: TControlClass): TWinControl; > virtual; > Yes, and by default it returns Self, and if it was override, this function returns the new parent of child controls? This is your idea? > > > Mattias > > -- > ___ > Lazarus mailing list > Lazarus@lists.lazarus.freepascal.org > http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus > -- The best regards, Fabio Luis Girardi PascalSCADA Project http://sourceforge.net/projects/pascalscada http://www.pascalscada.com -- ___ Lazarus mailing list Lazarus@lists.lazarus.freepascal.org http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
Re: [Lazarus] What GetChildParent does in designer and reader?
2014-02-27 9:24 GMT-03:00 Mattias Gaertner : > On Thu, 27 Feb 2014 09:07:49 -0300 > Fabio Luis Girardi wrote: > > > So, to resolve some issues to make a "TDBCtrlGrid" for lazarus, designer > > should use this function to determine the real parent of a child control? > > Let me rephrase: No Lazarus component has ever used this function. > Right. I can't found a example of this function. > > So far I understood that you wrote a custom control Right too, I'm writing a TCustomControl descendant. > , but the designer > does not allow to add child controls. > Is this correct? > No. Lazarus allow me to add a child to my control, but I want redirect these childs to use a Panel inside of my TCustomControl as their parent. > > Can you send some more code? Then maybe someone sees the > problem. > Yes, I'll provide soon as possible. > > Mattias > > -- > ___ > Lazarus mailing list > Lazarus@lists.lazarus.freepascal.org > http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus > -- The best regards, Fabio Luis Girardi PascalSCADA Project http://sourceforge.net/projects/pascalscada http://www.pascalscada.com -- ___ Lazarus mailing list Lazarus@lists.lazarus.freepascal.org http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
Re: [Lazarus] What GetChildParent does in designer and reader?
So, to resolve some issues to make a "TDBCtrlGrid" for lazarus, designer should use this function to determine the real parent of a child control? 2014-02-27 7:59 GMT-03:00 Mattias Gaertner : > > In designer: nothing. > In reader: it overrides the parent-child nesting of the stream. > I don't know an example. > > Mattias > > -- > ___ > Lazarus mailing list > Lazarus@lists.lazarus.freepascal.org > http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus > -- The best regards, Fabio Luis Girardi PascalSCADA Project http://sourceforge.net/projects/pascalscada http://www.pascalscada.com -- ___ Lazarus mailing list Lazarus@lists.lazarus.freepascal.org http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
[Lazarus] What GetChildParent does in designer and reader?
Thanks. -- ___ Lazarus mailing list Lazarus@lists.lazarus.freepascal.org http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
Re: [Lazarus] Bug creating a new control?
If I try put a new control in the row panel of my control, lazarus always sets form1 as the parent of this new control instead of my control or the row panel inside of my control. On 22/02/14 16:04, Fabio Luis Girardi wrote: > > A mode detailed explanation [snip...] Maybe the detailed explanation is not enough. What is Lazarus not doing? Stephano -- ___ 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
Re: [Lazarus] Bug creating a new control?
No... this don't work too. Controls still using form1 as parent, not rowpanel. :( Em 22/02/2014 05:52, "patspiper" escreveu: > On 22/02/14 02:50, Fabio Luis Girardi wrote: > > Hi all! > > I started the TDBCtrlGrid implementation some days ago. At this point, I > don't know if I'm doing some mistake or if Lazarus has a bug. The problem > is that I can't put any controls on TDBCtrlGrid area, but I can put > controls with csReplicatable in ControlStyle inside a "RowPanel" > (TDBCtrlGridRow class) that is a control that will be used to draw rows, > BUT LAZARUS don't do this!! > > TDBCtrlGrid is created with > > ControlStyle := [csOpaque, csDoubleClicks]; > > and TDBCtrlGridRow is created with > > ControlStyle := [csAcceptsControls, csCaptureMouse, csClickEvents, > csDoubleClicks, csOpaque, csReplicatable]; > > > Logically, the row panel must accept controls, but TDBCtrlGrid NOR > TDBCtrlGridRow accepts controls. > > > Add a (protected) method to your class: > function ChildClassAllowed(ChildClass: TClass): boolean; override; > and set its result to true if you want to allow the ChildClass to be > dropped on your component. > > Stephano > > -- > ___ > 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] Bug creating a new control?
Hi all! I started the TDBCtrlGrid implementation some days ago. At this point, I don't know if I'm doing some mistake or if Lazarus has a bug. The problem is that I can't put any controls on TDBCtrlGrid area, but I can put controls with csReplicatable in ControlStyle inside a "RowPanel" (TDBCtrlGridRow class) that is a control that will be used to draw rows, BUT LAZARUS don't do this!! TDBCtrlGrid is created with ControlStyle := [csOpaque, csDoubleClicks]; and TDBCtrlGridRow is created with ControlStyle := [csAcceptsControls, csCaptureMouse, csClickEvents, csDoubleClicks, csOpaque, csReplicatable]; Logically, the row panel must accept controls, but TDBCtrlGrid NOR TDBCtrlGridRow accepts controls. If this is a bug, tell me and I will open a new bug on Lazarus BugTracker. If not, tell me what I'm doing wrong... Initially, all tests are done in Lazarus 1.0.8 fpc 2.6.2 Win32 on a Windows 2003 server 32 bits. -- The best regards, Fabio Luis Girardi PascalSCADA Project http://sourceforge.net/projects/pascalscada http://www.pascalscada.com -- ___ Lazarus mailing list Lazarus@lists.lazarus.freepascal.org http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
[Lazarus] TDBCtrlGrid implementation
Hi all! I started the TDBCtrlGrid implementation some days ago. At this point, I don't know if I'm doing some mistake or if Lazarus has a bug. The problem is that I can't put any controls on TDBCtrlGrid area, but I can put controls with csReplicatable in ControlStyle inside a "RowPanel" (TDBCtrlGridRow class) that is a control that will be used to draw rows, BUT LAZARUS don't do this!! TDBCtrlGrid is created with ControlStyle := [csOpaque, csDoubleClicks]; and TDBCtrlGridRow is created with ControlStyle := [csAcceptsControls, csCaptureMouse, csClickEvents, csDoubleClicks, csOpaque, csReplicatable]; Logically, the row panel must accept controls, but TDBCtrlGrid NOR TDBCtrlGridRow accepts controls. If this is a bug, tell me and I will open a new bug on Lazarus BugTracker. If not, tell me what I'm doing wrong... Initially, all tests are done in Lazarus 1.0.8 fpc 2.6.2 Win32 on a Windows 2003 server 32 bits. -- The best regards, Fabio Luis Girardi PascalSCADA Project http://sourceforge.net/projects/pascalscada http://www.pascalscada.com -- ___ Lazarus mailing list Lazarus@lists.lazarus.freepascal.org http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
[Lazarus] TDBCtrlGrid
Hi All!! I'm starting a clone (not a copy) of TDBCtrlGrid of Delphi. Now, I'm creating the base of TDBCtrlGrid and I'm testing it on form designer of Lazarus, without success. I can't put any control on the sub panel (that will be replicated for each row of dataset). At the moment, I created two classes to do this: TDBCtrlGridRowDesigner and TDBCtrlGrid. The main line on constructor of TDBCtrlGridRowDesigner is that: ControlStyle := ControlStyle + [csAcceptsControls, csCaptureMouse, csClickEvents, csDoubleClicks, csOpaque, csReplicatable ] ; That allows the subpanel receive new child controls and allow it to be painted with PaintTo procedure... And in the constructor of TDBCtrlGrid, the main lines are that: ControlStyle := ControlStyle + [csDoubleClicks, csOpaque] ; TabStop := true; ... initial size ... creation of sub panel using the DBCtrlGrid as Parent. My Question is: I need override any other procedure/function to tell to IDE that the parent of controls inserted inside of subpanel will have the subpanel as parent? -- The best regards, Fabio Luis Girardi PascalSCADA Project http://sourceforge.net/projects/pascalscada http://www.pascalscada.com -- ___ Lazarus mailing list Lazarus@lists.lazarus.freepascal.org http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
Re: [Lazarus] Build Lazarus on Linux? Make is deprecated?
Right, but Codetyphon 4.41 created the link /usr/bin/fpc64 (that is in $PATH variable) pointing to /usr/lib/codetyphon/fpc/bin/x86_64-linux/ppcx64 but it don't create the link /usr/bin/fpc pointing to /usr/lib/codetyphon/fpc/bin/x86_64-linux/ppcx64 like normal FPC installations do. 2013/8/8 Sven Barth > On 08.08.2013 13:09, Fabio Luis Girardi wrote: > >> I updated to latest lazarus revision yesterday. >> >> When I type "make clean all" this messages appears (in portuguese): >> >> make: -iVSPTPSOTO: Comando não encontrado >> make -C ide cleanide >> make[1]: -iVSPTPSOTO: Comando não encontrado >> make[1]: Entrando no diretório `/home/fabiolg/lazarus/ide' >> > > This has nothing to do with Codetyphon, this is normal behavior if none of > the fpc binaries is available in $PATH. So either add the path to the "fpc" > provided with Codetyphon to $PATH or call make the following way: > > make FPC=/path/to/fpc > > Regards, > Sven > > > > -- > __**_ > Lazarus mailing list > Lazarus@lists.lazarus.**freepascal.org > http://lists.lazarus.**freepascal.org/mailman/**listinfo/lazarus<http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus> > -- The best regards, Fabio Luis Girardi PascalSCADA Project http://sourceforge.net/projects/pascalscada http://www.pascalscada.com -- ___ Lazarus mailing list Lazarus@lists.lazarus.freepascal.org http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
Re: [Lazarus] Build Lazarus on Linux? Make is deprecated?
Yes, I think that's related with Codetyphon... Em 08/08/2013 10:44, "Mattias Gaertner" escreveu: > > > > Fabio Luis Girardi hat am 8. August 2013 um > 15:07 > > geschrieben: > > > > As I said, I'm using the FPC of Codetyphon 4.41. > > > > Maybe the Codetyphon team made some changes... > > Have you asked them? > > Apparently it is neither a Lazarus nor an FPC issue. > > Mattias > > -- > ___ > 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
Re: [Lazarus] Build Lazarus on Linux? Make is deprecated?
As I said, I'm using the FPC of Codetyphon 4.41. Maybe the Codetyphon team made some changes... 2013/8/8 Fabio Luis Girardi > As I said, I'm using the FPC of Codetyphon 4.41. > > Maybe the Codetyphon team made some changes... > > > 2013/8/8 Mattias Gaertner > >> >> >> > Fabio Luis Girardi hat am 8. August 2013 um >> 13:50 >> > geschrieben: >> > >> > Exact, CodeTyphon creates a fpc64 instead of fpc link to ppcx64 :( >> >> Strange. The whole point of the fpc executable is to be a starter for the >> various ppc* compilers. >> Rename fpc64 or add a link fpc to fpc64. >> >> Mattias >> > > > > -- > The best regards, > > Fabio Luis Girardi > PascalSCADA Project > http://sourceforge.net/projects/pascalscada > http://www.pascalscada.com > -- The best regards, Fabio Luis Girardi PascalSCADA Project http://sourceforge.net/projects/pascalscada http://www.pascalscada.com -- ___ Lazarus mailing list Lazarus@lists.lazarus.freepascal.org http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
Re: [Lazarus] Build Lazarus on Linux? Make is deprecated?
It has some tricks to build Lazarus with FPC of Codetyphon (4.41)? 2013/8/8 Fabio Luis Girardi > I updated to latest lazarus revision yesterday. > > When I type "make clean all" this messages appears (in portuguese): > > make: -iVSPTPSOTO: Comando não encontrado > make -C ide cleanide > make[1]: -iVSPTPSOTO: Comando não encontrado > make[1]: Entrando no diretório `/home/fabiolg/lazarus/ide' > /bin/rm -f > /bin/rm -f > /bin/rm -f > /bin/rm -f > /bin/rm -f > /bin/rm -f > /bin/rm -f > /bin/rm -f > /bin/rm -f > /bin/rm -f > /bin/rm -f > /bin/rm -f > /bin/rm -f > /bin/rm -f > /bin/rm -f > /bin/rm -f > /bin/rm -f > /bin/rm -f > /bin/rm -f > make[1]: Saindo do diretório `/home/fabiolg/lazarus/ide' > make -C packager/registration clean > make[1]: -iVSPTPSOTO: Comando não encontrado > make[1]: Entrando no diretório > `/home/fabiolg/lazarus/packager/registration' > /bin/rm -f fpcmade.- Package.fpc ppas.sh script.res link.res > /bin/rm -f *.s *_ppas.bat > make[1]: Saindo do diretório `/home/fabiolg/lazarus/packager/registration' > make -C lcl cleanall > make[1]: -iVSPTPSOTO: Comando não encontrado > make[1]: Entrando no diretório `/home/fabiolg/lazarus/lcl' > /bin/rm -f fpcmade.- Package.fpc ppas.sh script.res link.res > /bin/rm -f *.s *_ppas.bat > make -C interfaces clean > make[2]: -iVSPTPSOTO: Comando não encontrado > make[2]: Entrando no diretório `/home/fabiolg/lazarus/lcl/interfaces' > make[2]: *** Sem regra para processar o alvo `gtk2_clean', necessário por > `clean'. Pare. > make[2]: Saindo do diretório `/home/fabiolg/lazarus/lcl/interfaces' > make[1]: ** [cleanall] Erro 2 > make[1]: Saindo do diretório `/home/fabiolg/lazarus/lcl' > make: ** [cleanlaz] Erro 2 > > > > > > 2013/8/8 Reinier Olislagers > >> On 08/08/2013 02:03, Fabio Luis Girardi wrote: >> > Some days ago, I tried to build the latest Lazarus revision, but, using >> > make, it can't be done? >> Why not? What revision? What error messages are you seeing? What FPC >> version are you using? What operating system? Do you see smoke coming >> from your computer? Does your dog drool while watching the computer >> monitor intently? Does the sky light up at night? >> In other words: what's going on exactly - we're not mind readers! >> >> > make clean all >> > >> > To build Lazarus. Documentation is out of date? >> No. >> >> Lazarus SVN trunk is the development version. Things can break. Try >> again with a newer version. >> >> -- >> ___ >> Lazarus mailing list >> Lazarus@lists.lazarus.freepascal.org >> http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus >> > > > > -- > The best regards, > > Fabio Luis Girardi > PascalSCADA Project > http://sourceforge.net/projects/pascalscada > http://www.pascalscada.com > -- The best regards, Fabio Luis Girardi PascalSCADA Project http://sourceforge.net/projects/pascalscada http://www.pascalscada.com -- ___ Lazarus mailing list Lazarus@lists.lazarus.freepascal.org http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
Re: [Lazarus] Build Lazarus on Linux? Make is deprecated?
Exact, CodeTyphon creates a fpc64 instead of fpc link to ppcx64 :( 2013/8/8 Mattias Gaertner > > > > Fabio Luis Girardi hat am 8. August 2013 um > 13:29 > > geschrieben: > > > > Yes, make is installed. > > Sorry, I meant fpc is not in the PATH. > > > Mattias > -- The best regards, Fabio Luis Girardi PascalSCADA Project http://sourceforge.net/projects/pascalscada http://www.pascalscada.com -- ___ Lazarus mailing list Lazarus@lists.lazarus.freepascal.org http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
Re: [Lazarus] Build Lazarus on Linux? Make is deprecated?
Yes, make is installed. 2013/8/8 Mattias Gaertner > > > > Fabio Luis Girardi hat am 8. August 2013 um > 13:11 > > geschrieben: > > > > It has some tricks to build Lazarus with FPC of Codetyphon (4.41)? > > > > > > 2013/8/8 Fabio Luis Girardi ><mailto:fluisgira...@gmail.com> > > >> >I updated to latest lazarus revision yesterday. > > > > > >When I type "make clean all" this messages appears (in portuguese): > > > > > >make: -iVSPTPSOTO: Comando não encontrado > > 'make' is not in the search path. > > Have you installed make? > > Mattias > -- The best regards, Fabio Luis Girardi PascalSCADA Project http://sourceforge.net/projects/pascalscada http://www.pascalscada.com -- ___ Lazarus mailing list Lazarus@lists.lazarus.freepascal.org http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
Re: [Lazarus] Build Lazarus on Linux? Make is deprecated?
I updated to latest lazarus revision yesterday. When I type "make clean all" this messages appears (in portuguese): make: -iVSPTPSOTO: Comando não encontrado make -C ide cleanide make[1]: -iVSPTPSOTO: Comando não encontrado make[1]: Entrando no diretório `/home/fabiolg/lazarus/ide' /bin/rm -f /bin/rm -f /bin/rm -f /bin/rm -f /bin/rm -f /bin/rm -f /bin/rm -f /bin/rm -f /bin/rm -f /bin/rm -f /bin/rm -f /bin/rm -f /bin/rm -f /bin/rm -f /bin/rm -f /bin/rm -f /bin/rm -f /bin/rm -f /bin/rm -f make[1]: Saindo do diretório `/home/fabiolg/lazarus/ide' make -C packager/registration clean make[1]: -iVSPTPSOTO: Comando não encontrado make[1]: Entrando no diretório `/home/fabiolg/lazarus/packager/registration' /bin/rm -f fpcmade.- Package.fpc ppas.sh script.res link.res /bin/rm -f *.s *_ppas.bat make[1]: Saindo do diretório `/home/fabiolg/lazarus/packager/registration' make -C lcl cleanall make[1]: -iVSPTPSOTO: Comando não encontrado make[1]: Entrando no diretório `/home/fabiolg/lazarus/lcl' /bin/rm -f fpcmade.- Package.fpc ppas.sh script.res link.res /bin/rm -f *.s *_ppas.bat make -C interfaces clean make[2]: -iVSPTPSOTO: Comando não encontrado make[2]: Entrando no diretório `/home/fabiolg/lazarus/lcl/interfaces' make[2]: *** Sem regra para processar o alvo `gtk2_clean', necessário por `clean'. Pare. make[2]: Saindo do diretório `/home/fabiolg/lazarus/lcl/interfaces' make[1]: ** [cleanall] Erro 2 make[1]: Saindo do diretório `/home/fabiolg/lazarus/lcl' make: ** [cleanlaz] Erro 2 2013/8/8 Reinier Olislagers > On 08/08/2013 02:03, Fabio Luis Girardi wrote: > > Some days ago, I tried to build the latest Lazarus revision, but, using > > make, it can't be done? > Why not? What revision? What error messages are you seeing? What FPC > version are you using? What operating system? Do you see smoke coming > from your computer? Does your dog drool while watching the computer > monitor intently? Does the sky light up at night? > In other words: what's going on exactly - we're not mind readers! > > > make clean all > > > > To build Lazarus. Documentation is out of date? > No. > > Lazarus SVN trunk is the development version. Things can break. Try > again with a newer version. > > -- > ___ > Lazarus mailing list > Lazarus@lists.lazarus.freepascal.org > http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus > -- The best regards, Fabio Luis Girardi PascalSCADA Project http://sourceforge.net/projects/pascalscada http://www.pascalscada.com -- ___ Lazarus mailing list Lazarus@lists.lazarus.freepascal.org http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
[Lazarus] Build Lazarus on Linux? Make is deprecated?
Some days ago, I tried to build the latest Lazarus revision, but, using make, it can't be done? Something has been changed? I searched on Forum and Wiki and both tell me to type: make clean all To build Lazarus. Documentation is out of date? -- The best regards, Fabio Luis Girardi PascalSCADA Project http://sourceforge.net/projects/pascalscada http://www.pascalscada.com -- ___ Lazarus mailing list Lazarus@lists.lazarus.freepascal.org http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
[Lazarus] LCLMessageGlue Example
Hi!!
Looking to this page (http://wiki.freepascal.org/LCL_Tips) I found a item
called "Simulating Mouse and Keyboard input".
I don't found any example about LCLMessageGlue unit. I tried too the
following code (on a form with a TEdit called Edit1), that tries insert the
"a" character on Edit1:
implementation
uses LCLMessageGlue, LCLType;
{$R *.lfm}
{ TForm1 }
procedure TForm1.Button1Click(Sender: TObject);
var
akey: Word;
begin
akey:=VK_A;
LCLSendKeyDownEvent(Edit1,akey,0,false,True);
//Sleep(100);
LCLSendKeyUpEvent(Edit1,akey,0,false,True);
end;
Some ideas?
--
The best regards,
Fabio Luis Girardi
PascalSCADA Project
http://sourceforge.net/projects/pascalscada
http://www.pascalscada.com
--
___
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
Re: [Lazarus] Custom control
Very good :( Em 24/07/2013 18:30, "Vojtěch Čihák" escreveu: > I see now. It works here (Qt) but only if Form.Color = clDefault. When I > change Form.Color to clYellow it is transparent in design-time but not in > run-time. In run-time it looks like on your screenshot. > Maybe csParentBackground and csOpaque flags are not implemented for all > platforms. > > Vojtěch > __________ > > Od: "Fabio Luis Girardi" > > Komu: "Vojtěch Čihák" > > Datum: 24.07.2013 22:54 > > Předmět: Re: [Lazarus] Custom control > > > ControlStyle := ControlStyle - [csOpaque]; don't have effect, even in QT > -- ___ Lazarus mailing list Lazarus@lists.lazarus.freepascal.org http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
Re: [Lazarus] Custom control
ControlStyle := ControlStyle - [csOpaque]; don't have effect, even in QT 2013/7/24 Fabio Luis Girardi : > ControlStyle := ControlStyle - [csOpaque]; don't have effect, even in QT > > 2013/7/24 Vojtěch Čihák : >> It works for me but only in Qt. You have to set ControlStyle := ControlStyle >> - [csOpaque]; in constructor. csParentBackground seems to have no effect on >> it. >> >> In GTK2 I cannot overlay components anyway. >> >> >> >> Vojtěch >> >> __ >>> Od: "Fabio Luis Girardi" >>> Komu: Lazarus mailing list >>> Datum: 24.07.2013 21:30 >>> Předmět: [Lazarus] Custom control >>> >> >> Hi!! >> >> Somebody knows how make a custom control with background transparency >> on GTK2/QT? >> >> My idea is that a control behind of this custom control must be >> displayed (if this control is behind of a non painted area) >> >> >> Problem example attached. >> >> Ideas? >> >> -- >> The best regards, >> >> Fabio Luis Girardi >> PascalSCADA Project >> http://sourceforge.net/projects/pascalscada >> http://www.pascalscada.com >> >> >> -- >> >> -- >> ___ >> Lazarus mailing list >> Lazarus@lists.lazarus.freepascal.org >> http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus > > > > -- > The best regards, > > Fabio Luis Girardi > PascalSCADA Project > http://sourceforge.net/projects/pascalscada > http://www.pascalscada.com -- The best regards, Fabio Luis Girardi PascalSCADA Project http://sourceforge.net/projects/pascalscada http://www.pascalscada.com -- ___ Lazarus mailing list Lazarus@lists.lazarus.freepascal.org http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
[Lazarus] Custom control
Hi!! Somebody knows how make a custom control with background transparency on GTK2/QT? My idea is that a control behind of this custom control must be displayed (if this control is behind of a non painted area) Problem example attached. Ideas? -- The best regards, Fabio Luis Girardi PascalSCADA Project http://sourceforge.net/projects/pascalscada http://www.pascalscada.com <>-- ___ Lazarus mailing list Lazarus@lists.lazarus.freepascal.org http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
Re: [Lazarus] Package main source on project lpr
This looks good! Thanks for reply Mattias 2013/7/2 Mattias Gaertner : > On Tue, 2 Jul 2013 11:14:04 -0300 > Fabio Luis Girardi wrote: > >> Hi to everybody! >> >> >> A friend are working in redesigning all PascalSCADA packages, with the >> main target to remove all graphical dependencies, to make it usable on >> console applications and service applications. Talking with he, we >> have a question: >> >> Why Lazarus includes on the project LPR the main source of each >> package used instead of only add the package path to the project unit >> path and the unit of the used component to the uses clause of >> respective form/datamodule? >> >> E.g: If I include any component of the package pascalscada_hmi.lpk, >> the source pascalscada_hmi.pas will be included on project LPR. Why? > > This is controlled via the package option / Usage / Add package to uses > section. > For example if a package implements a graphic format the package > has initialization sections, but the project does not use any > package unit directly. In that case the option can be enabled and the > IDE adds the package unit to the lpr automatically. > > Mattias > > -- > ___ > Lazarus mailing list > Lazarus@lists.lazarus.freepascal.org > http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus -- The best regards, Fabio Luis Girardi PascalSCADA Project http://sourceforge.net/projects/pascalscada http://www.pascalscada.com -- ___ Lazarus mailing list Lazarus@lists.lazarus.freepascal.org http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
Re: [Lazarus] Package main source on project lpr
First, package is configured as Design+Runtime, I don't know if this can affect the project. Second, I'm doing a Drag-and-drop to insert a component in my application. Can I do something wrong doing this process? 2013/7/2 Juha Manninen : > On Tue, Jul 2, 2013 at 5:14 PM, Fabio Luis Girardi > wrote: >> Why Lazarus includes on the project LPR the main source of each >> package used instead of only add the package path to the project unit >> path and the unit of the used component to the uses clause of >> respective form/datamodule? >> >> E.g: If I include any component of the package pascalscada_hmi.lpk, >> the source pascalscada_hmi.pas will be included on project LPR. Why? > > It should not. You are doing something wrong. > Did you add the package dependency to the project correctly? > > Juha -- The best regards, Fabio Luis Girardi PascalSCADA Project http://sourceforge.net/projects/pascalscada http://www.pascalscada.com -- ___ Lazarus mailing list Lazarus@lists.lazarus.freepascal.org http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
[Lazarus] Package main source on project lpr
Hi to everybody! A friend are working in redesigning all PascalSCADA packages, with the main target to remove all graphical dependencies, to make it usable on console applications and service applications. Talking with he, we have a question: Why Lazarus includes on the project LPR the main source of each package used instead of only add the package path to the project unit path and the unit of the used component to the uses clause of respective form/datamodule? E.g: If I include any component of the package pascalscada_hmi.lpk, the source pascalscada_hmi.pas will be included on project LPR. Why? -- The best regards, Fabio Luis Girardi PascalSCADA Project http://sourceforge.net/projects/pascalscada http://www.pascalscada.com -- ___ Lazarus mailing list Lazarus@lists.lazarus.freepascal.org http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
Re: [Lazarus] [Lazarusdev] WinCE users please
With some specific FPC version? 2012/4/15 Martin : > Can anyone test, if rev 36792 (trunk only / not in fixes branch) works on > WinCE? > > Please compile with > WinIME > defined. > > http://bugs.freepascal.org/view.php?id=21663 > http://bugs.freepascal.org/view.php?id=21664 > ___ > Lazarusdev mailing list > lazarus...@freepascal.org > http://idefix.wisa.be/mailman/listinfo/lazarusdev > > -- > ___ > Lazarus mailing list > Lazarus@lists.lazarus.freepascal.org > http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus -- The best regards, Fabio Luis Girardi PascalSCADA Project http://sourceforge.net/projects/pascalscada http://www.pascalscada.com -- ___ Lazarus mailing list Lazarus@lists.lazarus.freepascal.org http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
[Lazarus] How get a handle for a TComponent descendant under GTK2
I'm trying to get a handle for a TComponent descendent class under GTK2. On Tmyclass.Create(..) I did: begin ... fHandle := AllocateHWnd(wndMessagesMethod); ... end; But when I call PostMessage(objectofMyClass.fhandle, LM_MYMESSAGE,0,0); I got the exception: "GetLCLObject=nil" So, what's the correct way to get a handle for a TComponent? -- The best regards, Fabio Luis Girardi PascalSCADA Project http://sourceforge.net/projects/pascalscada http://www.pascalscada.com -- ___ Lazarus mailing list Lazarus@lists.lazarus.freepascal.org http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
Re: [Lazarus] Lazarus and FPC teams need direction for marketing/promotion
> > I often find myself needing a library ported to FPC. Recently I came > across the Lucene project. With Lucene developers can create full > text search / document searches. I need a lucene component or > something like it. Enterprise search is BIG. It would be ideal. > Then you get in the search engines for Lucene keyword and voila - a > developer is going to evaluate Lazarus/FPC for adoption. But the more > developed these components are the better chance will be for the > developer to recommend Lazarus. And for the firm/institution will > approve it. Yes, more components improve the chance of an developer recommend Lazarus. I do it, because the team made by Lazarus+FPC is very powerful. If the Lazarus Team will follow this philosophy (more is better), my contribution is the PascalSCADA project, and if it's adopted, I'll drop the Delphi support from it (I'm thinking when I'll drop the Delphi support, it increases my headaches). The development of project website is stopped now, but in some days I'll put something like that "PascalSCADA recomends Lazarus+FPC" to convert Delphi users in Lazarus users. -- The best regards, Fabio Luis Girardi PascalSCADA Project http://sourceforge.net/projects/pascalscada http://www.pascalscada.com -- ___ Lazarus mailing list Lazarus@lists.lazarus.freepascal.org http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
[Lazarus] Lazarus 0.9.30.2 + FPC 2.6.0
Has some chance of a package Lazarus 0.9.30.2 + FPC 2.6.0 Win32+WinCE maybe released? -- The best regards, Fabio Luis Girardi PascalSCADA Project http://sourceforge.net/projects/pascalscada http://www.pascalscada.com -- ___ Lazarus mailing list Lazarus@lists.lazarus.freepascal.org http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
Re: [Lazarus] Free Pascal 2.6.0 released!
In www.freepascal.org is wrote: Current Version Version *2.4.4 *is the latest stable version the Free Pascal. Hit the download <http://www.freepascal.org/download.var> link and select a mirror close to you to download your copy. The development releases have version numbers *2.5.x*. See the development <http://www.freepascal.org/develop.var> page how to obtain the latest sources and support development. > -- The best regards, Fabio Luis Girardi PascalSCADA Project http://sourceforge.net/projects/pascalscada http://www.pascalscada.com -- ___ Lazarus mailing list Lazarus@lists.lazarus.freepascal.org http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
[Lazarus] Snapshots: FPC 2.5.1 x FPC 2.7.1
I'm looking at Lazarus snapshots folder and I'm curious: What's the difference between Lazarus with FPC 2.5.1 and Lazarus with FPC 2.7.1? -- The best regards, Fabio Luis Girardi PascalSCADA Project http://sourceforge.net/projects/pascalscada http://www.pascalscada.com -- ___ Lazarus mailing list Lazarus@lists.lazarus.freepascal.org http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
[Lazarus] Examples of TListView.OnCustomDrawItem
I searched on web and lazarus examples, but I don't found any example of how use TListView.OnCustomDrawItem to color each row using latest lazarus version. Somebody did something like this? Regards, Fabio -- ___ Lazarus mailing list Lazarus@lists.lazarus.freepascal.org http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
Re: [Lazarus] Inserting many components on form
I found another way to do this: extend the TCollection and write a new procedure Add to allow choose what's the item class the user wants create and make a Property editor for this new Collection class, that will call this new Add method (yes, can be more easy if the Add procedure of the TCollection as set as virtual, but...). Finally, my tags will be a descendant of TCollectionItem class. It isn't hard to do, and keep the features of TCollection. I'll start the implementation of this new idea, and post the result here. Regards, Fabio 2011/6/28 Hans-Peter Diettrich : > fluisgira...@gmail.com schrieb: > >> Maybe I started my components with a wrong concept. Each component, >> represents a memory (or a set of memories) on a remote device (like a PLC) >> that can be read and/or written. These components can be linked with edits, >> labels, progress bars and others controls created to show/modifies/stores >> the value of these components. > > I'd "virtualize" the GUI, so that not every item is represented by a > different component. It may help to store the items in a database, instead > of using the component streaming mechanism and resource files. > > It's okay to use components (i.e. controls) for the GUI, but these should be > limited to the required representation (dialogs...) of the data items. Then > configure the visible controls to show the data for the currently selected > item. > > DoDi > > -- ___ Lazarus mailing list Lazarus@lists.lazarus.freepascal.org http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
