[Lazarus] Transposition d'un programme Delphi 3
Bonsoir tout le monde les gens,
Je teste lazarus actuellement et pour faire simple je n'ai ni plus ni moins repiqué un programme test de delphi3 pour le transposer sur Lazarus.
Voici la version Lazarus :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
| unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, Spin,
StdCtrls, Buttons;
type
{ TForm1 }
TForm1 = class(TForm)
Quitter: TButton;
Edit1: TEdit;
Label14: TLabel;
Label15: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
SpinEdit1: TSpinEdit;
SpinEdit2: TSpinEdit;
procedure Edit1Change(Sender: TObject);
procedure QuitterClick(Sender: TObject);
procedure SpinEdit2Click(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;
var
Form1: TForm1;
implementation
{ TForm1 }
procedure TForm1.QuitterClick(Sender: TObject);
begin
close;
end;
procedure TForm1.SpinEdit2Click(Sender: TObject);
begin
edit1.text:=(inttostr(spinedit1.value+spinedit2.value));
end;
procedure TForm1.Edit1Change(Sender: TObject);
begin
Edit1.text:='Ouè';
end;
initialization
{$I unit1.lrs}
end. |
A la compilation, aucune erreur propre de chez propre. Au lancement j'ai tout : la fenêtre, le bouton, les spinedit sauf, sauf...... le résultat escompté.
Mon Tedit ne varie pas d'un poil.
J'ai suivi la procédure d'installation de lazarus avec FP à la lettre.
Je suis sous XP Pro.
Un p'tit coup de main SVP pour une piste à suivre, parceque là........::oops: :
D'avance merci
