Re: [lazarus] setColor patch

2006-01-11 Thread darekM

Marc Santhoff napisał(a):


Am Dienstag, den 10.01.2006, 19:22 +0100 schrieb darekm:
[...]
 


- TButton and TPanel do not react to setting the color at all
 


for TButton I will prepare patch soon



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


Re: [lazarus] changing color on TPanel works only one way

2006-01-11 Thread Micha Nelissen

Marc Santhoff wrote:

for example. Is there a paper somewhere explaning this topic in overview
for getting the big picture?


There is the lcl/widgetsets/README file, and the wiki page 
http://wiki.lazarus.freepascal.org/index.php/LCL_Internals.


Not much, I'm afraid.

Micha

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


Re: [lazarus] ListView bug

2006-01-11 Thread Mattias Gaertner
On Tue, 10 Jan 2006 22:08:26 -0400
Luis R. Hilario B. [EMAIL PROTECTED] wrote:

 I already found it.  It was in the LCL (customlistview.*), but Windows
 was not affected, rare.

Some events are different. That's why the LCL is flexible and we always
suggest, that a programmer avoids using messages.

Mattias



 
 2006/1/10, Luis R. Hilario B. [EMAIL PROTECTED]:
  Thanks you!
 
  Which file has the modifications?
  http://www.freepascal.org/cgi-bin/viewcvs.cgi/trunk/?root=lazarus
 
  2006/1/10, Mattias Gaertner [EMAIL PROTECTED]:
   On Wed, 4 Jan 2006 20:27:50 -0400
   Luis R. Hilario B. [EMAIL PROTECTED] wrote:
  
2006/1/4, Mattias Gaertner [EMAIL PROTECTED]:
 On Wed, 4 Jan 2006 10:16:26 -0400
 Luis R. Hilario B. [EMAIL PROTECTED] wrote:

  Hello,
 
  if TListView.Items.Delete(Last.Selected.Index) then Lazarus
  crash;

 Can you send an example?

I cannot reproduce the problem with an example.
   
And it is different with Code Templates : erasing the first time
functions well, but when is erased again (the last one selected)
failure: List index (24) out of bounds.
  
   Fixed.
   The Selected was not updated properly.
  
   Mattias
  
   _
To unsubscribe: mail [EMAIL PROTECTED] with
   unsubscribe as the Subject
  archives at http://www.lazarus.freepascal.org/mailarchives
  
 
 
  --
  http://luisdigital.com
 
 
 
 --
 http://luisdigital.com
 
 _
  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] Make error on last svn

2006-01-11 Thread Markku Niskanen
Result of make:

Compiling allcodetoolunits.pp
Compiling CodeToolManager.pas
CodeToolManager.pas(564,15) Error: Identifier not found ExceptFrameCount
CodeToolManager.pas(565,11) Error: Identifier not found ExceptFrames

Platform: Win32

-- 
[EMAIL PROTECTED]

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


Re: [lazarus] Make error on last svn

2006-01-11 Thread Vincent Snijders

Markku Niskanen wrote:

Result of make:

Compiling allcodetoolunits.pp
Compiling CodeToolManager.pas
CodeToolManager.pas(564,15) Error: Identifier not found ExceptFrameCount
CodeToolManager.pas(565,11) Error: Identifier not found ExceptFrames

Platform: Win32


Mattias,

ExceptFrameCount and ExceptFrames are not available in fpc 2.0.0, only in 2.0.1 and 
later. See for an implemetation in fpcadds.


Vincent.

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


Re: [lazarus] Make error on last svn

2006-01-11 Thread Markku Niskanen
On Wed, 11 Jan 2006 11:42:08 +0100, Mattias Gaertner
[EMAIL PROTECTED] wrote:

Fixed for fpc 2.0.0.

Well, that was REALLY quick :)

-- 
[EMAIL PROTECTED]

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


Re: [lazarus] changing color on TPanel works only one way

2006-01-11 Thread Marc Santhoff
Am Mittwoch, den 11.01.2006, 09:54 +0100 schrieb Micha Nelissen:
 Marc Santhoff wrote:
  for example. Is there a paper somewhere explaning this topic in overview
  for getting the big picture?
 
 There is the lcl/widgetsets/README file, and the wiki page 
 http://wiki.lazarus.freepascal.org/index.php/LCL_Internals.
 
 Not much, I'm afraid.

It's enough for a start, at least the wiki page is new to me.

Thanks,
Marc


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


Re: [lazarus] setColor patch

2006-01-11 Thread Marc Santhoff
Am Mittwoch, den 11.01.2006, 09:10 +0100 schrieb darekM:
 Marc Santhoff napisał(a):
 
 Am Dienstag, den 10.01.2006, 19:22 +0100 schrieb darekm:
 [...]
   
 
 - TButton and TPanel do not react to setting the color at all
   
 
 for TButton I will prepare patch soon

No need to hurry, I only wanted to give some feedback.

Marc

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


[lazarus] Re: patch for LCLProc

2006-01-11 Thread Funky Beast

