AW: AW: [lazarus] [ANN] Application using VT and ACS

[Christian Ulrich]

>Why do you think it should be linked at the main page?

Becouse it is linked nowhere at time, where schould it be linked ??

_
 To unsubscribe: mail [EMAIL PROTECTED] with
"unsubscribe" as the Subject
   archives at http://www.lazarus.freepascal.org/mailarchives

Re: AW: [lazarus] [ANN] Application using VT and ACS

[Vincent Snijders]

Christian Ulrich wrote:

I have changed the german main page and added an screenshot of Audio X
to The Lazarus Application gallery.
I dont have rights to change the english main page maybe this can be
dobe by vincent,jesus or mathias ?


You can do it, yourself now. I removed the page protection for the time 
being, after having seen the German text.


Swen Heinig could have done the same, but Jesus or Mattias cannot. Do 
you think more administrators are needed?


Vincent

_
To unsubscribe: mail [EMAIL PROTECTED] with
   "unsubscribe" as the Subject
  archives at http://www.lazarus.freepascal.org/mailarchives

Re: AW: [lazarus] [ANN] Application using VT and ACS

[Vincent Snijders]

Christian Ulrich wrote:

I have changed the german main page and added an screenshot of Audio X
to The Lazarus Application gallery.
I dont have rights to change the english main page maybe this can be
dobe by vincent,jesus or mathias ?

Regards
Christian

