Åbneet bmp + tegne i delphi

Jeg vil se om det kan lade sig gøre at lave et program, der kan bestemme afstanden på fx en løberute.

Det skal fungere på den måde at man førtst tegner (punkt-punkt forbindelse) en kendt strækning, og angiver længden hvorefter den bestemme afstanden på en løberute man tegner på samme måde.

Hvordan kan jeg lave dette?!? har ikke før arbejdet med billeder i delphi.

Hvordan laver man en funktion der kan åbne et bmp billede?
Bestemmer koordinaterne for musen?
Tegner streger ved at klikke med musen? (finder koordinaterne for punkterne)

Du kan bruge et TImage det ligger et sted i 2 eller 3 fane ivertfald i D7.
På det kan du tegne streger og firkanter med farver og sådan.

Her er nogle koder du kan bruge:
Sætter mode: image1.Canvas.Pen.Mode := pmNotXor;
Sætter size tror jeg nok: image1.Canvas.pen.color := clRed;
Sætter size tror jeg nok: image1.Canvas.Pen.zize := 2;

Sætter start punktet: image1.Canvas.MoveTo(0, 0);
Sætter slutpunktet: image1.Canvas.LineTo(10, 10);

Fx. her er noget kode til et nemt Elastik program som det bliver kaldt.:

unit ElastikM;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls,
  Forms, Dialogs, ExtCtrls, Menus, ExtDlgs;

type
  TElastikForm = class(TForm)
    mmElastik:         TMainMenu;
      miFiler:         TMenuItem;
        miHent:        TMenuItem;
        miGem:         TMenuItem;
    imgElastik:        TImage;
    OpenPictureDialog: TOpenPictureDialog;
    SavePictureDialog: TSavePictureDialog;
    procedure imgElastikMouseDown(Sender: TObject;
                             Button: TMouseButton;
                             Shift: TShiftState;
                             X, Y: Integer);
    procedure imgElastikMouseMove(Sender: TObject;
                             Shift: TShiftState;
                             X, Y: Integer);
    procedure imgElastikMouseUp(Sender: TObject;
                             Button: TMouseButton;
                             Shift: TShiftState;
                             X, Y: Integer);
    procedure miHentClick(Sender: TObject);
    procedure miGemClick(Sender: TObject);
  private
    Start, FlyttePunkt: TPoint;
    Drawing: Boolean;
  end;

var
  ElastikForm: TElastikForm;

implementation

{$R *.DFM}

procedure TElastikForm.imgElastikMouseDown(Sender: TObject;
                                     Button: TMouseButton;
                                     Shift: TShiftState;
                                     X, Y: Integer);
begin
  Drawing := True;
  imgElastik.Canvas.MoveTo(X, Y);
  Start := Point(X, Y);
  FlyttePunkt := Point(X, Y);
end;

procedure TElastikForm.imgElastikMouseMove(Sender: TObject;
                                     Shift: TShiftState;
                                     X, Y: Integer);
begin
  if Drawing then
  begin
    imgElastik.Canvas.Pen.Mode := pmNotXor;
    imgElastik.Canvas.MoveTo(Start.X, Start.Y);
    imgElastik.Canvas.LineTo(FlyttePunkt.X, FlyttePunkt.Y);
    FlyttePunkt := Point(X, Y);
    imgElastik.Canvas.MoveTo(Start.X, Start.Y);
    imgElastik.Canvas.LineTo(FlyttePunkt.X, FlyttePunkt.Y);
  end;
  imgElastik.Canvas.Pen.Mode := pmCopy;
end;

procedure TElastikForm.imgElastikMouseUp(Sender: TObject;
                                   Button: TMouseButton;
                                   Shift: TShiftState;
                                   X, Y: Integer);
begin
  Drawing := False;
  imgElastik.Canvas.MoveTo(Start.X, Start.Y);
  imgElastik.Canvas.LineTo(X, Y);
end;

procedure TElastikForm.miHentClick(Sender: TObject);
begin
  if OpenPictureDialog.Execute then
    imgElastik.Picture.LoadFromFile(OpenPictureDialog.FileName);
end;

procedure TElastikForm.miGemClick(Sender: TObject);
begin
  if SavePictureDialog.Execute then
    imgElastik.Picture.SaveToFile(SavePictureDialog.FileName);
end;

end.

Resten af koderne med at regne det ud må su selv tænke dig til
det er nok noget med en masse strings og sådan noget.

Bare sig til vis du ikke kan få det til at virke.

------------------------------------------------------
Intet er umuligt før man har prøvet, og vis ikke det virker første gang så plejer det at virke anden gang.

Darkfighter

Her er et eksempel hvor du ud over din TForm (Form1) har en TButton (Button1) og en TOpenDialog (OpenDialog1)!

Skriv først i din Button's OnClick property følgende kode...

var
  Bmp : TBitmap;
procedure TForm1.Button1Click(Sender: TObject);
begin
  //Hvis der blev trykket på "OK" knappen i OpenDialog1 så...
  if OpenDialog1.Execute then
  with OpenDialog1 do
  //...og den valgte fil's efternavn er 'BMP' så...
  if UpperCase(ExtractFileExt(FileName)) = '.BMP' then
  try
    //...indlæs Bmp billedet!
    Bmp.LoadFromFile(FileName);
    //...opdater!
    FormPaint(nil);
  except
    //Hvis noget går galt vises en DialogBox!
    ShowMessage('Fejl ved indlæsning af billedet!');
  end;
end;

I din form's OnPaint property...

procedure TForm1.FormPaint(Sender: TObject);
begin
  //Tegner billedet på din form!
  Canvas.Draw(0,0,Bmp);
