diff --git a/components/exctrls/exctrlspkg.lpk b/components/exctrls/exctrlspkg.lpk index c03d408fe..80a1a8ad7 100644 --- a/components/exctrls/exctrlspkg.lpk +++ b/components/exctrls/exctrlspkg.lpk @@ -10,7 +10,7 @@ - + - - - + + - + - + diff --git a/components/exctrls/fpdoc/exbuttons.xml b/components/exctrls/fpdoc/exbuttons.xml new file mode 100644 index 000000000..d159852eb --- /dev/null +++ b/components/exctrls/fpdoc/exbuttons.xml @@ -0,0 +1,9 @@ + +Determines the alignment of the caption within the button (left, right, centered) + Font to be used when the button is disabled. DefaultDrawing must be active for this to become active. + + Activate non-widgetset drawing routines for the button and gives access to many of the new properties + + + + diff --git a/components/exctrls/images/make_res.bat b/components/exctrls/images/make_res.bat index 8167e3d7e..cb1809015 100644 --- a/components/exctrls/images/make_res.bat +++ b/components/exctrls/images/make_res.bat @@ -1 +1 @@ -lazres ..\source\exctrlsreg.res @imagelist.txt \ No newline at end of file +lazres ..\source\design\exctrlsreg.res @imagelist.txt \ No newline at end of file diff --git a/components/exctrls/source/exctrlsreg.pas b/components/exctrls/source/design/exctrlsreg.pas similarity index 100% rename from components/exctrls/source/exctrlsreg.pas rename to components/exctrls/source/design/exctrlsreg.pas diff --git a/components/exctrls/source/design/exctrlsreg.res b/components/exctrls/source/design/exctrlsreg.res new file mode 100644 index 000000000..f2e0df71f Binary files /dev/null and b/components/exctrls/source/design/exctrlsreg.res differ diff --git a/components/exctrls/source/excheckcombo.pas b/components/exctrls/source/excheckcombo.pas index 87079855a..4ebae80a1 100644 --- a/components/exctrls/source/excheckcombo.pas +++ b/components/exctrls/source/excheckcombo.pas @@ -84,7 +84,7 @@ type FOnItemChange: TCheckItemChange; FOnItemClick: TCheckListClicked; procedure ButtonMouseDownHandler(Sender: TObject; - AButton: TMouseButton; Shift: TShiftState; X, Y: Integer); + {%H-}AButton: TMouseButton; {%H-}Shift: TShiftState; {%H-}X, {%H-}Y: Integer); procedure CheckComboBoxFormCloseHandler(Sender: TObject; var CloseAction: TCloseAction); function GetButtonWidth: Integer; function GetChecked(AIndex: Integer): Boolean; diff --git a/components/exctrls/source/exquestiondlg.pas b/components/exctrls/source/exquestiondlg.pas index 05b345d35..1e579a1a9 100644 --- a/components/exctrls/source/exquestiondlg.pas +++ b/components/exctrls/source/exquestiondlg.pas @@ -468,7 +468,7 @@ begin else if QuestionDlgEx_CustomIcon.Icon <> nil then FImage := TIcon.Create else if QuestionDlgEx_CustomIcon.Graphic <> nil then - FImage := TGraphic(QuestionDlgEx_CustomIcon.ClassType).Create + FImage := TGraphicClass(QuestionDlgEx_CustomIcon.ClassType).Create else exit; Fimage.Assign(QuestionDlgEx_CustomIcon);