-Ursprüngliche Nachricht-
Von: Alexandre Leclerc [mailto:[EMAIL PROTECTED] 
Gesendet: Donnerstag, 27. Juli 2006 18:02

An: lazarus@miraclec.com
Betreff: Re: [lazarus] [ANN] Application using VT and ACS


2006/7/27, Christian Ulrich <[EMAIL PROTECTED]>:

Exactly, thanks maybe i schould link this at the mainpage beside 
actice lazarus projects ?


Why do you think it should be linked at the main page?





I would totally agree. I was not able to find it myself; I had to use
google. (I know google can tell me who is pointing to this page, but I
had no time for that.)



_
To unsubscribe: mail [EMAIL PROTECTED] with
   "unsubscribe" as the Subject
  archives at http://www.lazarus.freepascal.org/mailarchives

AW: [lazarus] [ANN] Application using VT and ACS

[Christian Ulrich]

I have changed the german main page and added an screenshot of Audio X
to The Lazarus Application gallery.
I dont have rights to change the english main page maybe this can be
dobe by vincent,jesus or mathias ?

Regards
Christian

-Ursprüngliche Nachricht-
Von: Alexandre Leclerc [mailto:[EMAIL PROTECTED] 
Gesendet: Donnerstag, 27. Juli 2006 18:02
An: lazarus@miraclec.com
Betreff: Re: [lazarus] [ANN] Application using VT and ACS


2006/7/27, Christian Ulrich <[EMAIL PROTECTED]>:
> Exactly, thanks maybe i schould link this at the mainpage beside 
> actice lazarus projects ?

I would totally agree. I was not able to find it myself; I had to use
google. (I know google can tell me who is pointing to this page, but I
had no time for that.)

-- 
Alexandre Leclerc

_
 To unsubscribe: mail [EMAIL PROTECTED] with
"unsubscribe" as the Subject
   archives at http://www.lazarus.freepascal.org/mailarchives



_
 To unsubscribe: mail [EMAIL PROTECTED] with
"unsubscribe" as the Subject
   archives at http://www.lazarus.freepascal.org/mailarchives

Re: [lazarus] What is the FPC portable way to PostMessage?

[Alexandre Leclerc]

2006/7/27, Alexandre Leclerc <[EMAIL PROTECTED]>:

Now, I can't remember that status/state property of a control to know
if it is in a destroy operation so that I would not add a call in the
queue.


 if not (csDestroying in ComponentState) then

Another problem solved; thread closed :)

--
Alexandre Leclerc

_
To unsubscribe: mail [EMAIL PROTECTED] with
   "unsubscribe" as the Subject
  archives at http://www.lazarus.freepascal.org/mailarchives

Re: [lazarus] What is the FPC portable way to PostMessage?

[Alexandre Leclerc]

2006/7/27, Micha Nelissen <[EMAIL PROTECTED]>:

Alexandre Leclerc wrote:
> 2006/7/27, Alexandre Leclerc <[EMAIL PROTECTED]>:
>> Oh yeah! Thank guys! This is exactly what I was looking for and it's
>> working great!
>
> Ok, if i queue a call and close a form I'll get a problem because the
> last message is executed after teh form is no more... Is there a call
> to process these messages first before exiting? (I tried
> ProcessMessage in the OnClose event but it did nothing. The procedure
> gets called too late. Unless there is another way of checking to avoid
> problems?

No, all messages are processed before calling methods in the queue. Why
do you need to have your method called earlier ?


I just saw that ProcessMessages is processing the queue after the
messages. Now I understand better my proble,: a control is placing a
call in the queue when being destroyed; thus when the queue is
processed it will try to interract with a destroyed control.

Now, I can't remember that status/state property of a control to know
if it is in a destroy operation so that I would not add a call in the
queue.

--
Alexandre Leclerc

_
To unsubscribe: mail [EMAIL PROTECTED] with
   "unsubscribe" as the Subject
  archives at http://www.lazarus.freepascal.org/mailarchives

Re: [lazarus] What is the FPC portable way to PostMessage?

[Micha Nelissen]

Alexandre Leclerc wrote:
> 2006/7/27, Alexandre Leclerc <[EMAIL PROTECTED]>:
>> Oh yeah! Thank guys! This is exactly what I was looking for and it's
>> working great!
> 
> Ok, if i queue a call and close a form I'll get a problem because the
> last message is executed after teh form is no more... Is there a call
> to process these messages first before exiting? (I tried
> ProcessMessage in the OnClose event but it did nothing. The procedure
> gets called too late. Unless there is another way of checking to avoid
> problems?

No, all messages are processed before calling methods in the queue. Why
do you need to have your method called earlier ?

Micha


_
 To unsubscribe: mail [EMAIL PROTECTED] with
"unsubscribe" as the Subject
   archives at http://www.lazarus.freepascal.org/mailarchives

Re: [Lazarus] Last Snapshots not draw control in runtime

[Vincent Snijders]

v.scozzaro '[EMAIL PROTECTED]' wrote:

Last Snapshots not draw control in runtime

http://www.hu.freepascal.org/lazarus/
 


ftp://ftp.hu.freepascal.org/pub/lazarus/Lazarus-0.9.17-20060727-win32.exe
This Not draw control in runtime


Please, submit a bug report with a sample application.

Vincent

_
To unsubscribe: mail [EMAIL PROTECTED] with
   "unsubscribe" as the Subject
  archives at http://www.lazarus.freepascal.org/mailarchives

Re: [lazarus] What is the FPC portable way to PostMessage?

[Alexandre Leclerc]

2006/7/27, Alexandre Leclerc <[EMAIL PROTECTED]>:

Oh yeah! Thank guys! This is exactly what I was looking for and it's
working great!


Ok, if i queue a call and close a form I'll get a problem because the
last message is executed after teh form is no more... Is there a call
to process these messages first before exiting? (I tried
ProcessMessage in the OnClose event but it did nothing. The procedure
gets called too late. Unless there is another way of checking to avoid
problems?

--
Alexandre Leclerc

_
To unsubscribe: mail [EMAIL PROTECTED] with
   "unsubscribe" as the Subject
  archives at http://www.lazarus.freepascal.org/mailarchives

Re: [lazarus] What is the FPC portable way to PostMessage?

[Alexandre Leclerc]

2006/7/27, Micha Nelissen <[EMAIL PROTECTED]>:

Alexandre Leclerc wrote:
> The only stuff I can find is: QueueAsyncCall() and ExecuteAction() but
> I have no clue how to use and if it does the job. Because if we had a

http://wiki.lazarus.freepascal.org/index.php/Asynchronous_Calls

Best cross-platform way to defer execution of a method.


Oh yeah! Thank guys! This is exactly what I was looking for and it's
working great!

--
Alexandre Leclerc

_
To unsubscribe: mail [EMAIL PROTECTED] with
   "unsubscribe" as the Subject
  archives at http://www.lazarus.freepascal.org/mailarchives

Re: [lazarus] What is the FPC portable way to PostMessage?

[Micha Nelissen]

Alexandre Leclerc wrote:
> The only stuff I can find is: QueueAsyncCall() and ExecuteAction() but
> I have no clue how to use and if it does the job. Because if we had a

http://wiki.lazarus.freepascal.org/index.php/Asynchronous_Calls

Best cross-platform way to defer execution of a method.

Micha

_
 To unsubscribe: mail [EMAIL PROTECTED] with
"unsubscribe" as the Subject
   archives at http://www.lazarus.freepascal.org/mailarchives

Re: [lazarus] What is the FPC portable way to PostMessage?

[Jesus Reyes]

 --- Alexandre Leclerc <[EMAIL PROTECTED]> escribió:

> I need to post a message in the 'message queue' of my application
> so
> that the message is processed after other messages have been
> processed... In Delphi the PostMessage() function was doing the
> thing
> with a special message trap in the class.public section.
> 
> Is this portable? Or is there another mechanism in FPC?
> 
> -- 
> Alexandre Leclerc
> 

That would be an Asynchronous Call see the wiki page:
http://wiki.lazarus.freepascal.org/index.php/Asynchronous_Calls

for an implementation example see the diff at:
http://lazreport.cvs.sourceforge.net/lazreport/lazreport/source/lr_progr.pas?r1=1.4&r2=1.5&sortby=date

the ipro package in lazarus also uses that technique...

Jesus Reyes A.

__
Correo Yahoo!
Espacio para todos tus mensajes, antivirus y antispam ¡gratis! 
Regístrate ya - http://correo.yahoo.com.mx/ 

_
 To unsubscribe: mail [EMAIL PROTECTED] with
"unsubscribe" as the Subject
   archives at http://www.lazarus.freepascal.org/mailarchives

Re: [lazarus] What is the FPC portable way to PostMessage?

[Alexandre Leclerc]

2006/7/27, Michael Van Canneyt <[EMAIL PROTECTED]>:



On Thu, 27 Jul 2006, Alexandre Leclerc wrote:

> I need to post a message in the 'message queue' of my application so
> that the message is processed after other messages have been
> processed... In Delphi the PostMessage() function was doing the thing
> with a special message trap in the class.public section.
>
> Is this portable? Or is there another mechanism in FPC?

This is not portable as far as I know.


Is there a way to add a message in the Application run queue? In fact
I don't care if it's a message or not, I simply want to introduce the
executing of a procedure a little bit later, after the current queued
messages are executed.

The only stuff I can find is: QueueAsyncCall() and ExecuteAction() but
I have no clue how to use and if it does the job. Because if we had a
solution directly with TApplication, we would have quite a good
portable 'queueing process' with TApplication.

--
Alexandre Leclerc

_
To unsubscribe: mail [EMAIL PROTECTED] with
   "unsubscribe" as the Subject
  archives at http://www.lazarus.freepascal.org/mailarchives

Re: [lazarus] What is the FPC portable way to PostMessage?

[Michael Van Canneyt]

On Thu, 27 Jul 2006, Alexandre Leclerc wrote:

> I need to post a message in the 'message queue' of my application so
> that the message is processed after other messages have been
> processed... In Delphi the PostMessage() function was doing the thing
> with a special message trap in the class.public section.
> 
> Is this portable? Or is there another mechanism in FPC?

This is not portable as far as I know.

Michael.

_
 To unsubscribe: mail [EMAIL PROTECTED] with
"unsubscribe" as the Subject
   archives at http://www.lazarus.freepascal.org/mailarchives

Re: [lazarus] [ANN] Application using VT and ACS

[Alexandre Leclerc]

2006/7/27, Christian Ulrich <[EMAIL PROTECTED]>:

Exactly, thanks maybe i schould link this at the mainpage beside actice
lazarus projects ?


I would totally agree. I was not able to find it myself; I had to use
google. (I know google can tell me who is pointing to this page, but I
had no time for that.)

--
Alexandre Leclerc

_
To unsubscribe: mail [EMAIL PROTECTED] with
   "unsubscribe" as the Subject
  archives at http://www.lazarus.freepascal.org/mailarchives

[lazarus] Segmentation fault with a cocktail of VTV events + ROPS... if someone can help.

[Alexandre Leclerc]

The moment I execute a ROPS (RemObject PascalScript) script inside a
VST (VirtualStringTree/Editor) I'm getting a seg fault.

I use an Editor to edit node columns' value. When the editor is done
it raises that OnEdited VST event (in which the ROPS function is
called and execute properly) and then the Editor object call
GetNextEditableNode. Inside the editor there is a FTree private var to
have the pointer on the VST that called this editor.

If I change the node by clicking with the mouse I have no problems
(the key press event of the editor is not raised), but if I use the
keyboard I have a seg fault.

Here sample of code... FTree after EndEditNode which execute a ROPS
script is garbaged... Now, is this a serious ROPS or VST problem or
something else?

procedure TVTOptionsEditor.EditKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
var
 CanAdvance: Boolean;
 node: PVirtualNode;
 temp: PVirtualNode;
 offset: Integer;
begin
 case Key of
   VK_RETURN,
   VK_UP,
   VK_DOWN:
 begin
   CanAdvance := Shift = [];
   if FEdit is TComboBox then
 CanAdvance := CanAdvance and not TComboBox(FEdit).DroppedDown;
   if CanAdvance then
   begin
 FTree.EndEditNode;
 with FTree do
 begin
   FocusedNode := GetNextEditableNode(FTree, Key <> VK_UP, False,
 False);
...
end;

I removed class function to simple function to test, it changed
nothing (just in case it caused problems)

class function TVTOptionsEditor.GetNextEditableNode(vst: TVirtualStringTree;
 const ascending, priceRequired, prodRequired: Boolean): PVirtualNode;
var
 data: ^TOptionsTreeData;
begin
 with vst do
 begin
   Result := FocusedNode;
...
end;


Here is the backtrace. The only thing I can say is that the FTree
variable has garbages (from the caller right to here; evidently).

Program received signal SIGSEGV, Segmentation fault.
$005c3a64 in TVTOPTIONSEDITOR__GETNEXTEDITABLENODE (VST=$746c7573,
ASCENDING=true, PRICEREQUIRED=false, PRODREQUIRED=false,
   pvmt=$8bef8) at uVTOptionsEditors.pas:288
288 uVTOptionsEditors.pas: No such file or directory.
   in uVTOptionsEditors.pas
Current language:  auto; currently pascal
(gdb) bt
#0  $005c3a64 in TVTOPTIONSEDITOR__GETNEXTEDITABLENODE (VST=$746c7573,
ASCENDING=true, PRICEREQUIRED=false,
   PRODREQUIRED=false, pvmt=$8bef8) at uVTOptionsEditors.pas:288
#1  $005c34b9 in TVTOPTIONSEDITOR__EDITKEYDOWN (SENDER=$13a9ce0,
KEY=13, SHIFT=[], this=$8bf90) at uVTOptionsEditors.pas:136
#2  $004a53cd in TWINCONTROL__KEYDOWN (KEY=13, SHIFT=[],
this=$13a9ce0) at wincontrol.inc:3598
#3  $004a5406 in VTREF133_VMT_CONTROLS_TWINCONTROL$$193 () at
wincontrol.inc:3607
#4  $004a572f in VTREF136_VMT_CONTROLS_TWINCONTROL$$194 () at
wincontrol.inc:3743
#5  $004a72c7 in TWINCONTROL__CNKEYDOWN (MESSAGE={MSG = 48384,
CHARCODE = 13, UNUSED = 30676, KEYDATA = 1835009, RESULT = 0},
   this=$13a9ce0) at wincontrol.inc:4789
