t_id
981
t_adddate
2003/10/04
t_result
0
t_knownrunerror
0
Record count: 50
Total = 50
OK=50 Percentage= 100.00
Result type | Cat. | Count | Percentage | First date | Last Date |
Successfully run | 50 | 100.0 | 2024/05/21 01:47:00 20 | 2024/05/21 02:20:00 0 | |
i386 | 17 | 34.0 | 2024/05/21 01:47:00 20 | 2024/05/21 02:20:00 0 | |
x86_64 | 31 | 62.0 | 2024/05/21 01:48:00 22 | 2024/05/21 02:19:00 0 | |
aarch64 | 2 | 4.0 | 2024/05/21 02:03:00 35 | 2024/05/21 02:19:00 0 | |
linux | 49 | 98.0 | 2024/05/21 01:47:00 20 | 2024/05/21 02:20:00 0 | |
win32 | 1 | 2.0 | 2024/05/21 02:04:00 34 | 2024/05/21 02:04:00 34 | |
3.3.1 | 33 | 66.0 | 2024/05/21 01:47:00 20 | 2024/05/21 02:20:00 0 | |
3.2.3 | 17 | 34.0 | 2024/05/21 01:51:00 35 | 2024/05/21 02:19:00 0 |
{$IFDEF FPC} {$MODE DELPHI} {$ENDIF} uses windows,classes; type TNotifyEventA = procedure (Sender:TObject) of object; TwolBrushes = class public FOnChange :TNotifyEventA; procedure Wol_Changed; property OnChange :TNotifyEventA read FOnChange Write FOnChange; end; TWOLBetaObject = class public mylocalvar : integer; constructor Create(AOwner:TOBject); protected procedure DoBrushChange(Sender:TObject); private FBrush : TWolBrushes; end; procedure TWOLBetaObject.DoBrushChange(Sender:TObject); var DC:HDC; begin mylocalvar:=12; WriteLn('OK!'); end; procedure TwolBrushes.WOL_Changed; begin if Assigned(FOnChange) then FOnChange(Self); end; constructor TWOLBetaObject.Create(AOwner:TOBject); begin Inherited Create; FBrush :=TWOLBrushes.Create; FBrush.OnChange:=DoBrushChange; end; var cla1: TWolbetaObject; begin cla1:=TWolBetaObject.create(nil); cla1.FBrush.WOL_Changed; end.