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

! Now only 1 Package for Both Components

Browse Source 
! Working Styles on TGradTabControl

#1

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1110 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
eugene1
2010-01-03 06:42:20 +00:00
parent c93619e15b
commit f8cbbc00b8
12 changed files with 480 additions and 248 deletions
Download Patch File Download Diff File Expand all files Collapse all files

36
components/gradcontrols/src/ugradbtn.pas
View File

@ -1136,16 +1136,10 @@ end;
procedure TGradButton.MouseDown(Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
inherited;
if PtInRect(Rect(0,0,Width,Height),Point(X,Y)) then
begin
//WriteLn('X: ',X,' Y: ',Y);
FState:=bsDown;
//FFocused:=true;
//LCLIntf.SetFocus(Handle);
InvPaint;
end else begin
FState:=bsUp;
@ -1156,33 +1150,27 @@ begin
InvPaint;
end;
inherited;
end;
procedure TGradButton.MouseUp(Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if PtInRect(Rect(0,0,Width,Height),Point(X,Y)) then
begin
//WriteLn('MouseUp');
if PtInRect(Rect(0,0,Width,Height),Point(X,Y)) then
begin
FState:=bsHot;
//FFocused:=true;
InvPaint(true);
if Button = mbLeft then
inherited Click; //Faster, than the Overrided Click procedure
inherited Click; //Faster, than the Overrided Click procedure
end else begin
FState := bsUp;
FFocused:=false;
InvPaint(true);
end;
{ if (Button = mbRight) AND Assigned(PopupMenu) then
PopupMenu.PopUp(X,Y);
}
end else begin
FState := bsUp;
FFocused:=false;
InvPaint(true);
end;
inherited;
inherited;
end;
//Thx to: http://www.delphipraxis.net/topic67805_farbverlauf+berechnen.html