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

RxFPC:fix RxSwitch

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6304 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2018-04-13 12:02:48 +00:00
parent 93c52801d7
commit e2a004c0e1
23 changed files with 1404 additions and 1462 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
components/rx/trunk/rxcontrols/rxswitch.pas
View File

@ -150,7 +150,7 @@ type
property OnOff: TNotifyEvent read FOnOff write FOnOff;
end;
{$I RXSWITCH.INC}
{$R rxswitch.res}
implementation
@ -294,7 +294,11 @@ begin
end;
procedure TRxSwitch.SetSwitchGlyph(Index: TSwithState; Value: TBitmap);
var
S: String;
B: TBitmap;
begin
FBitmaps[Index].Clear;
if Value <> nil then
begin
FBitmaps[Index].Assign(Value);
@ -303,11 +307,17 @@ begin
else
begin
case Index of
sw_off: FBitmaps[Index].Handle:=CreatePixmapIndirect(@RXSWITCH_OFF[0],
GetSysColor(COLOR_BTNFACE));
{ sw_off: FBitmaps[Index].Handle:=CreatePixmapIndirect(@RXSWITCH_OFF[0], GetSysColor(COLOR_BTNFACE));
sw_on: FBitmaps[Index].Handle:=CreatePixmapIndirect(@RXSWITCH_ON[0],
GetSysColor(COLOR_BTNFACE));
GetSysColor(COLOR_BTNFACE));}
sw_off:S:='rxswitch_off';
sw_on:S:='rxswitch_on';
else
Exit;
end;
B:=CreateResBitmap(S);
FBitmaps[Index].Assign(B);
B.Free;
Exclude(FUserBitmaps, Index);
end;
end;