Re: [Lazarus] Getting active project filename

2008-10-26 Thread Darius Blaszyk
On Sun, 2008-10-26 at 01:34 +0200, wile64 wrote:


 ExtractFileName(LazarusIDE.ActiveProject.ProjectInfoFile);

Thanks,

Darius

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


Re: [Lazarus] How to mimic MWSnap's Window Information feature on X11

2008-10-26 Thread Graeme Geldenhuys
On Thu, Oct 23, 2008 at 11:36 PM, Graeme Geldenhuys
[EMAIL PROTECTED] wrote:
 * *This* is the real feature I'm trying to duplicate. As you move the
 mouse, it draws a rectangle around the window area it's giving
 information about.
  eg: The button in a ComboBox or a Button or Edit on a Form etc.. The
 following link shows what I'm trying to accomplish.
  http://opensoft.homeip.net/~graemeg/mwsnap_screenshot.png

Just a follow-up.  I managed to implement such a program for X11
without much issue. It was easier than expected. There was also no
need to take a snapshot of the desktop. This is how I did it.

* To query the window/widget under the mouse pointer. I do a recursive
XQueryPointer() call. This could probably be improved with a
XQueryTree() call, but I couldn't figure out how to use the latter.
* Then to draw the highlighting rectangle around that window I used
the same functionality as is done for rubber banding when you resize
windows. I created a custom outline grahics context, set it's
._function call to GXInvert, set SubWindowMode property to
InferiorWindow and then all that remains is to draw directly onto the
root desktop window.
* To erase the highlighting rectangle, I simply redraw over the old
rectangle and GXInvert handles the rest.

Thanks to everybody that suggested alternatives etc...

Regards,
  - Graeme -


___
fpGUI - a cross-platform Free Pascal GUI toolkit
http://opensoft.homeip.net/fpgui/
___
Lazarus mailing list
Lazarus@lazarus.freepascal.org
http://www.lazarus.freepascal.org/mailman/listinfo/lazarus


Re: [Lazarus] How to mimic MWSnap's Window Information feature on X11

2008-10-26 Thread Funky Beast
Graeme Geldenhuys wrote:
 * To query the window/widget under the mouse pointer. I do a recursive
 XQueryPointer() call. This could probably be improved with a
 XQueryTree() call, but I couldn't figure out how to use the latter.

Hi,

You might get some hints for XQueryTree from here:
http://www.roard.com/docs/cookbook/cbsu19.html

HTH,
Funky Beast
___
Lazarus mailing list
Lazarus@lazarus.freepascal.org
http://www.lazarus.freepascal.org/mailman/listinfo/lazarus



Re: [Lazarus] Mac OS X : How to get my app to show proper Short-Cuts...

2008-10-26 Thread dominique
Hi Normann,
  Can you explain what you mean by dynamically? Do you mean via Carbon API
calls or LCL settings?



Dominique.

On Tue, 21 Oct 2008 09:20:27 +0200, EarMaster - Bent Olsen
[EMAIL PROTECTED] wrote:
 Hi,
 
 We use short cuts like Meta+O for Ctrl+O, but you need to map short cuts
 dynamically - some short cuts on Win32 needs to be remapped for Mac
users.
 
 Regards,
 Normann
 
 So is what I reported a bug that should be added to the bug tracker, as
 this was definitely working prior to the Lazarus Key mapping fix,
 probably because carbon apps back then, just didn't have any choice but
 to
 support the Cmd+SomeKey mapping.

 So Tobias, how do you use the Carbon API to change ^C to Cmd+C?

 Dominique.
 
 
 ___
 Lazarus mailing list
 Lazarus@lazarus.freepascal.org
 http://www.lazarus.freepascal.org/mailman/listinfo/lazarus

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


Re: [Lazarus] How to mimic MWSnap's Window Information feature on X11

2008-10-26 Thread Felipe Monteiro de Carvalho
try also:

ret_children[n]^

I'm sure something like that should work in mode objfpc

-- 
Felipe Monteiro de Carvalho
___
Lazarus mailing list
Lazarus@lazarus.freepascal.org
http://www.lazarus.freepascal.org/mailman/listinfo/lazarus


[Lazarus] IDE: Win32: MouseWheel Scrolling (SynEdit)

2008-10-26 Thread Christian Budde
Hello,

I just worked a bit with lazarus after some month. It's still quite 
impressive how good it works. On the other hand it's sad that so many 
things do not work yet. Especially in Win32 IMHO it's still easier to 
work in Delphi and only switch to Lazarus when necessary.

The reasons for this are so many small which simply doesn't work right 
or are anoying. One thing I'd like to mention here is the fact that in 
Delphi you can scroll in the editor by more than a line if you hold 
[CTRL] pressed while scrolling with the mouse. It's been in the since ages!

I just had a look in the 'synedit.pp' and it seems to be in there as 
well. However, it is if defined out. It seems as if the mouse wheel 
scrolling is handled elsewhere. Unfortunately I'm not that familar with 
the IDE (I did a grep for MouseWheel, but could only find that an 
TWouseWheelEvent is fired, but not where to find this).

Could someone give me a hint where to find and fix this. Or explain me, 
why the available code in the synedit.pp file can't be used?

If I could help out to solve this issue I'd be glad to 'fix' some more 
(like the annoying Shift+Click, that triggers slightly wrong and makes 
me continuously enter the wrong unit).

Kind regards,

Christian
___
Lazarus mailing list
Lazarus@lazarus.freepascal.org
http://www.lazarus.freepascal.org/mailman/listinfo/lazarus