#6  $0040c5c9 in SYSTEM_TOBJECT_$__DISPATCH$formal ()
#7  $004a72b0 in VTREF186_VMT_CONTROLS_TCONTROL$$139 () at wincontrol.inc:4777
#8  $004a4deb in VTREF124_VMT_FORMS_TCUSTOMFORM$$237 () at wincontrol.inc:3399
#9  $005c33db in TVTOPTIONSEDITOR__EDITWINDOWPROC (MESSAGE=
 {MSG = 48384, WPARAM = 2010382349, LPARAM = 1835009, RESULT = 0,
WPARAMLO = 13, WPARAMHI = 30676, LPARAMLO = 1, LPARAMHI = 28, RESULTLO
= 0, RESULTHI = 0}, this=$8bf90) at uVTOptionsEditors.pas:106
#10 $0053238b in DELIVERMESSAGE (TARGET=$13a9ce0, MESSAGE=
 {MSG = 48384, WPARAM = 2010382349, LPARAM = 1835009, RESULT = 0,
WPARAMLO = 13, WPARAMHI = 30676, LPARAMLO = 1, LPARAMHI = 28, RESULTLO
= 0, RESULTHI = 0}) at Win32Proc.pp:572
#11 $0047a4d4 in VTREF35_VMT_WIN32INT_TWIN32WIDGETSET$$185 () at
win32callback.inc:1841
#12 $77d48734 in USER32!GetDC () from /cygdrive/c/WINDOWS/system32/user32.dll
#13 $00090434 in ?? ()
#14 $0100 in ?? ()
#15 $000d in ?? ()
#16 $001c0001 in ?? ()
#17 $004789d0 in CHECKMOUSEMOVEMENT () at win32callback.inc:156
#18 $77d48816 in USER32!GetDC () from /cygdrive/c/WINDOWS/system32/user32.dll
#19 $004789d0 in CHECKMOUSEMOVEMENT () at win32callback.inc:156
#20 $77d489cd in USER32!GetWindowLongW () from
/cygdrive/c/WINDOWS/system32/user32.dll
#21 $ in ?? () from
#22 $004789d0 in CHECKMOUSEMOVEMENT () at win32callback.inc:156
#23 $77d496c7 in USER32!DispatchMessageA () from
/cygdrive/c/WINDOWS/system32/user32.dll
#24 $0006fe58 in ?? ()
#25 $0001 in ?? ()
#26 $0006fe78 in ?? ()
#27 $0047c666 in TWIN32WIDGETSET__APPPROCESSMESSAGES (this=$1) at
win32object.inc:327
#28 $0047c666 in TWIN32WIDGETSET__APPPROCESSMESSAGES (this=$126bc8) at
win32object.inc:327
#29 $004237f9 in VTREF255_VMT_INTERFACEBASE_TWIDGETSET$$24 () at
application.inc:920
#30 $00423bd4 in RUNMESSAGE (parentfp=$6ff10) at application.inc:1035
#31 $00423b2f in TAPPLICATION__RUNLOOP (this=$10eb80) at application.inc:1045
#32 $0042cc53 in TWIDGETSET__APPRUN (ALOOP=$423af0
, this=$126bc8) at interfacebase.inc:42
#33 $00423aea in VTREF258_VMT_INTERFACEBASE_TWIDGETSET$$

