Re: [lazarus] Another icons for Lazarus

2007-09-14 Thread Graeme Geldenhuys
On 14/09/2007, Paul Ishenin [EMAIL PROTECTED] wrote:

 Dont know. Cant understand what project icon means - paper box? But if
 other are happy I will add them.

My feeling is the same. Not sure if a 'inbox' or 'paper tray' is a
ideal icon for project. It doesn't convey project to me.

Graeme.

-- 
fpGUI - a cross-platform Free Pascal GUI toolkit
http://opensoft.homeip.net/fpgui/

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


[lazarus] mantis report status?

2007-09-14 Thread Graeme Geldenhuys
Hi,

This one has always puzzled me. What is the difference between a
report being marked as  Resolved or Closed?

Graeme.



-- 
fpGUI - a cross-platform Free Pascal GUI toolkit
http://opensoft.homeip.net/fpgui/

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


Re: [lazarus] mantis report status?

2007-09-14 Thread Paul Ishenin

Graeme Geldenhuys wrote:

Hi,

This one has always puzzled me. What is the difference between a
report being marked as  Resolved or Closed?



I understand them so:

Resolved is flag usually setted by developer. This flag means that bug 
is fixed or will not be fixed.


Closed is flag usually setted by reporter. This flag means that reporter 
already played with fixed version and very happy. But this flag can be 
seted by developer too if he have no feedback from reporter for a long 
time after bug fixing.



Best regards,
Paul Ishenin.

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


Re:Re: [lazarus] Working with XML: crosscompatibility

2007-09-14 Thread liuzg2
why not libxml2-原始邮件-发件人:Sergei Gorelkin <[EMAIL PROTECTED]>发送时间:2007/07/05 09:53:56收件人:lazarus@miraclec.com抄送:主题:Re: [lazarus] Working with XML: crosscompatibility
	  	Thursday,July05,2007,3:41:01AM,Luizwrote:

LAPCAlviseNicolettiwrote:
LuizAmericoPereiraCamarahascritto:
AlviseNicolettiwrote:
Hi...

IhavetoparsexmlbothwithLazarusonlinux(server)andDelphi
onWindows(client).

Actually,withLazarus,I'musingtheDOM,ReadXML,WriteXMLunits.

IstheresomethingthatIcanuseinDelphiwiththesamecode?Or,
otherwise,istheresomeXMLcomponentcompatibleforbothDelphi
andLazarus?


Sometimeagoiportedthefpcdomunittodelphi.Itwasjusta
matterofchangingtheplacesofconstsections,nochangewasmade
atall,ifiremenberwell.Icansendtoyoubutisabitoutdated.
Abetteroptionistotrytocompilethemostrecentfpcdomversion,
probablywillbeeasy.

Luiz


Hi,canyougivemesometipsaboutthatcrosscompilationthing?


Itseemsisnotmorenecessary.SeeSergeimessage.
Justgetthesourcefromsvnorfpc2.1.4andcompiletheunitswithDelphi

LAPCLuiz

Unfortunately,inmymessageIforgotaboutavl_tree.ppunitupon
whichXMLpackageisdependent.I'vepatcheditinordertocompile
withDelphi,butsincethispatchissomewhatnotdirectlyrelated
toFPCdevelopment,Ihadnotsentitouttogetherwithotherpatches.
Iattachithereforthesakeofcompleteness(tobeappliedfrom
packages/fcl-base/src/inc),butdon'tincludeitinSVN-itwill
break64-bitplatforms.

--
Bestregards,
Sergei
	  21CN企业邮箱买二送一行动开始啦!快来免费注册竞价广告帐户,免费投放邮箱广告

Re: [lazarus] Another icons for Lazarus

2007-09-14 Thread wile64
Hello,

I think that all the projects starts with paper crayonner sheets
(unmethodical), therefore chose paper tray !

it is a good idea I find (it is mine :D )?

Thought differently or to me given ideas

Thanks,

-- 
Laurent.

My Web : http://wile64.neuf.fr/
French Forum : http://lazforum-fr.tuxfamily.org/index.php


Re: [lazarus] mantis report status?

2007-09-14 Thread Graeme Geldenhuys
On 14/09/2007, Paul Ishenin [EMAIL PROTECTED] wrote:

 Resolved is flag usually setted by developer. This flag means that bug
 is fixed or will not be fixed.

 Closed is flag usually setted by reporter. This flag means that reporter
 already played with fixed version and very happy. But this flag can be

Now it makes sense!  Thanks for enlightening me.  :)   I'll go mark a
few of my reported issues as Closed.

Graeme.


-- 
fpGUI - a cross-platform Free Pascal GUI toolkit
http://opensoft.homeip.net/fpgui/

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


