pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

jvcllaz: Fix FilterCombobox in JvThumbnail demo to contain correct filter strings and to have 1st item selected.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6335 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2018-04-21 17:47:53 +00:00
parent f56f289b2d
commit f2afe5838a
4 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
components/jvcllaz/examples/JvThumbnail/JvThumbnailChildFormU.lfm
View File

@ -67,7 +67,7 @@ object JvThumbnailChildForm: TJvThumbnailChildForm
BorderSpacing.Right = 4 BorderSpacing.Right = 4
Color = clDefault Color = clDefault
HideSelection = False HideSelection = False
Mask = '*.ICO;*.BMP;*.EMF;*.WMF;*.JPG;*.JPEG' Mask = '*.ico;*.bmp;*.jpg;*.jpeg;*.png'
ReadOnly = True ReadOnly = True
SortType = stText SortType = stText
TabOrder = 1 TabOrder = 1
@ -312,7 +312,7 @@ object JvThumbnailChildForm: TJvThumbnailChildForm
Top = 0 Top = 0
Width = 230 Width = 230
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
Filter = 'All Known Formats|*.ICO;*.BMP;*.EMF;*.WMF;*.JPG;*.JPEG;|All Files (*.*)|*.*|JPEG Files|*.JPG;*.JPEG;|BMP Files|*.BMP|WMF Files|*.WMF|EMF Files |*.EMF|ICONS |*.ICO' Filter = 'All Known Formats|*.ico;*.bmp;*.jpg;*.jpeg;*.png|All Files (*.*)|*.*|JPEG Files|*.jpg;*.jpeg;|BMP Files|*.bmp|PNG Files|*.png|ICONS|*.ico'
ItemIndex = 0 ItemIndex = 0
ShellListView = ShellListView ShellListView = ShellListView
TabOrder = 0 TabOrder = 0

2
components/jvcllaz/examples/JvThumbnail/JvThumbnailChildFormU.pas
View File

@ -237,6 +237,8 @@ begin
ThumbImage.Parent.DoubleBuffered := true; ThumbImage.Parent.DoubleBuffered := true;
ShellListView.DoubleBuffered := true; ShellListView.DoubleBuffered := true;
{$ENDIF} {$ENDIF}
FilterCombobox.ItemIndex := 0;
ShellListView.Mask := FilterCombobox.Mask;
end; end;
procedure TJvThumbnailChildForm.GbTitlePlacementClick(Sender: TObject); procedure TJvThumbnailChildForm.GbTitlePlacementClick(Sender: TObject);

2
components/jvcllaz/examples/JvThumbnail/JvThumbnailMainFormU.pas
View File

@ -307,10 +307,8 @@ var
begin begin
F := TJvThumbnailChildForm.Create(Self); F := TJvThumbnailChildForm.Create(Self);
try try
F.ShellListView.Mask := GraphicFileMask(TCustomBitmap);
{$IFNDEF Windows} {$IFNDEF Windows}
F.ShellListView.Mask := Uppercase(F.ShellListView.Mask)+';'+Lowercase(F.ShellListView.Mask); F.ShellListView.Mask := Uppercase(F.ShellListView.Mask)+';'+Lowercase(F.ShellListView.Mask);
// ShellListView, by default, has an uppercase Mask which is usually not good for Linux.
{$ENDIF} {$ENDIF}
F.ShelLTreeView.Path := ShellTreeView.Path; F.ShelLTreeView.Path := ShellTreeView.Path;
if Sender is TJvThumbView then if Sender is TJvThumbView then

2
components/jvcllaz/run/JvCustomControls/JvThumbImage.pas
View File

@ -771,7 +771,7 @@ begin
Bmp.SetSize(w, h); Bmp.SetSize(w, h);
Bmp.Canvas.Brush.Color := clWhite; Bmp.Canvas.Brush.Color := clWhite;
Bmp.Canvas.FillRect(0, 0, w, h); Bmp.Canvas.FillRect(0, 0, w, h);
Bmp.Assign(Picture); Bmp.Assign(Picture.Graphic);
SrcIntfImg.LoadFromBitmap(Bmp.Handle, Bmp.MaskHandle); SrcIntfImg.LoadFromBitmap(Bmp.Handle, Bmp.MaskHandle);
DestIntfImg.LoadFromBitmap(Bmp.Handle, Bmp.MaskHandle); DestIntfImg.LoadFromBitmap(Bmp.Handle, Bmp.MaskHandle);
TransformProc(SrcIntfImg, DestIntfImg, ARedData, AGreenData, ABlueData); TransformProc(SrcIntfImg, DestIntfImg, ARedData, AGreenData, ABlueData);