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

jvcllaz: Add TJvXPToolButton

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5410 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-12-04 19:22:09 +00:00
parent 5cc6f902d0
commit 2e4d2bcbf6
4 changed files with 27 additions and 27 deletions
Download Patch File Download Diff File Expand all files Collapse all files

30
components/jvcllaz/run/JvXPButtons.pas
View File

@ -282,20 +282,11 @@ type
property OnStartDrag;
end;
{$IFDEF USEJVCL}
{$IFDEF UNITVERSIONING}
const
UnitVersioning: TUnitVersionInfo = (
RCSfile: '$URL: https://jvcl.svn.sourceforge.net/svnroot/jvcl/tags/JVCL3_32/run/JvXPButtons.pas $';
Revision: '$Revision: 11167 $';
Date: '$Date: 2007-01-27 19:57:52 +0100 (sam., 27 janv. 2007) $';
LogPath: 'JVCL\run'
);
{$ENDIF UNITVERSIONING}
{$ENDIF USEJVCL}
implementation
//{$R ../resource/JvXPCore.res}
//=== { TJvXPCustomButtonActionLink } ========================================
destructor TJvXPCustomButtonActionLink.Destroy;
@ -795,7 +786,7 @@ begin
FToolType := ttClose;
FChangeLink := TChangeLink.Create;
FChangeLink.OnChange := DoImagesChange;
// HookResized;
HookResized;
end;
destructor TJvXPCustomToolButton.Destroy;
@ -885,15 +876,15 @@ begin
begin
lBitmap := TBitmap.Create;
try
{
lBitmap.LoadFromLazarusResource(
PChar('JvXPCustomToolButton' + Copy(GetEnumName(TypeInfo(TJvXPToolType),
Ord(FToolType)), 3, MaxInt)));
{
}
lBitmap.Assign(nil); // fixes GDI resource leak
Bitmap.LoadFromResourceName(HInstance,
lBitmap.LoadFromResourceName(HInstance,
PChar('JvXPCustomToolButton' + Copy(GetEnumName(TypeInfo(TJvXPToolType),
Ord(FToolType)), 3, MaxInt)));
}
if (dsClicked in DrawState) and (dsHighlight in DrawState) then
JvXPColorizeBitmap(lBitmap, clWhite)
else
@ -984,15 +975,6 @@ begin
LockedInvalidate;
end;
{$IFDEF USEJVCL}
{$IFDEF UNITVERSIONING}
initialization
RegisterUnitVersion(HInstance, UnitVersioning);
finalization
UnregisterUnitVersion(HInstance);
{$ENDIF UNITVERSIONING}
{$ENDIF USEJVCL}
end.