[Okta Webinar] Learn how to a build a cloud-first strategyRegister Now

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 302
  • Last Modified:

Replacement to the FilterComboBox??

Hi!,

I need combonent which is similar to the FilterComboBox.
So you probably wonder why?? Because FilterComboBox does not handle quite well long string list mask's. It cuts at end of the mask, few file masks away. So is there any freeware combonent what done's file maskin better than FilterComboBox?? Or is there another way that can i handle huge masks??

Regards Marko
0
mhieta
Asked:
mhieta
  • 3
  • 3
1 Solution
 
Mohammed NasmanSoftware DeveloperCommented:
Hello

  I havn't seen any component to do that, maybe you need to make the filtercombobox width to handle all the strings, but i think for better way, add hint to the filtercombobox when you move the mouse above line not complete like delphi do when you choose press dot after component name
0
 
mhietaAuthor Commented:
Hello,

Do you mean like this to the hint:

*.BMP;*.RLE;*.DIB;*.JPG;*.JPE;*.JPEG;*.JFIF;
*.WMF;*.ICO;*.GIF;*.TIF;*.TIFF;*.TGA;*.VST;
*.ICB;*.VDA;*.WIN;*.BW;*.RGB;*.RGBA;*.SGI;
*.CEL;*.PIC;*.PCX;*.PCC;*.SCR;*.PCD;*.PPM;
*.PGM;*.PBM;*.CUT;*.PAL;*.PSD;*.PDD;*.RLA;
*.RPF;*.FAX;*.PSP;*.PNG

Now i use this code and it works fine.

  if FilterComboBox1.ItemIndex = 0 then
  begin
  FilterComboBox1.Hint:='*.gif;*.png;*.psp;*.cut;*.pcd;*.pic;*.cel;*.pbm;*.pgm;*.ppm;*.pdd;*.psd;*.bw;*.rgb;*.rgba;*.sgi;*.rla;*.rpf;*.scr;*.pcc;*.pcx;*.eps;*.fax;*.tif;*.tiff;*.icb;*.tga;*.vda;*.vst;*.win;*.dib;*.rle;*.jpeg;*.jpe;*.jpg;*.jfif;*.emf;*.wmf;*.ico;*.bmp';
  end
  else
  begin
  FilterComboBox1.Hint:=FilterComboBox1.Mask;
  end;
  if FilterComboBox1.ItemIndex = 0 then
  begin
  DirView1.Mask:='*.gif;*.png;*.psp;*.cut;*.pcd;*.pic;*.cel;*.pbm;*.pgm;*.ppm;*.pdd;*.psd;*.bw;*.rgb;*.rgba;*.sgi;*.rla;*.rpf;*.scr;*.pcc;*.pcx;*.eps;*.fax;*.tif;*.tiff;*.icb;*.tga;*.vda;*.vst;*.win;*.dib;*.rle;*.jpeg;*.jpe;*.jpg;*.jfif;*.emf;*.wmf;*.ico;*.bmp';
  FileNameSearch.FileListBox1.Mask:='*.gif;*.png;*.psp;*.cut;*.pcd;*.pic;*.cel;*.pbm;*.pgm;*.ppm;*.pdd;*.psd;*.bw;*.rgb;*.rgba;*.sgi;*.rla;*.rpf;*.scr;*.pcc;*.pcx;*.eps;*.fax;*.tif;*.tiff;*.icb;*.tga;*.vda;*.vst;*.win;*.dib;*.rle;*.jpeg;*.jpe;*.jpg;*.jfif;*.emf;*.wmf;*.ico;*.bmp';
  end
  else
  begin
  DirView1.Mask:=FilterComboBox1.Mask;
  FileNameSearch.FileListBox1.Mask:=DirView1.Mask;
  end;

But if you have more sophisticated method to display current mask in the hint, i'm listening.

Regards Marko
0
 
Mohammed NasmanSoftware DeveloperCommented:
try this

FilterComboBox1.Hint := FilterComboBox1.Mask;
or
FilterComboBox1.Hint := FilterComboBox1.Filter;
 
0
Concerto Cloud for Software Providers & ISVs

Can Concerto Cloud Services help you focus on evolving your application offerings, while delivering the best cloud experience to your customers? From DevOps to revenue models and customer support, the answer is yes!

Learn how Concerto can help you.

 
mhietaAuthor Commented:
FilterComboBox1.Hint := FilterComboBox1.Mask;
or
FilterComboBox1.Hint := FilterComboBox1.Filter;

Those are not working either. Both cases cuts at end of the mask, few file masks away.

I think if there isn't any replacement to the FilterComboBox to handle huge mask strings. And my code solves problem fine. I will delete this question soon.

Regards Marko

0
 
Mohammed NasmanSoftware DeveloperCommented:
Hello

  separate ur hint to lines using #13

combobox1.Hint := '*.gif;*.png;*.psp;*.cut;*.pcd;*.pic;*.cel;' + #13 + '*.pbm;*.pgm;*.ppm;*.pdd;*.psd;*.bw;*.rgb;*.rgba;*.sgi;*.rla;*.rpf;*.scr;*.pcc;*.pcx;*.eps;*.fax;*.tif;*.tiff;*.icb;*.tga;*.vda;*.vst;*.win;*.dib;' + #13+ '*.rle;*.jpeg;*.jpe;*.jpg;*.jfif;*.emf;*.wmf;*.ico;*.bmp';
0
 
mhietaAuthor Commented:
Ok, thanks mnasman. Now Hint looks better than it was.

See you at next question...

Regards Marko
0

Featured Post

Free Tool: Site Down Detector

Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

  • 3
  • 3
Tackle projects and never again get stuck behind a technical roadblock.
Join Now