perl-win32-gui-users Mailing List for Win32::GUI

Dnia piątek, 25 marca 2011 o 12:43:14 Aldo Calpini napisał(a):
> On 25.03.2011 11:07, Waldemar Biernacki wrote:
> > Until now I rewrote my application to use the fix and first tests are
> > really promising. By the way, this tremendous GDI object number was due
> > to the fact that each label and textfield had its own font which in turn
> > is just GDI object and the same with background.
> 
> as I just wrote in another mail, there should be no problem with fonts,
> because you create them explicitly. this means the same GDI object is
> used for all controls. only the brush is created "on-demand" for
> background.

Of course you are right. It is not a problem with using font in general but 
with my using them.


> > Syntax of background color in Win32::GUI is little misleading
> > (-background => 0xffffff) as it suggests that it is simple attribute of
> > a widget. But it is not the case: each background is full GDI object
> > too! Maybe - I am just speculating - that was the fundamental reason why
> > the background color error raised? Who - at first sight - could see that
> > there is a such big difference between -background and -foreground?
> 
> the difference is in the Win32 API. they allow a plain COLORREF for
> foreground, but only a HBRUSH for background (even if you just want a
> solid color, you have to create a solid brush for this). I thought it
> was "user friendlier" to automatically create a brush of the given
> color. it's just that I forgot to clean it up afterwards :-)