end;

I din Form's OnMouseMove property...

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  //Viser X og Y koordinaterne i din form's Caption!
  Caption := 'X: '+IntToStr(X)+' Y: '+IntToStr(Y);
  //Hvis venstre museknap holdes nede...
  if (ssLeft in Shift) then
  begin
    //...bliver der tegnet på dit billede!
    Bmp.Canvas.Pixels[X,Y] := clBlack;
    //...og den opdateres!
    FormPaint(nil);
  end;
end;

og til allersidst i din unit (lige før "End.")...

initialization
  //Skaber et Bmp billede i hukommelsen, som det allerførste!
  Bmp := TBitmap.Create;
finalization
  //Frigiver billedet fra hukommelsen, som det allersidste!
  Bmp.Free;

Held og Lykke
Søren Klit Lambæk

[Redigeret d. 02/04-04 13:33:09 af Søren Klit Lambæk]

Da det er en punkt til punkt forbindelse kan du regne længden, altså afstanden mellem de to pixels sådan.

P(x1, y1) = koordinatsættet for det ene punkt
Q(x2, y2) = koordinatsættet for det andet punkt

afstanden mellem dem er, set fra matematisk synsvinkel:

dist(P, Q) = SQRT( (x1 - x2)^2 + (y1 - y2)^2) )

Altså kvadratroden af de to differencer i anden hehe...

SQRT er vistnok også funtionskaldet i Delphi


Casper

Jeg har nu leget lidt med Canvas ud fra artiklerne om "Canvas i Delphi" her på siden, og det er da lykkedes mig at kunne tegne lige streger ved at trykke musen ned, flytte den og derefter slippe musseknappen.

Det jeg har brug for er en funktion der kan afsætte første koordinatsæt ved 1. klik på musen. Ved andet klik, skal den tegne en streg dertil, som skal fortsætte videre til tredje, fjerde osv... Hvordan gør man det?

Ret snyd det her...svarede dig på Eksperten på nøjagtigt samme spørgsmål, men det har du ikke besvaret eller givet mig point for...
_______________________________________
-----------------------{ nife}------------------------_______________________________________

Her er et eksempel hvor du ud over din TForm (Form1) har en TButton (Button1) og en TOpenDialog (OpenDialog1)!

Skriv først i din Button's OnClick property følgende kode...

Kode 

var
  Bmp : TBitmap;
procedure TForm1.Button1Click(Sender: TObject);
begin
  //Hvis der blev trykket på "OK" knappen i OpenDialog1 så...
  if OpenDialog1.Execute then
  with OpenDialog1 do
  //...og den valgte fil's efternavn er 'BMP' så...
  if UpperCase(ExtractFileExt(FileName)) = '.BMP' then
  try
    //...indlæs Bmp billedet!
    Bmp.LoadFromFile(FileName);
    //...opdater!
    FormPaint(nil);
  except
    //Hvis noget går galt vises en DialogBox!
    ShowMessage('Fejl ved indlæsning af billedet!');
  end;
end;

I din form's OnPaint property...

Kode 

procedure TForm1.FormPaint(Sender: TObject);
begin
  //Tegner billedet på din form!
  Canvas.Draw(0,0,Bmp);
end;

I din Form's OnMouseMove property...

Kode 

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  //Viser X og Y koordinaterne i din form's Caption!
  Caption := 'X: '+IntToStr(X)+' Y: '+IntToStr(Y);
  //Hvis venstre museknap holdes nede...
  if (ssLeft in Shift) then
  begin
    //...bliver der tegnet på dit billede!
    Bmp.Canvas.Pixels[X,Y] := clBlack;
    //...og den opdateres!
    FormPaint(nil);
  end;
end;

og til allersidst i din unit (lige før "End.")...

Kode 

initialization
  //Skaber et Bmp billede i hukommelsen, som det allerførste!
  Bmp := TBitmap.Create;
finalization
  //Frigiver billedet fra hukommelsen, som det allersidste!
  Bmp.Free;

Held og Lykke
Søren Klit Lambæk

[Redigeret d. 02/04-04 13:33:09 af Søren Klit Lambæk]

Hej Søren Klit Lambæk

Jeg har afprøve dine koder, men i proceduren FormPaint får jeg fejmeddelser:

procedure TForm1.FormPaint(Sender: TObject);
begin
//Tegner billedet på din form!
  Canvas.Draw(0,0,Bmp); //Fejlmeddling sidst koden ved Bmp?
end;

Fejlmeddelserne der kommer ved Compile:

[Warning] Unit1.pas(48): Variable 'Bmp' might not have been initialized
[Error] Unit1.pas(61): Undeclared identifier: 'Bmp'
[Error] Unit1.pas(73): Undeclared identifier: 'Bmp'
[Error] Unit1.pas(82): Undeclared identifier: 'Bmp'
[Error] Unit1.pas(85): Missing operator or semicolon
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

Hvordan og hvor skal der rette for at undgå fejmeddelserne?

Med venlig hilsen
Monie Jacobsen

E-mail: mjs at nypost dot dk

[Error] Unit1.pas(61): Undeclared identifier: 'Bmp'
[Error] Unit1.pas(73): Undeclared identifier: 'Bmp'
[Error] Unit1.pas(82): Undeclared identifier: 'Bmp'
[Error] Unit1.pas(85): Missing operator or semicolon
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

Det fordi du ikke har defineret BMP som en TBitmap!
I aller første kode definere jeg den!

var
Bmp : TBitmap;

... det er derfor meningen at den første kode skal være øverst!
For en sikkerheds skyld kan du bare lade den være en global definering!