AW: [lazarus] [ANN] Application using VT and ACS

[Christian Ulrich]

Exactly, thanks maybe i schould link this at the mainpage beside actice
lazarus projects ?

-Ursprüngliche Nachricht-
Von: Alexandre Leclerc [mailto:[EMAIL PROTECTED] 
Gesendet: Donnerstag, 27. Juli 2006 16:27
An: lazarus@miraclec.com
Betreff: Re: [lazarus] [ANN] Application using VT and ACS


2006/7/27, Christian U. <[EMAIL PROTECTED]>:
> >Looks very cool :-)
>
> >Maybe you can create a page in the Lazarus wiki :-)
>
> >Michael.
>
> I donend have found the "projects" page, is it linked in some of the 
> main pages ? I know i have seen month bevore something like an "made 
> with lazarus" site but dont find them again

>From main page of ccr:
http://wiki.lazarus.freepascal.org/index.php/Main_Page
you can scroll down to "References, Links and Resources" > "Active
Lazarus Projects"

Here is the direct link:
http://wiki.lazarus.freepascal.org/index.php/Projects_using_Lazarus

-- 
Alexandre Leclerc

_
 To unsubscribe: mail [EMAIL PROTECTED] with
"unsubscribe" as the Subject
   archives at http://www.lazarus.freepascal.org/mailarchives



_
 To unsubscribe: mail [EMAIL PROTECTED] with
"unsubscribe" as the Subject
   archives at http://www.lazarus.freepascal.org/mailarchives

[lazarus] What is the FPC portable way to PostMessage?

[Alexandre Leclerc]

