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

tvplanit: Fix new icons in TVpCalendar

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5931 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2017-06-12 09:45:08 +00:00
parent 9b3a49a438
commit c7dffe1ebf
3 changed files with 1 additions and 32 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
components/tvplanit/images/make_res.bat
View File

@ -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

2
components/tvplanit/source/vpcalendar.pas
View File

@ -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}

15
components/tvplanit/source/vpmisc.pas
View File

@ -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;