[lazarus] SVN revision in About Box
Recently the SVN revision# no longer displays in the About box using fpc 2.04 (official release) with lazarus 10034. Win32. (on Win2KSP4).DD Talk is cheap. Use Yahoo! Messenger to make PC-to-Phone calls. Great rates starting at 1¢/min.
Re: [lazarus] pascal is obsolete?
Since this is a forum for PASCAL developers, donchathink that's preaching to the choir?DDBisma Jayadi [EMAIL PROTECTED] wrote: Who starts these useless threads anyway?I did. IMO this is not useless and I never intended this thread to be a language flame discussion. I just wanted to show that there are still ignorant C/C++ programmers out there that think pascal is obsolete. But the discussion has change along the way, that -of course- I can't control. :)Actually, if language comparison discussion is done with academical and objective atmosphere, it will be good for us and enrich our knowledge. :) My $.02.My $2. :)-Bee-has Bee.ography at:http://beeography.wordpress.com_To unsubscribe: mail [EMAIL PROTECTED] with"unsubscribe" as the Subjectarchives at http://www.lazarus.freepascal.org/mailarchives Yahoo! Messenger with Voice. PC-to-Phone calls for ridiculously low rates.
Re: [lazarus] pascal is obsolete?
Who starts these useless threads anyway?My $.02.Daniel"Thierry Coq (Personnel)" [EMAIL PROTECTED] wrote: Hello Tony,Tony Pelton a écrit : i've been using Java forever. as far as i can recall, inner classes and anonymous classes have been in the language since its inception. they were not "added".I remember inner classes were added to Java 1.1. They are not originally part of Java 1.0. Same thing for anonymous classes. Maybe I'm wrong, but I do remember a time where I used java without inner classes. weren't available. In fact, it's such a stupid idea Java is now coming to the notion of namespaces (for the same reason as C++ in its time). i'm not sure if you are citing some new language feature in Java 6 or something that I haven't heard of ?I'm sorry, I got the name wrong : the correct name is "SuperPackages" or JSR-292. Still under investigation. Also called "friends". ;-)Also, just coming out in Java are enums...(!) (JDK 1.5)I'm not attacking java here. Today's Pascal has evolved a lot from the original 1970s vintage Pascal. I'm just writing that many features of java have been available for years in Pascal to promote modern software engineering. And that sometimes, they are better designed, at least from a software engineering point of view. And I believe this language, this "Nicklaus Wirth School of Thought" will continue to evolve, for example, compiling to .NET or JVM targets. So No, Pascal is not obsolete.Pascal's best feature is the one I use most : I use Pascal as a Pseudo-language :-) , to design s/w, and I sometimes show it to my customers. The readability of Pascal to technically-trained professionals but not computer scientists is one of its best features. Sometimes, I don't deploy Pascal : it gets finally translated into another language for final executable production. However, the overall net result is positive : better communication, better design, better performance, less anomalies, if only because of the translation.Best regards,Thierry__This email has been scanned by the MessageLabs Email Security System.For more information please visit http://www.messagelabs.com/email ___To unsubscribe: mail [EMAIL PROTECTED] with"unsubscribe" as the Subjectarchives at http://www.lazarus.freepascal.org/mailarchives Yahoo! Messenger with Voice. Make PC-to-Phone Calls to the US (and 30+ countries) for 2¢/min or less.
Re: [lazarus] Problem with ZeosLib
Oops. I meant Package Graph insted of Configure Installed Packages.Go to Components|Configure Installed Packages and recompile all clean in the order specified in procedures to install the component. It tends to fail if you update FPC with SVN revisions. Does not seem to be so with all Lazarus SVN revisions.Lord ZealoN [EMAIL PROTECTED] wrote: I think this is faster than forums.I get this error compiling ZComponents.lpkD:\lazarus\components\zeoslib\src\component\ZPropertyEditor.pas(149,40)Fatal: Can't find unit PropEditsBut in the uses section, if i do SHIFT+click in PropEdits it opens.-- ::Mi blog::http://blog.lordzealon.com_To unsubscribe: mail [EMAIL PROTECTED] with"unsubscribe" as the Subjectarchives at http://www.lazarus.freepascal.org/mailarchives __Do You Yahoo!?Tired of spam? Yahoo! Mail has the best spam protection around http://mail.yahoo.com
Re: [lazarus] Compiling laz from svn + statistically linked components
In Windows, I was maintaining fpc 20x and fpc211 at various times. My solution was to rename the \pp directory to \pp20x or \pp211 and set the path variableto the location of the gnu libraries and fpc executables at the command prompt before launchinga make from the source directory. Since make build always targets the \pp directory (unless you change the parameters.),fpc will always end in the \pp directory. Just be sure you keep fpc.cfg"safe" and put your working copy in \pp\bin\i386-win32 directory.Ialso had to maintain separate directories for the source offpc. The only real drawback is that this eats a lot of disk space. Also, remember to change the source directories in the Lazarus environment.DanielAlexandre Leclerc [EMAIL PROTECTED] wrote: 2006/5/13, Mattias Gaertner <[EMAIL PROTECTED]>: If you want to use two different lazarus with different setups, then start the second with /path/of/the/second/lazarus --primary-config-path=/home/username/.secondlazarus This way you can test new packages or new lazarus versions comfortably without poking in the files, that the IDE can automatically setup for you.So since, unfortunately, installing a package required to staticallycompile it in the current version of lazarus; with this trick I cankick-start another more recent version of lazarus that does not havethe components yet statically compiled in it? (And it will still workin the design time tools?)When I tested that (replacing the exe with another one) this did notworked quite well...-- Alexandre Leclerc_To unsubscribe: mail [EMAIL PROTECTED] with"unsubscribe" as the Subjectarchives at http://www.lazarus.freepascal.org/mailarchives Blab-away for as little as 1¢/min. Make PC-to-Phone Calls using Yahoo! Messenger with Voice.
Re: [lazarus] Try compiling laz from command line... Fatal: Can't find unit Contnrs
check fpc.cfgDanielAlexandre Leclerc [EMAIL PROTECTED] wrote: (Under windows)I have a stable 2.0.2 fpc in /fpc/2.0.2/I did "make all; make install" a new fpc from svn and it is installedin /pp/bin... I copied the missing files from the stable released tothe new version in the /bin folder to get the additionnal gnu tools.Now if I set my path to the new /pp/bin... directory and c:\lazarus,there is no way it will compile. I don't know where is the mistake.makefile:3742: warning: overriding commands for target `examples'makefile:3704: warning: ignoring old commands for target `examples'make -C lcl allmake[1]: Entering directory `C:/lazarus/lcl'C:/pp/bin/i386-win32/rm.exe -f units/i386-win32/alllclunits.ppuC:/pp/bin/i386-win32/ppc386.exe -gl -Fu. -Fuforms -Fuwidgetset-Fiinclude -FE. -FUunits/i386-win32 -di386 alllclunits.ppFree Pascal Compiler version 2.1.1 [2006/05/15] for i386Copyright (c) 1993-2006 by Florian KlaempflTarget OS: Win32 for i386Compiling alllclunits.ppCompiling FileCtrl.ppCompiling StdCtrls.ppCompiling Graphics.ppFatal: Can't find unit ContnrsFatal: Compilation abortedmake[1]: *** [alllclunits.ppu] Error 1make[1]: Leaving directory `C:/lazarus/lcl'make: *** [lcl] Error 2-- Alexandre Leclerc_To unsubscribe: mail [EMAIL PROTECTED] with"unsubscribe" as the Subjectarchives at http://www.lazarus.freepascal.org/mailarchives Blab-away for as little as 1¢/min. Make PC-to-Phone Calls using Yahoo! Messenger with Voice.
Re: [lazarus] Bug Report 1861: found cause
Mattias Gaertner [EMAIL PROTECTED] wrote:On Wed, 22 Mar 2006 11:01:37 -0800 (PST)Daniel Dugan <[EMAIL PROTECTED]>wrote: [...] Can you create a diff, so we can see the differences? Mattias Here you go!Thanks. Applied.Mattias_ Hey Mattias:In bug report 1861, Etrusco noted that it is rather inelegant to declare the "DragObjectDragging" variable as all it does is declare a conditional for the following block when DragObject nil. The declaration can be removed so that the block would execute whenever DragObject nil. i.e.if DragObject nil then- DragObjectDragging := true else- DragObjectDragging := false;- if DragObjectDragging then begin+ begin P:=ClientToScreen(Point(X,Y)); DragObject.MouseMove(Shift,P.X,P.Y); end; New Yahoo! Messenger with Voice. Call regular phones from your PC and save big. How low will we go? Check out Yahoo! Messengers low PC-to-Phone call rates.
[lazarus] Fix Drag and Drop for control is dmAutomatic
The patch I sent for dragdock.inc only works for dragmode=dmManual. For a dmAutomatic control to work correctly then the following patch is required for dragobject.inc:Index: dragobject.inc===--- dragobject.inc(revision 9003)+++ dragobject.inc(working copy)@@ -73,7 +73,9 @@procedure TDragObject.CaptureChanged(OldCaptureControl: TControl);begin- DragDone(False);+ if OldCaptureControl.Dragging then+ DragDone(true) else+ DragDone(false);end;procedure TDragObject.KeyDown(var Key: Word; Shift: TShiftState);The value of OldCaptureControl must be tested or else the drag will always be cancelled. Yahoo! Messenger with Voice. PC-to-Phone calls for ridiculously low rates.
Re: [lazarus] Fix Drag and Drop for control is dmAutomatic
Luiz Americo Pereira Camara [EMAIL PROTECTED] wrote:Daniel Dugan escreveu: The patch I sent for dragdock.inc only works for dragmode=dmManual. For a dmAutomatic control to work correctly then the following patch is required for dragobject.inc: Index: dragobject.inc === --- dragobject.inc (revision 9003) +++ dragobject.inc (working copy) @@ -73,7 +73,9 @@ procedure TDragObject.CaptureChanged(OldCaptureControl: TControl); begin - DragDone(False); + if OldCaptureControl.Dragging then + DragDone(true) else + DragDone(false); end;The way bellow seems clever to me:procedure TDragObject.CaptureChanged(OldCaptureControl: TControl);beginDragDone(OldCaptureControl.Dragging);end;Luiz Outstanding! Thanks for the tip. I'm still trying to ferret out why I can't get proper messages during onDragOver events._To unsubscribe: mail [EMAIL PROTECTED] with"unsubscribe" as the Subjectarchives at http://www.lazarus.freepascal.org/mailarchives Blab-away for as little as 1¢/min. Make PC-to-Phone Calls using Yahoo! Messenger with Voice.
Re: [lazarus] Bug Report 1861: found cause
Drat! This successfully ends a drag operation but hoses up Dragover event handling. Still trying.Daniel Dugan [EMAIL PROTECTED] wrote: Daniel Dugan [EMAIL PROTECTED] wrote: I think I've found a cause for an end drag not working as I reported in issue 1861.TControl.MouseUp tests TControl.Dragging, and it is returning false because the control that generates the mouseup is the target and not the source. This prevents DragObject.MouseUp from firing when the mouse button is released. I'm not sure I'm up to finding the fix, but I will still keep looking as time permits.Also, Controls.pp has 2 SetCaptureControl procedures. Apparently, the on!
e with
only the Control:TControl parameter is correct. Yahoo! MailBring photos to life! New PhotoMail makes sharing a breeze. ! Try this: {-- TControl MouseUp--}Procedure TControl.MouseUp(Button: TMouseButton; Shift:TShiftState; X, Y: Integer);var P: TPoint; DragObjectDragging : Boolean;begin if DragObject nil then DragObjectDragging := TControl(DragObject.DragTarget).Dragging; if (Button in [mbLeft,mbRight]) and DragObjectDragging and (DragObjectnil) then begin P:=ClientToScreen(Point(X,Y));
DragObject.MouseUp(Button,Shift,P.X,P.Y); end; if Assigned(FOnMouseUp) then FOnMouseUp(Self, Button, Shift, X,Y);end; Brings words and photos together (easily) withPhotoMail - it's free and works with Yahoo! Mail.
Yahoo! Mail
Use Photomail to share photos without annoying attachments.
Re: [lazarus] Bug Report 1861: found cause
OK. Also need to change TControl.MouseMove:{-- TControl MouseMove --}Procedure TControl.MouseMove(Shift: TShiftState; X, Y: Integer);var P: TPoint; DragObjectDragging : Boolean;begin if DragObject nil then DragObjectDragging := true else DragObjectDragging := false; if DragObjectDragging then begin P:=ClientToScreen(Point(X,Y)); DragObject.MouseMove(Shift,P.X,P.Y); end; if Assigned(FOnMouseMove) then FOnMouseMove(Self, Shift, X,Y);end; This makes DragOver events fire as well. Daniel Dugan [EMAIL PROTECTED] wrote: Drat! This successfully ends a drag operation but hoses up Dragover event handling. Still trying.Daniel Dugan [EMAIL PROTECTED] wrote: Daniel Dugan [EMAIL PROTECTED] wrote: I think I've found a cause for an end drag not working as I reported in issue 1861.TControl.MouseUp tests TControl.Dragging, and it is returning false because the control that generates the mouseup is the target and not the source. This prevents DragObject.MouseUp from firing when the mouse button is released. I'm not sure I'm up to finding the fix, but I will still keep looking as time permits.
Also, Controls.pp has 2 SetCaptureControl procedures. Apparently, the on! e with only the Control:TControl parameter is correct. Yahoo! MailBring photos to life! New PhotoMail makes sharing a breeze. ! Try this: {-- TControl MouseUp--}Procedure TControl.MouseUp(Button: TMouseButton; Shift:TShiftState; X, Y: Integer);var P: TPoint; DragObjectDragging : Boolean;begin if DragObject nil then DragObjectDragging := TControl(DragObject.DragTarget).Dragging; if (Button in [mbLeft,mbRight]) and DragObjectDragging and (DragObjectnil) then
begin P:=ClientToScreen(Point(X,Y)); DragObject.MouseUp(Button,Shift,P.X,P.Y); end; if Assigned(FOnMouseUp) then FOnMouseUp(Self, Button, Shift, X,Y);end; Brings words and photos together (easily) withPhotoMail - it's free and works with Yahoo! Mail. Yahoo! MailUse Photomail to share photos without annoying attachments.
Yahoo! Mail
Bring photos to life! New PhotoMail makes sharing a breeze.
Re: [lazarus] Bug Report 1861: found cause
Mattias Gaertner [EMAIL PROTECTED] wrote: On Wed, 22 Mar 2006 09:13:53 -0800 (PST)Daniel Dugan <[EMAIL PROTECTED]>wrote: OK. Also need to change TControl.MouseMove: {-- TControl MouseMove --- ---} Procedure TControl.MouseMove(Shift: TShiftState; X, Y: Integer); var P: TPoint; DragObjectDragging : Boolean; begin if DragObject nil then DragObjectDragging := true else DragObjectDragging := false; if DragObjectDragging then begin P:=ClientToScreen(Point(X,Y)); DragObject.MouseMove(Shift,P.X,P.Y); end; if
Assigned(FOnMouseMove) then FOnMouseMove(Self, Shift, X,Y); end; This makes DragOver events fire as well. Daniel Dugan <[EMAIL PROTECTED]>wrote: Drat! This successfully ends a drag operation but hoses up Dragover event handling. Still trying. Daniel Dugan <[EMAIL PROTECTED]>wrote: Daniel Dugan <[EMAIL PROTECTED]>wrote: I think I've found a cause for an end drag not working as I reported in issue 1861. TControl.MouseUp tests TControl.Dragging, and it is returning false because the control that generates the mouseup is the target and not the source. This prevents DragObject.MouseUp from firing when the mouse button is released. I'm not sure I'm up to finding the fix, but I will still keep looking as time permits. Also, Controls.pp has 2 SetCaptureControl procedures. Apparently, the on! e !
with only
the Control:TControl parameter is correct. - Yahoo! Mail Bring photos to life! New PhotoMail makes sharing a breeze. ! Try this: {-- TControl MouseUp - -} Procedure TControl.MouseUp(Button: TMouseButton; Shift:TShiftState; X, Y: Integer); var P: TPoint; DragObjectDragging : Boolean; begin if DragObject nil then DragObjectDragging := TControl(DragObject.DragTarget).Dragging; if (Button in [mbLeft,mbRight]) and DragObjectDragging and (DragObjectnil) then begin P:=ClientToScreen(Point(X,Y)); DragObject.MouseUp(Button,Shift,P.X,P.Y); end; if Assigned(FOnMouseUp) then FOnMouseUp(Self, Button, Shi!
ft,
X,Y); end;Can you create a diff, so we can see the differences?MattiasHere you go!Daniel
Yahoo! Travel
Find
great deals to the top 10 hottest destinations!Index: control.inc
===
--- control.inc (revision 8981)
+++ control.inc (working copy)
@@ -2898,8 +2898,12 @@
Procedure TControl.MouseMove(Shift: TShiftState; X, Y: Integer);
var
P: TPoint;
+ DragObjectDragging : Boolean;
begin
- if Dragging and (DragObjectnil) then begin
+ if DragObject nil then
+DragObjectDragging := true else
+DragObjectDragging := false;
+ if DragObjectDragging then begin
P:=ClientToScreen(Point(X,Y));
DragObject.MouseMove(Shift,P.X,P.Y);
end;
@@ -2913,8 +2917,12 @@
X, Y: Integer);
var
P: TPoint;
+ DragObjectDragging : Boolean;
begin
- if (Button in [mbLeft,mbRight]) and Dragging and (DragObjectnil) then begin
+ if DragObject nil then
+DragObjectDragging := true else
+DragObjectDragging := false;
+if (Button in [mbLeft,mbRight]) and DragObjectDragging then begin
P:=ClientToScreen(Point(X,Y));
DragObject.MouseUp(Button,Shift,P.X,P.Y);
end;
[lazarus] Supplement to Bug Issue 1861: Esc Key does not cancel drag (Patch)
Patch for dragdrop.inc as it neglects to checkDrop parameter. [Pressing the ESC key during a drag sends a DragDone(false)]Index: dragdock.inc===--- dragdock.inc(revision 8981)+++ dragdock.inc(working copy)@@ -325,7 +325,7 @@ TargetPos := DragObject.DragPos; // last DragOver message (make sure, there is at least one)- Accepted:=(ActiveDrag dopNone) and SendDragOver(dmDragLeave);+ Accepted:=(ActiveDrag dopNone) and SendDragOver(dmDragLeave) and Drop; // erase global variables (dragging stopped) DragControl := nil; Yahoo! Messenger with Voice. Make PC-to-Phone Calls to the US (and 30+ countries) for 2¢/min or less.
[lazarus] Bug Report 1861: found cause
I think I've found a cause for an end drag not working as I reported in issue 1861.TControl.MouseUp tests TControl.Dragging, and it is returning false because the control that generates the mouseup is the target and not the source. This prevents DragObject.MouseUp from firing when the mouse button is released. I'm not sure I'm up to finding the fix, but I will still keep looking as time permits.Also, Controls.pp has 2 SetCaptureControl procedures. Apparently, the one with only the Control:TControl parameter is correct. Yahoo! Mail Bring photos to life! New PhotoMail makes sharing a breeze.
Re: [lazarus] Bug Report 1861: found cause
Daniel Dugan [EMAIL PROTECTED] wrote:I think I've found a cause for an end drag not working as I reported in issue 1861.TControl.MouseUp tests TControl.Dragging, and it is returning false because the control that generates the mouseup is the target and not the source. This prevents DragObject.MouseUp from firing when the mouse button is released. I'm not sure I'm up to finding the fix, but I will still keep looking as time permits.Also, Controls.pp has 2 SetCaptureControl procedures. Apparently, the one with only the Control:TControl parameter is correct. Yahoo! MailBring photos to life! New PhotoMail makes sharing a breeze. !
Try
this: {-- TControl MouseUp--}Procedure TControl.MouseUp(Button: TMouseButton; Shift:TShiftState; X, Y: Integer);var P: TPoint; DragObjectDragging : Boolean;begin if DragObject nil then DragObjectDragging := TControl(DragObject.DragTarget).Dragging; if (Button in [mbLeft,mbRight]) and DragObjectDragging and (DragObjectnil) then begin P:=ClientToScreen(Point(X,Y)); DragObject.MouseUp(Button,Shift,P.X,P.Y); end; if Assigned(FOnMouseUp) then FOnMouseUp(Self, Button, Shift, X,Y);end;
Brings words and photos together (easily) with
PhotoMail - it's free and works with Yahoo! Mail.
