delphi - Billeder - Udvikleren.dk - Programmering, webdesign og grafik

Tags: delphi

Bruger #4575 @ 14.01.04 19:21

Hej.
Jeg sidder og laver et program, hvor man kan åbne billeder og tegne på dem, men jeg er i tvivl om hvad, jeg skal bruge til at åbne billedet og tegne i.
Jeg har prøvet bare at bruge TImage, og så bruge dens Canvas til at tegne med, men det giver en ufattelig dårlig streg.
Er der nogen der ved hvad det er jeg skal bruge?

/Mads

6 svar postet i denne tråd vises herunder
1 indlæg har modtaget i alt 1 karma

Sorter efter stemmer Sorter efter dato

Bruger #3287 @ 15.01.04 17:14

317

Jeg har prøvet bare at bruge TImage, og så bruge dens Canvas til at tegne med, men det giver en ufattelig dårlig streg.

Hvad mener du helt præcist med ufattelig dårlig streg - og kan du ikke supplere os med koden, der tegner denne streg?

/MHA

Selvfølgelig...

Koden er her:
Kode
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  // Tegn!!
  Draw := True;
end;

procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  // Tegn Ikke!!
  Draw := False;
end;

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
  MousePos: TPoint;
begin
  // Kun hvis tegn
  If Draw Then
   begin
     // Find Mus pos
     GetCursorPos(MousePos);

     // Sæt Pen pos
     Image1.Canvas.MoveTo(MousePos.X, MousePos.Y);
     Image1.Canvas.LineTo(MousePos.X + 1, MousePos.Y + 1);
   end;
end;
Og i kan se et billede af stregen her: http://www.frip.dk/Vurdering/Billeder/Tegneprogram.jpg

Håber det var det du mente...

/Mads

Glem at det med MousePos ikke er helt rigtigt... det kan jeg selv ordne, mit problem er den stiplede linie... Glemte det lige før ;o)

/Mads

Hej Mads,

prøv at tilføj variablen FLastMouse : TPoint til din private sektion i din klasse og sørgfor at sætte den (X, Y) til -1 i din OnCreate event.
Prøv så at sætte denne kode ind i steder for din MouseXXX events:

Kode

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  // Tegn!!
  Draw := True;
  FLastMouse.X := X;
  FLastMouse.Y := Y;
end;

procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  // Tegn Ikke!!
  Draw := False;
  FLastMouse.X := -1;
  FLastMouse.Y := -1;
end;

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
  MousePos: TPoint;
begin
  // Kun hvis tegn
  If Draw Then
  begin
    if FLastMouse.X <> -1 and FLastMouse.Y <> -1 then
    begin  // Sæt Pen pos
      Image1.Canvas.MoveTo(FLastMouse.X, FLastMouse.Y);
      Image1.Canvas.LineTo(X, Y);
    end;
    FLastMouse.X := X;
    FLastMouse.Y := Y;
  end;
end;

/Michael.

Bruger #4969 @ 14.01.04 22:46

Jeg har prøvet bare at bruge TImage, og så bruge dens Canvas til at tegne med, men det giver en ufattelig dårlig streg.

Hvad mener du helt præcist med ufattelig dårlig streg - og kan du ikke supplere os med koden, der tegner denne streg?

/MHA

Bruger #4575 @ 15.01.04 14:01

218

Jeg har prøvet bare at bruge TImage, og så bruge dens Canvas til at tegne med, men det giver en ufattelig dårlig streg.

Hvad mener du helt præcist med ufattelig dårlig streg - og kan du ikke supplere os med koden, der tegner denne streg?

/MHA

Selvfølgelig...

Koden er her:

Kode

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  // Tegn!!
  Draw := True;
end;

procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  // Tegn Ikke!!
  Draw := False;
end;

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
  MousePos: TPoint;
begin
  // Kun hvis tegn
  If Draw Then
   begin
     // Find Mus pos
     GetCursorPos(MousePos);

     // Sæt Pen pos
     Image1.Canvas.MoveTo(MousePos.X, MousePos.Y);
     Image1.Canvas.LineTo(MousePos.X + 1, MousePos.Y + 1);
   end;
end;

Og i kan se et billede af stregen her: http://www.frip.dk/Vurdering/Billeder/Tegneprogram.jpg

Håber det var det du mente...

/Mads

Bruger #4575 @ 15.01.04 14:02

218

Jeg har prøvet bare at bruge TImage, og så bruge dens Canvas til at tegne med, men det giver en ufattelig dårlig streg.

Hvad mener du helt præcist med ufattelig dårlig streg - og kan du ikke supplere os med koden, der tegner denne streg?

/MHA

Selvfølgelig...

Koden er her:
Kode
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  // Tegn!!
  Draw := True;
end;

procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  // Tegn Ikke!!
  Draw := False;
end;

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
  MousePos: TPoint;
begin
  // Kun hvis tegn
  If Draw Then
   begin
     // Find Mus pos
     GetCursorPos(MousePos);

     // Sæt Pen pos
     Image1.Canvas.MoveTo(MousePos.X, MousePos.Y);
     Image1.Canvas.LineTo(MousePos.X + 1, MousePos.Y + 1);
   end;
