"Malebøtte" funktion i Canvas image....

Har lavet et eksempel som ligger på:
http://www.slyngelstuen.dk/temp/index.htm

/ProDoc

Jo du skal bare lave en:
FloodFill(X, Y: Integer; Color: TColor; FillStyle: TFillStyle);
indenfor det område du vil fylde.

lytter lige med.
prodoc >> sød animation. hehe

//dl

dl> Jo tak for det.. :)
Skal lige prøve eksemplet men det kan jeg først i overmorgen så det tager lige lidt tid...

Kayb> Hvis jeg vil have det sådan at man skal trykke på en button for at den går over til "malebøtte funktion"?
Min male "funktion" ser sådan her ud:
Image1.Canvas.LineTo(Mouse.CursorPos.X-image1.left-form1.left-3,Mouse.CursorPos.Y-image1.top-form1.top-42)

/prodoc

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    BitBtn1: TBitBtn;
    ColorBox1: TColorBox;
    procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure ColorBox1Change(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Drawing,Fyld : Boolean;

implementation

{$R *.dfm}

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
if Button=mbLeft then
begin
  if Fyld=True then
  begin
  Canvas.Brush.Style:=bsSolid;
  Canvas.Brush.Color:=ColorBox1.Selected;
  Canvas.FloodFill(X,Y,clBlack,fsBorder);
  Exit;
  end;
  Drawing:=True;
  X:=Mouse.CursorPos.X;
  Y:=Mouse.CursorPos.Y;
end
else Drawing:=False;

end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
if Drawing=True then
begin
  Canvas.LineTo(X,Y);
End;
end;

procedure TForm1.ColorBox1Change(Sender: TObject);
begin
Canvas.Pen.Color:=ColorBox1.Selected; 
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
if Fyld=True then Fyld:=False else Fyld:=True;
end;

end.

Her er et hurtigt eksempel.Håber ikke det er vildt uoverskueligt.

Det er fint..  :)
Men det eneste jeg har brug for er:
          Image1.Canvas.Brush.Style:=bsSolid;
          Image1.Canvas.Brush.Color:=Clred;
          Image1.Canvas.FloodFill(X,Y,clBlack,fsBorder);
Men hvis jeg vil have den til kun at udfylde indenfor virkelen også selvom rammen ikke består af ClBlack (også alle andre farver)
/ProDoc

Lukketid?

Jo men har du ik en løsning på mit sidste spørgsmål...?
For i canvas når man bruger FloodFill så udfylder den kun indtil/hvis den farve som er angivet.... er det ikke muligt at sige at den skal farve til bare en ny farve.... altså fx clBlack som er skrevet herover?

/ProDoc

Jeg er ikke helt med... Vil du have et dynamisk billede hvor farverne skifter, når du skifter farverne på din farve palette?

Den kode jeg har nu fylder kun ud til den sidst lavede (farvede) streg jeg vil have den til at gøre sådan at den kun farver ud til enhver streg (anden farve) og ikke kun den sidst lavet streg...

/ProDoc

Lukker!