I need to post a message in the 'message queue' of my application so
that the message is processed after other messages have been
processed... In Delphi the PostMessage() function was doing the thing
with a special message trap in the class.public section.

Is this portable? Or is there another mechanism in FPC?

--
Alexandre Leclerc

_
To unsubscribe: mail [EMAIL PROTECTED] with
   "unsubscribe" as the Subject
  archives at http://www.lazarus.freepascal.org/mailarchives

Re: [lazarus] [ANN] Application using VT and ACS

[Alexandre Leclerc]

2006/7/27, Christian U. <[EMAIL PROTECTED]>:

no, thats not what i mean somebody has begon to create an page with
screenshots and deep descriptions of the project and not just links ...


I don't know from where in the ccr you can reach
"Lazarus_Application_Gallery" but it is there:
http://wiki.lazarus.freepascal.org/index.php/Lazarus_Application_Gallery
http://www.freepascal.org/gallery.html

--
Alexandre Leclerc

_
To unsubscribe: mail [EMAIL PROTECTED] with
   "unsubscribe" as the Subject
  archives at http://www.lazarus.freepascal.org/mailarchives

Re: [lazarus] [ANN] Application using VT and ACS

[Christian U.]

no, thats not what i mean somebody has begon to create an page with
screenshots and deep descriptions of the project and not just links ...

Christian


- Original Message - 
From: Swen Heinig
To: lazarus@miraclec.com
Sent: Thursday, July 27, 2006 4:24 PM
Subject: Re: [lazarus] [ANN] Application using VT and ACS




Christian U. schrieb:
Looks very cool :-)



Maybe you can create a page in the Lazarus wiki :-)



Michael.


I donend have found the "projects" page, is it linked in some of the main
pages ?
I know i have seen month bevore something like an "made with lazarus" site
but dont find them again

Christian


Maybe this one
http://wiki.lazarus.freepascal.org/index.php/Projects_using_Lazarus ?

Swen

_
 To unsubscribe: mail [EMAIL PROTECTED] with
"unsubscribe" as the Subject
   archives at http://www.lazarus.freepascal.org/mailarchives




_
 To unsubscribe: mail [EMAIL PROTECTED] with
"unsubscribe" as the Subject
   archives at http://www.lazarus.freepascal.org/mailarchives

Re: [lazarus] [ANN] Application using VT and ACS

[Alexandre Leclerc]

2006/7/27, Christian U. <[EMAIL PROTECTED]>:

>Looks very cool :-)

>Maybe you can create a page in the Lazarus wiki :-)

>Michael.

I donend have found the "projects" page, is it linked in some of the main
pages ?
I know i have seen month bevore something like an "made with lazarus" site
but dont find them again



From main page of ccr: http://wiki.lazarus.freepascal.org/index.php/Main_Page

you can scroll down to "References, Links and Resources" > "Active
Lazarus Projects"

Here is the direct link:
http://wiki.lazarus.freepascal.org/index.php/Projects_using_Lazarus

--
Alexandre Leclerc

_
To unsubscribe: mail [EMAIL PROTECTED] with
   "unsubscribe" as the Subject
  archives at http://www.lazarus.freepascal.org/mailarchives

Re: [lazarus] [ANN] Application using VT and ACS

[Swen Heinig]

Christian U. schrieb:

  
Looks very cool :-)

  
  
  
  
Maybe you can create a page in the Lazarus wiki :-)

  
  
  
  
Michael.

  
  
I donend have found the "projects" page, is it linked in some of the main
pages ?
I know i have seen month bevore something like an "made with lazarus" site
but dont find them again

Christian

  

Maybe this one   
http://wiki.lazarus.freepascal.org/index.php/Projects_using_Lazarus ?

Swen

  _
 To unsubscribe: mail [EMAIL PROTECTED] with
"unsubscribe" as the Subject
   archives at http://www.lazarus.freepascal.org/mailarchives


  

Re: [lazarus] [ANN] Application using VT and ACS

[Christian U.]

>Looks very cool :-)

>Maybe you can create a page in the Lazarus wiki :-)

>Michael.

I donend have found the "projects" page, is it linked in some of the main
pages ?
I know i have seen month bevore something like an "made with lazarus" site
but dont find them again

Christian

_
 To unsubscribe: mail [EMAIL PROTECTED] with
"unsubscribe" as the Subject
   archives at http://www.lazarus.freepascal.org/mailarchives

[lazarus] Problems with TBitmap

[Paul Michell]

I am trying to do something like the following:

  Picture := TBitmap.Create;
  try
Picture.PixelFormat := pf32bit;
Picture.Width := 20;
Picture.Height := 20;
Picture.Canvas.rectangle(0,0,19,19);
Picture.Canvas.rectangle(0,0,9,9);
Picture.SaveToFile('Test.bmp');
  finally
Picture.Free;
  end;

However this code only works if the current display is 32bpp. Is this because 
TBitmap is always a DDB? If so, is there anyway of working with 32bit DIBs in 
Lazarus and then displaying/saving the files?

Thanks,

Paul

_
 To unsubscribe: mail [EMAIL PROTECTED] with
"unsubscribe" as the Subject
   archives at http://www.lazarus.freepascal.org/mailarchives

[Lazarus] Last Snapshots not draw control in runtime

[v.scozzaro '[EMAIL PROTECTED]']

