Changeset 111 for trunk/Components


Ignore:
Timestamp:
Feb 2, 2018, 4:40:46 PM (7 years ago)
Author:
chronos
Message:
  • Modified: Custom defined form dialogs moved to CevoComponents so they can be correctly opened in IDE.
  • Modified: Moved Sound, StringTables and Directories to CevoComponents as dependency for custom form dialogs.
Location:
trunk/Components
Files:
6 added
5 edited

Legend:

Unmodified
Added
Removed

  • trunk/Components/Area.pas

    r10 r111  
    2626begin
    2727  inherited;
    28   Enabled:=false;
    29   ShowHint:=true;
     28  Enabled := false;
     29  ShowHint := true;
    3030end;
    3131
    … …  
    3434  if csDesigning in ComponentState then
    3535    with Canvas do
    36       begin Brush.Color:=$FF0000; FrameRect(Rect(0,0,width,height)) end
     36      begin
     37        Brush.Color := $FF0000;
     38        FrameRect(Rect(0, 0, width, height));
     39      end;
    3740end;
    3841

  • trunk/Components/ButtonBase.pas

    r14 r111  
    122122begin
    123123  FDown := x;
    124   Invalidate
     124  Invalidate;
    125125end;
    126126

  • trunk/Components/ButtonC.pas

    r14 r111  
    1111    constructor Create(aOwner: TComponent); override;
    1212  private
    13     FIndex: integer;
    14     procedure SetIndex(x: integer);
     13    FIndex: Integer;
     14    procedure SetIndex(x: Integer);
    1515  published
    1616    property Visible;
    … …  
    3333begin
    3434  inherited Create(aOwner);
    35   ShowHint := true;
     35  ShowHint := True;
    3636  SetBounds(0, 0, 12, 12);
    3737end;
    … …  
    5555  begin
    5656    FIndex := x;
    57     Invalidate
    58   end
     57    Invalidate;
     58  end;
    5959end;
    6060

  • trunk/Components/CevoComponents.lpk

    r100 r111  
    1515          <SyntaxMode Value="Delphi"/>
    1616          <CStyleOperator Value="False"/>
     17          <IncludeAssertionCode Value="True"/>
    1718          <AllowLabel Value="False"/>
    1819          <CPPInline Value="False"/>
    … …  
    2021      </Parsing>
    2122      <CodeGeneration>
     23        <Checks>
     24          <IOChecks Value="True"/>
     25          <RangeChecks Value="True"/>
     26          <OverflowChecks Value="True"/>
     27          <StackChecks Value="True"/>
     28        </Checks>
     29        <VerifyObjMethodCallValidity Value="True"/>
    2230        <Optimizations>
    2331          <OptimizationLevel Value="0"/>
    2432        </Optimizations>
    2533      </CodeGeneration>
    26       <Linking>
    27         <Debugging>
    28           <GenerateDebugInfo Value="False"/>
    29         </Debugging>
    30       </Linking>
    3134      <Other>
    3235        <CompilerMessages>
    … …  
    3538      </Other>
    3639    </CompilerOptions>
    37     <Files Count="7">
     40    <Files Count="12">
    3841      <Item1>
    3942        <Filename Value="Area.pas"/>
    … …  
    7073        <UnitName Value="ButtonBase"/>
    7174      </Item7>
     75      <Item8>
     76        <Filename Value="DrawDlg.pas"/>
     77        <HasRegisterProc Value="True"/>
     78        <UnitName Value="DrawDlg"/>
     79      </Item8>
     80      <Item9>
     81        <Filename Value="ScreenTools.pas"/>
     82        <Type Value="Include"/>
     83      </Item9>
     84      <Item10>
     85        <Filename Value="Directories.pas"/>
     86        <Type Value="Include"/>
     87      </Item10>
     88      <Item11>
     89        <Filename Value="StringTables.pas"/>
     90        <Type Value="Include"/>
     91      </Item11>
     92      <Item12>
     93        <Filename Value="Sound.pas"/>
     94        <UnitName Value="Sound"/>
     95      </Item12>
    7296    </Files>
    7397    <RequiredPkgs Count="2">

  • trunk/Components/CevoComponents.pas

    r10 r111  
    55unit CevoComponents;
    66
     7{$warn 5023 off : no warning about unused units}
    78interface
    89
    910uses
    10   Area, ButtonA, ButtonB, ButtonC, ButtonN, EOTButton, ButtonBase,
    11   LazarusPackageIntf;
     11  Area, ButtonA, ButtonB, ButtonC, ButtonN, EOTButton, ButtonBase, DrawDlg,
     12  Sound, LazarusPackageIntf;
    1213
    1314implementation
    … …  
    2122  RegisterUnit('ButtonN', @ButtonN.Register);
    2223  RegisterUnit('EOTButton', @EOTButton.Register);
     24  RegisterUnit('DrawDlg', @DrawDlg.Register);
    2325end;
    2426
Note: See TracChangeset for help on using the changeset viewer.