[lazarus] Ipro - Scrollbars

2007-09-14 Thread A.J. Venter

Hi all,
Is there any way to disable the internal scrollbars in TurboPowerIpro ? 
Or at least make them only show when the content exceeds the window size  ?



A.J.
--
Any sufficiently advanced technology is indistinguishable from magic - 
Clarke's law
Any technology that is distinguishable from magic is insufficiently 
advanced -Gehm's corollary
Any technologist that is distinguishable from a magician is 
insufficiently advanced - My corollary

The worlds worst webcoming: http://silentcoder.co.za/scartoonz
The worlds best cybercafe manager: http://outkafe.outkastsolutions.co.za

begin:vcard
fn:AJ Venter
n:Venter;AJ
org:Global Pact Trading Pty. Ltd.;OutKast Solutions
email;internet:[EMAIL PROTECTED]
title:Director of Product Development
tel;work:+27 21 554 5059
tel;fax:+27 21 413 2800
tel;cell:+27 83 455 9978
url:http://www.outkastsolutions.co.za
version:2.1
end:vcard



Re: [lazarus] Is lazreport supposed to work? (gtk2/linux)

2007-09-14 Thread Luca Olivetti

En/na Jesus Reyes ha escrit:


The Gtk2 interface is not yet as complete or tested as the windows or
GTK1 inteface, as the more work is put in GTK2 interface it will
benefit LazReport also. Btw, there are several bug reported in
relation with LazReport and GTK2 interface, if you find a bug in
LazReport either in GTK2, GTK1 o Windows that is not yet in bug
tracker please submit it, otherwise it might be forgotten. 


Ok, I submitted bugs 9678 and 9679

http://www.freepascal.org/mantis/view.php?id=9678
(components placed 200-300 pixels to the right of the cursor)

http://www.freepascal.org/mantis/view.php?id=9679
(no text in the printed report).

Bye
--
Luca Olivetti
Wetron Automatización S.A. http://www.wetron.es/
Tel. +34 93 5883004  Fax +34 93 5883007

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


Re: [lazarus] Another icons for Lazarus

2007-09-14 Thread wile64
Is what others could given their opinions?

Thanks,


2007/9/14, wile64 [EMAIL PROTECTED]:

 Hello,

 I think that all the projects starts with paper crayonner sheets
 (unmethodical), therefore chose paper tray !

 it is a good idea I find (it is mine :D )?

 Thought differently or to me given ideas

 Thanks,

 --
 Laurent.

 
 My Web : http://wile64.neuf.fr/
 French Forum : http://lazforum-fr.tuxfamily.org/index.php




-- 
Laurent.

My Web : http://wile64.neuf.fr/
French Forum : http://lazforum-fr.tuxfamily.org/index.php


[lazarus] Overview of LCL architecture.

2007-09-14 Thread Bruce Tulloch
I thought I'd have a go at finding a bug I reported today:

  http://www.freepascal.org/mantis/view.php?id=9676

and I think I might get to the bottom of it eventually.

My question here is a tangential to this...

Is there any overview documentation about the architecture
of the LCL and what the normal sequence of events is for a
typical GUI application in general?

I'm talking internally and down to the widget interface level.

How closely to Delphi's VCL does the LCL correspond and how
useful (or misleading) is Borland's documentation when trying
to understanding LCL's internal design at these levels below
the VCL API layer.

For example, in this specific case I think the problem is
that the TComboBox name is being rendered (by GTK) before
the component streaming of the TComboBox has even started
(in TWinControl.InitializeWnd).

The TPanel works because its Caption is not rendered at
this point in the LCL bootstrap sequence.

However I'm not confident of this diagnosis yet because
I don't know the normal sequence of events and what is
supposed to happen.

I will soldier on with the debugger to learn by example
but if there is a source of information that might speed
up the process and help avoid any blind alleys it would
be most welcome :-)

Many thanks, Bruce.

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


Re: [lazarus] Another icons for Lazarus

2007-09-14 Thread wile64
Remain traditional ;)

Regards,

-- 
Laurent.

My Web : http://wile64.neuf.fr/
French Forum : http://lazforum-fr.tuxfamily.org/index.php
attachment: menu_view_form.pngattachment: menu_view_unit.pngattachment: menu_build_config_lazarus.pngattachment: menu_search_-.pngattachment: menu_search_+.pngattachment: menu_options_help.png

Re: [lazarus] Overview of LCL architecture.

