Code:
unit MainForm;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
cmpMeterData, StdCtrls, ExtCtrls, ComCtrls, LedLadder, Menus, Buttons;
type
TForm1 = class(TForm)
MeterData1: TMeterData;
Timer1: TTimer;
LedLadder1: TLedLadder;
cbMeters: TComboBox;
Bevel1: TBevel;
btnClose: TBitBtn;
procedure FormShow(Sender: TObject);
procedure MeterData1LineChange(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure mnuFileExitClick(Sender: TObject);
procedure btnCloseClick(Sender: TObject);
procedure cbMetersChange(Sender: TObject);
private
fMeterID : Integer;
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.FormShow(Sender: TObject);
var
i : Integer;
begin
for i := 0 to MeterData1.MeterCount - 1 do
cbMeters.Items.Add (MeterData1.Meters [i].MeterName);
if cbMeters.Items.Count > 0 then
cbMeters.ItemIndex := 0;
LedLadder1.Min := 0;
LedLadder1.Max := MeterData1.Meters [fMeterID].Max;
LedLadder1.Position := 0;
end;
procedure TForm1.MeterData1LineChange(Sender: TObject);
begin
Timer1Timer (Nil);
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if MeterData1.Active then
begin
LedLadder1.Position := Abs (MeterData1.Meters [fMeterID].Level);
Application.ProcessMessages
end
else
LedLadder1.Position := 0;
end;
procedure TForm1.mnuFileExitClick(Sender: TObject);
begin
Close;
end;
procedure TForm1.btnCloseClick(Sender: TObject);
begin
Close
end;
procedure TForm1.cbMetersChange(Sender: TObject);
begin
fMeterID := cbMeters.ItemIndex;
LedLadder1.Max := MeterData1.Meters [fMeterID].Max;
LedLadder1.Position := 0;
end;
end.
//ovo sam nasao na netu
ali prijavljuje gresku list index out of bounds
Dodatak (savkic):
Kod pisanja koda koristi code tagove, tako se dosta dobija na preglednosti. Npr.
[
code]
begin
if A > B then
end;
[
/code]
[Ovu poruku je menjao savkic dana 28.05.2008. u 18:07 GMT+1]