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

ExCtrls: Move designtime package to a folder different from that of runtime packages. Less hints and warnings.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8671 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2023-01-07 13:42:27 +00:00
parent 3955903dbe
commit d28b994820
8 changed files with 17 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

0
components/exctrls/source/exctrlsreg.pas → components/exctrls/source/design/exctrlsreg.pas
View File

BIN
components/exctrls/source/design/exctrlsreg.res Normal file
View File

Binary file not shown.

2
components/exctrls/source/excheckcombo.pas
View File

@@ -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;

2
components/exctrls/source/exquestiondlg.pas
View File

@@ -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);