Fórum problemas na hora de salvar o projeto #222204

Colega,

Posta o código do seu dpr aqui pra gente analisar... (project -> view source)...

T+

Antes de salvar suas Units, vá em:

Menu Projects/Options/DirectorsApplications e limpe as duas primeria opções (Output ...)

sobe
-----


ok, mas nao tinha nada la nas duas primeiras opções(output(s)).
o código esta ai embaixo:
----------------------------

program Ambiental;

uses
Forms,
Unit_Principal in ´Units\Unit_Principal.pas´ ,
Twain in ´Units\Twain.pas´,
Unit_Aterro in ´Units\Unit_Aterro.pas´ ;

{$R *.res}

begin
Application.Initialize;
Application.CreateForm(TPrincipal, Principal);
Application.CreateForm(TAterro, Aterro);
Application.Run;
end.

----------------------------
unit Unit_Principal;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, ToolWin, ComCtrls, StdCtrls, ExtCtrls, Buttons, ExtDlgs,Registry;

type
TPrincipal = class(TForm)
ToolBar1: TToolBar;
MainMenu1: TMainMenu;
Arquivo1: TMenuItem;
N1: TMenuItem;
Fechar1: TMenuItem;
Ferramentas1: TMenuItem;
Aterro1: TMenuItem;
BaciaHidrogrfica1: TMenuItem;
Ajuda1: TMenuItem;
Ajuda2: TMenuItem;
Sobre1: TMenuItem;
Bevel1: TBevel;
Bevel2: TBevel;
Timer1: TTimer;
Label_Hora: TLabel;
Bevel3: TBevel;
Bevel4: TBevel;
Bevel5: TBevel;
Label_Num: TLabel;
Label_Caps: TLabel;
Label_Ins: TLabel;
ToolButton2: TToolButton;
Btn_Abrir: TSpeedButton;
OpenPictureDialog1: TOpenPictureDialog;
ToolButton1: TToolButton;
SpeedButton2: TSpeedButton;
ToolButton3: TToolButton;
SpeedButton3: TSpeedButton;
SpeedButton4: TSpeedButton;
ToolButton4: TToolButton;
SpeedButton5: TSpeedButton;
SpeedButton6: TSpeedButton;
ToolButton5: TToolButton;
Btn_zoom2: TSpeedButton;
Btn_zoom1: TSpeedButton;
ToolButton6: TToolButton;
ToolButton8: TToolButton;
ToolButton9: TToolButton;
Label_Status: TLabel;
Image1: TImage;
SaveDialog1: TSaveDialog;
Opes1: TMenuItem;
MilimetrarPapel1: TMenuItem;
InserirPixels1: TMenuItem;
procedure FormCreate(Sender: TObject);
procedure Fechar1Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure Btn_AbrirClick(Sender: TObject);
procedure Btn_zoom1Click(Sender: TObject);
procedure Btn_zoom2Click(Sender: TObject);
procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure FormShow(Sender: TObject);
procedure SpeedButton4Click(Sender: TObject);
procedure MilimetrarPapel1Click(Sender: TObject);
procedure SpeedButton6Click(Sender: TObject);
procedure InserirPixels1Click(Sender: TObject);
procedure Aterro1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Principal: TPrincipal;

implementation

uses Unit1;
const
ScreenWidth: LongInt = 800; {I designed my form in 800x600 mode.}
ScreenHeight: LongInt = 600;

{$R *.dfm}

procedure TPrincipal.FormCreate(Sender: TObject);
begin
{scaled := true;
if (screen.width <> ScreenWidth) then
begin
height := longint(height) * longint(screen.height) DIV ScreenHeight;
width := longint(width) * longint(screen.width) DIV ScreenWidth;
scaleBy(screen.width, ScreenWidth);
end;}

end;

procedure TPrincipal.Fechar1Click(Sender: TObject);
begin
Close;
end;

procedure TPrincipal.Timer1Timer(Sender: TObject);
begin
Label_Hora.Caption := TimeToStr(Time);
end;

procedure TPrincipal.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin

If getkeystate(vk_numlock) = 0 then Label_Num.Caption := ´´;
If getkeystate(vk_numlock) = 1 then Label_Num.Caption := ´NUM´;
If getkeystate(vk_Insert) = 0 then Label_Ins.Caption := ´´;
If getkeystate(vk_Insert) = 1 then Label_Ins.Caption := ´INS´;
If getkeystate(vk_CAPITAL) = 0 then Label_Caps.Caption := ´´;
If getkeystate(vk_CAPITAL) = 1 then Label_Caps.Caption := ´CAPS´;