end;
Og i kan se et billede af stregen her: http://www.frip.dk/Vurdering/Billeder/Tegneprogram.jpg

Håber det var det du mente...

/Mads

Glem at det med MousePos ikke er helt rigtigt... det kan jeg selv ordne, mit problem er den stiplede linie... Glemte det lige før ;o)

/Mads

Bruger #4575 @ 15.01.04 17:27

218

Jeg har prøvet bare at bruge TImage, og så bruge dens Canvas til at tegne med, men det giver en ufattelig dårlig streg.

Hvad mener du helt præcist med ufattelig dårlig streg - og kan du ikke supplere os med koden, der tegner denne streg?

/MHA

Selvfølgelig...

Koden er her:
Kode
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  // Tegn!!
  Draw := True;
end;

procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  // Tegn Ikke!!
  Draw := False;
end;

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
  MousePos: TPoint;
begin
  // Kun hvis tegn
  If Draw Then
   begin
     // Find Mus pos
     GetCursorPos(MousePos);

     // Sæt Pen pos
     Image1.Canvas.MoveTo(MousePos.X, MousePos.Y);
     Image1.Canvas.LineTo(MousePos.X + 1, MousePos.Y + 1);
   end;
end;
Og i kan se et billede af stregen her: http://www.frip.dk/Vurdering/Billeder/Tegneprogram.jpg

Håber det var det du mente...

/Mads

Glem at det med MousePos ikke er helt rigtigt... det kan jeg selv ordne, mit problem er den stiplede linie... Glemte det lige før ;o)

/Mads
Hej Mads,

prøv at tilføj variablen FLastMouse : TPoint til din private sektion i din klasse og sørgfor at sætte den (X, Y) til -1 i din OnCreate event.
Prøv så at sætte denne kode ind i steder for din MouseXXX events:
Kode
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  // Tegn!!
  Draw := True;
  FLastMouse.X := X;
  FLastMouse.Y := Y;
end;

procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  // Tegn Ikke!!
  Draw := False;
  FLastMouse.X := -1;
  FLastMouse.Y := -1;
end;

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
  MousePos: TPoint;
begin
  // Kun hvis tegn
  If Draw Then
  begin
    if FLastMouse.X <> -1 and FLastMouse.Y <> -1 then
    begin  // Sæt Pen pos
      Image1.Canvas.MoveTo(FLastMouse.X, FLastMouse.Y);
      Image1.Canvas.LineTo(X, Y);
    end;
    FLastMouse.X := X;
    FLastMouse.Y := Y;
  end;
end;
/Michael.

Tak for svaret... Jeg giver points, hvis koden duer når jeg har tjekket den

/Mads

Bruger #4575 @ 15.01.04 17:35

218

Jeg har prøvet bare at bruge TImage, og så bruge dens Canvas til at tegne med, men det giver en ufattelig dårlig streg.

Hvad mener du helt præcist med ufattelig dårlig streg - og kan du ikke supplere os med koden, der tegner denne streg?

/MHA

Selvfølgelig...

Koden er her:
Kode
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  // Tegn!!
  Draw := True;
end;

procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  // Tegn Ikke!!
  Draw := False;
end;

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
  MousePos: TPoint;
begin
  // Kun hvis tegn
  If Draw Then
   begin
     // Find Mus pos
     GetCursorPos(MousePos);

     // Sæt Pen pos
     Image1.Canvas.MoveTo(MousePos.X, MousePos.Y);
     Image1.Canvas.LineTo(MousePos.X + 1, MousePos.Y + 1);
   end;
end;
Og i kan se et billede af stregen her: http://www.frip.dk/Vurdering/Billeder/Tegneprogram.jpg

Håber det var det du mente...

/Mads

Glem at det med MousePos ikke er helt rigtigt... det kan jeg selv ordne, mit problem er den stiplede linie... Glemte det lige før ;o)

/Mads
Hej Mads,

prøv at tilføj variablen FLastMouse : TPoint til din private sektion i din klasse og sørgfor at sætte den (X, Y) til -1 i din OnCreate event.
Prøv så at sætte denne kode ind i steder for din MouseXXX events:
Kode
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  // Tegn!!
  Draw := True;
  FLastMouse.X := X;
  FLastMouse.Y := Y;
end;

procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  // Tegn Ikke!!
  Draw := False;
  FLastMouse.X := -1;
  FLastMouse.Y := -1;
end;

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
  MousePos: TPoint;
begin
  // Kun hvis tegn
  If Draw Then
  begin
    if FLastMouse.X <> -1 and FLastMouse.Y <> -1 then
    begin  // Sæt Pen pos
      Image1.Canvas.MoveTo(FLastMouse.X, FLastMouse.Y);
      Image1.Canvas.LineTo(X, Y);
    end;
    FLastMouse.X := X;
    FLastMouse.Y := Y;
  end;
end;
/Michael.

Tak for svaret... Jeg giver points, hvis koden duer når jeg har tjekket den

/Mads

Totalt nice!!! Tak

/Mads

Billeder

Karma barometer (30 dage)

Modtaget

Givet

Favorit hos
Forum tråde
Artikler