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

use BS_AUTO3STATE for checkbox with AllowGray=true

Browse Source 
git-svn-id: trunk@6492 -
This commit is contained in:
vincents 2005-01-07 08:53:50 +00:00
parent 563264d9fa
commit 0ce582b720
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/interfaces/win32/win32wsstdctrls.pp
View File

@ -547,7 +547,7 @@ end;
{ TWin32WSCustomComboBox }
const
ComboBoxStyles: array[TComboBoxStyle] of DWORD = (
ComboBoxStyles: array[TComboBoxStyle] of Integer = (
CBS_DROPDOWN, CBS_SIMPLE, CBS_DROPDOWNLIST,
CBS_DROPDOWNLIST or CBS_OWNERDRAWFIXED,
CBS_DROPDOWNLIST or CBS_OWNERDRAWVARIABLE);
@ -984,7 +984,10 @@ begin
begin
pClassName := 'BUTTON';
WindowTitle := StrCaption;
Flags := Flags Or BS_AUTOCHECKBOX;
if TCustomCheckBox(AWinControl).AllowGrayed then
Flags := Flags Or BS_AUTO3STATE
else
Flags := Flags Or BS_AUTOCHECKBOX;
end;
// create window
FinishCreateWindow(AWinControl, Params, false);