Matematické Fórum

Nevíte-li si rady s jakýmkoliv matematickým problémem, toto místo je pro vás jako dělané.

Nástěnka
❗22. 8. 2021 (L) Přecházíme zpět na doménu forum.matweb.cz!
❗04.11.2016 (Jel.) Čtete, prosím, před vložení dotazu, děkuji!
❗23.10.2013 (Jel.) Zkuste před zadáním dotazu použít některý z online-nástrojů, konzultovat použití můžete v sekci CAS.

Nejste přihlášen(a). Přihlásit

Stránky: 1

 

#1 11. 11. 2014 20:49

Jakubjusko
Příspěvky: 83
Reputace:   0 
 

Lazarus (pascal ) - aplikacia skicar

Dobry den,
naprogramoval som jednoduchy skicar v Lazaruse , a mam taky problem ze ked kreslim na platno Image1 tak po spusteni po grafickej ploche behaju svetle pruhy. Neviete mi poradit čo by to mohlo byt ? Ako sa toho zbavit ?
tu je kod
unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, ExtCtrls,
  StdCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Koniec: TButton;
    Image1: TImage;
    Image2: TImage;
    Image3: TImage;
    ScrollBar1: TScrollBar;
    Black: TShape;
    Purple: TShape;
    Shape1: TShape;
    Teal: TShape;
    Gray: TShape;
    Blue: TShape;
    Fuchsia: TShape;
    Aqua: TShape;
    InactiveCaptionText: TShape;
    Green: TShape;
    Maroon: TShape;
    Silver: TShape;
    Olive: TShape;
    Yellow: TShape;
    Navy: TShape;
    procedure AquaMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure BlueMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FuchsiaMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure GrayMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure GreenMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Image1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer
      );
    procedure InactiveCaptionTextMouseDown(Sender: TObject;
      Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    procedure KoniecClick(Sender: TObject);
    procedure LimeMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure MaroonMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure NavyMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure OliveMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure PurpleMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure ScrollBar1Change(Sender: TObject);
    procedure BlackMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure SilverMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure TealMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure YellowMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{ TForm1 }



procedure TForm1.FormCreate(Sender: TObject);
begin

  Image1.Canvas.FillRect(Image1.ClientRect);
  Image2.Canvas.FillRect(Image2.ClientRect);
  image2.canvas.pen.width:=2;
  image2.Canvas.line(6,6,6,6);
  Image3.Canvas.brush.color:=clblack;
  Image3.Canvas.FillRect(Image3.ClientRect);

end;
procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if shift= [ssLeft] then
  image1.canvas.LineTo(X, Y);
end;
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if shift = [ssleft] then
  image1.canvas.MoveTo(X, Y);
end;
procedure TForm1.FuchsiaMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Image1.canvas.Pen.color:=clfuchsia;
  Image3.canvas.pen.color:=clfuchsia;
  Image3.canvas.pen.width:=85;
  Image3.canvas.line(10,10,10,10);
end;

procedure TForm1.AquaMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Image1.canvas.Pen.color:=claqua;
  Image3.canvas.pen.color:=claqua;
  Image3.canvas.pen.width:=85;
  Image3.canvas.line(10,10,10,10);
end;

procedure TForm1.BlueMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Image1.canvas.Pen.color:=clblue;
  Image3.canvas.pen.color:=clblue;
  Image3.canvas.pen.width:=85;
  Image3.canvas.line(10,10,10,10);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Image1.canvas.Pen.color:=clwhite;
  Image3.canvas.pen.color:=clwhite;
  Image3.canvas.pen.width:=85;
  Image3.canvas.line(10,10,10,10);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Image1.Canvas.FillRect(Image1.ClientRect);
end;

procedure TForm1.GrayMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Image1.canvas.Pen.color:=clgray;
  Image3.canvas.pen.color:=clgray;
  Image3.canvas.pen.width:=85;
  Image3.canvas.line(10,10,10,10);
end;


procedure TForm1.GreenMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Image1.canvas.Pen.color:=clgreen;
  Image3.canvas.pen.color:=clgreen;
  Image3.canvas.pen.width:=85;
  Image3.canvas.line(10,10,10,10);
end;

procedure TForm1.InactiveCaptionTextMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
   Image1.canvas.Pen.color:=clinactivecaption;
  Image3.canvas.pen.color:=clinactivecaption;
  Image3.canvas.pen.width:=85;
  Image3.canvas.line(10,10,10,10);
end;

procedure TForm1.KoniecClick(Sender: TObject);
begin
  close;
end;

procedure TForm1.LimeMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Image1.canvas.Pen.color:=cllime;
  Image3.canvas.pen.color:=cllime;
  Image3.canvas.pen.width:=85;
  Image3.canvas.line(10,10,10,10);
end;

procedure TForm1.MaroonMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Image1.canvas.Pen.color:=clmaroon;
  Image3.canvas.pen.color:=clmaroon;
  Image3.canvas.pen.width:=85;
  Image3.canvas.line(10,10,10,10);
end;

procedure TForm1.NavyMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Image1.canvas.Pen.color:=clnavy;
  Image3.canvas.pen.color:=clnavy;
  Image3.canvas.pen.width:=85;
  Image3.canvas.line(10,10,10,10);
end;

procedure TForm1.OliveMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Image1.canvas.Pen.color:=clolive;
  Image3.canvas.pen.color:=clolive;
  Image3.canvas.pen.width:=85;
  Image3.canvas.line(10,10,10,10);
end;

procedure TForm1.PurpleMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Image1.canvas.Pen.color:=clpurple;
  Image3.canvas.pen.color:=clpurple;
  Image3.canvas.pen.width:=85;
  Image3.canvas.line(10,10,10,10);
end;

procedure TForm1.ScrollBar1Change(Sender: TObject);
begin
  Image2.Canvas.FillRect(Image1.ClientRect);
  image2.canvas.pen.width:=scrollbar1.position+1;
  image2.Canvas.line(6,6,6,6);
  scrollbar1.min:=1;
  scrollbar1.max:=10;
  image1.canvas.pen.width:= scrollbar1.position;
end;

procedure TForm1.BlackMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Image1.canvas.Pen.color:=clBlack;
  Image3.canvas.pen.color:=clblack;
  Image3.canvas.pen.width:=85;
  Image3.canvas.line(10,10,10,10);
end;


procedure TForm1.SilverMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
   Image1.canvas.Pen.color:=clsilver;
   Image3.canvas.pen.color:=clsilver;
  Image3.canvas.pen.width:=85;
  Image3.canvas.line(10,10,10,10);
end;

procedure TForm1.TealMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Image1.canvas.Pen.color:=clteal;
  Image3.canvas.pen.color:=clteal;
  Image3.canvas.pen.width:=85;
  Image3.canvas.line(10,10,10,10);
end;

procedure TForm1.YellowMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Image1.canvas.Pen.color:=clyellow;
  Image3.canvas.pen.color:=clyellow;
  Image3.canvas.pen.width:=85;
  Image3.canvas.line(10,10,10,10);

end;

initialization
  {$I Unit1.lrs}

end.

Offline

 

#2 25. 11. 2015 20:15

KFC Watermelon
Zelenáč
Příspěvky: 11
Pozice: Študent
Reputace:   0 
 

Re: Lazarus (pascal ) - aplikacia skicar

Pošli mi celý projekt do PM.

Offline

 

 

Stránky: 1

Zápatí

Powered by PunBB
© Copyright 2002–2005 Rickard Andersson