Changeset 482


Ignore:
Timestamp:
Dec 8, 2023, 10:49:12 AM (13 months ago)
Author:
chronos
Message:
  • Modified: Class type checking enabled back.
Location:
trunk
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • trunk/Integrated.lpi

    r475 r482  
    7878      </Item2>
    7979      <SharedMatrixOptions Count="2">
    80         <Item1 ID="151739052537" Targets="CevoComponents,Common,DpiControls" Modes="Debug" Value="-g -gl -gh -O1 -dDPI"/>
     80        <Item1 ID="151739052537" Targets="CevoComponents,Common,DpiControls" Modes="Debug" Value="-g -gl -gh -CirotR -O1 -dDPI"/>
    8181        <Item2 ID="186701832267" Targets="CevoComponents,Common,DpiControls" Modes="Release" Value="-CX -XX -O3 -dDPI"/>
    8282      </SharedMatrixOptions>
     
    418418      <CustomOptions Value="-dDEBUG
    419419-dDPI"/>
    420       <OtherDefines Count="2">
    421         <Define0 Value="DEBUG"/>
    422         <Define1 Value="DPI"/>
    423       </OtherDefines>
    424420    </Other>
    425421  </CompilerOptions>
  • trunk/Packages/DpiControls/Dpi.Controls.pas

    r476 r482  
    437437function TWinControl.GetBorderStyle: TBorderStyle;
    438438begin
     439  {$objectChecks-}
    439440  Result := TWinControlEx(GetNativeWinControl).BorderStyle;
     441  {$objectChecks+}
    440442end;
    441443
     
    472474procedure TWinControl.SetBorderStyle(AValue: TBorderStyle);
    473475begin
     476  {$objectChecks-}
    474477  TWinControlEx(GetNativeWinControl).BorderStyle := AValue;
     478  {$objectChecks+}
    475479end;
    476480
     
    595599  GetNativeControl.OnResize := NativeFormResize;
    596600  GetNativeControl.OnChangeBounds := NativeChangeBounds;
     601
     602  {$objectChecks-}
    597603  TControlEx(GetNativeControl).OnMouseDown := MouseDownHandler;
    598604  TControlEx(GetNativeControl).OnMouseUp := MouseUpHandler;
     
    601607  TControlEx(GetNativeControl).OnMouseLeave := MouseLeaveHandler;
    602608  TControlEx(GetNativeControl).OnMouseWheel := MouseWheelHandler;
     609  {$objectChecks+}
    603610end;
    604611
     
    894901function TControl.GetOnDblClick: TNotifyEvent;
    895902begin
     903  {$objectChecks-}
    896904  Result := TControlEx(GetNativeControl).OnDblClick;
     905  {$objectChecks+}
    897906end;
    898907
    899908function TControl.GetParentColor: Boolean;
    900909begin
     910  {$objectChecks-}
    901911  Result := TControlEx(GetNativeControl).ParentColor;
     912  {$objectChecks+}
    902913end;
    903914
    904915function TControl.GetParentFont: Boolean;
    905916begin
     917  {$objectChecks-}
    906918  Result := TControlEx(GetNativeControl).ParentFont;
     919  {$objectChecks+}
    907920end;
    908921
     
    9901003procedure TControl.SetOnDblClick(AValue: TNotifyEvent);
    9911004begin
     1005  {$objectChecks-}
    9921006  TControlEx(GetNativeControl).OnDblClick := AValue;
     1007  {$objectChecks+}
    9931008end;
    9941009
    9951010procedure TControl.SetParentColor(AValue: Boolean);
    9961011begin
     1012  {$objectChecks-}
    9971013  TControlEx(GetNativeControl).ParentColor := AValue;
     1014  {$objectChecks+}
    9981015end;
    9991016
    10001017procedure TControl.SetParentFont(AValue: Boolean);
    10011018begin
     1019  {$objectChecks-}
    10021020  TControlEx(GetNativeControl).ParentFont := AValue;
     1021  {$objectChecks+}
    10031022end;
    10041023
     
    12191238begin
    12201239  inherited;
     1240  {$objectChecks-}
    12211241  TGraphicControlEx(GetNativeGraphicControl).OnPaint := PaintHandler;
     1242  {$objectChecks+}
    12221243end;
    12231244
  • trunk/Packages/DpiControls/DpiControls.lpk

    r468 r482  
    1313        <SyntaxOptions>
    1414          <SyntaxMode Value="Delphi"/>
     15          <CStyleOperator Value="False"/>
     16          <AllowLabel Value="False"/>
     17          <CPPInline Value="False"/>
    1518        </SyntaxOptions>
    1619      </Parsing>
     20      <CodeGeneration>
     21        <Optimizations>
     22          <OptimizationLevel Value="0"/>
     23        </Optimizations>
     24      </CodeGeneration>
     25      <Linking>
     26        <Debugging>
     27          <GenerateDebugInfo Value="False"/>
     28        </Debugging>
     29      </Linking>
     30      <Other>
     31        <CompilerMessages>
     32          <IgnoredMessages idx3123="True"/>
     33        </CompilerMessages>
     34      </Other>
    1735    </CompilerOptions>
    1836    <Description Value="Controls with dimensions independent to screen DPI setting. The controls use internally VCL controls. All positions and sizes are scaled from DPI independent values."/>
Note: See TracChangeset for help on using the changeset viewer.