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/UDpiFormMain.pas

    r537 r585  
    66
    77uses
    8   Classes, SysUtils, UDpiControls, Dialogs, Graphics;
     8  Classes, SysUtils, Dpi.Controls, Dpi.ExtCtrls, Dialogs, Dpi.Graphics, Dpi.Forms,
     9  Types;
    910
    1011type
    … …  
    1213  { TDpiFormMain }
    1314
    14   TDpiFormMain = class(TDpiForm)
    15     DpiPaintBox1: TDpiPaintBox;
     15  TDpiFormMain = class(TForm)
     16    DpiPaintBox1: TPaintBox;
    1617    procedure DpiButton1Click(Sender: TObject);
    1718    procedure DpiFormMainCreate(Sender: TObject);
    … …  
    1920    procedure DpiPaintBox1Paint(Sender: TObject);
    2021  private
    21     Button: TDpiButton;
    22     Image: TDpiImage;
    23     ListBox: TDpiListBox;
    24     PaintBox: TDpiPaintBox;
     22    Button: TButton;
     23    ButtonClose: TButton;
     24    Image: TImage;
     25    ListBox: TListBox;
     26    PaintBox: TPaintBox;
     27    Bitmap: TBitmap;
     28    procedure ButtonCloseClick(Sender: TObject);
    2529  public
    26 
    2730  end;
    2831
    … …  
    3942var
    4043  I: Integer;
     44  X, Y: Integer;
    4145begin
    4246  Button := TDpiButton.Create(DpiFormMain);
    … …  
    4549  Button.Caption := 'Click me';
    4650  Button.Visible := True;
     51  Button.OnClick := @DpiButton1Click;
     52
     53  ButtonClose := TDpiButton.Create(DpiFormMain);
     54  ButtonClose.Parent := Self;
     55  ButtonClose.SetBounds(120, 10, 100, 30);
     56  ButtonClose.Caption := 'Close';
     57  ButtonClose.Visible := True;
     58  ButtonClose.OnClick := @ButtonCloseClick;
    4759
    4860  Image := TDpiImage.Create(DpiFormMain);
    … …  
    6173  ListBox.Visible := True;
    6274
    63   DpiPaintBox1.BoundsRect := Rect(0, 0, 100, 100);
    64   DpiPaintBox1.VclPaintBox.Parent := VclForm;
    65   DpiPaintBox1.Repaint;
     75  PaintBox := TDpiPaintBox.Create(DpiFormMain);
     76  PaintBox.Parent := Self;
     77  PaintBox.BoundsRect := Bounds(0, 100, 200, 200);
     78  PaintBox.OnPaint := @DpiPaintBox1Paint;
     79  PaintBox.Visible := True;
     80
     81  Bitmap := TDpiBitmap.Create;
     82  Bitmap.PixelFormat := pf24bit;
     83  Bitmap.SetSize(120, 50);
     84  for Y := 0 to Bitmap.Height - 1 do
     85    for X := 0 to Bitmap.Width - 1 do
     86      Bitmap.Canvas.Pixels[X, Y] := X mod 255;
     87  Bitmap.LoadFromFile('dance.bmp');
    6688end;
    6789
    … …  
    7496
    7597procedure TDpiFormMain.DpiPaintBox1Paint(Sender: TObject);
     98var
     99  X, Y: Integer;
    76100begin
    77   with DpiPaintBox1.Canvas do begin
     101  with PaintBox.Canvas do begin
    78102    Brush.Color := clWhite;
    79103    Brush.Style := bsSolid;
    80     FillRect(Rect(0, 0, 100, 100));
     104    FillRect(Bounds(0, 0, PaintBox.Width, PaintBox.Height));
    81105    Caption := IntToStr(Width);
    82106    Pen.Color := clGreen;
    … …  
    85109    LineTo(100, 100);
    86110    Font.Color := clRed;
    87     TextOut(40, 10, 'Scaled text');
     111    Font.Size := 20;
     112    TextOut(10, 10, 'Scaled text');
     113
     114    Brush.Color := clBlue;
     115    Rectangle(Bounds(20, 30, 60, 30));
     116
     117    Bitmap.Dpi := DpiScreen.Dpi;
     118    DpiBitBltCanvas(PaintBox.Canvas, 0, 0, Bitmap.Width, Bitmap.Height, Bitmap.Canvas, 0, 0);
    88119  end;
    89120end;
    90121
     122procedure TDpiFormMain.ButtonCloseClick(Sender: TObject);
     123begin
     124  ModalResult := mrOk;
     125end;
     126
    91127procedure TDpiFormMain.DpiButton1Click(Sender: TObject);
     128var
     129  DpiForm: TDpiForm;
    92130begin
    93   ShowMessage('Hello');
     131  //ShowMessage('Hello');
     132  DpiForm := TDpiFormMain.CreateNew(Self);
     133  DpiForm.Name := 'Form10';
     134  DpiForm.Caption := 'Modal form';
     135  DpiForm.SetBounds(200, 150, 400, 200);
     136  DpiForm.ShowModal;
    94137end;
    95138
Note: See TracChangeset for help on using the changeset viewer.