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

jvcllaz: Fix sorting as well as thumbnail and title borders of TJvThumbView at designtime.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7187 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2019-11-20 10:54:57 +00:00
parent e90fbb2eb9
commit e91ba97380
1 changed files with 24 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
components/jvcllaz/run/JvCustomControls/jvthumbviews.pas
View File

@ -191,7 +191,7 @@ type
property ShadowColor: TColor read FShadowColor write FShadowColor; property ShadowColor: TColor read FShadowColor write FShadowColor;
property ShowShadow: Boolean read FShowShadow write FShowShadow; property ShowShadow: Boolean read FShowShadow write FShowShadow;
property Size: TPercent read FPercent write SetPercent; property Size: TPercent read FPercent write SetPercent;
property Sorted: Boolean read FSorted write SetSorted; property Sorted: Boolean read FSorted write SetSorted default true;
property ThumbBevelInner: TPanelBevel property ThumbBevelInner: TPanelBevel
read FThumbBevelInner write SetThumbBevelInner default bvNone; read FThumbBevelInner write SetThumbBevelInner default bvNone;
property ThumbBevelOuter: TPanelBevel property ThumbBevelOuter: TPanelBevel
@ -323,6 +323,12 @@ begin
Thb.OnDblClick := OnDblClick; Thb.OnDblClick := OnDblClick;
Thb.Photo.OnDblClick := OnDblClick; Thb.Photo.OnDblClick := OnDblClick;
Thb.MinimizeMemory := MinMemory; Thb.MinimizeMemory := MinMemory;
Thb.BevelInner := ThumbBevelInner;
Thb.BevelOuter := ThumbBevelouter;
Thb.BorderStyle := ThumbBorderStyle;
Thb.TitleBevelOuter := ThumbTitleBevelOuter;
Thb.TitleBevelInner := ThumbTitleBevelInner;
Thb.TitleBorderStyle := ThumbTitleBorderStyle;
if FThumbColor = clDefault then if FThumbColor = clDefault then
begin begin
Thb.Color := Self.Color; Thb.Color := Self.Color;
@ -363,8 +369,15 @@ begin
Thb.OnClick := OnClick; Thb.OnClick := OnClick;
Thb.Photo.OnClick := OnClick; Thb.Photo.OnClick := OnClick;
Thb.OnDblClick := OnDblClick; Thb.OnDblClick := OnDblClick;
Thb.MinimizeMemory := MinMemory;
Thb.Title := aTitle; Thb.Title := aTitle;
Thb.Photo.OnDblClick := OnDblClick; Thb.Photo.OnDblClick := OnDblClick;
Thb.BevelInner := ThumbBevelInner;
Thb.BevelOuter := ThumbBevelouter;
Thb.BorderStyle := ThumbBorderStyle;
Thb.TitleBevelOuter := ThumbTitleBevelOuter;
Thb.TitleBevelInner := ThumbTitleBevelInner;
Thb.TitleBorderStyle := ThumbTitleBorderStyle;
if FThumbColor = clDefault then if FThumbColor = clDefault then
begin begin
Thb.Color := Self.Color; Thb.Color := Self.Color;
@ -403,6 +416,12 @@ begin
Thb.Photo.OnDblClick := OnDblClick; Thb.Photo.OnDblClick := OnDblClick;
Thb.MinimizeMemory := MinMemory; Thb.MinimizeMemory := MinMemory;
Thb.Title := ATitle; Thb.Title := ATitle;
Thb.BevelInner := ThumbBevelInner;
Thb.BevelOuter := ThumbBevelouter;
Thb.BorderStyle := ThumbBorderStyle;
Thb.TitleBevelOuter := ThumbTitleBevelOuter;
Thb.TitleBevelInner := ThumbTitleBevelInner;
Thb.TitleBorderStyle := ThumbTitleBorderStyle;
if FThumbColor = clDefault then if FThumbColor = clDefault then
begin begin
Thb.Color := Self.Color; Thb.Color := Self.Color;
@ -891,10 +910,13 @@ begin
thumb := FThumbList.Thumbnail[I]; //TJvThumbnail(FThumbList.Objects[I]); thumb := FThumbList.Thumbnail[I]; //TJvThumbnail(FThumbList.Objects[I]);
if thumb <> nil then if thumb <> nil then
begin begin
thumb.SetBounds(CalculateXPos(I + 1), CalculateYPos(I + 1), FThumbSize.X, FThumbSize.Y);
{
thumb.Left := CalculateXPos(I + 1); thumb.Left := CalculateXPos(I + 1);
thumb.Top := CalculateYPos(I + 1); thumb.Top := CalculateYPos(I + 1);
thumb.Width := FThumbSize.X; thumb.Width := FThumbSize.X;
thumb.Height := FThumbSize.Y; thumb.Height := FThumbSize.Y;
}
end; end;
end; end;
HorzScrollBar.Position := Tmp2; HorzScrollBar.Position := Tmp2;
@ -1196,9 +1218,9 @@ begin
if Value <> FSorted then if Value <> FSorted then
begin begin
FSorted := Value; FSorted := Value;
FThumbList.Sorted := FSorted;
if not FPainted then if not FPainted then
Exit; Exit;
FThumbList.Sorted := FSorted;
SetDirectory(FDirectory); // force reread SetDirectory(FDirectory); // force reread
Invalidate; Invalidate;
end; end;