Ignore:
Timestamp:
Jan 13, 2026, 4:12:03 PM (18 hours ago)
Author:
chronos
Message:
Location:
DpiControls/Demo
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • DpiControls/Demo

    • Property svn:ignore

      •  

        old new  
        33DpiComponentsDemo.res
        44lib
         5heaptrclog.trc

  • DpiControls/Demo/UFormMain.pas

    r537 r585  
    77uses
    88  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ComCtrls, StdCtrls,
    9   ExtCtrls, UDpiControls, UDpiFormMain;
     9  ExtCtrls, Dpi.Controls, Dpi.Forms, UDpiFormMain;
    1010
    1111type
    … …  
    1919    TrackBar1: TTrackBar;
    2020    procedure ButtonNewDpiFormClick(Sender: TObject);
     21    procedure FormActivate(Sender: TObject);
    2122    procedure FormDestroy(Sender: TObject);
    2223    procedure FormShow(Sender: TObject);
    … …  
    2425    procedure TrackBar1Change(Sender: TObject);
    2526  private
     27    Initialized: Boolean;
    2628    DpiForm: TDpiForm;
    2729  public
    … …  
    4244  DpiScreen.Dpi := 96 * 2;
    4345  TrackBar1.Position := DpiScreen.Dpi;
    44   ButtonNewDpiFormClick(nil);
    4546end;
    4647
    … …  
    5354procedure TFormMain.ButtonNewDpiFormClick(Sender: TObject);
    5455begin
    55   DpiForm := TDpiFormMain.Create(nil);
     56  DpiApplication.CreateForm(TDpiFormMain, DpiForm);
     57  //DpiForm := TDpiFormMain.Create(Self);
    5658  DpiForm.Caption := DpiForm.Name;
    5759  DpiForm.SetBounds(100, 100, 400, 200);
    5860  DpiForm.Show;
    59   DpiScreen.Forms.Add(DpiForm);
     61end;
     62
     63procedure TFormMain.FormActivate(Sender: TObject);
     64begin
     65  if not Initialized then begin
     66    Initialized := True;
     67    ButtonNewDpiFormClick(nil);
     68  end;
    6069end;
    6170
Note: See TracChangeset for help on using the changeset viewer.