You right again; this syntax is really friendly but the real problem with the 
error was that it feeds the GDI quota limit vary fast (in my application) - 
not just the memory. Adding bad desing with fonts and error in Perl 5.10 you 
can see my problems... :(  But thankfull Jeremy code I fixed the error and 
using Perl 5.8 version with changes in my application give the result that I 
have quite stable application now. 

I tried to do it in 5.12 but I didn't manage. At first ExtUtils::FakeConfig from 
cpan had no 5.12 version. I thank I corrected it but compilation Win32::GUI 
with gcc failed (tests showed it). Because I can't find ppm for 5.12 so I think 
I have made a mistake writing the information about Win32::GUI in Perl 5.12. 
Sorry for that.


> maybe it would be a good idea to add a -backgroundbrush option, so you
> can pass a Win32::GUI::Brush object to it and the same GDI object will
> be used for all controls, as with fonts.

This would be fine for I use them (backgrounds) synchronized in my windows so I 
can get the same colour to the quite big group of widgets.

cheers
Waldemar.

Hi,

I'm testing ListView Groups on my Windows 7 os.This code working perfect but
text values displaying in Chinese charset.
I writing value in latin char but this app displaying Unicode char.I not
understand. 
Where is the wrong? Thank you.
( Perl v5.10 Win32::GUI v1.06 ).

Image :
http://old.nabble.com/file/p31250335/2c7119b6.png 

Installed language packs;English, Turkish

use strict;
use warnings;

use Win32::GUI qw( WS_VISIBLE WS_CHILD );

sub LVS_REPORT() {0x0001};
sub LVM_FIRST() {4096};
sub LVM_ENABLEGROUPVIEW() {LVM_FIRST + 157};
sub LVM_INSERTCOLUMN() {LVM_FIRST + 27};
sub LVM_INSERTITEM() {LVM_FIRST + 7};
sub LVM_INSERTGROUP() {LVM_FIRST + 145};
sub LVIF_GROUPID() { 256 };
sub LVM_SETITEM() {LVM_FIRST + 76 };
sub LVGF_HEADER() {1};
sub LVGF_FOOTER() {2};
sub LVGF_GROUPID() {16};
sub LVGF_ALIGN() {8};
sub LVGF_STATE() {4};
sub LVGA_FOOTER_LEFT() {8};
sub LVGS_COLLAPSIBLE() {0x00000008};

my $Win = new Win32::GUI::Window(
      -width  => 330,
      -height => 269,
      -name   => "Win",
      -text   => "listview group test",
	  -onResize => \&win_size,
      );
	  
my $datalistview = $Win->AddListView(
       -text    => "",
       -name    => "ListView_1",
	   -checkboxes => 1,
	   -style => WS_VISIBLE | WS_CHILD | LVS_REPORT , # LVS_REPORT for the
report style
      );
#-------------------------------------------------------------------------------------------------------------------#
# MSDN create and inset column api
# msdn url : http://msdn.microsoft.com/en-us/library/bb774743(v=VS.85).aspx
# UINT   mask;
# int    fmt;
# int    cx;
# LPTSTR pszText;
# int    cchTextMax;
# int    iSubItem;
# int    iImage;
# int    iOrder;
# int    cxMin;
# int    cxDefault;
# int    cxIdeal;
# Inserting Column1
my $paskl = pack('IIIPIIIIIII',
1|23|8|4|2, # LVCF_FMT | LVCF_ORDER | LVCF_SUBITEM | LVCF_TEXT | LVCF_WIDTH
0,          # LVCFMT_LEFT
110,        # Column Width
"Column1",  # Column Text
1024,       # Column Text buffer
0,          # SubItem
0,          # Image
0,          # Order
0,          # avaible in vista; not used
0,          # avaible in vista; not used
0           # avaible in vista; not used
);# "Column1",0,-0- this is index
my $returnvalue1 = $datalistview->SendMessage(LVM_INSERTCOLUMN,0,$paskl);
print "Column1 index = $returnvalue1\n";

# Inserting Column2
my $pask2 = pack('IIIPIIIIIII',
1|23|8|4|2, # LVCF_FMT | LVCF_ORDER | LVCF_SUBITEM | LVCF_TEXT | LVCF_WIDTH
0,          # LVCFMT_LEFT
110,        # Column Width
"Column2",  # Column Text
1024,       # Column Text buffer
1,          # SubItem
0,          # Image
0,          # Order
0,          # avaible in vista; not used
0,          # avaible in vista; not used
0           # avaible in vista; not used
);# "Column1",0,-0- this is index
my $returnvalue2 = $datalistview->SendMessage(LVM_INSERTCOLUMN,1,$pask2);
print "Column2 index = $returnvalue2\n";
#-------------------------------------------------------------------------------------------------------------------#
# Inserting items to ListView
# typedef struct {
  # UINT   mask;
  # int    iItem;
  # int    iSubItem;
  # UINT   state;
  # UINT   stateMask;
  # LPTSTR pszText;
  # int    cchTextMax;
  # int    iImage;
  # LPARAM lParam;
# if (_WIN32_IE >= 0x0300)
  # int    iIndent;
# endif 
# if (_WIN32_WINNT >= 0x0501)
  # int    iGroupId;
  # UINT   cColumns;
  # UINT   puColumns;
# endif 
# if (_WIN32_WINNT >= 0x0600)
  # int    piColFmt;
  # int    iGroup;
# endif 
# } LVITEM, *LPLVITEM;
  
my $paskl3 = pack('IIIIIPIIIIIIIII',
1|16|512,  # LVIF_TEXT | LVIF_INDENT | LVIF_COLUMNS
0,          # item index
0, 		    # subitem index
0,    	    # state index
0,  	 	# statemask index
"Item1",    # item text
5, 		  	# item text buffer
0,			# image
0,          # param
0,			# indent
0,			# group id is 0
0,			# ccolumns
0,			# pucolumns
0,			# group id is 0
0			# igroup
);
my $institem1 = $datalistview->SendMessage(LVM_INSERTITEM,0,$paskl3);
print "Item1 index = $institem1\n";

my $paskl4 = pack('IIIIIPIIIIIIIII',
1|16|512,  # LVIF_TEXT | LVIF_INDENT | LVIF_COLUMNS
1,          # item index
0, 		    # subitem index
0,    	    # state index
0,  	 	# statemask index
"Item2",    # item text
5, 		  	# item text buffer
0,			# image
0,          # param
0,			# indent
1,			# group id is 0
0,			# ccolumns
0,			# pucolumns
0,			# group id is 0
0			# igroup
);
my $institem2 = $datalistview->SendMessage(LVM_INSERTITEM,1,$paskl4);
print "Item2 index = $institem2\n";
#-------------------------------------------------------------------------------------------------------------------#
# Sending message to listview and enabling group
# msdn url : http://msdn.microsoft.com/en-us/library/aa931484.aspx
# (HWND) hWndControl,
# (UINT) LVM_ENABLEGROUPVIEW,
# (WPARAM) wParam,    // = (WPARAM) (BOOL) fEnable;
# (LPARAM) lParam     // = (LPARAM) (LPARAM) lParam;
$datalistview->SendMessage(LVM_ENABLEGROUPVIEW,1,0);
#-------------------------------------------------------------------------------------------------------------------#

#-------------------------------------------------------------------------------------------------------------------#
# msdn url : http://msdn.microsoft.com/en-us/library/aa453426.aspx
# creating listview group
  # UINT   cbSize;
  # UINT   mask;
  # LPWSTR pszHeader;
  # int    cchHeader;
  # LPWSTR pszFooter;
  # int    cchFooter;
  # int    iGroupId;
  # UINT   stateMask;
  # UINT   state;
  # UINT   uAlign;
# if _WIN32_WINNT >= 0x0600
  # LPWSTR pszSubtitle;
  # UINT   cchSubtitle;
  # LPWSTR pszTask;
  # UINT   cchTask;
  # LPWSTR pszDescriptionTop;
  # UINT   cchDescriptionTop;
  # LPWSTR pszDescriptionBottom;
  # UINT   cchDescriptionBottom;
  # int    iTitleImage;
  # int    iExtendedImage;
  # int    iFirstItem;
  # UINT   cItems;
  # LPWSTR pszSubsetTitle;
  # UINT   cchSubsetTitle;
my $pasklaav = pack('IIPIIIIIIIIIIIIIIIIIIIII',
1024,					# cbSize
LVGF_HEADER|LVGF_GROUPID|LVGF_ALIGN|LVGF_STATE,
"test1", 	 		# adding group text pszHeader
256,				# char size of text
0,					# pszFooter
0,					# cchFooter
0,					# GroupId
0,					# statemask
LVGS_COLLAPSIBLE,	# state
LVGA_FOOTER_LEFT,	# Aling
0,					# pszSubtitle
0,					# cchSubtitle
0,					# pszTask
0,					# cchTask
0,					# pszDescriptionTop
0,					# cchDescriptionTop
0,				    # pszDescriptionBottom
0,					# cchDescriptionBottom
0,					# iTitleImage
0,					# iExtendedImage
0,					# iFirstItem
0,					# cItems
0,					# pszSubsetTitle
0					# cchSubsetTitle
);
# inserting the group to listview
my $insetgroupv = $datalistview->SendMessage(LVM_INSERTGROUP,-1,$pasklaav);
print "insgroup1 - $insetgroupv\n";


my $pasklaavt = pack('IIPIIIIIIIIIIIIIIIIIIIII',
1024,					# cbSize
LVGF_HEADER|LVGF_GROUPID|LVGF_ALIGN|LVGF_STATE,
"test1", 	 		# adding group text pszHeader
256,				# char size of text
0,					# pszFooter
0,					# cchFooter
1,					# GroupId
0,					# statemask
LVGS_COLLAPSIBLE,	# state
LVGA_FOOTER_LEFT,	# Aling
0,					# pszSubtitle
0,					# cchSubtitle
0,					# pszTask
0,					# cchTask
0,					# pszDescriptionTop
0,					# cchDescriptionTop
0,				    # pszDescriptionBottom
0,					# cchDescriptionBottom
0,					# iTitleImage
0,					# iExtendedImage
0,					# iFirstItem
0,					# cItems
0,					# pszSubsetTitle
0					# cchSubsetTitle
);
# inserting the group to listview
my $insetgroupvt =
$datalistview->SendMessage(LVM_INSERTGROUP,-1,$pasklaavt);
print "insgroup2 - $insetgroupvt\n";
#-------------------------------------------------------------------------------------------------------------------#
# http://msdn.microsoft.com/en-us/library/aa453430(MSDN.10).aspx
# Seting item with listview group
# typedef struct _LVITEM { 
  # UINT mask; 
  # int iItem; 
  # int iSubItem; 
  # UINT state; 
  # UINT stateMask; 
  # LPTSTR pszText; 
  # int cchTextMax; 
  # int iImage; 
  # LPARAM lParam;
  # if (_WIN32_IE >= 0x0300)
    # int iIndent;
  # endif
    # int iGroupId;
# } LVITEM;				
my $pasklaaas = pack('IIIIIIIIIII',
LVIF_GROUPID,	# mask
0,				# item index
0,				# subitem
0,				# state
0,				# statemask
0,				# pszText
0,				# Text buffer
0,				# image index
0,				# lParam
0,				# iIndent
0,				# groupid
);
my $insetgroupas = $datalistview->SendMessage(LVM_SETITEM,0,$pasklaaas);
print "setgroup1 - $insetgroupas\n";

my $pasklaaast = pack('IIIIIIIIIII',
LVIF_GROUPID,	# mask
1,				# item index
0,				# subitem
0,				# state
0,				# statemask
0,				# pszText
0,				# Text buffer
0,				# image index
0,				# lParam
0,				# iIndent
1,				# groupid
);
my $insetgroupast = $datalistview->SendMessage(LVM_SETITEM,0,$pasklaaast);
print "setgroup2 - $insetgroupast\n";

#-------------------------------------------------------------------------------------------------------------------#
$Win->Center();
$Win->Show();
Win32::GUI::Dialog();

sub win_size {
  my ($self) = @_;
  my ($width, $height) = ($self->GetClientRect())[2..3];
  $self->ListView_1->Resize($width+1, $height+1) if exists
$self->{ListView_1};
}

Regards...
-- 
View this message in context: http://old.nabble.com/Win32%3A%3AGUI-ListBox-Group---Why-display-text-values-in-Chinese-charset--tp31250335p31250335.html
Sent from the perl-win32-gui-users mailing list archive at Nabble.com.