Vincent Snijders wrote:
Maybe we should start working on a TMemo capably of displaying UTF8 and 
find a suitable font.


Not very knowledgeable on this area ... don't know if this helps:

http://fundementals.sourceforge.net/unicode.html
http://www.tntware.com/delphicontrols/unicode/downloads.htm


 Tomas Gregorovic's name doesn't look good on win32

either.



OKOK ... my name is Hwang Weng Sun.


Cheers,

Funky Beast

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


Re: [lazarus] ListView bug

2006-01-11 Thread Luis R. Hilario B.
Another bug (same place, can be).

Lazarus windows say:
Error in TimageLIstComponentEditor
The component editor of class TImageListComponentEditor
invoked with verb #0 Image list editor...
has created the error:
Access violation


TCustomListView.SetSelection FSelected=B752C9D4
TCustomListView.SetSelection FSelected=B752C014
TApplication.HandleException Access violation
  Stack trace:
  $081CD0F8  TCUSTOMLISTVIEW__CNNOTIFY,  line 124 of
./include/customlistview.inc
  $0805D14B
  $08135DE2  TCONTROL__WNDPROC,  line 1520 of ./include/control.inc
  $0812D79D  TWINCONTROL__WNDPROC,  line 3046 of ./include/wincontrol.inc
  $08149BF9  DELIVERMESSAGE,  line 3447 of gtkproc.inc
  $081E3886  GTKWSCUSTOMLISTVIEW_SELECTROW,  line 118 of gtkwscustomlistview.inc
  $B7E06EAF  CODEEXPLOPTS_finalize,  line 104 of debugoptionsfrm.pas
  $D015
Note: GetTextBuf is overridden for: °pNä.··_«ôÿÈè_
TApplication.HandleException: there was another exception during
showing the first exception
TDesigner.OnComponentEditorVerbMenuItemClick ERROR: Access violation
TApplication.HandleException: there was another exception during
showing the first exception


2006/1/11, Mattias Gaertner [EMAIL PROTECTED]:
 On Tue, 10 Jan 2006 22:08:26 -0400
 Luis R. Hilario B. [EMAIL PROTECTED] wrote:

  I already found it.  It was in the LCL (customlistview.*), but Windows
  was not affected, rare.

 Some events are different. That's why the LCL is flexible and we always
 suggest, that a programmer avoids using messages.

 Mattias



 
  2006/1/10, Luis R. Hilario B. [EMAIL PROTECTED]:
   Thanks you!
  
   Which file has the modifications?
   http://www.freepascal.org/cgi-bin/viewcvs.cgi/trunk/?root=lazarus
  
   2006/1/10, Mattias Gaertner [EMAIL PROTECTED]:
On Wed, 4 Jan 2006 20:27:50 -0400
Luis R. Hilario B. [EMAIL PROTECTED] wrote:
   
 2006/1/4, Mattias Gaertner [EMAIL PROTECTED]:
  On Wed, 4 Jan 2006 10:16:26 -0400
  Luis R. Hilario B. [EMAIL PROTECTED] wrote:
 
   Hello,
  
   if TListView.Items.Delete(Last.Selected.Index) then Lazarus
   crash;
 
  Can you send an example?
 
 I cannot reproduce the problem with an example.

 And it is different with Code Templates : erasing the first time
 functions well, but when is erased again (the last one selected)
 failure: List index (24) out of bounds.
   
Fixed.
The Selected was not updated properly.
   
Mattias
   
_
 To unsubscribe: mail [EMAIL PROTECTED] with
unsubscribe as the Subject
   archives at http://www.lazarus.freepascal.org/mailarchives
   
  
  
   --
   http://luisdigital.com
  
 
 
  --
  http://luisdigital.com
 
  _
   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



--
http://luisdigital.com

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


Re: [lazarus] patch for TCustomComboBox

2006-01-11 Thread Michael Van Canneyt


On Wed, 11 Jan 2006, Funky Beast wrote:

 Modified KeyUp method to support AutoCompleteText for all
 editable combobox-styles (i.e. all styles except csDropDownList).
 Just realized that when I try to enable AutoCompleteText in
 ValueComboBox of Object Inspector.

 Added MouseUp method to drop and undrop list when clicking on
 the edit area while combobox-style is csDropDownList.

I would be grateful if a double-click would select the next item
in case it is csDropDownList. This is standard behaviour in Windows,
(or at least the Delphi Object inspector) and something I deeply
miss when using the  Object Inspector.
It's extremely comfortable when double-clicking a boolean property...


Michael.

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


[lazarus] How to use Sort in StringGrid?

2006-01-11 Thread bobby
I have StringGrid with 3 Columns: source file (with path), target (path) 
and errors

where:
source file column contains files to copy
target column contains target folders
errors column contains return errors : 0-if copy suceed, 1-copy didn't 
succeed, 2-source file don't exist


Now, after operations finish, I want to have all the rows with greater 
error number on the top of the StringGrid.


If I use StringGrid1.SortColRow(true, 2) I get funny results, but the 
rows with the errors are not on the top.


Thanks for any advice

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


