[JVCL-Checkins] CVS: dev/restructured/source JvFavoritesButton.pas,1.2,1.3 JvRecentMenuBtn.pas,1.2,1.3 JvStartMenuBtn.pas,1.2,1.3

[Peter T. <pe...@us...>]

Update of /cvsroot/jvcl/dev/restructured/source
In directory usw-pr-cvs1:/tmp/cvs-serv24430/dev/restructured/source

Modified Files:
	JvFavoritesButton.pas JvRecentMenuBtn.pas JvStartMenuBtn.pas 
Log Message:
Some cleanup

Index: JvFavoritesButton.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/restructured/source/JvFavoritesButton.pas,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** JvFavoritesButton.pas	30 Jun 2002 17:31:26 -0000	1.2
--- JvFavoritesButton.pas	30 Jun 2002 17:39:52 -0000	1.3
***************
*** 227,246 ****
  var
    FileInfo: SHFILEINFO;
!   bmp, bmp2: TBitmap;
  begin
- {  bmp := TBitmap.Create;
-   bmp.Width := 32;
-   bmp.Height := 32;}
    SHGetFileInfo(PChar(Path), 0, FileInfo, SizeOf(FileInfo), SHGFI_ICON);
- {  DrawIcon(bmp.Canvas.Handle, 0, 0, FileInfo.hIcon);
-   bmp2 := TBitmap.Create;
-   bmp2.Width := 16;
-   bmp2.Height := 16;
-   bmp2.Canvas.StretchDraw(Rect(0, 0, 16, 16), bmp);}
    bmp := IconToBitmap2(FileInfo.hIcon,16,clWhite);
    FImages.AddMasked(bmp, bmp.TransparentColor);
    bmp.Free;
- {  bmp2.Free;
-   bmp.Free; }
  end;
  
--- 227,236 ----
  var
    FileInfo: SHFILEINFO;
!   bmp: TBitmap;
  begin
    SHGetFileInfo(PChar(Path), 0, FileInfo, SizeOf(FileInfo), SHGFI_ICON);
    bmp := IconToBitmap2(FileInfo.hIcon,16,clWhite);
    FImages.AddMasked(bmp, bmp.TransparentColor);
    bmp.Free;
  end;
  

Index: JvRecentMenuBtn.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/restructured/source/JvRecentMenuBtn.pas,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** JvRecentMenuBtn.pas	30 Jun 2002 17:31:26 -0000	1.2
--- JvRecentMenuBtn.pas	30 Jun 2002 17:39:52 -0000	1.3
***************
*** 159,163 ****
          it := TMenuItem.Create(Item);
          it.Caption := ChangeFileExt(SearchRec.Name, '');
-         ;
          it.OnClick := UrlClick;
          it.Hint := Directory + SearchRec.Name;
--- 159,162 ----
***************
*** 166,170 ****
          it.Bitmap.Assign(bmp);
          bmp.Free;
- //        it.Bitmap.TransparentMode := tmAuto;
          Item.Add(it);
        end;
--- 165,168 ----

Index: JvStartMenuBtn.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/restructured/source/JvStartMenuBtn.pas,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** JvStartMenuBtn.pas	30 Jun 2002 17:31:26 -0000	1.2
--- JvStartMenuBtn.pas	30 Jun 2002 17:39:52 -0000	1.3
***************
*** 231,243 ****
          it := TMenuItem.Create(Item);
          it.Caption := ChangeFileExt(SearchRec.Name, '');
-         ;
          it.OnClick := UrlClick;
          it.Hint := Directory + SearchRec.Name;
          w := 0;
          bmp := IconToBitmap2(ExtractAssociatedIcon(Application.Handle, PChar(it.Hint), w),16,clWhite);
- //        bmp.TransparentColor := clWhite;
          it.Bitmap.Assign(bmp);
          bmp.Free;
- //        it.Bitmap.TransparentMode := tmAuto;
          Item.Add(it);
        end;
--- 231,240 ----