paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2026-02-19 19:56:56 +01:00
Code Issues Packages Projects Releases Wiki Activity

Wince standard controls now use the provided class constants for the class name.

Browse Source 
git-svn-id: trunk@12369 -
This commit is contained in:
sekelsenmat 2007-10-08 07:45:58 +00:00
parent 5e4da73b72
commit b33722d424
3 changed files with 10 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/wince/winceint.pp
View File

@ -187,6 +187,8 @@ const
LabelClsName: array[0..6] of WideChar = ('S','T','A','T','I','C',#0);
ComboboxClsName: array[0..8] of WideChar = ('C','O','M','B','O','B','O','X',#0);
TabControlClsName: array[0..15] of WideChar = ('S','y','s','T','a','b','C','o','n','t','r','o','l','3','2',#0);
ScrollBarClsName: array[0..9] of WideChar = ('S','C','R','O','L','L','B','A','R',#0);
ListBoxClsName: array[0..7] of WideChar = ('L','I','S','T','B','O','X',#0);
CP_UTF7 = 65000; { UTF-7 translation }
CP_UTF8 = 65001; { UTF-8 translation }

2
lcl/interfaces/wince/wincewsbuttons.pp
View File

@ -410,7 +410,7 @@ begin
// customization of Params
with Params do
begin
pClassName := 'BUTTON';
pClassName := @ButtonClsName;
if TCustomBitBtn(AWinControl).Default Then
Flags := Flags or BS_DEFPUSHBUTTON
else

14
lcl/interfaces/wince/wincewsstdctrls.pp
View File

@ -317,7 +317,7 @@ begin
sbVertical:
Flags := Flags or SBS_VERT;
end;
pClassName := 'SCROLLBAR';
pClassName := @ScrollBarClsName;
end;
// create window
FinishCreateWindow(AWinControl, Params, false);
@ -383,7 +383,7 @@ begin
// customization of Params
with Params do
begin
pClassName := 'BUTTON';
pClassName := @ButtonClsName;
WindowTitle := StrCaption;
Flags := Flags Or BS_GROUPBOX;
end;
@ -447,7 +447,7 @@ begin
if BorderStyle=bsSingle then
FlagsEx := FlagsEx or WS_EX_CLIENTEDGE;
end;
pClassName := 'LISTBOX';
pClassName := @ListBoxClsName;
Flags := Flags or (WS_VSCROLL or LBS_NOINTEGRALHEIGHT or LBS_HASSTRINGS or
LBS_NOTIFY);
end;
@ -615,7 +615,7 @@ begin
Flags := Flags or CalcComboBoxWinFlags(TCustomComboBox(AWinControl));
If TComboBox(AWinControl).Sorted Then
Flags:= Flags or CBS_SORT;
pClassName := 'COMBOBOX';
pClassName := @ComboboxClsName;
Flags := Flags or (WS_VSCROLL or CBS_AUTOHSCROLL or CBS_HASSTRINGS);
SubClassWndProc := @ComboBoxWindowProc;
end;
@ -922,7 +922,7 @@ begin
else
Flags := Flags or ES_AUTOHSCROLL;
FlagsEx := FlagsEx or WS_EX_CLIENTEDGE;
pClassName := 'EDIT';
pClassName := @EditClsName;
WindowTitle := StrCaption;
end;
// create window
@ -1129,7 +1129,7 @@ begin
// customization of Params
with Params do
begin
pClassName := 'BUTTON';
pClassName := @ButtonClsName;
WindowTitle := StringToPWideChar(AWinControl.Caption);
if TCustomCheckBox(AWinControl).AllowGrayed then
Flags := Flags Or BS_AUTO3STATE
@ -1199,7 +1199,7 @@ begin
// customization of Params
with Params do
begin
pClassName := 'BUTTON';
pClassName := @ButtonClsName;
WindowTitle := StrCaption;
Flags := Flags or BS_AUTOCHECKBOX or BS_PUSHLIKE;
end;