home *** CD-ROM | disk | FTP | other *** search
/ Developer Source 3 / Developers_Source_Vol_03_1996.iso / delph / may95 / horn1f11.gif < prev    next >
Graphics Interchange Format  |  1996-02-01  |  13.8 KB  |  430x563  |  4-bit (6 colors)
   ocr: MADELPHIUNIT.PAS - unit Unitl; interface uses SysUtils, Winlypes, WinProcs, Messages, Classes, Graphics, Controls, Forms, Dialogs; type TFormi = Class (TForm) Button1: IButton; procedure buttoniclick(Sender: TObject); private 1 - Private declarations ) public - PubliC declarations I end; var Forml: - Trorml; implementation ($R *.DFM) procedure TForml.Buttoniclick(Sender: TObject); begin Forml.Color := CiMaroon; end; end. 18: 7 Modified Insert Unit1