Spille plade ?

i et tegneprogram medmindre du vil bruge delphi til at tegne pladen i. så loader du bare pladen ind i en image komponent, og så fremt det relevant at vide om et felt på pladen bliver klikket(er det ikke i matador) kan du jo så lave noget kode der udfra stedet billedet blev klikket regner ud hvilket felt der er tale om. såfremt du ønsker at tegne pladen direrkte med delphi foreslår jeg du tegner den på en image component . Det her svar kunne måske nok virke næsvist det er ikke meningen men gad bare ikk eskrive en udførligt om delphi der laver sådan noget du lige så godt kunne bruge et tegne program.

Hej Nørden (og evt. andre)

Jeg vil gerne bruge Delphi til at lave spillepladen.
Hvis jeg evt. kunne få et eksempel på en let løsning af at lave en cirkel delt i 8 stykker, som så kan farves eller hvad man nu vil med dem idividuelt, så ville jeg blive meget glad.

Det er vel et eller andet med at regne nogle punkter ud.

Jeg kan klare at regne ud hvor mange grader hvert stykke ville skulle være, men det kan jeg vel ikke rigtigt bruge til noget?

M.v.h. Johnny Rasmussen.

På Forhånd Tak.

Jeg lukker!

Fandt en måde at gøre det på, men droppede projektet da jeg ikke kan lave en spilleplade på den måde. Felterne ville simpelt hen blive for små.

M.v.h. Johnny Rasmussen.

Jeg lukker!

Fandt en måde at gøre det på, men droppede projektet da jeg ikke kan lave en spilleplade på den måde. Felterne ville simpelt hen blive for små.

M.v.h. Johnny Rasmussen.

Man kunne da evt. lave noget hvor man kunne zoome ind, og derved undgå problemet med at spillepladen er for lille??

nå ok havde eller lige lavet dette

procedure TForm1.FormActivate(Sender: TObject);
var
  i:integer;
  deg:real;
  center,outer,filler,inner,holder:TPoint;
  width,fields:Integer;
begin
  fields:=8;
  width:=100;
  outer.X:=round(Image1.Width/2);
  outer.y:=0;
  center.X:=round(Image1.Width/2);
  center.Y:=round(Image1.Height/2);
  inner.X:=floor((Image1.Width-width*2)/2);
  inner.y:=0;

  filler.X:=round((Image1.Width-width)/2);
  filler.y:=0;

  deg:=DegToRad(360/fields);
  filler:=rotate(filler,deg/2);
  Image1.Canvas.Pen.Width:=2;
  for i:=0 to fields-1 do
  begin
    Image1.Canvas.MoveTo(outer.X+center.X,outer.Y+center.Y);
    Image1.Canvas.LineTo(inner.X+center.X,inner.Y+center.Y);

     holder:=outer;
    outer:=rotate(outer,deg);
    Image1.Canvas.Arc(0,0,Image1.Width,Image1.Height,holder.X,holder.Y,outer.X,outer.Y);
    holder:=inner;
    inner:=rotate(inner,deg);
    Image1.Canvas.Arc(width,width,Image1.Width-width,Image1.Height-width,holder.X,holder.Y,inner.X,inner.Y);
  end;
  Randomize();
  for i:=0 to fields-1 do
  begin
    Image1.Canvas.Brush.Color:=RGB(RandomRange(0,255),RandomRange(0,255),RandomRange(0,255));
    Image1.Canvas.FloodFill(filler.X+center.X,filler.Y+center.Y,Image1.Canvas.Pen.Color,fsBorder);
    filler:=rotate(filler,deg);
  end;
end;

man skal bare putte en image component på forme som SKAL være kvadratisk.

så skulle du bare have sat width til den bredde et felt har(afstanden fra inner cirklen til yder cirklen) og fields til antallet af felter.