Re: [lazarus] Help with DLL (using pchar, etc.)

2006-01-11 Thread L505
 Maybe
 having the 'mydll.compiled' file could help (if there is any)... I
 think this is the file that has the compiler settings.
 


The LPI file carries the settings

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


Re: [lazarus] Help with DLL (using pchar, etc.)

2006-01-11 Thread Alexandre Leclerc
On 1/11/06, L505 [EMAIL PROTECTED] wrote:
  Maybe
  having the 'mydll.compiled' file could help (if there is any)... I
  think this is the file that has the compiler settings.
 


 The LPI file carries the settings

Are you using special strip commands? (This situation is really
strange for me.) I assume that you run under Windows...

--
Alexandre Leclerc

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


Re: [lazarus] bugfix 1610

2006-01-11 Thread Vincent Snijders

Thanks. Committed.

Vincent

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


Re: [lazarus] Re: Re-add Qt on the widgetset list

2006-01-11 Thread Den Jean
On Tuesday 10 January 2006 04:13 pm, Felipe Monteiro de Carvalho wrote:
 Is your Qt4 binding multiplatform?

I just haven't done the windows part yet, I do 
not have windows development environment.
But it is ofcourse possible.

kind regards,

Den Jean



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


Re: [lazarus] How to use Sort in StringGrid?

2006-01-11 Thread Jesus Reyes

 --- bobby [EMAIL PROTECTED] escribió:

 I have StringGrid with 3 Columns: source file (with path), target
 (path) 
 and errors
 where:
 source file column contains files to copy
 target column contains target folders
 errors column contains return errors : 0-if copy suceed, 1-copy
 didn't 
 succeed, 2-source file don't exist
 
 Now, after operations finish, I want to have all the rows with
 greater 
 error number on the top of the StringGrid.
 
 If I use StringGrid1.SortColRow(true, 2) I get funny results, but
 the 
 rows with the errors are not on the top.
 
 Thanks for any advice
 

Don't know what version do you have, some days ago a patch was
submited that implements by default ascending sorting based on string
comparision, previously all comparision returned 0, ie assume that
all strings are equal, in this circustances the sort algorithm still
swap some rows and that's why you may see funny jumping results after
repeated sorting.

But if you want custom sorting (descending) there are some
alternatives;

a. Create an handler for StringGrid's OnCompareCells event, something
like this:

procedure TForm1.StringGrid1CompareCells(Sender: TObject; Acol, ARow,
Bcol,
  BRow: Integer; var Result: integer);
begin
 // Compare strings
 result := CompareText(StringGrid1.Cells[ACol,ARow],
StringGrid1.Cells[BCol,BRow]);

 // if you want to compare integers instead of 
 // strings so '1','3','11' are correctly sorted:
 // result :=
StrToIntDef(StringGrid1.Cells[ACol,ARow],0)-StrToIntDef(StringGrid1.Cells[BCol,BRow],
0);

  // suppose that there is a checkbox that enables
  // descending sorting, do something like this
  if Checkbox1.checked then
Result := -Result;
end; 

b. Install SemaphorGrid (examples/grid_semaphor) afaik, it also
implements sorting with several options.

Jesus Reyes A.





___ 
Do You Yahoo!? 
La mejor conexión a Internet y b 2GB/b extra a tu correo por $100 al mes. 
http://net.yahoo.com.mx 

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


Re: [lazarus] Help with DLL (using pchar, etc.)

2006-01-11 Thread L505
As an experiment for CompactSysUtils project I started a while ago, I have used 
this
opportunity to demonstrate why FPC should reorganize the FPC sysutils unit for 
better
smartlinking (i.e. create just one more unit than just sysutils to take care of
smartlinking).

Many functions in the FPC sysutils unit do not rely on any finalization or
initialization code.

By simple copy and pasting some of the sysutils functions into a unit of my own,
called CompactSysUtils, I have gotten the DLL down to 40KB which was previously 
91KB

Project files showing 40KB DLL versus 91KB DLL is here:
http://z505.com/pascal/MD5Hash/MD5Hash_COMPARE.zip

CompactUtils and CompactSysUtils project is here:
https://opensvn.csie.org/pspcgi/psp-lib-1.5.0-devel/src/extras/CompactUtils/

In order to compile the CompactUtils version in that zip file, you will need the
latest copy of the compactutils.pas and compactsysutils.pas which is located on 
the
SVN link above.

Sometimes we don't worry so much about bloat like this since today's 
processors are
getting faster, but this one is a no brainer. There is no work to be done 
other than
copy/paste functions and reorganize them such as I have done with 
CompactSysUtils
project. I have also made notes about this before on the mailing lists, such as
mentioning how the findpart function can be cut copied and pasted right out of 
the
StrUtils unit so that no sysutils initialization and finalization is hauled in.

Maybe people can learn from this with the lazarus project too - as I'm guessing 
some
(not all) the reason lazarus exe's are so big is because or simple
initialization/finalization bloat. Sure there are abstraction bloat that is 
incurred
for multi-platform programming in SOME CASES, but I've just proved with above
CompactUtils project that abstraction has nothing to do with the majority of the
bloat in this case. Rather simple reorganization in this case, to cut the EXE 
and DLL
in half (actually, *more* than half).