{if key=vk_Insert then
begin
Label_Ins.Caption := ´INS´;
end;
if key=vk_NUMLOCK then
begin
Label_Num.Caption := ´NUM´;
end;
if key=vk_CAPital then
begin
Label_Caps.Caption := ´CAPS´;
end;}
end;
procedure TPrincipal.Btn_AbrirClick(Sender: TObject);
begin
if openpicturedialog1.Execute then
begin
Image1.Enabled := True;
Image1.Picture.LoadFromFile(openpicturedialog1.FileName);
end;
end;

procedure TPrincipal.Btn_zoom1Click(Sender: TObject);
var x,y:integer;
begin
Image1.Proportional:=true;
Image1.Center:=true;
image1.Stretch:=true;
x:=image1.Width+100;
y:=Image1.Height+107;
Image1.Width:=(x);
Image1.Height:=y;
Label_Status.Caption:=´Tamanho de Zoom:..[´+inttostr(Principal.Image1.Width)+´ X ´+inttostr(Principal.Image1.Height)+´]´;
end;

procedure TPrincipal.Btn_zoom2Click(Sender: TObject);
var x,y:integer;
begin
Image1.Proportional:=true;
Image1.Center:=true;
image1.Stretch:=true;
x:=image1.Width-100;
y:=Image1.Height-107;
Image1.Width:=x;
Image1.Height:=y;
Label_Status.Caption:=´Tamanho de Zoom:..[´+inttostr(Principal.Image1.Width)+´ X ´+inttostr(Principal.Image1.Height)+´]´;
end;
procedure TPrincipal.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
//exibe a posicao do mouse no titulo
label_status.Caption := Format(´Mouse in x=¬d, y=¬d´, [x,y]);
if ssShift in Shift then
// marca pontos em amarelo
//canvas.Pixels[x,y] := clYellow;
Canvas.Rectangle(x-1,y-1,x+2,y+2);


end;


procedure TPrincipal.Image1MouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
begin
//exibe a posicao do mouse no titulo
label_status.Caption := Format(´Mouse in x=¬d, y=¬d´, [x,y]);
if ssShift in Shift then
// marca pontos em amarelo
//canvas.Pixels[x,y] := clYellow;
Canvas.Rectangle(x-1,y-1,x+2,y+2);

end;

procedure TPrincipal.FormShow(Sender: TObject);
begin
{ Se o primeiro parâmetro for um nome de arquivo existente... }
if FileExists(ParamStr(1)) then
{ Carrega o conteúdo do arquivo no memo }
Image1.picture.LoadFromFile(ParamStr(1));

end;

procedure TPrincipal.SpeedButton4Click(Sender: TObject);
begin
if SaveDialog1.Execute then
begin
Image1.Enabled := True;
Image1.Picture.SaveToFile(SaveDialog1.FileName);
end;
end;

procedure TPrincipal.MilimetrarPapel1Click(Sender: TObject);
var i,l,xp,yp:integer;
begin
Image1.Enabled := True;
Image1.Canvas.Brush.Color := clWhite;
Image1.Canvas.Pen.Width := 1;
yp:=0;
for i:=0 to 79 do begin
yp:=yp+10;
xp:=0;
for l:= 0 to 79 do begin
xp:=xp + 10;
Image1.canvas.LineTo(xp,yp);
end;
end;
end;

procedure TPrincipal.SpeedButton6Click(Sender: TObject);
var
fechar : integer;
begin
fechar := Application.MessageBox(´deseja Salvar as alterações?´, ´CONFIRME´, mb_yesno);
if Fechar = IDYES Then
begin
SaveDialog1.Execute;
end
else
//limpa a imagem do image1
Image1.Picture := nil;

end;

procedure TPrincipal.InserirPixels1Click(Sender: TObject);
var i,l,xp,yp:integer;
begin
Image1.Enabled := True;
Image1.Canvas.Brush.Color := clWhite;
Image1.Canvas.Pen.Width := 3;
yp:=0;
for i:=0 to 79 do begin
yp:=yp+10;
xp:=0;
for l:= 0 to 79 do begin
xp:=xp + 10;
Image1.canvas.Pixels[xp,yp] := clblack;
end;
end;
end;
procedure TPrincipal.Aterro1Click(Sender: TObject);
begin
Aterro.ShowModal;
end;

end.

-------------------------------
unit Unit_Aterro;

interface

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

type
TAterro = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Aterro: TAterro;

implementation

{$R *.dfm}

procedure TAterro.FormCreate(Sender: TObject);
begin

end;

end.

olha o erro ae colega ! :P
vc estah fazendo referência a unit1 na na sua unit_principal...