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

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;