paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-22 14:19:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

Carbon: fixed showing icons in TListView = vsList, started TListView vsSmallIcon and vsIcon.

Browse Source 
git-svn-id: trunk@31551 -
This commit is contained in:
zeljko 2011-07-04 08:54:36 +00:00
parent 3e1143b234
commit 387a2566e5
1 changed files with 13 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
lcl/interfaces/carbon/carbonlistviews.pp
View File

@ -499,7 +499,7 @@ begin
AddDataBrowserListViewColumn(FOwner.Widget, FDesc, FOwner.GetInsertIndex(Self)),
Self, 'Add', 'AddDataBrowserListViewColumn');
SetHeaderWidth(FWidth)
SetHeaderWidth(FWidth);
end;
procedure TCarbonListColumn.Remove;
@ -637,6 +637,14 @@ begin
if FOwner.IsOwnerDrawn then
Result := kDataBrowserCustomType
else
if FOwner is TCarbonListView then
begin
case TCarbonListView(FOwner).FStyle of
vsList: Result := kDataBrowserIconAndTextType;
vsSmallIcon, vsIcon: Result := kDataBrowserIconType;
end;
end else
Result := kDataBrowserTextType;
end;
@ -1690,6 +1698,7 @@ begin
view := TListView(LCLObject);
idx := view.Items[AIndex].ImageIndex;
if view.ViewStyle <> vsIcon then begin
imgs := view.SmallImages;
size := 16;
@ -1718,8 +1727,7 @@ var
begin
view := TListView(LCLObject);
if not Assigned(view) then Exit;
if (view.ViewStyle = vsReport) and (FColumns.Count > 0) then
if { (view.ViewStyle = vsReport) and } (FColumns.Count > 0) then
begin
firstIconed := Assigned(view.SmallImages);
C := TCarbonListColumn(FColumns[0]);
@ -1729,6 +1737,7 @@ begin
C.ReCreate;
end;
end;
end;
procedure TCarbonListView.ClearIconCache;
@ -1746,10 +1755,8 @@ procedure TCarbonListView.SetViewStyle(AStyle: TViewStyle);
begin
FStyle:=AStyle;
ListViewModes[FStyle].Apply(Self);
if FStyle = vsList then
begin
if FStyle <> vsReport then
ShowAsList(True);
end;
end;
procedure TCarbonListView.DoColumnClicked(MouseX, MouseY: Integer);