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

jvcllaz: Add new JvTabBar demo using a JvNotebookPageList

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6394 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2018-05-07 20:26:26 +00:00
parent 0eafcd014e
commit 2a7a7830d6
6 changed files with 1289 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
components/jvcllaz/run/JvPageComps/JvTabBar.pas
View File

@ -504,14 +504,14 @@ const
WHEEL_DELTA = 120;
// Pixels at 96 ppi:
LEFT_MARGIN = 4;
RIGHT_MARGIN = 6;
TEXT_MARGIN_LEft = 2;
TEXT_MARGIN_RIGHT = 4;
TOP_MARGIN = 4;
BOTTOM_MARGIN = 4;
CLOSE_BUTTON_SIZE = 12;
CROSS_MARGIN = 3;
LEFT_MARGIN = 8; // Distance left edge to image or text
RIGHT_MARGIN = 8; // Distance right edge to close button or text
TEXT_MARGIN_LEFT = 8; // Distance image to text
TEXT_MARGIN_RIGHT = 8; // Distance text to close btn
TOP_MARGIN = 4; // Distance top edge to text/image/close btn (whichever is highest)
BOTTOM_MARGIN = 4; // Distance bottom edge to text/image/close btn (whichever is lowest)
CLOSE_BUTTON_SIZE = 12; // size of the close button box
CROSS_MARGIN = 8; // Margin of the "x" inside the close button
function DrawButtonFace(ACanvas: TCanvas; const ARect: TRect; AFlat: Boolean;