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

Changes to TListView to display images and fixes to TCustomImageList to notify it's owners of changes.

Browse Source 
Shane

git-svn-id: trunk@582 -
This commit is contained in:
lazarus 2002-01-07 13:58:15 +00:00
parent 6e03cb4274
commit d39b2ed63e
2 changed files with 17 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/include/customlistview.inc
View File

@ -147,16 +147,16 @@ begin
FImages := AValue; FImages := AValue;
if FImages <> nil then if FImages <> nil then
FImages.RegisterChanges(FImageChangeLink); Begin
FImages.FreeNotification(self); FImages.RegisterChanges(FImageChangeLink);
FImages.FreeNotification(self);
end;
CNSendMessage(LM_SETPROPERTIES,self,nil); CNSendMessage(LM_SETPROPERTIES,self,nil);
end; end;
end; end;
Procedure TCustomListView.ImageChanged(Sender : TObject); Procedure TCustomListView.ImageChanged(Sender : TObject);
begin begin
Writeln('IMAGE CHANGED!!!!');
//image changed so redraw it all.... //image changed so redraw it all....
CNSendMessage(LM_SETPROPERTIES,self,nil); CNSendMessage(LM_SETPROPERTIES,self,nil);
end; end;

15
lcl/include/imglist.inc
View File

@ -42,6 +42,7 @@ begin
try try
Result := Count; Result := Count;
Insert(Result, Image, Mask); Insert(Result, Image, Mask);
Change;
except except
on Exception do Result := -1; // Ignore exceptions, just return -1 on Exception do Result := -1; // Ignore exceptions, just return -1
end; end;
@ -98,6 +99,7 @@ begin
GetImages(n, Image, Mask); GetImages(n, Image, Mask);
Add(Image, Mask); Add(Image, Mask);
end; end;
Change;
finally finally
Mask.Free; Mask.Free;
end; end;
@ -121,6 +123,7 @@ begin
try try
Result := Count; Result := Count;
InsertMasked(Result, Image, MaskColor); InsertMasked(Result, Image, MaskColor);
Change;
except except
on Exception do Result := -1; // Ignore exceptions, just return -1 on Exception do Result := -1; // Ignore exceptions, just return -1
end; end;
@ -178,7 +181,7 @@ procedure TCustomImageList.Clear;
begin begin
FCount := 0; FCount := 0;
FImageList.Clear; FImageList.Clear;
NotifyChangeLink; Change;
end; end;
{------------------------------------------------------------------------------ {------------------------------------------------------------------------------
@ -233,6 +236,7 @@ begin
// ShiftImages(FBitmap.Canvas, Index, 1); // ShiftImages(FBitmap.Canvas, Index, 1);
// ShiftImages(FMaskBitmap.Canvas, Index, 1); // ShiftImages(FMaskBitmap.Canvas, Index, 1);
FImageList.Delete(Index); //shane FImageList.Delete(Index); //shane
Change;
end; end;
end; end;
@ -430,7 +434,7 @@ begin
if (Image <> nil) if (Image <> nil)
then begin then begin
FImageList.Insert(Index,Image); FImageList.Insert(Index,Image);
Change;
{ nCount := Image.Width div FWidth; { nCount := Image.Width div FWidth;
if nCount > 0 if nCount > 0
then begin then begin
@ -531,6 +535,7 @@ begin
Mask(MaskColor); Mask(MaskColor);
end; end;
Insert(Index, Image, Mask); Insert(Index, Image, Mask);
Change;
finally finally
Mask.Free; Mask.Free;
end; end;
@ -567,6 +572,7 @@ begin
GetImages(CurIndex, Image, Mask); GetImages(CurIndex, Image, Mask);
Delete(CurIndex); Delete(CurIndex);
Insert(NewIndex, Image, Mask); Insert(NewIndex, Image, Mask);
Change;
finally finally
Mask.Free; Mask.Free;
end; end;
@ -811,6 +817,11 @@ end;
{ {
$Log$ $Log$
Revision 1.8 2002/01/07 13:58:15 lazarus
Changes to TListView to display images and fixes to TCustomImageList to notify it's owners of changes.
Shane
Revision 1.7 2002/01/03 15:07:08 lazarus Revision 1.7 2002/01/03 15:07:08 lazarus
MG: fixed TCustomImageList.CreateSize MG: fixed TCustomImageList.CreateSize