Last Snapshots not draw control in runtime

http://www.hu.freepascal.org/lazarus/
 


ftp://ftp.hu.freepascal.org/pub/lazarus/Lazarus-0.9.17-20060727-win32.exe
This Not draw control in runtime


_
To unsubscribe: mail [EMAIL PROTECTED] with
   "unsubscribe" as the Subject
  archives at http://www.lazarus.freepascal.org/mailarchives

RE: Who is the PascalScript maintainer for lazarus?

[George Birbilis]

> > Best thing would be to have compiler defines and rewrite those
> > assembler instructions as normal Pascal code (would help porting to
> > other CPUs)
> >
>
> Yes,I considered it ...but it's impossible.I've asked fpc
> developers about it and in fact stack manipulation is
> impossible with pure pascal code.But good news is that there
> is only a few small parts of code which need to be in
> assembler (most of them in uPSRuntime.pas if I good remember)

You can inject machine code (can translate assembly 1-1 to machinecode using
any assembler you like) in memory with PURE pascal code and then jump to it
by calling a procedure pointer that points to that memory area ;o). That is
if they mean they need to inject stack processing headers/footers into
autogenerated code in memory (do they mean so though?)

BTW, when they say stack manipulation what do they really mean? The ROPS
stack? (I don't think so, since the ROPS VM is Pascal code and you could do
as you like). I assume it's for calling from ROPS into Delphi
procedures/functions/methods. To push data into the stack you could write to
memory directly, couldn't you? Why do you have to use PUSH/POP and the SP
(stack Pointer)? Is there already a memory protection scheme in FP runtime
that doesn't allow stack manipulation?

Btw, Memory data protection features of FPC compiler or the OS might
interfere with such practices in the future though (if not currently), but
an app should be able to tell the OS which memory is protected from jumping
into

I'd really like to know more about the issue, in case I can help ...still
remember that nice Peter Norton's book building their hexeditor step-by-step
in assembler (used to make game cheats in the past ;-). I have a x64 CPU at
hand too and respective OS to test if needed (what's the conditional
compilation symbols used at FPC for CPU architectures?)

Cheers,
George


George Birbilis ([EMAIL PROTECTED])
Microsoft MVP J# for 2004-2006
Borland "Spirit of Delphi"
* QuickTime, QTVR, ActiveX, .NET, Delphi VCL, XML, IPC
http://www.kagi.com/birbilis
* Robotics
http://www.mech.upatras.gr/~Robotics
http://www.mech.upatras.gr/~robgroup




  _  

avast! Antivirus  : Outbound message clean. 


Virus Database (VPS): 0630-2, 26/07/2006
Tested on: 27/7/2006 4:09:09 ??
avast! - copyright (c) 1988-2006 ALWIL Software.



_
 To unsubscribe: mail [EMAIL PROTECTED] with
"unsubscribe" as the Subject
   archives at http://www.lazarus.freepascal.org/mailarchives

RE: Who is the PascalScript maintainer for lazarus?

[George Birbilis]

> > The result value of floats isn't send back properly, which
> is a known
> > issue, other result values should work fine.
> >
>
> Of FPC or in general?

No, of ROPS in general I think





  _  

avast! Antivirus  : Outbound message clean. 


Virus Database (VPS): 0630-2, 26/07/2006
Tested on: 27/7/2006 3:59:15 ??
avast! - copyright (c) 1988-2006 ALWIL Software.



_
 To unsubscribe: mail [EMAIL PROTECTED] with
"unsubscribe" as the Subject
   archives at http://www.lazarus.freepascal.org/mailarchives

Re: Who is the PascalScript maintainer for lazarus?

[Alexandre Leclerc]

2006/7/27, Florian Klaempfl <[EMAIL PROTECTED]>:

Carlo Kok wrote:
> Alexandre Leclerc wrote:
>> 2006/7/26, Bogusław Brandys <[EMAIL PROTECTED]>:
>>> 32-bit assembler parts supports now FPC calling convention (FPC is using
>>> EAX and EDX differently when calling virtual methods or something
>>> similiar, don't quite remember (it was hardest part by the way))
>> I got a problem with imported functions in PS... the Result value is
>> not sent back. (I sent a post to the ROPS newsgroup.) Do you think it
>> is a FPC issue? Or a compiler/registry trick?
>>
>
> The result value of floats isn't send back properly, which is a known
> issue, other result values should work fine.
>

Of FPC or in general?


I can't compare with Delphi, but when invoking an Imported function
from Lazarus into PS I was not able (in PS) to get the return value
(which is a string). But there are no errors, only nothing. The
function is declared as a standard function (not a function of
object). The Import sample, once converted to lazarus, shows the thing
pretty simply.

--
Alexandre Leclerc

_
To unsubscribe: mail [EMAIL PROTECTED] with
   "unsubscribe" as the Subject
  archives at http://www.lazarus.freepascal.org/mailarchives

Re: Who is the PascalScript maintainer for lazarus?

[Alexandre Leclerc]

Carlo! :)

I tought you were in vacation! :) Well, have good vacations. Just in
case you read this mail, the result value is actually a string (I used
the Import example... when you will be back from vacation you'll see
the example on the forum.)

Meanwhile I return the value through a "var value: string" parameter.
It does work in FPC.