2007-09-14 Thread Chris Kirkpatrick
Bruce Tulloch wrote:
 I thought I'd have a go at finding a bug I reported today:

   http://www.freepascal.org/mantis/view.php?id=9676

 and I think I might get to the bottom of it eventually.

 My question here is a tangential to this...

 Is there any overview documentation about the architecture
 of the LCL and what the normal sequence of events is for a
 typical GUI application in general?

 I'm talking internally and down to the widget interface level.

 How closely to Delphi's VCL does the LCL correspond and how
 useful (or misleading) is Borland's documentation when trying
 to understanding LCL's internal design at these levels below
 the VCL API layer.

 For example, in this specific case I think the problem is
 that the TComboBox name is being rendered (by GTK) before
 the component streaming of the TComboBox has even started
 (in TWinControl.InitializeWnd).

 The TPanel works because its Caption is not rendered at
 this point in the LCL bootstrap sequence.

 However I'm not confident of this diagnosis yet because
 I don't know the normal sequence of events and what is
 supposed to happen.

 I will soldier on with the debugger to learn by example
 but if there is a source of information that might speed
 up the process and help avoid any blind alleys it would
 be most welcome :-)

 Many thanks, Bruce.

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


  

   
You might try looking at the on-line help for the LCL. The easiest way
to get there is to put the cursor on a key-word in your editor, and
press F1. Provided yu have an internet connection, you will be taken to
a HTML document describing the item, and you should find plenty of links
to help you, for example, to trace the ancestry of a particular
component and the properties defined in the ancestors.

I don't know if this helps; please be aware that the LCL documentation
for Lazarus is still in a pretty primitive state and needs a lot of work
(do I hear offers of help?), but you can discern the underlying
structure of any components you use.

Regards - Chris

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


[lazarus] MRU (most recently used) component

2007-09-14 Thread Graeme Geldenhuys
Hi,

Does Lazarus have a MRU component?  If not, anybody know where I could
get one to port.


-- 
fpGUI - a cross-platform Free Pascal GUI toolkit
http://opensoft.homeip.net/fpgui/

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


Re: [lazarus] MRU (most recently used) component

2007-09-14 Thread Stephano

Does Lazarus have a MRU component?  If not, anybody know where I could
get one to port.


RX components, JV pack, and Delphi Free Stuff have such a component.

Stephano

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


Re: [lazarus] Another icons for Lazarus

2007-09-14 Thread wile64
2007/9/11, Joost van der Sluis [EMAIL PROTECTED]:

 Well... if you have time, do you also allow requests?

 The icons of the sqldb-components aren't really beautiful. And the
 components in the fp-web-package (lazarus/components/fp-web) are
 non-existent... ;)


 Joost


You finds that prettier?

-- 
Laurent.

My Web : http://wile64.neuf.fr/
French Forum : http://lazforum-fr.tuxfamily.org/index.php
attachment: mysql_40.pngattachment: mysql_41.pngattachment: mysql_50.png

Re: [lazarus] MRU (most recently used) component

2007-09-14 Thread Vincent Snijders

Graeme Geldenhuys schreef:

Hi,

Does Lazarus have a MRU component?  If not, anybody know where I could
get one to port.



http://wiki.lazarus.freepascal.org/HistoryFiles

Vincent

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


Re: [lazarus] MRU (most recently used) component

2007-09-14 Thread Alex Kovacic

I hope this helps?

At 12:49 PM 14/09/2007 +0200, you wrote:
Hi,

Does Lazarus have a MRU component?  If not, anybody know where I could
get one to port.


-- 
fpGUI - a cross-platform Free Pascal GUI toolkit
http://opensoft.homeip.net/fpgui/

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

-unit adpMRU;

{$mode objfpc}{$H+}

interface

uses
  Windows, Messages, SysUtils, Classes, Menus, Registry;

type

  TMRUClickEvent = procedure(Sender: TObject; const FileName: String) of object;

  TadpMRU = class(TComponent)
  private
FItems : TStringList;

FMaxItems: cardinal;
FShowFullPath: boolean;
FRegistryPath: string;
FParentMenuItem: TMenuItem;
FOnClick: TMRUClickEvent;
procedure SetMaxItems(const Value: cardinal);
procedure SetShowFullPath(const Value: boolean);
procedure SetRegistryPath(const Value: string);
procedure SetParentMenuItem(const Value: TMenuItem);

procedure LoadMRU;
procedure SaveMRU;
procedure ItemsChange(Sender: TObject);
procedure ClearParentMenu;
  protected
procedure Loaded; override;
procedure Notification(AComponent: TComponent; Operation: TOperation); 
override;
procedure DoClick(Sender: TObject);

  public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;

procedure AddItem(const FileName: string);
function RemoveItem(const FileName : string) : boolean;
  published