So either I continue to maintain this compactutils project with my elite
cutting/copying/pasting skills or the FPC team decides to reorganize sysutils 
at the
distribution level (i.e. kill the compactutils project and just do it in the RTL
itself). Also anyone wishing to participate in this compactutils project I
started is welcome - I started it to gain smartlinking knowledge myself and I'm 
sure
others could benefit from knowing more about smartlinking.

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


[lazarus] -dPassWin32MessagesToLCL and WndProc

2006-01-11 Thread Felipe Monteiro de Carvalho

Hello,

This has being discussed before, but was non-conclusive. A conditional 
compile was added around code witch forwards all messages = WM_USER to 
the LCL (and thus WndProc) on Win32 Widgetset.


I see many advantages on not having the conditional compile, but I can't 
see any advantages of having it. Thus I think Lazarus would be a better 
software without it.


Advantages of not having the conditional compile:

* Compatibility with Delphi

* No need to recompile the LCL. This can take around 20 minutes on a 
very old 400 Mhz computer.


* Does not affect multiplatform capabilities because windows will never 
send a message = WM_USER unless the programmer has created code witch 
tells windows to send such messages. Even if Windows starts sending 
messages for no reason, I still don't see how this would affect Linux code.


Advantages of having the conditional compile:

please, fill me.

thanks a lot for your attention,

Felipe

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


Re: [lazarus] setColor patch - new

2006-01-11 Thread darekm

Marc Santhoff wrote:


Am Dienstag, den 10.01.2006, 19:22 +0100 schrieb darekm:
[...]
 