Best regards.

2006/7/27, Carlo Kok <[EMAIL PROTECTED]>:

Alexandre Leclerc wrote:
> 2006/7/26, Bogusław Brandys <[EMAIL PROTECTED]>:
>> 32-bit assembler parts supports now FPC calling convention (FPC is using
>> EAX and EDX differently when calling virtual methods or something
>> similiar, don't quite remember (it was hardest part by the way))
>
> I got a problem with imported functions in PS... the Result value is
> not sent back. (I sent a post to the ROPS newsgroup.) Do you think it
> is a FPC issue? Or a compiler/registry trick?
>

The result value of floats isn't send back properly, which is a known
issue, other result values should work fine.

--
Carlo Kok
RemObjects Software

_
 To unsubscribe: mail [EMAIL PROTECTED] with
"unsubscribe" as the Subject
   archives at http://www.lazarus.freepascal.org/mailarchives




--
Alexandre Leclerc

_
To unsubscribe: mail [EMAIL PROTECTED] with
   "unsubscribe" as the Subject
  archives at http://www.lazarus.freepascal.org/mailarchives

Re: [lazarus] [ANN] Application using VT and ACS

[Michael Van Canneyt]

On Thu, 27 Jul 2006, Christian U. wrote:


Maybe its intristing for some of you, have begon to write yn audio library
application
its an good example whats possible at time with Lazarus+VT+ACS

Features at time (growing ... :))

- Management without database (your mediafiles are scanned at startup so
every information is actual)
- ID3V2.1 .2 .3 .4 (Support of most Tags including Images in mp3´s),
Vorbiscomment
- Saves all Information direct in the file tags
- Non-File based media can be managed with xml based file format (CD´s, LP´s
and so on)
- Players are completely independent from the library so if something
crashes ...
- Players play mp3,wma,ogg,flac,monkey audio
- Pitch
- Output Drivers selectable (wave, directx in windows and alsa,oss in linux)
- Media based information management (an file is an title and is part of an
media (album,sampler,single whatever) files can be part of more than one
media)
- Free views (you can build treeviews with an string at example
"Year>Month>Genre" will sort everything by Year then subfolders with Month
and then Genre)
- Fuzzysearch (no exact matches needed to find what you want)
- Automatic additive online update
- Bugtracker/featurerequest direct integrated in the application
(encapsulates an mantis system)
and so on ...

Screenshots:
http://update.ullihome.de/ax1.jpg
http://update.ullihome.de/ax2.jpg
http://update.ullihome.de/ax3.jpg

Download if someone will take a look at it:
http://update.ullihome.de/AudioX-Setup_0.0B11.zip


Looks very cool :-)

Maybe you can create a page in the Lazarus wiki :-)

Michael.

Re: [lazarus] [patch] Conditional Define dialog

[Mattias Gaertner]

On Thu, 27 Jul 2006 09:21:47 +0200
"Graeme Geldenhuys" <[EMAIL PROTECTED]> wrote:

> Hi
> 
> As promised... Attached is a patch for the above mentioned dialog.
> Patch should be applied from root Lazarus directory.
> 
> Issues fixed:
>  * Text doesn't fit buttons. Buttons widened.
>  * Listbox item height is to small. The lower part of letters
> are clipped by the neighbouring lines.
>  * Standard defines don't fit in the edit boxes. Dialog widened.

Thans. Applied.

Mattias

_
 To unsubscribe: mail [EMAIL PROTECTED] with
"unsubscribe" as the Subject
   archives at http://www.lazarus.freepascal.org/mailarchives

Re: Who is the PascalScript maintainer for lazarus?

[Florian Klaempfl]

