From c7dffe1ebfa516d2e61c204d5545c1e1dc1a48f8 Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Mon, 12 Jun 2017 09:45:08 +0000
Subject: [PATCH] tvplanit: Fix new icons in TVpCalendar

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5931 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/tvplanit/images/make_res.bat   | 16 ----------------
 components/tvplanit/source/vpcalendar.pas |  2 +-
 components/tvplanit/source/vpmisc.pas     | 15 ---------------
 3 files changed, 1 insertion(+), 32 deletions(-)

diff --git a/components/tvplanit/images/make_res.bat b/components/tvplanit/images/make_res.bat
index 1f5ad2c0a..500e3856e 100644
--- a/components/tvplanit/images/make_res.bat
+++ b/components/tvplanit/images/make_res.bat
@@ -2,20 +2,4 @@ lazres ..\source\design\vpreg.res @reg_palette_list.txt
 lazres ..\source\addons\zeos\vpregzeos.res @reg_palette_zeos_list.txt
 lazres ..\source\vpbasepng.res @regbasepng_files.txt
 
-goto :end
-
-..\lazres ..\vpreg.res @..\reg_files.txt
-..\lazres ..\vpregzeos.res @..\regzeos_files.txt
-cd ..\res
-..\lazres ..\vpbasepng.res @..\regbasepng_files.txt
-cd ..
-
-@echo Copy *.RES to SOURCE folder (CTRL-BREAK -- NO, ENTER -- YES)
-@pause
-copy vpreg.res ..\source
-copy vpregzeos.res ..\source\addons\zeos
-copy vpbasepng.res ..\source
-
-
-
 :end
\ No newline at end of file
diff --git a/components/tvplanit/source/vpcalendar.pas b/components/tvplanit/source/vpcalendar.pas
index 0ce740668..61e8c5728 100644
--- a/components/tvplanit/source/vpcalendar.pas
+++ b/components/tvplanit/source/vpcalendar.pas
@@ -842,7 +842,7 @@ begin
   clBtnPrevYear := TSpeedButton.Create(Self);
   clBtnPrevYear.Parent := Self;
   {$IFDEF NEW_ICONS}
-  LoadGlyphFromRCData(clBtnNextYear.Glyph, 'VpLArrows', 16, 24, 32);
+  LoadGlyphFromRCData(clBtnPrevYear.Glyph, 'VpLArrows', 16, 24, 32);
   {$ELSE}
   clBtnPrevYear.Glyph.LoadFromResourceName(HINSTANCE,'VPLEFTARROWS'); //soner geöndert: clBtnPrevYear.Glyph.Handle := LoadBaseBitmap('VPLEFTARROWS');
   {$ENDIF}
diff --git a/components/tvplanit/source/vpmisc.pas b/components/tvplanit/source/vpmisc.pas
index 290d90951..b981409ef 100644
--- a/components/tvplanit/source/vpmisc.pas
+++ b/components/tvplanit/source/vpmisc.pas
@@ -997,21 +997,6 @@ begin
     resName := ABaseResName + IntToStr(ALowRes);
 
   LoadGlyphFromRCDATA(AGlyph, resName);
-  {
-  stream := TResourceStream.Create(HINSTANCE, resName, RT_RCDATA);
-  try
-    pic := TPicture.Create;
-    try
-      pic.LoadFromStream(stream);
-      AGlyph.Canvas.Draw(0, 0, pic.Bitmap);
-//      AGlyph.Assign(pic.Bitmap);
-    finally
-      pic.Free;
-    end;
-  finally
-    stream.Free;
-  end;
-  }
 end;
 
 procedure LoadImageFromRCDATA(AImage: TImage; ABaseResName: String;