property MaxItems: cardinal read FMaxItems write SetMaxItems default 4;
property ShowFullPath: boolean read FShowFullPath write SetShowFullPath 
default True;
property RegistryPath: string read FRegistryPath write SetRegistryPath;
property ParentMenuItem: TMenuItem read FParentMenuItem write 
SetParentMenuItem;

property OnClick: TMRUClickEvent read FOnClick write FOnClick;
  end;

procedure Register;

implementation

type
  TMRUMenuItem = class(TMenuItem); //to be able to recognize MRU menu item when 
deleting


procedure Register;
begin
  RegisterComponents('delphi.about.com', [TadpMRU]);
end;

{ TadpMRU }

constructor TadpMRU.Create(AOwner: TComponent);
begin
  inherited;
  FParentMenuItem := nil;
  FItems := TStringList.Create;
  FItems.OnChange := ItemsChange;

  FMaxItems := 4;
  FShowFullPath := True;
end; (*Create*)

procedure TadpMRU.Loaded;
begin
  inherited;
  if not (csDesigning in ComponentState) then
if FRegistryPath  '' then LoadMRU;
end; (*Loaded*)

destructor TadpMRU.Destroy;
begin
  if not (csDesigning in ComponentState) then SaveMRU;

  FItems.OnChange := nil;
  FItems.Free;

  inherited;
end; (*Destroy*)

procedure TadpMRU.Notification(AComponent: TComponent; Operation: TOperation);
begin
  inherited;
  if (Operation = opRemove) and (AComponent = FParentMenuItem) then
FParentMenuItem := nil;
end; (*Notification*)

procedure TadpMRU.AddItem(const FileName: string);
begin
  if FileName  '' then
  begin
FItems.BeginUpdate;
try
  if FItems.IndexOf(FileName)  -1 then
FItems.Delete(FItems.IndexOf(FileName));
  FItems.Insert(0, FileName);

  while FItems.Count  MaxItems do
FItems.Delete(MaxItems);
finally
  FItems.EndUpdate;
end;
  end;
end; (*AddItem*)

function TadpMRU.RemoveItem(const FileName: string): boolean;
begin
  if FItems.IndexOf(FileName)  -1 then
  begin
FItems.Delete(FItems.IndexOf(FileName));
Result := True;
  end
  else
Result := False;
end; (*RemoveItem*)

procedure TadpMRU.SetMaxItems(const Value: Cardinal);
begin
  if Value  FMaxItems then
  begin
if Value  1 then FMaxItems := 1
else
  if Value  MaxInt then
FMaxItems := MaxInt - 1
  else
  begin
FMaxItems := Value;
FItems.BeginUpdate;
try
  while FItems.Count  MaxItems do
FItems.Delete(FItems.Count - 1);
finally
  FItems.EndUpdate;
end;
  end;
  end;
end; (*SetMaxItems*)

procedure TadpMRU.SetRegistryPath(const Value: string);
begin
  if FRegistryPath  Value then
  begin
FRegistryPath := Value;
LoadMRU;
  end;
end; (*SetRegistryPath*)

procedure TadpMRU.SetShowFullPath(const Value: boolean);
begin
  if FShowFullPath  Value then
  begin
FShowFullPath := Value;
ItemsChange(Self);
  end;
end; (*SetShowFullPath*)

procedure TadpMRU.LoadMRU;
var
  i: cardinal;
begin
  with TRegistry.Create do
  try
RootKey := HKEY_CURRENT_USER;
if OpenKey(FRegistryPath, False) then
begin
  FItems.BeginUpdate;
  FItems.Clear;
  try
for i := 1 to FMaxItems do
  if ValueExists('MRU'+IntToStr(i)) then
FItems.Add(ReadString('MRU'+IntToStr(i)));
  finally
FItems.EndUpdate;
  end;
  CloseKey;
end;
  finally
Free;
  end;
end; (*LoadMRU*)

procedure TadpMRU.SaveMRU;
var
  i: integer;
begin
  with 

Re: Lazarus on one window (aka SDI)

2007-09-14 Thread Víctor R. Ruiz
  Hi Al:

2007/9/13, Al Boldi [EMAIL PROTECTED]:
 You can probably find it on google, but I attached it here for convenience.

  This approach is very interesting and I adapted it to 0.9.23 and
tested it this days. I didn't know a parent can be assigned to a whole
form,  and that avoids the need to put container panels in every form
and to capture Show and BringToFront events. However, in 0.9.23 I'm
not able to assign more than one form to another, so TStudio simply
doesn't work. I have reported the bug, let's see.

  Greetings,

-- 
Víctor R. Ruiz [EMAIL PROTECTED] | - Todos estos momentos se perderán
http://rvr.blogalia.com/   |   como lágrimas en la lluvia

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