I've prepare patch once more, maybe now will be better.
Sorry for delay, but now I don`t have enough time.
   



Thank you very much for working at this spot.

I've applied it and it is not the whole thing (or too much of it):

- TButton and TPanel do not react to setting the color at all
 


I've investigate setting colors under GTK

SetColor for tButton and tBitBtn now work
In attach new patch and simple program to test


Please check, if it is good way to do this.


If yes, I will prepare patch for rest of Widget


Darek


Index: interfaces/gtk/gtkproc.inc
===
--- interfaces/gtk/gtkproc.inc  (wersja 8501)
+++ interfaces/gtk/gtkproc.inc  (kopia robocza)
@@ -6484,6 +6484,40 @@
   
   Returns the associated string
  
--}
+ 
+
+
+ 
+procedure SetWidgetColor(aWidget : PGTKwidget; data : gpointer); cdecl;
+begin
+  gtk_widget_set_style(aWidget,data);
+  if  gtk_is_button(aWidget) or gtk_is_check_button(aWidget) then begin
+gtk_container_foreach(pGtkContainer(aWidget),@SetWidgetColor,data);
+  end;
+end;
+ 
+procedure setWidgetBG(aColor: longint;var aWidget : pGTKWidget);
+var
+  WindowStyle: PGtkStyle;
+begin
+   windowStyle:=gtk_widget_get_style(aWidget);
+   windowstyle^.bg[0]:=AllocGDKColor(aColor);
+   SetWidgetColor(aWidget,windowStyle);
+end;
+ 
+procedure setWidgetFG(aColor: longint;var aWidget : pGTKWidget);
+var
+  WindowStyle: PGtkStyle;
+  xColor:tGDKColor;
+
+begin
+   windowStyle:=gtk_widget_get_style(aWidget);
+   windowstyle^.fg[0]:=AllocGDKColor(aColor);
+   SetWidgetColor(aWidget,windowStyle);
+end;
+
+ 
+ 
 function GdkAtomToStr(const Atom: TGdkAtom): string;
 var
   p: Pgchar;
@@ -7546,9 +7580,21 @@
 Widget := MainWidget;
   end;
 
-  if not GTK_WIDGET_REALIZED(Widget) then exit;
-  //debugln('UpdateWidgetStyleOfControl ',GetWidgetDebugReport(Widget));
+if (AWinControl.ColorclNone)  then begin
+  if (csOpaque in AWinControl.ControlStyle)
+  and GtkWidgetIsA(MainWidget,GTKAPIWidget_GetType) then exit;
 
+  if AWinControl.ColorIsStored
+  and ((AWinControl.Color and SYS_COLOR_BASE)=0) then begin
+
+   setWidgetBG(AWinControl.Color,Widget);
+  end;
+end;
+if (AWinControl.Font.Color and SYS_COLOR_BASE)=0 then begin
+   setWidgetFG(AWinControl.Font.Color,Widget);
+end;
+
+
   RCStyle:=nil;
   FreeFontName:=false;
   FreeFontSetName:=false;
@@ -7570,16 +7616,8 @@
   if (csOpaque in AWinControl.ControlStyle)
   and GtkWidgetIsA(MainWidget,GTKAPIWidget_GetType) then exit;
 
-  NewColor:=TColorToTGDKColor(AWinControl.Color);
 
-  CreateRCStyle;
-  RCStyle^.bg[GTK_STATE_NORMAL]:=NewColor;
 
-  // Indicate which colors the GtkRcStyle will affect;
-  // unflagged colors will follow the theme
-  RCStyle^.color_flags[GTK_STATE_NORMAL]:=
-RCStyle^.color_flags[GTK_STATE_NORMAL] or GTK_RC_BG;
-
   {for i:=0 to 4 do begin
 RCStyle^.bg[i]:=NewColor;
 
@@ -7610,34 +7648,12 @@
 end;}
 
 // set font color
-if (AWinControl.Font.Color and SYS_COLOR_BASE)=0 then begin
-  //NewColor:=TColorToTGDKColor(AWinControl.Font.Color);
-  NewColor:=AllocGDKColor(AWinControl.Font.Color);
-  //debugln('UpdateWidgetStyleOfControl New Font 
Color=',dbgs(NewColor.Pixel),' ',dbgs(NewColor.Red),' ',dbgs(NewColor.Green),' 
',dbgs(NewColor.Blue));
-  CreateRCStyle;
 
-  {for i:=0 to 4 do begin
-RCStyle^.text[i]:=NewColor;
-RCStyle^.fg[i]:=NewColor;
-RCStyle^.bg[i]:=NewColor;
-RCStyle^.base[i]:=NewColor;
-RCStyle^.color_flags[i]:=
-  RCStyle^.color_flags[i] or 15;
-  end;}
-
-  RCStyle^.text[GTK_STATE_NORMAL]:=NewColor;
-
-  // Indicate which colors the GtkRcStyle will affect;
-  // unflagged colors will follow the theme
-  RCStyle^.color_flags[GTK_STATE_NORMAL]:=
-RCStyle^.color_flags[GTK_STATE_NORMAL] or GTK_RC_TEXT;
-
-  //DebugLn('UpdateWidgetStyleOfControl Font Color 
',DbgSName(AWinControl),' Color=',DbgS(AWinControl.Font.Color));
-end;
-
 // set font (currently only TCustomLabel)
-if GtkWidgetIsA(Widget,gtk_label_get_type)
+if (GtkWidgetIsA(Widget,gtk_label_get_type)
 or GtkWidgetIsA(Widget,gtk_editable_get_type)
+//or GtkWidgetIsA(Widget,gtk_button_get_type)
+or GtkWidgetIsA(Widget,gtk_check_button_get_type))
 and ((AWinControl.Font.NameDefFontData.Name)
   or (AWinControl.Font.Size0)
   or (AWinControl.Font.Style[]))
Index: interfaces/gtk/gtkdef.pp
===
--- interfaces/gtk/gtkdef.pp(wersja 8501)
+++ interfaces/gtk/gtkdef.pp(kopia robocza)
@@ -220,7 +220,8 @@
   
   
   TWidgetInfoFlag = (
-wwiNotOnParentsClientArea
+wwiNotOnParentsClientArea,
+wwiHasOwnStyle
 

Re: [lazarus] -dPassWin32MessagesToLCL and WndProc

2006-01-11 Thread Vincent Snijders

Felipe Monteiro de Carvalho wrote:

Hello,

This has being discussed before, but was non-conclusive. A conditional 
compile was added around code witch forwards all messages = WM_USER to 
the LCL (and thus WndProc) on Win32 Widgetset.


I see many advantages on not having the conditional compile, but I can't 
see any advantages of having it. Thus I think Lazarus would be a better 
software without it.


Advantages of not having the conditional compile:

* Compatibility with Delphi

* No need to recompile the LCL. This can take around 20 minutes on a 
very old 400 Mhz computer.


* Does not affect multiplatform capabilities because windows will never 
send a message = WM_USER unless the programmer has created code witch 
tells windows to send such messages. Even if Windows starts sending 
messages for no reason, I still don't see how this would affect Linux code.


But the user will send it, but does not receive it on linux?



Advantages of having the conditional compile:


With lazarus we want to make sure that portable (i.e. to other 
widgetsets) code. Having the conditional define makes sure people have 
to go through trouble to write non-portable code.


Vincent

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


[lazarus] Debugger question

2006-01-11 Thread Horacio Jamilis



I saw that the debugger is starting to work! That´s 
grait.

There are a couple of things that must be 
improved... and I will try to work on it.

I´m using Lazarus under Windows.

The question is: is gdbable to evaluate 
object properties ?

I mean, if I enter on the evaluator something like 
form1.caption it says it cant parse or something like that.

Where should I look for to fix this?
Horacio Jamilis


Re: [lazarus] Debugger question

2006-01-11 Thread Vincent Snijders

Horacio Jamilis wrote:

I saw that the debugger is starting to work! That´s grait.
 
There are a couple of things that must be improved... and I will try to 
work on it.
 
I´m using Lazarus under Windows.
 
The question is: is gdb able to evaluate object properties ?

No. only object fields, i.e. variables.

 
I mean, if I enter on the evaluator something like form1.caption it says 
it cant parse or something like that.


For field properties that have actual fields, use the private field.
property Bla :integer read FBla;
use MyBla.FBla

 
Where should I look for to fix this?
For properties that have read specifiers methods, find a way to execute 
the getter in the debuggee and get the result in Lazarus.

example: property Bla: integer read GetBla;

Vincent

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


Re: [lazarus] fpc.cfg for linux (debian distro)

2006-01-11 Thread Mattias Gaertner
On Wed, 11 Jan 2006 11:34:32 -0800
Dale Welch [EMAIL PROTECTED] wrote:

 i have played extensively with my fpc.cfg configuration file.
 if there is anyone with a well working system
 using svn updates of fpc and lazarus who
 is on a debian based distro who is willing to share their 
 fpx.cfg file with me i would greatly appreciate it.
 
 I realize i will have to modify it... but it will be a place to
 start again from.

I use a standard /etc/fpc.cfg under debian. And I see no reason to change
it, except for cross compiling (adding 5 lines).
You can create a standard fpc.cfg with the samplecfg program coming with
fpc.

 
 thanks,
 
 dale
 i have my lazarus source in 
/usr/share/lazarus
 and my fpc source in /pp
 or truly in /usr/src/svn/fpc


Mattias

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


[lazarus] 2 Exception Windows

2006-01-11 Thread Luis R. Hilario B.
Hello,

Two windows appear when an exception is generated, mine (personalized)
and another generic one.

How do I do so that not the generic one appear?
Thanks.
--
http://luisdigital.com

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


Re: [lazarus] Re: -dPassWin32MessagesToLCL and WndProc

2006-01-11 Thread Vincent Snijders

Felipe Monteiro de Carvalho wrote:

Vincent Snijders wrote:

* Does not affect multiplatform capabilities because windows will 
never send a message = WM_USER unless the programmer has created 
code witch tells windows to send such messages. Even if Windows 
starts sending messages for no reason, I still don't see how this 
would affect Linux code.



But the user will send it, but does not receive it on linux?



I was thinking of messages sent using the Windows API.

What are other ways of sending custom messages?

If the LCL implements a multiplatform message sending routine, supose I 
use it to send a = WM_USER multiplatform message. The messages gets 
locked in the win32 widgetset.


Now I want to retrive that message on WndProc. Where is it? It doesn´t 
get there, because it was locked in the widgetset.


What can the Widgetset do with that message? Nothing.


I don't I am very rational now, but maybe I just don't want this code in 
my LCL (or win32 interface), because I fear it will open a can of worms. 
  I cannot really explain it, it is just a feeling. Therefore I will be 
happy with a define, at least a define to turn it off.


IMHO the way to do what you want to do, i.e. to receive a wm_user or 
higher message on win32, is to hook a windowproc using

OldWindowProc :=
  Windows.SetWindowLong(MyForm.Handle, GWL_WNDPROC, MyWindowProc);

with MyWindowProc declared as a function (not of object).

Touching those wm_user messages in windowproc is a hack IMHO.

Of course if you convince Micha, Marc and Mattias, I won't fight it 
anymore, although I don't want to have my name on that commit.


Regards,
Vincent.

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


Re: [lazarus] Re: -dPassWin32MessagesToLCL and WndProc

2006-01-11 Thread Mattias Gaertner
On Wed, 11 Jan 2006 19:47:32 -0200
Felipe Monteiro de Carvalho [EMAIL PROTECTED] wrote:

 Vincent Snijders wrote:
  * Does not affect multiplatform capabilities because windows will 
  never send a message = WM_USER unless the programmer has created code 
  witch tells windows to send such messages. Even if Windows starts 
  sending messages for no reason, I still don't see how this would 
  affect Linux code.
  
  But the user will send it, but does not receive it on linux?
 
 I was thinking of messages sent using the Windows API.
 
 What are other ways of sending custom messages?

To whom?

 
 If the LCL implements a multiplatform message sending routine, supose I 
 use it to send a = WM_USER multiplatform message. The messages gets 
 locked in the win32 widgetset.
 
 Now I want to retrive that message on WndProc. Where is it? It doesn´t 
 get there, because it was locked in the widgetset.
 
 What can the Widgetset do with that message? Nothing.

If I understand it right, the WM_USER messages are not understood by the
winapi.
So, the only purpose of WM_USER messages is interprocess communication,
isn't it?
Michael VC has implement some platform independent IPC units.


Mattias

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


Re: [lazarus] 2 Exception Windows

2006-01-11 Thread Mattias Gaertner
On Wed, 11 Jan 2006 18:04:19 -0400
Luis R. Hilario B. [EMAIL PROTECTED] wrote:

 Hello,
 
 Two windows appear when an exception is generated, mine (personalized)
 and another generic one.
 
 How do I do so that not the generic one appear?

Application.OnException:[EMAIL PROTECTED];

Mattias

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


Re: [lazarus] Help with DLL (using pchar, etc.)

2006-01-11 Thread Vincent Snijders

Mattias Gaertner wrote:

On Wed, 11 Jan 2006 12:20:09 -0700
L505 [EMAIL PROTECTED] wrote:



Also, check your FPC source RTL units directory for .a and .o files
If there are no .a files then your RTL is not smartlinked. I cannot
remember if Lazarus ships with the RTL units smartlinked or not? Can
someone clarify?



The linux rpms contain the libpunitname.a files. 
Are they smartlinked?


The windows lazarus installer has rtl units with debug info and for 
therefore were created without smartlinking. At one point in time using 
smartlinking and debuginfo was not a good idea, I don't know if the 
situation has changed.


Vincent.

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


Re: [lazarus] Patch for TreeViewPropEdit

2006-01-11 Thread Mattias Gaertner
On Wed, 11 Jan 2006 16:22:26 +0100
Tomas Gregorovic [EMAIL PROTECTED] wrote:

 Hi,
 I have improved few things in property editor for the TreeView. For
 example: - The property editor could be now localized.
 - When sub item is created its parent node is expanded.
 - New item could be inserted via pressing Enter key.
 
 But there are still some things to solve. The image, state and selected
 index properties of node are not saved/loaded to/form dfm file.

Thanks. Applied.

Mattias

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


Re: [lazarus] Debugger question

2006-01-11 Thread Horacio Jamilis
Thanks,

MyBla.fBla is evaluated properly

MyBla.GetBla does not work.
The evaluator stil complains.
what should I try?
Let´s say I found the getter method... how to invoke it?

Horacio Jamilis

- Original Message - 

  The question is: is gdb able to evaluate object properties ?
 No. only object fields, i.e. variables.

:-(


 For field properties that have actual fields, use the private field.
 property Bla :integer read FBla;
 use MyBla.FBla

 
  Where should I look for to fix this?
 For properties that have read specifiers methods, find a way to execute
 the getter in the debuggee and get the result in Lazarus.
 example: property Bla: integer read GetBla;

 Vincent

 _
  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] Re: -dPassWin32MessagesToLCL and WndProc

2006-01-11 Thread Vincent Snijders

Felipe Monteiro de Carvalho wrote:

Vincent Snijders escreveu:
  I don't I am very rational now, but maybe I just don't want this code in
  my LCL (or win32 interface), because I fear it will open a can of worms.
I cannot really explain it, it is just a feeling. Therefore I will be
  happy with a define, at least a define to turn it off.

Well, I think there is little change of this getting implemented, but I
will answer the mails anyway.

What about a negative define?

{$ifndef DoNotPassWin32MessagesToLCL}


That is what I was hinting on in my last sentence.




  Touching those wm_user messages in windowproc is a hack IMHO.

Is using Windows API a hack?


No, by no means. The way you want to get at it is, IMHO.



You can find an example of necessary use of WM_USER message for
creating a taskbar icon on the MSDN website:
http://support.microsoft.com/default.aspx?scid=kb;en-us;149276

notice this part on that page:

 Private Function setNOTIFYICONDATA(hWnd As Long, ID As Long, _
 Flags As Long, CallbackMessage As Long, Icon As Long, _
 Tip As String) As NOTIFYICONDATA

 Dim nidTemp As NOTIFYICONDATA

 nidTemp.cbSize = Len(nidTemp)
 nidTemp.hWnd = hWnd
 nidTemp.uID = ID
 nidTemp.uFlags = Flags
 nidTemp.uCallbackMessage = CallbackMessage // = WM_USER message!
 nidTemp.hIcon = Icon
 nidTemp.szTip = Tip  Chr$(0)

 setNOTIFYICONDATA = nidTemp
 End Function

I am using this for callback messages from the Windows API.


This is OK.


I bet there are many other Windows API functions that need special 
messages.




Yes, and you can receive them by hooking the windowproc.

Vincent

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


Re: [lazarus] Re: -dPassWin32MessagesToLCL and WndProc

2006-01-11 Thread Mattias Gaertner
On Wed, 11 Jan 2006 20:57:15 -0200
Felipe Monteiro de Carvalho [EMAIL PROTECTED] wrote:

 Vincent Snijders escreveu:
   I don't I am very rational now, but maybe I just don't want this code
   in my LCL (or win32 interface), because I fear it will open a can of
   worms.
 I cannot really explain it, it is just a feeling. Therefore I will be
   happy with a define, at least a define to turn it off.
 
 Well, I think there is little change of this getting implemented, but I
 will answer the mails anyway.
 
 What about a negative define?
 
 {$ifndef DoNotPassWin32MessagesToLCL}
 
   Touching those wm_user messages in windowproc is a hack IMHO.
 
 Is using Windows API a hack?
 
 You can find an example of necessary use of WM_USER message for
 creating a taskbar icon on the MSDN website:
 http://support.microsoft.com/default.aspx?scid=kb;en-us;149276
 
 notice this part on that page:
 
   Private Function setNOTIFYICONDATA(hWnd As Long, ID As Long, _
   Flags As Long, CallbackMessage As Long, Icon As Long, _
   Tip As String) As NOTIFYICONDATA
 
   Dim nidTemp As NOTIFYICONDATA
 
   nidTemp.cbSize = Len(nidTemp)
   nidTemp.hWnd = hWnd
   nidTemp.uID = ID
   nidTemp.uFlags = Flags
   nidTemp.uCallbackMessage = CallbackMessage // = WM_USER
   message! nidTemp.hIcon = Icon
   nidTemp.szTip = Tip  Chr$(0)
 
   setNOTIFYICONDATA = nidTemp
   End Function
 
 I am using this for callback messages from the Windows API.
 
 I bet there are many other Windows API functions that need special
 messages.

Then there should be a win32 widgetset function:

TWin32Widgetset.AddCustomMessage

or something like that. This way it is clear, that the code is not portable.

I hope eventually someone volunteers to start a package with win32, gtk and
carbon tray icons.

Mattias

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


[lazarus] Re: -dPassWin32MessagesToLCL and WndProc

2006-01-11 Thread Felipe Monteiro de Carvalho

Mattias Gaertner wrote:

Then there should be a win32 widgetset function:

TWin32Widgetset.AddCustomMessage

or something like that. This way it is clear, that the code is not portable.


Sounds a good solution. Much better then recompiling the LCL!


I hope eventually someone volunteers to start a package with win32, gtk and
carbon tray icons.


I am already doing it =P

It will probably be ready before February. For win32 and gtk at least. I 
don't have easy access to a Mac, but I already know somethings.


The Mac tray icon system is imensely different from windows or linux, 
and this will be a problem.


Felipe

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


Re: [lazarus] 2 Exception Windows

2006-01-11 Thread Luis R. Hilario B.
Mmm, Ok.
But that passes if is not a graphic (X11, Windows) program, also appears?

Last question of the day, promise.  :D
And many thanks, you (all) they are marvelous.

2006/1/11, Mattias Gaertner [EMAIL PROTECTED]:
 On Wed, 11 Jan 2006 19:09:47 -0400
 Luis R. Hilario B. [EMAIL PROTECTED] wrote:

  Using:
  Try
   ...
  Except
   On Exception do
   ...
  end;
 
  Works well (only my window appears).
 
  What does Application.CaptureExceptions?
  It can be what I seek, but does not function, always True.

 Application.CaptureExceptions = true means, catch exceptions and show the
 dialog.
 Otherwise unhandled exceptions will halt the application. This can be useful
 for hard to find bugs.


 Mattias


 
  2006/1/11, Mattias Gaertner [EMAIL PROTECTED]:
   On Wed, 11 Jan 2006 18:04:19 -0400
   Luis R. Hilario B. [EMAIL PROTECTED] wrote:
  
Hello,
   
Two windows appear when an exception is generated, mine (personalized)
and another generic one.
   
How do I do so that not the generic one appear?
  
   Application.OnException:[EMAIL PROTECTED];
  
   Mattias
  
   _
To unsubscribe: mail [EMAIL PROTECTED] with
   unsubscribe as the Subject
  archives at http://www.lazarus.freepascal.org/mailarchives
  
 
 
  --
  http://luisdigital.com
 
  _
   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



--
http://luisdigital.com

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


RE: [lazarus] TIpHtmlPanel

2006-01-11 Thread Panagiotis Sidiropoulos
Dear Jesus,

Thank you very much for your help.
I realized that I was seeking for answer at the wrong direction.

Following your instructions I managed to display html page loaded from
MemoryStream. I found that TIpHtmlPanel does not support Style Tags and
sometimes paints in a strange way. Is it just version's restrictions or
could I improve it's quality?

Are you located on Earth? :-)

Regards,
Panagiotis
http://www.magenta.gr - mailto:[EMAIL PROTECTED]

-Original Message-
From: Jesus Reyes [mailto:[EMAIL PROTECTED] 
Sent: Tuesday, January 10, 2006 11:11 PM
To: lazarus@miraclec.com
Subject: Re: [lazarus] TIpHtmlPanel



 --- Panagiotis Sidiropoulos [EMAIL PROTECTED] escribió:

 OS: Windows
 Lazarus: 0.9.10
 Component: TIpHtmlPanel, TurboPower iPro
 
 I start the application just calling:
 - IpHtmlPanel1.OpenURL('http://www.turbopower.com');
 but get the error no data provider
 
 Could not find any related information enywhere on the WEB. Can anyone

 please help?
 
 Regards, Panagiotis
 


Documentation for Ipro can be found in
http://sourceforge.net/projects/tpipro but it includes documentation for
the whole suite not just the part converted to lazarus.

Basically you can make it work in two ways, with a dataprovider and
wihtout it ;),

Working samples for both aproaches are included in lazarus.

without DataProvider: $lazarusDir/examples/turbopower_ipro (see the
readme file there)

with DataProvider: $lazarus/components/chmhelp/lhelp
(there is a dataprovider [chmdataprovider] that implements reading data
from chm help files)

HTH.
Jesus Reyes A.





___ 
Do You Yahoo!? 
La mejor conexión a Internet y b 2GB/b extra a tu correo por $100 al
mes. http://net.yahoo.com.mx 

_
 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