Changeset 98 for trunk/UControls.pas
- Timestamp:
- Sep 28, 2022, 1:45:58 PM (20 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/UControls.pas
r96 r98 56 56 procedure TLabel.Paint; 57 57 begin 58 if Assigned(Canvas) then58 if not Assigned(Canvas) then Exit; 59 59 with Canvas do begin 60 60 TextOut(Bounds.Left, Bounds.Top, Text); … … 111 111 procedure TImage.Paint; 112 112 begin 113 if not Assigned(Canvas) then Exit; 113 114 if Canvas.Brush.Color = clNone then Canvas.Brush.Style := bsClear 114 115 else Canvas.Brush.Style := bsSolid;
Note:
See TracChangeset
for help on using the changeset viewer.