Changeset 471 for trunk/Packages


Ignore:
Timestamp:
Dec 4, 2023, 12:08:50 AM (6 months ago)
Author:
chronos
Message:
  • Fixed: More units uses items corrected for high DPI support.
Location:
trunk/Packages
Files:
11 edited

Legend:

Unmodified
Added
Removed

  • trunk/Packages/CevoComponents/Area.pas

    r468 r471  
    44
    55uses
    6   {$IFDEF DPI}Dpi.Graphics, Dpi.Controls,{$ELSE}
    7   Graphics, Controls,{$ENDIF}
    8   Classes;
     6  Classes,
     7  {$IFDEF DPI}Dpi.Graphics, Dpi.Controls{$ELSE}
     8  Graphics, Controls{$ENDIF};
    99
    1010type

  • trunk/Packages/CevoComponents/BaseWin.pas

    r468 r471  
    44
    55uses
    6   {$IFDEF DPI}Dpi.Graphics, Dpi.Controls, Dpi.Forms,{$ELSE}
    7   Graphics, Controls, Forms,{$ENDIF}
    8   ScreenTools, LCLIntf, LCLType, SysUtils, Classes, DrawDlg, System.UITypes;
     6  ScreenTools, LCLIntf, LCLType, SysUtils, Classes, DrawDlg,
     7  {$IFDEF DPI}Dpi.Graphics, Dpi.Controls, Dpi.Forms, System.UITypes{$ELSE}
     8  Graphics, Controls, Forms{$ENDIF};
    99
    1010type

  • trunk/Packages/CevoComponents/ButtonA.pas

    r468 r471  
    44
    55uses
    6   {$IFDEF DPI}Dpi.Graphics,{$ELSE}Graphics,{$ENDIF}
    7   ButtonBase, Classes, LCLIntf, LCLType, ScreenTools, Types;
     6  ButtonBase, Classes, LCLIntf, LCLType, ScreenTools, Types,
     7  {$IFDEF DPI}Dpi.Graphics{$ELSE}Graphics{$ENDIF};
    88
    99type

  • trunk/Packages/CevoComponents/ButtonB.pas

    r468 r471  
    44
    55uses
    6   {$IFDEF DPI}Dpi.Graphics,{$ELSE}Graphics,{$ENDIF}
    7   ButtonBase, Classes, LCLIntf, LCLType;
     6  ButtonBase, Classes, LCLIntf, LCLType,
     7  {$IFDEF DPI}Dpi.Graphics{$ELSE}Graphics{$ENDIF};
    88
    99type

  • trunk/Packages/CevoComponents/ButtonBase.pas

    r468 r471  
    44
    55uses
    6   {$IFDEF DPI}Dpi.Graphics, Dpi.Controls,{$ELSE}
    7   Graphics, Controls,{$ENDIF}
    8   Classes;
     6  Classes,
     7  {$IFDEF DPI}Dpi.Graphics, Dpi.Controls{$ELSE}
     8  Graphics, Controls{$ENDIF};
    99
    1010type

  • trunk/Packages/CevoComponents/ButtonN.pas

    r468 r471  
    44
    55uses
    6   {$IFDEF DPI}Dpi.Graphics, Dpi.Controls,{$ELSE}Graphics, Controls,{$ENDIF}
    7   Classes, LCLIntf, LCLType, ScreenTools;
     6  Classes, LCLIntf, LCLType, ScreenTools,
     7  {$IFDEF DPI}Dpi.Graphics, Dpi.Controls{$ELSE}Graphics, Controls{$ENDIF};
    88
    99type

  • trunk/Packages/CevoComponents/DrawDlg.pas

    r468 r471  
    44
    55uses
    6   {$IFDEF DPI}Dpi.Forms, Dpi.Common,{$ELSE}
    7   Forms,{$ENDIF}
    86  Classes, SysUtils, LCLIntf, LCLType, {$IFDEF UNIX}LMessages,{$ENDIF}
    9   Messages, Graphics, Controls, ButtonBase, ButtonA, ButtonB, Area, ScreenTools
    10   {$IFDEF LCLGTK2}, Gtk2Globals{$ENDIF};
     7  Messages, ButtonBase, ButtonA, ButtonB, Area, ScreenTools
     8  {$IFDEF LCLGTK2}, Gtk2Globals{$ENDIF},
     9  {$IFDEF DPI}Dpi.Forms, Dpi.Common, Dpi.Graphics, Dpi.Controls{$ELSE}
     10  Forms, Graphics, Controls{$ENDIF};
    1111
    1212type
    … …  
    9898  Pos: TPoint;
    9999begin
    100   if BorderStyle <> bsNone then
     100  if BorderStyle <> TBorderStyle.bsNone then
    101101    inherited
    102102  else
    … …  
    252252  Left := (Screen.Width - Width) div 2;
    253253  Canvas.Font.Assign(UniFont[ftNormal]);
    254   Canvas.Brush.Style := bsClear;
     254  Canvas.Brush.Style := TBrushStyle.bsClear;
    255255  MessgText := '';
    256256  TopSpace := 0;

  • trunk/Packages/CevoComponents/EOTButton.pas

    r468 r471  
    44
    55uses
    6   {$IFDEF DPI}Dpi.Graphics,{$ELSE}Graphics,{$ENDIF}
    7   ButtonBase, Classes, SysUtils, LCLIntf, LCLType;
     6  ButtonBase, Classes, SysUtils, LCLIntf, LCLType,
     7  {$IFDEF DPI}Dpi.Graphics{$ELSE}Graphics{$ENDIF};
    88
    99const

  • trunk/Packages/CevoComponents/GraphicSet.pas

    r468 r471  
    44
    55uses
    6   {$IFDEF DPI}Dpi.Graphics,{$ELSE}
    7   Graphics,{$ENDIF}
    86  Classes, SysUtils, Generics.Collections, LCLType, DOM,
    9   XMLRead, XMLWrite, XML;
     7  XMLRead, XMLWrite, XML,
     8  {$IFDEF DPI}Dpi.Graphics{$ELSE}
     9  Graphics{$ENDIF};
    1010
    1111type

  • trunk/Packages/CevoComponents/Texture.pas

    r468 r471  
    44
    55uses
    6   {$IFDEF DPI}Dpi.Graphics,{$ELSE}Graphics,{$ENDIF}
    7   Classes, SysUtils;
     6  Classes, SysUtils,
     7  {$IFDEF DPI}Dpi.Graphics{$ELSE}Graphics{$ENDIF};
    88
    99type

  • trunk/Packages/DpiControls/Dpi.Controls.pas

    r468 r471  
    1414  TKeyEvent = Controls.TKeyEvent;
    1515  TAlign = Controls.TAlign;
     16  TBorderStyle = Controls.TBorderStyle;
    1617
    1718  { TControlEx }
Note: See TracChangeset for help on using the changeset viewer.