Author:
Evaluation:
Published: 22.01.2010.
Language: Latvian
Level: College/University
Literature: n/a
References: Not used
  • Samples 'Līnijas un zvaigzne. Datorgrafika', 1.
  • Samples 'Līnijas un zvaigzne. Datorgrafika', 2.
  • Samples 'Līnijas un zvaigzne. Datorgrafika', 3.
  • Samples 'Līnijas un zvaigzne. Datorgrafika', 4.
  • Samples 'Līnijas un zvaigzne. Datorgrafika', 5.
  • Samples 'Līnijas un zvaigzne. Datorgrafika', 6.
Extract

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
ZIMET: TButton;
zvaigzne: TButton;
procedure ZIMETClick(Sender: TObject);
procedure zvaigzneClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;…

Author's comment
Atlants