Spravil som v tom toto- kalkulacka
Mno a mam taky dotaz. Ak si vsimnete tak text Vyberte operator tak je z neho mierne useknute... dovodom je to ze nemozem upravovat velkost labelov ani editovacich okien.... teda mozem ale nie vertikalne mozem bud zvacsit ich ako celok alebo rozsirit horizontalne.Kedze nemam tusenie cim by to mohlo byt tak to zhadzujem na tu beta verziu.... bol by som rad ak by to niekto potvrdil...a ci je nejaka novsia plna verzia alebo mam proste stiahnut starsiu verziu.
Kód: Vybrať všetko
unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
StdCtrls, ExtCtrls;
type
{ Tform1 }
Tform1 = class(TForm)
btnSubmit: TButton;
btnClear: TButton;
edFirst: TEdit;
edSecond: TEdit;
edAnswer: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
rBtnAdd: TRadioButton;
rBtnSub: TRadioButton;
rBtnMult: TRadioButton;
rBtnDiv: TRadioButton;
rgpOperator: TRadioGroup;
procedure btnClearClick(Sender: TObject);
procedure btnSubmitClick(Sender: TObject);
private
{ private declarations }
public
end;
var
form1: Tform1;
implementation
{ Tform1 }
procedure Tform1.btnSubmitClick(Sender: TObject);
begin
if rbtnAdd.Checked = True then
edAnswer.text := FloatToStr(StrToFloat(edFirst.Text)+StrToFloat(edSecond.Text))
else if rbtnSub.Checked = True then
edAnswer.text := FloatToStr(StrToFloat(edFirst.Text)-StrToFloat(edSecond.Text))
else if rbtnMult.Checked = True then
edAnswer.text := FloatToStr(StrToFloat(edFirst.Text)*StrToFloat(edSecond.Text))
else if rbtnDiv.Checked = True then
edAnswer.text := FloatToStr(StrToFloat(edFirst.Text)/StrToFloat(edSecond.Text))
else
ShowMessage('Prosím vyberte Operátor!');
end;
procedure Tform1.btnClearClick(Sender: TObject);
begin
edfirst.Clear;
edsecond.Clear;
edAnswer.Clear;
end;
initialization
{$I unit1.lrs}
end.
na co by ste sa zamerali?
-na tvorbu webov/webovych aplikacii
-na tvorbu aplikacii vseobecne....
//autoeditácia príspevku (11 Okt 2010, 19:11)
bump
program UeZ v priloh
ale dik za snahu 