paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-13 10:19:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

Activates support for top-aligned tabs for TPageControl under wince

Browse Source 
git-svn-id: trunk@26483 -
This commit is contained in:
sekelsenmat 2010-07-06 12:44:49 +00:00
parent 7a771b74e5
commit 7ceff41935
1 changed files with 12 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
lcl/interfaces/wince/wincewsextctrls.pp
View File

@ -425,6 +425,17 @@ end;
class function TWinCEWSCustomNotebook.CreateHandle(const AWinControl: TWinControl; class function TWinCEWSCustomNotebook.CreateHandle(const AWinControl: TWinControl;
const AParams: TCreateParams): HWND; const AParams: TCreateParams): HWND;
// The prefered style for the non-supported ones is bottom, as per MS guidelines,
// so that the user won't cover the screen with the hand while changing tabs
// Left and Right styles aren't supported because vertical text isn't supported
// See: http://wiki.lazarus.freepascal.org/Windows_CE_Development_Notes#Tab_Controls_.28TPageControl.29
const
TabPositionFlags: array[TTabPosition] of DWord = (
{ tpTop } 0,
{ tpBottom } TCS_BOTTOM,
{ tpLeft } TCS_BOTTOM, //TCS_VERTICAL or TCS_MULTILINE,
{ tpRight } TCS_BOTTOM //TCS_VERTICAL or TCS_RIGHT or TCS_MULTILINE
);
var var
Params: TCreateWindowExParams; Params: TCreateWindowExParams;
init : TINITCOMMONCONTROLSEX; init : TINITCOMMONCONTROLSEX;
@ -437,10 +448,7 @@ begin
// customization of Params // customization of Params
with Params do with Params do
begin begin
// Hard-coded bottom style as per MS guidelines Flags := Flags or TabPositionFlags[TCustomNoteBook(AWinControl).TabPosition];
// so that the user won't cover the screen with the hand while changing tabs
// Without doing this the text on the Tab becomes invisible
Flags := (Flags or TCS_BOTTOM) and not (TCS_VERTICAL or TCS_MULTILINE);
if nboMultiLine in TCustomNotebook(AWinControl).Options then if nboMultiLine in TCustomNotebook(AWinControl).Options then
Flags := Flags or TCS_MULTILINE; Flags := Flags or TCS_MULTILINE;
pClassName := WC_TABCONTROL; pClassName := WC_TABCONTROL;