Delphi/Activator
Delphi/Activator
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

1、清理垃圾

Browse Source
This commit is contained in:
delphilite 2016-10-08 00:19:47 +08:00
parent c9f12605fd
commit 1b87b746fb
2 changed files with 0 additions and 98 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

49
10.1.UP1/Activator/MainFrm_1.$$$
View File

@ -1,49 +0,0 @@
{ KOL MCK } // Do not remove this line!
procedure NewMainForm( var Result: PMainForm; AParent: PControl );
begin
{$IFDEF KOLCLASSES}
Result := PMainForm.Create;
{$ELSE OBJECTS}
New( Result, Create );
{$ENDIF KOL CLASSES/OBJECTS}
Result.Form := NewForm( AParent, 'Delphi 10.1 Berlin Activator' ).SetPosition( 8, 8 );
Applet := Result.Form;
Result.Form.Add2AutoFree( Result );
Result.Form.Style := Result.Form.Style and not (WS_MINIMIZEBOX or WS_MAXIMIZEBOX);
Result.Form.SetClientSize( 534, 122 );
Result.Form.OnMessage := Result.kolMainFormMessage;
Result.Form.OnShow := Result.kolMainFormShow;
Result.Form.OnDestroy := Result.kolMainFormDestroy;
Result.btnAbout := NewButton( Result.Form, '&About' ).SetPosition( 325, 16 ).SetSize( 90, 90 );
{$IFDEF USE_MHTOOLTIP}
Result.btnAbout.Hint.Text := 'About';
{$ENDIF USE_MHTOOLTIP}
Result.btnReset := NewButton( Result.Form, '&Reset' ).SetPosition( 222, 16 ).SetSize( 90, 90 );
{$IFDEF USE_MHTOOLTIP}
Result.btnReset.Hint.Text := 'Reset Delphi 10.1';
{$ENDIF USE_MHTOOLTIP}
Result.btnExit := NewButton( Result.Form, '&Exit' ).SetPosition( 428, 16 ).SetSize( 90, 90 );
{$IFDEF USE_MHTOOLTIP}
Result.btnExit.Hint.Text := 'Exit';
{$ENDIF USE_MHTOOLTIP}
Result.btnRunX10 := NewButton( Result.Form, '&Run' ).SetPosition( 119, 16 ).SetSize( 90, 90 );
{$IFDEF USE_MHTOOLTIP}
Result.btnRunX10.Hint.Text := 'Run Delphi 10.1';
{$ENDIF USE_MHTOOLTIP}
Result.btnActive := NewButton( Result.Form, '&Active' ).SetPosition( 16, 16 ).SetSize( 90, 90 );
{$IFDEF USE_MHTOOLTIP}
Result.btnActive.Hint.Text := 'Active Delphi 10.1';
{$ENDIF USE_MHTOOLTIP}
Result.btnAbout.OnClick := Result.btnAboutClick;
Result.btnReset.OnClick := Result.btnResetClick;
Result.btnExit.OnClick := Result.btnExitClick;
Result.btnRunX10.OnClick := Result.btnRunX10Click;
Result.btnActive.OnClick := Result.btnActiveClick;
Result.Form.CenterOnParent.CanResize := False;
Result.Form.Perform( WM_INITMENU, 0, 0 );
Result.kolMainFormFormCreate( Result );
end;

49
10.1/Activator/MainFrm_1.$$$
View File

@ -1,49 +0,0 @@
{ KOL MCK } // Do not remove this line!
procedure NewMainForm( var Result: PMainForm; AParent: PControl );
begin
{$IFDEF KOLCLASSES}
Result := PMainForm.Create;
{$ELSE OBJECTS}
New( Result, Create );
{$ENDIF KOL CLASSES/OBJECTS}
Result.Form := NewForm( AParent, 'Delphi 10.1 Berlin Activator' ).SetPosition( 8, 8 );
Applet := Result.Form;
Result.Form.Add2AutoFree( Result );
Result.Form.Style := Result.Form.Style and not (WS_MINIMIZEBOX or WS_MAXIMIZEBOX);
Result.Form.SetClientSize( 534, 122 );
Result.Form.OnMessage := Result.kolMainFormMessage;
Result.Form.OnShow := Result.kolMainFormShow;
Result.Form.OnDestroy := Result.kolMainFormDestroy;
Result.btnAbout := NewButton( Result.Form, '&About' ).SetPosition( 325, 16 ).SetSize( 90, 90 );
{$IFDEF USE_MHTOOLTIP}
Result.btnAbout.Hint.Text := 'About';
{$ENDIF USE_MHTOOLTIP}
Result.btnReset := NewButton( Result.Form, '&Reset' ).SetPosition( 222, 16 ).SetSize( 90, 90 );
{$IFDEF USE_MHTOOLTIP}
Result.btnReset.Hint.Text := 'Reset Delphi 10.1';
{$ENDIF USE_MHTOOLTIP}
Result.btnExit := NewButton( Result.Form, '&Exit' ).SetPosition( 428, 16 ).SetSize( 90, 90 );
{$IFDEF USE_MHTOOLTIP}
Result.btnExit.Hint.Text := 'Exit';
{$ENDIF USE_MHTOOLTIP}
Result.btnRunX10 := NewButton( Result.Form, '&Run' ).SetPosition( 119, 16 ).SetSize( 90, 90 );
{$IFDEF USE_MHTOOLTIP}
Result.btnRunX10.Hint.Text := 'Run Delphi 10.1';
{$ENDIF USE_MHTOOLTIP}
Result.btnActive := NewButton( Result.Form, '&Active' ).SetPosition( 16, 16 ).SetSize( 90, 90 );
{$IFDEF USE_MHTOOLTIP}
Result.btnActive.Hint.Text := 'Active Delphi 10.1';
{$ENDIF USE_MHTOOLTIP}
Result.btnAbout.OnClick := Result.btnAboutClick;
Result.btnReset.OnClick := Result.btnResetClick;
Result.btnExit.OnClick := Result.btnExitClick;
Result.btnRunX10.OnClick := Result.btnRunX10Click;
Result.btnActive.OnClick := Result.btnActiveClick;
Result.Form.CenterOnParent.CanResize := False;
Result.Form.Perform( WM_INITMENU, 0, 0 );
Result.kolMainFormFormCreate( Result );
end;