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

2
components/exctrls/exctrlspkg.lpk
View File

@ -10,7 +10,7 @@
<SearchPaths> <SearchPaths>
<IncludeFiles Value="source"/> <IncludeFiles Value="source"/>
<OtherUnitFiles Value="source"/> <OtherUnitFiles Value="source"/>
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/> <UnitOutputDirectory Value="lib\runtime\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths> </SearchPaths>
</CompilerOptions> </CompilerOptions>
<Description Value="Extended standard controls: <Description Value="Extended standard controls:

9
components/exctrls/exctrlspkg_dsgn.lpk
View File

@ -9,9 +9,8 @@
<Version Value="11"/> <Version Value="11"/>
<PathDelim Value="\"/> <PathDelim Value="\"/>
<SearchPaths> <SearchPaths>
<IncludeFiles Value="source"/> <OtherUnitFiles Value="source\design"/>
<OtherUnitFiles Value="source"/> <UnitOutputDirectory Value="lib\designtime\$(TargetCPU)-$(TargetOS)"/>
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths> </SearchPaths>
</CompilerOptions> </CompilerOptions>
<Description Value="Designtime package for the extended standard controls (ExCtrls) runtime package <Description Value="Designtime package for the extended standard controls (ExCtrls) runtime package
@ -19,9 +18,9 @@
<License Value="LGPL with linking exception (like Lazarus LCL)."/> <License Value="LGPL with linking exception (like Lazarus LCL)."/>
<Files Count="1"> <Files Count="1">
<Item1> <Item1>
<Filename Value="source\exctrlsreg.pas"/> <Filename Value="source\design\exctrlsreg.pas"/>
<HasRegisterProc Value="True"/> <HasRegisterProc Value="True"/>
<UnitName Value="exctrlsreg"/> <UnitName Value="ExCtrlsReg"/>
</Item1> </Item1>
</Files> </Files>
<CompatibilityMode Value="True"/> <CompatibilityMode Value="True"/>

9
components/exctrls/fpdoc/exbuttons.xml Normal file
View File

@ -0,0 +1,9 @@
<?xml version="1.0" encoding="UTF-8"?>
<fpdoc-descriptions><package name="ExCtrlsPkg"><module name="ExButtons"><element name="TButtonEx.Alignment"><short>Determines the alignment of the caption within the button (left, right, centered)</short>
</element><element name="TButtonEx.FontDisabled"><short>Font to be used when the button is disabled. <var>DefaultDrawing</var> must be active for this to become active.</short>
</element>
<element name="TButtonEx.DefaultDrawing"><short>Activate non-widgetset drawing routines for the button and gives access to many of the new properties</short>
</element>
</module>
</package>
</fpdoc-descriptions>

2
components/exctrls/images/make_res.bat
View File

@ -1 +1 @@
lazres ..\source\exctrlsreg.res @imagelist.txt lazres ..\source\design\exctrlsreg.res @imagelist.txt

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; FOnItemChange: TCheckItemChange;
FOnItemClick: TCheckListClicked; FOnItemClick: TCheckListClicked;
procedure ButtonMouseDownHandler(Sender: TObject; 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); procedure CheckComboBoxFormCloseHandler(Sender: TObject; var CloseAction: TCloseAction);
function GetButtonWidth: Integer; function GetButtonWidth: Integer;
function GetChecked(AIndex: Integer): Boolean; 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 else if QuestionDlgEx_CustomIcon.Icon <> nil then
FImage := TIcon.Create FImage := TIcon.Create
else if QuestionDlgEx_CustomIcon.Graphic <> nil then else if QuestionDlgEx_CustomIcon.Graphic <> nil then
FImage := TGraphic(QuestionDlgEx_CustomIcon.ClassType).Create FImage := TGraphicClass(QuestionDlgEx_CustomIcon.ClassType).Create
else else
exit; exit;
Fimage.Assign(QuestionDlgEx_CustomIcon); Fimage.Assign(QuestionDlgEx_CustomIcon);