Changeset 468 for trunk/NoTerm.pas
- Timestamp:
- Dec 3, 2023, 11:28:08 AM (6 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NoTerm.pas
r447 r468 5 5 6 6 uses 7 ScreenTools, Protocol, Messg, LCLIntf, LCLType, dateutils, Platform, 8 SysUtils, Classes, Graphics, Controls, Forms, ButtonB, DrawDlg; 7 ScreenTools, Protocol, Messg, LCLIntf, LCLType, DateUtils, Platform, 8 SysUtils, Classes, ButtonB, DrawDlg, System.UITypes, 9 {$IFDEF DPI}Dpi.Graphics, Dpi.Controls, Dpi.Forms{$ELSE} 10 Graphics, Controls, Forms{$ENDIF}; 9 11 10 12 type … … 88 90 Top := 8; 89 91 Caption := Phrases.Lookup('AIT'); 90 Canvas.Brush.Style := bsClear;92 Canvas.Brush.Style := TBrushStyle.bsClear; 91 93 Canvas.Font.Assign(UniFont[ftSmall]); 92 94 TitleHeight := 36; … … 168 170 State := TBitmap.Create; 169 171 State.SetSize(192, 20); 170 State.Canvas.Brush.Style := bsClear;172 State.Canvas.Brush.Style := TBrushStyle.bsClear; 171 173 State.Canvas.Font.Assign(UniFont[ftSmall]); 172 174 NewStat;
Note:
See TracChangeset
for help on using the changeset viewer.