Carlo Kok wrote:
> Alexandre Leclerc wrote:
>> 2006/7/26, Bogusław Brandys <[EMAIL PROTECTED]>:
>>> 32-bit assembler parts supports now FPC calling convention (FPC is using
>>> EAX and EDX differently when calling virtual methods or something
>>> similiar, don't quite remember (it was hardest part by the way))
>> I got a problem with imported functions in PS... the Result value is
>> not sent back. (I sent a post to the ROPS newsgroup.) Do you think it
>> is a FPC issue? Or a compiler/registry trick?
>>
> 
> The result value of floats isn't send back properly, which is a known
> issue, other result values should work fine.
> 

Of FPC or in general?

_
 To unsubscribe: mail [EMAIL PROTECTED] with
"unsubscribe" as the Subject
   archives at http://www.lazarus.freepascal.org/mailarchives

[lazarus] [patch] Conditional Define dialog

[Graeme Geldenhuys]

Hi

As promised... Attached is a patch for the above mentioned dialog.
Patch should be applied from root Lazarus directory.

Issues fixed:
* Text doesn't fit buttons. Buttons widened.
* Listbox item height is to small. The lower part of letters
   are clipped by the neighbouring lines.
* Standard defines don't fit in the edit boxes. Dialog widened.


Regards,
 - Graeme -


--
There's no place like 127.0.0.1
Index: ide/condef.lfm
===
--- ide/condef.lfm	(revision 9685)
+++ ide/condef.lfm	(working copy)
@@ -1,50 +1,52 @@
 object CondForm: TCondForm
+  Left = 328
+  Height = 238
+  Top = 287
+  Width = 330
+  HorzScrollBar.Page = 329
+  HorzScrollBar.Range = 186
+  VertScrollBar.Page = 237
+  VertScrollBar.Range = 157
   ActiveControl = ListBox
   Caption = 'Conditional Defines'
-  ClientHeight = 238
-  ClientWidth = 213
   OnClose = CondFormCLOSE
   OnCreate = CondFormCREATE
   OnDestroy = FormDestroy
   OnShow = FormShow
-  PixelsPerInch = 95
   Position = poDesktopCenter
-  TextHeight = 13
-  HorzScrollBar.Page = 212
-  HorzScrollBar.Range = 186
-  VertScrollBar.Page = 237
-  VertScrollBar.Range = 157
-  Left = 360
-  Height = 238
-  Top = 344
-  Width = 213
   object FirstLabel: TLabel
+Left = 6
+Height = 17
+Top = 2
+Width = 75
 Caption = '&First test'
 Color = clNone
 FocusControl = FirstTest
 ParentColor = False
-Left = 6
-Height = 13
-Top = 2
-Width = 57
   end
   object SecondLabel: TLabel
+AnchorSideTop.Control = FirstTest
+AnchorSideTop.Side = asrBottom
+Left = 6
+Height = 17
+Top = 46
+Width = 99
 BorderSpacing.Top = 6
 Caption = '&Second test'
 Color = clNone
 FocusControl = SecondTest
 ParentColor = False
-AnchorSideTop.Control = FirstTest
-AnchorSideTop.Side = asrBottom
-Left = 6
-Height = 13
-Top = 42
-Width = 76
   end
   object FirstTest: TComboBox
+AnchorSideTop.Control = FirstLabel
+AnchorSideTop.Side = asrBottom
+Left = 5
+Height = 21
+Top = 19
+Width = 217
 Anchors = [akTop, akLeft, akRight]
 AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
-ItemHeight = 13
+ItemHeight = 18
 ItemIndex = 0
 Items.Strings = (
   'MSWINDOWS'
@@ -62,31 +64,31 @@
 ParentCtl3D = False
 TabOrder = 0
 Text = 'MSWINDOWS'
-AnchorSideTop.Control = FirstLabel
-AnchorSideTop.Side = asrBottom
-Left = 5
-Height = 21
-Top = 15
-Width = 118
   end
   object ListBox: TListBox
+AnchorSideTop.Control = SecondTest
+AnchorSideTop.Side = asrBottom
+Left = 5
+Height = 141
+Top = 90
+Width = 217
 Anchors = [akTop, akLeft, akRight, akBottom]
 BorderSpacing.Top = 6
-ItemHeight = 13
+ItemHeight = 18
 OnKeyDown = ListBoxKeyDown
 TabOrder = 2
 TopIndex = -1
-AnchorSideTop.Control = SecondTest
-AnchorSideTop.Side = asrBottom
-Left = 5
-Height = 149
-Top = 82
-Width = 118
   end
   object SecondTest: TComboBox
+AnchorSideTop.Control = SecondLabel
+AnchorSideTop.Side = asrBottom
+Left = 5
+Height = 21
+Top = 63
+Width = 217
 Anchors = [akTop, akLeft, akRight]
 AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
-ItemHeight = 13
+ItemHeight = 18
 ItemIndex = 0
 Items.Strings = (
   'NONE'
@@ -96,36 +98,34 @@
 ParentCtl3D = False
 TabOrder = 1
 Text = 'NONE'
-AnchorSideTop.Control = SecondLabel
-AnchorSideTop.Side = asrBottom
-Left = 5
-Height = 21
-Top = 55
-Width = 118
   end
   object AddBtn: TBitBtn
+Left = 229
+Height = 25
+Top = 6
+Width = 97
 Anchors = [akTop, akRight]
 Caption = '&Add'
 NumGlyphs = 0
 OnClick = AddBtnClick
 TabOrder = 3
-Left = 129
-Height = 25
-Top = 6
-Width = 82
   end
   object RemoveBtn: TBitBtn
+Left = 229
+Height = 25
+Top = 64
+Width = 97
 Anchors = [akTop, akRight]
 Caption = '&Remove'
 NumGlyphs = 0
 OnClick = RemoveBtnClick
 TabOrder = 5
-Left = 129
-Height = 25
-Top = 64
-Width = 82
   end
   object OkBtn: TBitBtn
+Left = 229
+Height = 25
+Top = 95
+Width = 97
 Anchors = [akTop, akRight]
 Caption = '&OK'
 Default = True
@@ -133,12 +133,12 @@
 ModalResult = 1
 NumGlyphs = 0
 TabOrder = 6
-Left = 129
-Height = 25
-Top = 95
-Width = 82
   end
   object BitBtn1: TBitBtn
+Left = 229
+Height = 25
+Top = 125
+Width = 97
 Anchors = [akTop, akRight]
 Cancel = True
 Caption = 'Cancel'
@@ -146,21 +146,17 @@
 ModalResult = 2
 NumGlyphs = 0
 TabOrder = 7
-Left = 129
-Height = 25
-Top = 125
-Width = 82
   end
   object AddInverse: TButton
+Left = 229
+Height = 25
+Top = 34
+Width = 97
+HelpType = htKeyword
 Anchors = [akTop, a