Questions
lazarus / 9-Editor

----------------------------------------------------------------------
gyts · 2010-10-18 10:12

How to make procedure that would place Shape when Form opens.
How to make fixed window (that couldn't be resized)?

----------------------------------------------------------------------
typo · 2010-10-18 10:21

Fixed window: set BorderStyle to bsSingle or bsDialog.

----------------------------------------------------------------------
gyts · 2010-10-19 11:22

How to draw triangle? Do i need to paint it by myself and load it as a
picture? If so, how to do that?

----------------------------------------------------------------------
typo · 2010-10-19 11:26

Well, if you draw it by yourself you need 3 points and need to Line to
them on the canvas.

Code: [Select]Canvas.Line(x1, y1, x2, y2);

----------------------------------------------------------------------
gyts · 2010-10-21 12:42

How to make shapes array?

----------------------------------------------------------------------
typo · 2010-10-21 13:39

Code: [Select]var
  a :array[0..N] of TShape;

----------------------------------------------------------------------
gyts · 2010-10-21 14:59

Quote from: typo on October 19, 2010, 01:26:16 pmWell, if you draw it
by yourself you need 3 points and need to Line to them on the canvas.

Code: [Select]Canvas.Line(x1, y1, x2, y2);

How to make, this triangle, into shape, that can be moved on a button
press? How to change it's line color, fill color?

----------------------------------------------------------------------
ivan17 · 2010-10-21 20:02

QuoteHow to make, this triangle, into shape, that can be moved on a
button press? How to change it's line color, fill color?

canvas has a "pen" property. change its properties (color/style) to
set line styles; canvas has a "brush" property. change its properties
(color/style) to set fill styles; canvas has "font" property. change
its properties to set how text is drawn;

handle Click event of a button or MouseDown/MouseUp/MouseMove events
of the TPaintBox/TPanel or wherever you're doing the drawing.

once you feel its time to move the shape, set the color to background
(clBtnFace/clWhite/whatever), draw a triangle at old coordinates,
acquire new coordinates, set hte color to foreground and draw the
triangle at new coordinates.

also invoke the drawing routine from OnPaint event

----------------------------------------------------------------------
gyts · 2010-10-22 10:43

How to fill painted triangle?

----------------------------------------------------------------------
Leledumbo · 2010-10-22 11:14

QuoteHow to fill painted triangle?Google for "triangle fill algorithm"
(with quotes) or "polygon fill" (without quotes). The latter is more
generic and AFAIK used by, for example, OpenGL.

Hmm... I think triangle drawing should be added to TCanvas.

----------------------------------------------------------------------
ivan17 · 2010-10-22 11:35

Quote from: gyts on October 22, 2010, 12:43:55 pmHow to fill painted
triangle?
simplest option (not for serious programs): floodfill
serious option: draw a family of adjacent horizontal lines (either do
a bit of math or search the net for an algorithm)

Quote from: Leledumbo on October 22, 2010, 01:14:43 pmHmm... I think
triangle drawing should be added to TCanvas.
you need someone else to implement moveto(point1); lineto(point2);
lineto(point3); lineto(point1); for you?

off topic, that got me going: someone (one one) someone (one one) 
someone (one one) someone else (x2)...

----------------------------------------------------------------------
gyts · 2010-10-22 13:44

Quote from: typo on October 21, 2010, 03:39:37 pmCode: [Select]var
  a :array[0..N] of TShape;
How to put already created shapes into this array? I have ~100 shapes.

----------------------------------------------------------------------
typo · 2010-10-22 13:49

Code: [Select]a[N] := Shape1;

or

Code: [Select]for i := 0 to 99 do
begin
  a[i] := TShape(FindComponent('Shape' + IntToStr(i + 1)));
end;

----------------------------------------------------------------------
gyts · 2010-10-22 13:55

How to make this work faster? Because in this way it will require 100
lines... I want program to be compact.

----------------------------------------------------------------------
typo · 2010-10-22 13:57

I have edited my previous message, have a look.

----------------------------------------------------------------------
gyts · 2010-10-22 14:28

Code: [Select]mas = array [1..1000] of TShape;

var
  A: mas;
  number: integer;

for i := 1 to 144 do
   begin
    A[i] := TShape(FindComponent('Shape' + IntToStr(i + 1)));
   end;

for i := 1 to 144 do
   begin
    Randomize;
    number := random(5);
    if number = (0 or 1)
     then A[i].Brush.Color := clred
     else if number = (2 or 3)
           then A[i].Brush.Color := clgreen;
   end;
I put both cycles in TGame.FormPaint

Why it doesn't colors my shapes?

----------------------------------------------------------------------
typo · 2010-10-22 14:46

Warning with the use of arrays, they are 0-based

Code: [Select]for i := 1 to 144 do
   begin
    A[i] := TShape(FindComponent('Shape' + IntToStr(i + 1)));
   end;

It should be:

Code: [Select]for i := 0 to 143 do
   begin
    A[i] := TShape(FindComponent('Shape' + IntToStr(i + 1)));
   end;

for 144 Shapes.

QuoteWhy it doesn't colors my shapes?
Try:
Code: [Select]Application.ProcessMessages;

----------------------------------------------------------------------
typo · 2010-10-22 15:13

Your code has problems. Try:

Code: [Select]if (number = 0) or (number = 1)
     then A[i].Brush.Color := clred
     else if (number = 2) or (number = 3)
           then A[i].Brush.Color := clgreen;

----------------------------------------------------------------------
gyts · 2010-10-22 15:15

I've already fixed. Thanks

Why i can't change loop variable?

"unit1.pas(236,34) Error: Illegal assignment to for-loop variable "i""

----------------------------------------------------------------------
typo · 2010-10-22 15:17

You simply can't change a FOR loop variable. That's all.

----------------------------------------------------------------------
ivan17 · 2010-10-22 15:18

Quote from: gyts on October 22, 2010, 05:15:07 pmWhy i can't change
loop variable?
turn the for-loop into a while loop if you need that;
(if you just need to skip some elements, use if condition then
Continue;)

----------------------------------------------------------------------
Leledumbo · 2010-10-23 07:11

QuoteWhy i can't change loop variable?For statement are meant for loop
which terminating condition is predictable, so the compiler can do
loop unrolling optimization if requested. Changing the loop variable
will make it unpredictable, thus making the optimization impossible.
Use while / repeat for loops whose terminating condition is
unpredictable (i.e. uses sentinel).

----------------------------------------------------------------------
gyts · 2010-10-23 09:57

Quote from: typo on October 18, 2010, 12:21:31 pmFixed window: set
BorderStyle to bsSingle or bsDialog.

It's fixed, but it still can be tricked:
http://img52.imageshack.us/img52/6837/21603160.png

How to do that it couldn't be Maximized?

----------------------------------------------------------------------
typo · 2010-10-23 10:16

Set BorderIcons in order to remove it.

----------------------------------------------------------------------
gyts · 2010-10-23 12:03

It was already set up:
http://img530.imageshack.us/img530/8774/45436372.png

<..>

When i maximize window, move it our of screen, shape colors messes,
triangle gets back to basic position. How to save everything?

----------------------------------------------------------------------
ivan17 · 2010-10-23 21:27

Quote from: gyts on October 23, 2010, 02:03:35 pmWhen i maximize
window, move it our of screen, shape colors messes, triangle gets back
to basic position. How to save everything?

you do ALL drawing in OnPaint event based on outside variables
(coordinates, colors...);
you set the variables in other events and tell the control to repaint
itself.

system will call OnPaint when you drag the window around...

----------------------------------------------------------------------
gyts · 2010-10-23 22:26

Quote from: ivan17 on October 23, 2010, 11:27:06 pmQuote from: gyts on
October 23, 2010, 02:03:35 pmWhen i maximize window, move it our of
screen, shape colors messes, triangle gets back to basic position. How
to save everything?

you do ALL drawing in OnPaint event based on outside variables
(coordinates, colors...);
you set the variables in other events and tell the control to repaint
itself.

system will call OnPaint when you drag the window around...

Can you describe it much crearly? I don't understand it

----------------------------------------------------------------------
ivan17 · 2010-10-24 00:41

Quote from: gyts on October 24, 2010, 12:26:07 amCan you describe it
much crearly? I don't understand it

button click event (doesn't matter, can be a keyboard handler for
arrow keys)
Code: [Select]  point1 := random point in paintbox1;
  point2 := random point in paintbox1;
  point3 := random point in paintbox1;
  PaintBox1.Refresh;

paintbox-OnPaint event (can be any control with canvas)
Code: [Select]  draw triangle using those variables

now try moving it below screen bottom or resizing...

----------------------------------------------------------------------
Martin_fr · 2010-10-24 00:59

The OnPaint is described here... http://wiki.lazarus.freepascal.org/De
veloping_with_Graphics#Draw_on_the_OnPaint_event
But you should read the rest of the page too, to get a it of
background, and learn some of the other options.

----------------------------------------------------------------------
gyts · 2010-10-24 05:48

I've put shapes' colors and starting canvas in FormActivate. In
OnPaint i'm repainting canvas. So when i maximize and move window
around it's working as i want. But i saw another problem:
http://img138.imageshack.us/img138/4661/65251983.png. When i right
click on it, or just click to minimize it, shapes' colors messes and
canvas goes to starting position in that way sometimes making 2
canvas.

----------------------------------------------------------------------
ivan17 · 2010-10-25 03:14

you know, there's a limit to how much we can guess.  how about sharing
some code with us, if you don't get it working yourself (though i'm
sure you can get it to work by trying things out yourself)?

----------------------------------------------------------------------
gyts · 2010-10-25 14:59

Code: [Select]unit Unit1;

{$mode objfpc}{$H+}

interface

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

type                                         
                                              
 mas = array [1..1000] of TShape;

  { TGame }

  TGame = class(TForm)
    Kubukai: TShape;
    Shape87: TShape;
    Shape88: TShape;
    <lots of shapes>
    Shape143: TShape;
    Shape144: TShape;
    Desine2: TShape;
    Desine3: TShape;
    Shape16: TShape;
    Desine4: TShape;
    Desine5: TShape;
    Desine6: TShape;
    Desine7: TShape;
    Desine8: TShape;
    Desine9: TShape;
    Desine10: TShape;
    Desine11: TShape;
    Desine12: TShape;
    Shape17: TShape;
    Shape18: TShape;
    Shape19: TShape;
    Shape2: TShape;
    Shape20: TShape;
    <lots of shapes>
    Shape3: TShape;
    Desine1: TShape;
    Kaire4: TShape;
    Kaire2: TShape;
    Kaire3: TShape;
    Kaire11: TShape;
    Kaire10: TShape;
    Kaire9: TShape;
    Kaire8: TShape;
    Kaire7: TShape;
    Kaire6: TShape;
    Kaire5: TShape;
    Kaire12: TShape;
    Kaire1: TShape;
    Shape81: TShape;
    Shape82: TShape;
    Shape83: TShape;
    Shape84: TShape;
    Shape85: TShape;
    Shape86: TShape;
    Wall: TShape;
    Kaire: TShape;
    Desine: TShape;
    Apacia: TShape;
    Virsus: TShape;
    procedure FormActivate(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: char);
    procedure FormPaint(Sender: TObject);

  private

  public

  end;

var
  Game: TGame;
  p, i, x, y: integer;
  kiek: integer;
  boo: boolean;
  A, K, D: mas;
  number, tr, Des: integer;
  spalva: TColor;
  ToLeft, ToDown: boolean;

implementation

{ TGame }

procedure TGame.FormActivate(Sender: TObject);
begin
   tr := 5;
   Des := 0;

   for i := 1 to 12 do
    begin
     K[i] := TShape(FindComponent('Kaire' + IntToStr(i)));
    end;
   for i := 1 to 144 do
    begin
     A[i] := TShape(FindComponent('Shape' + IntToStr(i)));
    end;

  Randomize;
  kiek := 0;
  boo := true;
  for i := 1 to 132 do
   begin
    if boo = true
     then
      begin
       number := random(5);
       if (number = 0) or (number = 1)
        then begin kiek := kiek + 1; A[i].Brush.Color := clred end
        else if (number = 2) or (number = 3)
              then begin kiek := kiek + 1; A[i].Brush.Color := clLime
end
              else boo := false;
      end
     else if i mod 12 = 0 then boo := true;
   end;

  for i := 1 to 12 do
   begin
    number := random (2);
    if number = 0
     then K[i].Brush.Color := clred
     else if number = 1
           then K[i].Brush.Color := clLime
   end;

  Canvas.Pen.Color := clyellow;
  for i := 0 to 24 do
   if i mod 2 = 0
    then Canvas.Line (353 - i, tr * 25 + 5 + i div 2, 353 - i, tr * 25
+ 25 + 5 - i div 2)
    else Canvas.Line (353 - i, tr * 25 + 5 + (i - 1) div 2, 353 - i,
tr * 25 + 25 + 5 - (i - 1) div 2);
end;

procedure TGame.FormPaint(Sender: TObject);
begin
  Canvas.Pen.Color := clyellow;
  for i := 0 to 24 do
   if i mod 2 = 0
    then Canvas.Line (353 - i, tr * 25 + 5 + i div 2, 353 - i, tr * 25
+ 25 + 5 - i div 2)
    else Canvas.Line (353 - i, tr * 25 + 5 + (i - 1) div 2, 353 - i,
tr * 25 + 25 + 5 - (i - 1) div 2);
end;

procedure TGame.FormKeyPress(Sender: TObject; var Key: char);
begin
  case Key of
   'w': begin
         Canvas.Pen.Color := clblack;
         for i := 0 to 24 do
          if i mod 2 = 0
           then Canvas.Line (353 - i, tr * 25 + 5 + i div 2, 353 - i,
tr * 25 + 5 + 25 - i div 2)
           else Canvas.Line (353 - i, tr * 25 + 5 + (i - 1) div 2, 353
- i, tr * 25 + 5 + 25 - (i - 1) div 2);
          if tr = 0
           then tr := 11
           else tr := tr - 1;
         Canvas.Pen.Color := clyellow;
         for i := 0 to 24 do
          if i mod 2 = 0
           then Canvas.Line (353 - i, tr * 25 + 5 + i div 2, 353 - i,
tr * 25 + 5 + 25 - i div 2)
           else Canvas.Line (353 - i, tr * 25 + 5 + (i - 1) div 2, 353
- i, tr * 25 + 5 + 25 - (i - 1) div 2);
        end;
   's': begin
         Canvas.Pen.Color := clblack;
         for i := 0 to 24 do
          if i mod 2 = 0
           then Canvas.Line (353 - i, tr * 25 + 5 + i div 2, 353 - i,
tr * 25 + 5 + 25 - i div 2)
           else Canvas.Line (353 - i, tr * 25 + 5 + (i - 1) div 2, 353
- i, tr * 25 + 5 + 25 - (i - 1) div 2);
         if tr = 11
          then tr := 0
          else tr := tr + 1;
         Canvas.Pen.Color := clyellow;
         for i := 0 to 24 do
          if i mod 2 = 0
           then Canvas.Line (353 - i, tr * 25 + 5 + i div 2, 353 - i,
tr * 25 + 5 + 25 - i div 2)
           else Canvas.Line (353 - i, tr * 25 + 5 + (i - 1) div 2, 353
- i, tr * 25 + 5 + 25 - (i - 1) div 2);
        end;
   'a': begin
         p := tr;
         y := 305;
         spalva := TShape(FindComponent('Kaire' + IntToStr(p +
1))).Brush.Color;
         boo := true;
         If (ToLeft <> false) and (ToDown <> false)
          then
        end;
   'd': begin
         TShape(FindComponent('Desine' + IntToStr(Des +
1))).Brush.Color := TShape(FindComponent('Kaire' + IntToStr(tr +
1))).Brush.Color;
         Des := Des + 1;
         if Des = 12
          then begin
                ShowMessage ('Game Over :(');
                Halt;
               end;
         for i := tr + 1 downto 2 do
          TShape(FindComponent('Kaire' + IntToStr(i))).Brush.Color :=
TShape(FindComponent('Kaire' + IntToStr(i - 1))).Brush.Color;
         number := random (2) + 1;
         if number = 1
          then TShape(FindComponent('Kaire' +
IntToStr(1))).Brush.Color := clRed
          else TShape(FindComponent('Kaire' +
IntToStr(1))).Brush.Color := clLime;
        end;
  end;
end;



initialization
  {$I unit1.lrs}

end.

----------------------------------------------------------------------
ivan17 · 2010-10-25 20:29

move initialization into oncreate event. onactivate may trigger many
times and it is not a place to initialize arrays. don't move the last
(painting) part; if you really need it somewhere, call formpaint(nil),
don't double the code.  replace halt with application.terminate.

keypress event is meant for typing, not games. if you need to allow
player to hold the key, go with keydown/keyup events (you can get
several keydown events for each one keyup event)

----------------------------------------------------------------------
gyts · 2010-10-26 06:30

How to write text? How to change its size, color, etc. ? How to change
wasd with arrow keys?

----------------------------------------------------------------------
eny · 2010-10-26 06:55

Pick any canvas and do something like:
Code: [Select]...
   Canvas.Font.Name := 'Verdana';
   Canvas.Font.Size := 8;
   Canvas.Font.Style := [fsBold];
   Canvas.Font.Color := clNavy;
   // etc...
   Canvas.TextOut(42,42,'Howdy World!');

----------------------------------------------------------------------
gyts · 2010-10-26 09:43

Quote from: eny on October 26, 2010, 08:55:23 amPick any canvas and do
something like
How to write on Shape?

----------------------------------------------------------------------
eny · 2010-10-26 09:46

Use the shape's canvas like AnyShape.Canvas.TextOut(...).

----------------------------------------------------------------------
gyts · 2010-10-26 09:51

Quote from: eny on October 26, 2010, 11:46:57 amUse the shape's canvas
like AnyShape.Canvas.TextOut(...).

It didn't worked... :/

Modify: AnyShape.Canvas.TextOut (x, y, 'Text'); Does this mean that
text will be printed AnyShape.Left + x, AnyShape.Top + y?

----------------------------------------------------------------------
typo · 2010-10-26 10:02

Shape1.Canvas.TextOut(0,0,'text');

----------------------------------------------------------------------
gyts · 2010-10-26 11:49

Quote from: typo on October 26, 2010, 12:02:49
pmShape1.Canvas.TextOut(0,0,'text');

It still doesn't work :/

Modify: Text appears only when i move window out of screen

----------------------------------------------------------------------
Leledumbo · 2010-10-26 12:04

QuoteText appears only when i move window out of screencall Invalidate
(force painting).

----------------------------------------------------------------------
gyts · 2010-10-26 12:08

In which procedure i need put Invalidate? Before or after text?

Modify: Fixed. Now working properly.

----------------------------------------------------------------------
gyts · 2010-10-27 13:52

How to write it in programing language: FindComponent whose .Left and
.Top = ShapeX.Left and ShapeX.Top? Is it posible at all?

----------------------------------------------------------------------
typo · 2010-10-27 13:56

Code: [Select]if TShape(FindComponent('Desine' + IntToStr(Des +
1))).Brush.Color = clBlack then
  Something;

----------------------------------------------------------------------
gyts · 2010-10-27 14:02

Read again. I'm comparing not colors, but Tops and Lefts

Modify: I'm moving ShapeX around and if ShapeX's Left and Top =
another shape's Left and Top, i need to change that shape's color.

----------------------------------------------------------------------
typo · 2010-10-27 14:13

I am trying to give you the right address to ideas for you to make
your program, not to program by you.

----------------------------------------------------------------------
gyts · 2010-10-27 17:05

Is there any procedure in Lazarus, like Delay in Free Pascal?

----------------------------------------------------------------------
eny · 2010-10-27 17:15

Yes, but why would you need it?

----------------------------------------------------------------------
typo · 2010-10-27 17:25

BTW, what your background knowledge, Delphi, Turbo Pascal, another
language?

----------------------------------------------------------------------
gyts · 2010-10-27 17:33

Quote from: typo on October 27, 2010, 07:25:25 pmBTW, what your
background knowledge, Delphi, Turbo Pascal, another language?

1y of Free Pascal. I haven't been creating Units.

Quote from: eny on October 27, 2010, 07:15:28 pmYes, but why would you
need it?

Shape moves to another place too quick. I need to delay it, so that
shape movement could be seen.

----------------------------------------------------------------------
eny · 2010-10-27 17:51

Quote from: gyts on October 27, 2010, 07:33:50 pmShape moves to
another place too quick. I need to delay it, so that shape movement
could be seen.
You could use a TTimer for that; move objects based on timer events.

----------------------------------------------------------------------
gyts · 2010-10-27 17:55

Timer is too complicated for me, that's why i want to use Delay.
I was thinking about using timer if there's no Delay proc in Lazarus.

----------------------------------------------------------------------
eny · 2010-10-27 18:02

sleep(<time in millisecs>)

----------------------------------------------------------------------
gyts · 2010-10-27 18:33

Quote from: eny on October 27, 2010, 08:02:27 pmsleep(<time in
millisecs>)

Does Sleep works as same as Delay?

Modify:
ShapeX.Left = 7
Code: [Select]repeat
 begin
  sleep(500);
  ShapeX.Left := ShapeX.Left - 1;
 end;
until ShapeX.Left = 5;
I still can't see shape moving, just the final result, when repeat
loop ends...

How to put timer instead of sleep?

----------------------------------------------------------------------
Leledumbo · 2010-10-28 01:41

QuoteDoes Sleep works as same as Delay?Better AFAIK and IMHO.
QuoteI still can't see shape moving, just the final result, when
repeat loop ends...If you want to see as long as the loop runs, call
Invalidate or Application.ProcessMessages.

----------------------------------------------------------------------
ivan17 · 2010-10-28 02:49

Quote from: gyts on October 27, 2010, 08:33:08 pmI still can't see
shape moving, just the final result, when repeat loop ends...
tell the form/paintbox/panel to repaint itself.

Quote from: gyts on October 27, 2010, 08:33:08 pmHow to put timer
instead of sleep? 
it's on a "system" page in the component palette. use enabled property
to turn it on/off. put drawing into its event.

----------------------------------------------------------------------
gyts · 2010-10-28 05:09

I still see just final result :/

''Shoot'' only when two white squares are in left of triangle. I want
to see ShapeX ''driving'' from first white square to another.

Code: [Select]unit Unit1;

{$mode objfpc}{$H+}

interface

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

type                                     
                                            
 mas = array [1..12] of array [1..12] of TShape;
 ma = array [1..12] of TShape;

  { TGame }

  TGame = class(TForm)
    Kubukai: TShape;
    ShapeX: TShape;
    <lots of shapes>
    Timer1: TTimer;
    Wall: TShape;
    Kaire: TShape;
    Desine: TShape;
    Apacia: TShape;
    Virsus: TShape;
    procedure FormCreate(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: char);
    procedure FormPaint(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);

  private

  public

  end;

var
  Game: TGame;
  i, j, x, y: integer;
  xx, yy: integer;
  kiek: integer;
  boo: boolean;
  A: mas;
  K: ma;
  number, tr, Des: integer;
  spalva: TColor;
  ToLeft, ToDown: boolean;
  Level: integer;

implementation

{ TGame }

procedure TGame.FormCreate(Sender: TObject);
begin
  Timer1.Enabled := false;
  tr := 5;
  Des := 0;
  Level := 1;
  kiek := 0;

  for i := 1 to 12 do
   K[i] := TShape(FindComponent('Kaire' + IntToStr(i)));

  for i := 1 to 12 do
   for j := 1 to 12 do
   A[i][j] := TShape(FindComponent('Shape' + IntToStr(i) + 't' +
IntToStr(j)));

  Randomize;
  kiek := 0;
  boo := true;
  for i := 1 to 12 do
   for j := 1 to 12 do
   begin
    if boo = true
     then
      begin
       if Level mod 2 <> 0
        then number := random(Level + 4)
        else number := random(Level + 3);
       if number = 0
        then boo := false
        else if (number = 1) or (number = 2)
              then begin kiek := kiek + 1; A[i][j].Brush.Color :=
clRed end
              else if (number = 3) or (number = 4)
                   then begin kiek := kiek + 1; A[i][j].Brush.Color :=
clLime end
                   else if (number = 5) or (number = 6)
                         then begin kiek := kiek + 1;
A[i][j].Brush.Color := clYellow end
                         else if (number = 7) or (number = 8)
                               then begin kiek := kiek + 1;
A[i][j].Brush.Color := clAqua end
                               else if (number = 9) or (number = 10)
                                     then begin kiek := kiek + 1;
A[i][j].Brush.Color := clBlue end
                                     else if (number = 11) or (number
= 12)
                                           then begin kiek := kiek +
1; A[i][j].Brush.Color := clFuchsia end
      end
     else if j = 12 then boo := true;
   end;

  for i := 1 to 12 do
   begin
    number := random ((Level + 3) div 2) + 1;
    if number = 1
     then K[i].Brush.Color := clRed
     else if number = 2
           then K[i].Brush.Color := clLime
           else if number = 3
                 then K[i].Brush.Color := clYellow
                 else if number = 4
                       then K[i].Brush.Color := clAqua
                       else if number = 5
                             then K[i].Brush.Color := clBlue
                             else if number = 6
                                   then K[i].Brush.Color := clFuchsia
   end;
  kiek := kiek + Level;
end;

procedure TGame.FormPaint(Sender: TObject);
begin
  Canvas.Pen.Color := clyellow;
  for i := 1 to 25 do
   Canvas.Line (355 - i, 305 - (tr * 25) + i div 2, 355 - i, 305 - (tr
* 25) + 25 - i div 2);
end;


procedure TGame.FormKeyPress(Sender: TObject; var Key: char);
begin
  case Key of
   'w': begin
         Canvas.Pen.Color := clblack;
         for i := 1 to 25 do
          Canvas.Line (355 - i, 305 - (tr * 25) + i div 2, 355 - i,
305 - (tr * 25) + 25 - i div 2);
          if tr = 12
           then tr := 1
           else tr := tr + 1;
         Canvas.Pen.Color := clyellow;
         for i := 1 to 25 do
          Canvas.Line (355 - i, 305 - (tr * 25) + i div 2, 355 - i,
305 - (tr * 25) + 25 - i div 2);
        end;
   's': begin
         Canvas.Pen.Color := clblack;
         for i := 1 to 25 do
          Canvas.Line (355 - i, 305 - (tr * 25) + i div 2, 355 - i,
305 - (tr * 25) + 25 - i div 2);
         if tr = 1
          then tr := 12
          else tr := tr - 1;
         Canvas.Pen.Color := clyellow;
         for i := 1 to 25 do
          Canvas.Line (355 - i, 305 - (tr * 25) + i div 2, 355 - i,
305 - (tr * 25) + 25 - i div 2);
        end;
   'a': begin
         x := 13;
         y := tr;
         boo := true;
         spalva := TShape(FindComponent('Kaire' +
IntToStr(tr))).Brush.Color;
         while boo <> false do
          begin
           if x = 13
            then begin
                  If TShape(FindComponent('Shape' + IntToStr(x - 1) +
't' + IntToStr(y))).Brush.Color = clWhite
                   then begin
                         x := x - 1;
                         ShapeX.Brush.Color := spalva;
                         ShapeX.Left := x * 25 + 5;
                         ShapeX.Top := 305 - (y * 25)
                        end
                   else If TShape(FindComponent('Shape' + IntToStr(x -
1) + 't' + IntToStr(y))).Brush.Color = spalva
                         then begin
                               x := x - 1;
                               ShapeX.Brush.Color := spalva;
                               ShapeX.Left := x * 25 + 5;
                               ShapeX.Top := 305 - (y * 25);
                               TShape(FindComponent('Shape' +
IntToStr(x) + 't' + IntToStr(y))).Brush.Color := clWhite;
                              end
                 end
            else if x <> 1
                  then If TShape(FindComponent('Shape' + IntToStr(x -
1) + 't' + IntToStr(y))).Brush.Color = clWhite
                        then begin
                              x := x - 1;
                              Timer1.Enabled := true;
                              boo := false;
                             end
   'd': begin
         TShape(FindComponent('Desine' + IntToStr(Des +
1))).Brush.Color := TShape(FindComponent('Kaire' +
IntToStr(tr))).Brush.Color;
         //Des := Des + 1;
         if Des = 12
          then begin
                ShowMessage ('Game Over :(');
                Halt;
               end;
         for i := tr to 11 do
          TShape(FindComponent('Kaire' + IntToStr(i))).Brush.Color :=
TShape(FindComponent('Kaire' + IntToStr(i + 1))).Brush.Color;
         number := random ((Level + 3) div 2) + 1;
         if number = 1
          then TShape(FindComponent('Kaire' +
IntToStr(12))).Brush.Color := clRed
          else if number = 2
                then TShape(FindComponent('Kaire' +
IntToStr(12))).Brush.Color := clLime
                else if number = 3
                      then TShape(FindComponent('Kaire' +
IntToStr(12))).Brush.Color := clYellow
                      else if number = 4
                            then TShape(FindComponent('Kaire' +
IntToStr(12))).Brush.Color := clAqua
                            else if number = 5
                                  then TShape(FindComponent('Kaire' +
IntToStr(12))).Brush.Color := clBlue
                                  else if number = 6
                                        then
TShape(FindComponent('Kaire' + IntToStr(12))).Brush.Color := clFuchsia

        end;
  end;
end;

procedure TGame.Timer1Timer(Sender: TObject);
begin
  repeat
   begin
    Application.ProcessMessages;
    ShapeX.Left := ShapeX.Left - 1;
   end;
  until ShapeX.Left = x * 25 + 5;
  Timer1.Enabled := false;
end;

initialization
  {$I unit1.lrs}

end.
Invalidate or Application.ProcessMessages. didn't helped. Maybe i
don't know how to use them :/

----------------------------------------------------------------------
eny · 2010-10-28 06:15

You should use the timer events to move the shape just one step.
For example, set the timer interval to 250 (4 movements per second).
And then your OnTimer event could look something like this:
Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i procedure
TGame.Timer1Timer(Sender: TObject);begin  ShapeX.Left := ShapeX.Left -
1;  if  ShapeX.Left = x * 25 + 5 then    Timer1.Enabled :=
false;end; Of course you still have to do the processing for all other
shapes.
And also this only shows the movement in 1 direction; but it gives you
a starting point for further experiments.

----------------------------------------------------------------------
gyts · 2010-10-31 09:48

Quote from: Leledumbo on October 28, 2010, 03:41:04 amQuoteDoes Sleep
works as same as Delay?Better AFAIK and IMHO.
Try for yourself:
Code: [Select]unit Unit1;

{$mode objfpc}{$H+}

interface

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

type                                           //aukstis 340
                                               //plotis 455
 mas = array [1..12] of array [1..12] of TShape;
 ma = array [1..12] of TShape;
 ar = array [1..6] of TColor;

  { TGame }

  TGame = class(TForm)
    Kubukai: TShape;
    ShapeX: TShape;
    Shape8t3: TShape;
    Shape8t4: TShape;
    Shape8t5: TShape;
    Shape8t6: TShape;
    Shape8t7: TShape;
    Shape8t8: TShape;
    Shape8t9: TShape;
    Shape8t10: TShape;
    Shape8t11: TShape;
    Shape8t12: TShape;
    Shape9t1: TShape;
    Shape9t2: TShape;
    Shape9t3: TShape;
    Shape9t4: TShape;
    Shape9t5: TShape;
    Shape9t6: TShape;
    Shape9t7: TShape;
    Shape9t8: TShape;
    Shape9t9: TShape;
    Shape9t10: TShape;
    Shape9t11: TShape;
    Shape9t12: TShape;
    Shape10t1: TShape;
    Shape10t2: TShape;
    Shape10t3: TShape;
    Shape10t4: TShape;
    Shape10t5: TShape;
    Shape10t6: TShape;
    Shape10t7: TShape;
    Shape10t8: TShape;
    Shape2t1: TShape;
    Shape10t9: TShape;
    Shape10t10: TShape;
    Shape10t11: TShape;
    Shape10t12: TShape;
    Shape11t1: TShape;
    Shape11t2: TShape;
    Shape11t3: TShape;
    Shape11t4: TShape;
    Shape11t5: TShape;
    Shape11t6: TShape;
    Shape2t2: TShape;
    Shape11t7: TShape;
    Shape11t8: TShape;
    Shape11t9: TShape;
    Shape11t10: TShape;
    Shape11t11: TShape;
    Shape11t12: TShape;
    Shape12t1: TShape;
    Shape12t2: TShape;
    Shape12t3: TShape;
    Shape12t4: TShape;
    Shape2t3: TShape;
    Shape12t5: TShape;
    Shape12t6: TShape;
    Shape12t7: TShape;
    Shape12t8: TShape;
    Shape12t9: TShape;
    Shape12t10: TShape;
    Shape12t11: TShape;
    Shape12t12: TShape;
    Desine2: TShape;
    Desine3: TShape;
    Shape2t4: TShape;
    Desine4: TShape;
    Desine5: TShape;
    Desine6: TShape;
    Desine7: TShape;
    Desine8: TShape;
    Desine9: TShape;
    Desine10: TShape;
    Desine11: TShape;
    Desine12: TShape;
    Shape2t5: TShape;
    Shape2t6: TShape;
    Shape2t7: TShape;
    Shape1t2: TShape;
    Shape2t8: TShape;
    Shape2t9: TShape;
    Shape2t10: TShape;
    Shape2t11: TShape;
    Shape2t12: TShape;
    Shape3t1: TShape;
    Shape3t2: TShape;
    Shape3t3: TShape;
    Shape3t4: TShape;
    Shape3t5: TShape;
    Shape3t6: TShape;
    Shape3t7: TShape;
    Shape3t8: TShape;
    Shape3t9: TShape;
    Shape3t10: TShape;
    Shape3t11: TShape;
    Shape3t12: TShape;
    Shape4t1: TShape;
    Shape4t2: TShape;
    Shape4t3: TShape;
    Shape4t4: TShape;
    Shape4t5: TShape;
    Shape4t6: TShape;
    Shape4t7: TShape;
    Shape4t8: TShape;
    Shape4t9: TShape;
    Shape4t10: TShape;
    Shape4t11: TShape;
    Shape4t12: TShape;
    Shape5t1: TShape;
    Shape5t2: TShape;
    Shape5t3: TShape;
    Shape5t4: TShape;
    Shape5t5: TShape;
    Shape5t6: TShape;
    Shape5t7: TShape;
    Shape5t8: TShape;
    Shape5t9: TShape;
    Shape5t10: TShape;
    Shape5t11: TShape;
    Shape5t12: TShape;
    Shape6t1: TShape;
    Shape6t2: TShape;
    Shape6t3: TShape;
    Shape6t4: TShape;
    Shape6t5: TShape;
    Shape6t6: TShape;
    Shape6t7: TShape;
    Shape6t8: TShape;
    Shape6t9: TShape;
    Shape6t10: TShape;
    Shape6t11: TShape;
    Shape6t12: TShape;
    Shape7t1: TShape;
    Shape7t2: TShape;
    Shape7t3: TShape;
    Shape7t4: TShape;
    Shape7t5: TShape;
    Shape7t6: TShape;
    Shape7t7: TShape;
    Shape7t8: TShape;
    Shape1t9: TShape;
    Shape1t10: TShape;
    Shape1t4: TShape;
    Shape1t11: TShape;
    Shape1t12: TShape;
    Shape1t7: TShape;
    Shape1t5: TShape;
    Shape1t1: TShape;
    Shape1t6: TShape;
    Shape1t8: TShape;
    Shape1t3: TShape;
    Desine1: TShape;
    Kaire4: TShape;
    Kaire2: TShape;
    Kaire3: TShape;
    Kaire11: TShape;
    Kaire10: TShape;
    Kaire9: TShape;
    Kaire8: TShape;
    Kaire7: TShape;
    Kaire6: TShape;
    Kaire5: TShape;
    Kaire12: TShape;
    Kaire1: TShape;
    Shape7t9: TShape;
    Shape7t10: TShape;
    Shape7t11: TShape;
    Shape7t12: TShape;
    Shape8t1: TShape;
    Shape8t2: TShape;
    Timer1: TTimer;
    Wall: TShape;
    Kaire: TShape;
    Desine: TShape;
    Apacia: TShape;
    Virsus: TShape;
    procedure ApaciaPaint(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: char);
    procedure FormPaint(Sender: TObject);

  private

  public

  end;

var
  Game: TGame;
  i, j, x, y: integer;
  xx, yy: integer;
  kiek: integer;
  boo: boolean;
  A: mas;
  K: ma;
  C: ar;
  number, tr, Des: integer;
  spalva: TColor;
  ToLeft, ToDown: boolean;
  Level: integer;
  varom: boolean;

implementation

{ TGame }

procedure TGame.FormCreate(Sender: TObject);
begin
  Game.DoubleBuffered := true;
  tr := 5;
  Des := 0;
  Level := 1;
  kiek := 0;

  for i := 1 to 12 do
   K[i] := TShape(FindComponent('Kaire' + IntToStr(i)));

  for i := 1 to 12 do
   for j := 1 to 12 do
   A[i][j] := TShape(FindComponent('Shape' + IntToStr(i) + 't' +
IntToStr(j)));

  Randomize;
  kiek := 0;
  boo := true;
  for i := 1 to 12 do
   for j := 1 to 12 do
   begin
    if boo = true
     then
      begin
       if Level mod 2 <> 0
        then number := random(Level + 4)
        else number := random(Level + 3);
       if number = 0
        then boo := false
        else if (number = 1) or (number = 2)
              then begin kiek := kiek + 1; A[i][j].Brush.Color :=
clRed end
              else if (number = 3) or (number = 4)
                   then begin kiek := kiek + 1; A[i][j].Brush.Color :=
clLime end
                   else if (number = 5) or (number = 6)
                         then begin kiek := kiek + 1;
A[i][j].Brush.Color := clYellow end
                         else if (number = 7) or (number = 8)
                               then begin kiek := kiek + 1;
A[i][j].Brush.Color := clAqua end
                               else if (number = 9) or (number = 10)
                                     then begin kiek := kiek + 1;
A[i][j].Brush.Color := clBlue end
                                     else if (number = 11) or (number
= 12)
                                           then begin kiek := kiek +
1; A[i][j].Brush.Color := clFuchsia end
      end
     else if j = 12 then boo := true;
   end;

  for i := 1 to 12 do
   begin
    number := random ((Level + 3) div 2) + 1;
    if number = 1
     then K[i].Brush.Color := clRed
     else if number = 2
           then K[i].Brush.Color := clLime
           else if number = 3
                 then K[i].Brush.Color := clYellow
                 else if number = 4
                       then K[i].Brush.Color := clAqua
                       else if number = 5
                             then K[i].Brush.Color := clBlue
                             else if number = 6
                                   then K[i].Brush.Color := clFuchsia
   end;
  kiek := kiek + Level;
end;

procedure TGame.ApaciaPaint(Sender: TObject);
begin
  Apacia.Canvas.Font.Name := 'Verdana';
  Apacia.Canvas.Font.Size := 20;
  Apacia.Canvas.Font.Style := [fsBold];
  Apacia.Canvas.Font.Color := clBlue;
  Apacia.Canvas.TextOut(33, 0, 'L');
  Apacia.Canvas.TextOut(57, 0, 'E');
  Apacia.Canvas.TextOut(82, 0, 'V');
  Apacia.Canvas.TextOut(107, 0, 'E');
  Apacia.Canvas.TextOut(132, 0, 'L');
  Apacia.Canvas.TextOut(161, 0, ':');
  if Level = 10
   then begin Apacia.Canvas.TextOut(182, 0, '1');
Apacia.Canvas.TextOut(208, 0, '0'); end
   else Apacia.Canvas.TextOut(182, 0, IntToStr(Level));

  if kiek > 99
   then begin
         Apacia.Canvas.TextOut(333, 0, IntToStr((kiek) div 100));
         Apacia.Canvas.TextOut(358, 0, IntToStr((kiek) mod 100 div
10));
         Apacia.Canvas.TextOut(383, 0, IntToStr((kiek) mod 10));
        end
   else if kiek > 9
         then begin
               Apacia.Canvas.TextOut(333, 0, IntToStr((kiek) div 10));
               Apacia.Canvas.TextOut(358, 0, IntToStr((kiek) mod 10));
              end
         else Apacia.Canvas.TextOut(333, 0, IntToStr(kiek));
end;

procedure TGame.FormPaint(Sender: TObject);
begin
  Canvas.Pen.Color := clyellow;
  for i := 1 to 25 do
   Canvas.Line (355 - i, 305 - (tr * 25) + i div 2, 355 - i, 305 - (tr
* 25) + 25 - i div 2);
end;

procedure TGame.FormKeyPress(Sender: TObject; var Key: char);
begin
  case Key of
   'w': begin
         Canvas.Pen.Color := clblack;
         for i := 1 to 25 do
          Canvas.Line (355 - i, 305 - (tr * 25) + i div 2, 355 - i,
305 - (tr * 25) + 25 - i div 2);
          if tr = 12
           then tr := 1
           else tr := tr + 1;
         Canvas.Pen.Color := clyellow;
         for i := 1 to 25 do
          Canvas.Line (355 - i, 305 - (tr * 25) + i div 2, 355 - i,
305 - (tr * 25) + 25 - i div 2);
        end;
   's': begin
         Canvas.Pen.Color := clblack;
         for i := 1 to 25 do
          Canvas.Line (355 - i, 305 - (tr * 25) + i div 2, 355 - i,
305 - (tr * 25) + 25 - i div 2);
         if tr = 1
          then tr := 12
          else tr := tr - 1;
         Canvas.Pen.Color := clyellow;
         for i := 1 to 25 do
          Canvas.Line (355 - i, 305 - (tr * 25) + i div 2, 355 - i,
305 - (tr * 25) + 25 - i div 2);
        end;
   'a': begin
         x := 13;
         y := tr;
         boo := true;
         ToLeft := false;
         ToDown := false;
         spalva := TShape(FindComponent('Kaire' +
IntToStr(tr))).Brush.Color;
         while boo <> false do
          begin
           if x = 13
            then begin
                  If TShape(FindComponent('Shape' + IntToStr(x - 1) +
't' + IntToStr(y))).Brush.Color = clWhite
                   then begin
                         x := x - 1;
                         ShapeX.Brush.Color := spalva;
                         ShapeX.Left := x * 25 + 5;
                         ShapeX.Top := 305 - (y * 25)
                        end
                   else If TShape(FindComponent('Shape' + IntToStr(x -
1) + 't' + IntToStr(y))).Brush.Color = spalva
                         then begin
                               x := x - 1;
                               ShapeX.Brush.Color := spalva;
                               ShapeX.Left := x * 25 + 5;
                               ShapeX.Top := 305 - (y * 25);
                               TShape(FindComponent('Shape' +
IntToStr(x) + 't' + IntToStr(y))).Brush.Color := clWhite;
                               ToLeft := true;
                              end
                         else boo := false;
                 end
            else if (x <> 1) and (ToDown <> true)
                  then If TShape(FindComponent('Shape' + IntToStr(x -
1) + 't' + IntToStr(y))).Brush.Color = clWhite
                        then begin
                              x := x - 1;
                              repeat
                               ShapeX.Left := ShapeX.Left - 1;
                               sleep(1);
                              until ShapeX.Left = x * 25 + 5;
                              if x = 9 then boo := false;
                             end
          end;
        end;
   'd': begin
         TShape(FindComponent('Desine' + IntToStr(Des +
1))).Brush.Color := TShape(FindComponent('Kaire' +
IntToStr(tr))).Brush.Color;
         Des := Des + 1;
         if Des = 12
          then begin
                ShowMessage ('Game Over :(');
                Halt;
               end;
         for i := tr to 11 do
          TShape(FindComponent('Kaire' + IntToStr(i))).Brush.Color :=
TShape(FindComponent('Kaire' + IntToStr(i + 1))).Brush.Color;
         number := random ((Level + 3) div 2) + 1;
         if number = 1
          then TShape(FindComponent('Kaire' +
IntToStr(12))).Brush.Color := clRed
          else if number = 2
                then TShape(FindComponent('Kaire' +
IntToStr(12))).Brush.Color := clLime
                else if number = 3
                      then TShape(FindComponent('Kaire' +
IntToStr(12))).Brush.Color := clYellow
                      else if number = 4
                            then TShape(FindComponent('Kaire' +
IntToStr(12))).Brush.Color := clAqua
                            else if number = 5
                                  then TShape(FindComponent('Kaire' +
IntToStr(12))).Brush.Color := clBlue
                                  else if number = 6
                                        then
TShape(FindComponent('Kaire' + IntToStr(12))).Brush.Color := clFuchsia

        end;
  end;
end;

initialization
  {$I unit1.lrs}

end.
http://img214.imageshack.us/img214/37/84571979.png ''Shoot'' (button
a) where are 4 white squares to the left. It lags a bit then ShapeX
appears in final square, but there's no 'driving' animation. What i'm
doing wrong? :/

----------------------------------------------------------------------
typo · 2010-10-31 13:48

Could you post your LFM file?

----------------------------------------------------------------------
gyts · 2010-10-31 17:52

Quote from: typo on October 31, 2010, 02:48:37 pmCould you post your
LFM file?

What LFM means?

----------------------------------------------------------------------
typo · 2010-10-31 18:03

It is the Form file.

Post it as text, something like:

Code: [Select]
object Form1: TForm1
  Left = 244
  Height = 240
  Top = 168
  Width = 320
  Caption = 'Form1'
  LCLVersion = '0.9.29'
end

----------------------------------------------------------------------
gyts · 2010-11-01 07:19

Code: [Select]object Game: TGame
  Left = 461
  Height = 340
  Top = 135
  Width = 455
  VertScrollBar.Visible = False
  BorderIcons = [biSystemMenu]
  BorderStyle = bsDialog
  Caption = 'Game'
  ClientHeight = 340
  ClientWidth = 455
  Color = clBlack
  OnCreate = FormCreate
  OnKeyPress = FormKeyPress
  OnPaint = FormPaint
  LCLVersion = '0.9.28.2'
  object Kaire: TShape
    Left = 0
    Height = 308
    Top = 0
    Width = 5
    Brush.Color = clYellow
    Pen.Color = clYellow
  end
  object Desine: TShape
    Left = 450
    Height = 308
    Top = 0
    Width = 5
    Brush.Color = clYellow
    Pen.Color = clYellow
  end
  object Apacia: TShape
    Left = 0
    Height = 35
    Top = 305
    Width = 455
    Brush.Color = clYellow
    Pen.Color = clYellow
    OnPaint = ApaciaPaint
  end
  object Virsus: TShape
    Left = 0
    Height = 5
    Top = 0
    Width = 455
    Brush.Color = clYellow
    Pen.Color = clYellow
  end
  object Wall: TShape
    Left = 392
    Height = 308
    Top = 0
    Width = 5
    Brush.Color = clYellow
    Pen.Color = clYellow
  end
  object Shape1t2: TShape
    Left = 30
    Height = 25
    Top = 255
    Width = 25
  end
  object Shape1t4: TShape
    Left = 30
    Height = 25
    Top = 205
    Width = 25
  end
  object Shape1t7: TShape
    Left = 30
    Height = 25
    Top = 130
    Width = 25
  end
  object Shape1t5: TShape
    Left = 30
    Height = 25
    Top = 180
    Width = 25
  end
  object Shape1t1: TShape
    Left = 30
    Height = 25
    Top = 280
    Width = 25
  end
  object Shape1t6: TShape
    Left = 30
    Height = 25
    Top = 155
    Width = 25
  end
  object Shape1t8: TShape
    Left = 30
    Height = 25
    Top = 105
    Width = 25
  end
  object Shape1t3: TShape
    Left = 30
    Height = 25
    Top = 230
    Width = 25
  end
  object Shape1t9: TShape
    Left = 30
    Height = 25
    Top = 80
    Width = 25
  end
  object Shape1t10: TShape
    Left = 30
    Height = 25
    Top = 55
    Width = 25
  end
  object Shape1t11: TShape
    Left = 30
    Height = 25
    Top = 30
    Width = 25
  end
  object Shape1t12: TShape
    Left = 30
    Height = 25
    Top = 5
    Width = 25
  end
  object Desine1: TShape
    Left = 410
    Height = 25
    Top = 280
    Width = 25
    Brush.Color = clBlack
  end
  object Kaire4: TShape
    Left = 355
    Height = 25
    Top = 205
    Width = 25
  end
  object Kaire2: TShape
    Left = 355
    Height = 25
    Top = 255
    Width = 25
  end
  object Kaire3: TShape
    Left = 355
    Height = 25
    Top = 230
    Width = 25
  end
  object Kaire11: TShape
    Left = 355
    Height = 25
    Top = 30
    Width = 25
  end
  object Kaire10: TShape
    Left = 355
    Height = 25
    Top = 55
    Width = 25
  end
  object Kaire9: TShape
    Left = 355
    Height = 25
    Top = 80
    Width = 25
  end
  object Kaire8: TShape
    Left = 355
    Height = 25
    Top = 105
    Width = 25
  end
  object Kaire7: TShape
    Left = 355
    Height = 25
    Top = 130
    Width = 25
  end
  object Kaire6: TShape
    Left = 355
    Height = 25
    Top = 155
    Width = 25
  end
  object Kaire5: TShape
    Left = 355
    Height = 25
    Top = 180
    Width = 25
  end
  object Kaire12: TShape
    Left = 355
    Height = 25
    Top = 5
    Width = 25
  end
  object Kaire1: TShape
    Left = 355
    Height = 25
    Top = 280
    Width = 25
  end
  object Shape2t1: TShape
    Left = 55
    Height = 25
    Top = 280
    Width = 25
  end
  object Shape2t2: TShape
    Left = 55
    Height = 25
    Top = 255
    Width = 25
  end
  object Shape2t3: TShape
    Left = 55
    Height = 25
    Top = 230
    Width = 25
  end
  object Shape2t4: TShape
    Left = 55
    Height = 25
    Top = 205
    Width = 25
  end
  object Shape2t5: TShape
    Left = 55
    Height = 25
    Top = 180
    Width = 25
  end
  object Shape2t6: TShape
    Left = 55
    Height = 25
    Top = 155
    Width = 25
  end
  object Shape2t7: TShape
    Left = 55
    Height = 25
    Top = 130
    Width = 25
  end
  object Shape2t8: TShape
    Left = 55
    Height = 25
    Top = 105
    Width = 25
  end
  object Shape2t9: TShape
    Left = 55
    Height = 25
    Top = 80
    Width = 25
  end
  object Shape2t10: TShape
    Left = 55
    Height = 25
    Top = 55
    Width = 25
  end
  object Shape2t11: TShape
    Left = 55
    Height = 25
    Top = 30
    Width = 25
  end
  object Shape2t12: TShape
    Left = 55
    Height = 25
    Top = 5
    Width = 25
  end
  object Shape3t1: TShape
    Left = 80
    Height = 25
    Top = 280
    Width = 25
  end
  object Shape3t2: TShape
    Left = 80
    Height = 25
    Top = 255
    Width = 25
  end
  object Shape3t3: TShape
    Left = 80
    Height = 25
    Top = 230
    Width = 25
  end
  object Shape3t4: TShape
    Left = 80
    Height = 25
    Top = 205
    Width = 25
  end
  object Shape3t5: TShape
    Left = 80
    Height = 25
    Top = 180
    Width = 25
  end
  object Shape3t6: TShape
    Left = 80
    Height = 25
    Top = 155
    Width = 25
  end
  object Shape3t7: TShape
    Left = 80
    Height = 25
    Top = 130
    Width = 25
  end
  object Shape3t8: TShape
    Left = 80
    Height = 25
    Top = 105
    Width = 25
  end
  object Shape3t9: TShape
    Left = 80
    Height = 25
    Top = 80
    Width = 25
  end
  object Shape3t10: TShape
    Left = 80
    Height = 25
    Top = 55
    Width = 25
  end
  object Shape3t11: TShape
    Left = 80
    Height = 25
    Top = 30
    Width = 25
  end
  object Shape3t12: TShape
    Left = 80
    Height = 25
    Top = 5
    Width = 25
  end
  object Shape4t1: TShape
    Left = 105
    Height = 25
    Top = 280
    Width = 25
  end
  object Shape4t2: TShape
    Left = 105
    Height = 25
    Top = 255
    Width = 25
  end
  object Shape4t3: TShape
    Left = 105
    Height = 25
    Top = 230
    Width = 25
  end
  object Shape4t4: TShape
    Left = 105
    Height = 25
    Top = 205
    Width = 25
  end
  object Shape4t5: TShape
    Left = 105
    Height = 25
    Top = 180
    Width = 25
  end
  object Shape4t6: TShape
    Left = 105
    Height = 25
    Top = 155
    Width = 25
  end
  object Shape4t7: TShape
    Left = 105
    Height = 25
    Top = 130
    Width = 25
  end
  object Shape4t8: TShape
    Left = 105
    Height = 25
    Top = 105
    Width = 25
  end
  object Shape4t9: TShape
    Left = 105
    Height = 25
    Top = 80
    Width = 25
  end
  object Shape4t10: TShape
    Left = 105
    Height = 25
    Top = 55
    Width = 25
  end
  object Shape4t11: TShape
    Left = 105
    Height = 25
    Top = 30
    Width = 25
  end
  object Shape4t12: TShape
    Left = 105
    Height = 25
    Top = 5
    Width = 25
  end
  object Shape5t1: TShape
    Left = 130
    Height = 25
    Top = 280
    Width = 25
  end
  object Shape5t2: TShape
    Left = 130
    Height = 25
    Top = 255
    Width = 25
  end
  object Shape5t3: TShape
    Left = 130
    Height = 25
    Top = 230
    Width = 25
  end
  object Shape5t4: TShape
    Left = 130
    Height = 25
    Top = 205
    Width = 25
  end
  object Shape5t5: TShape
    Left = 130
    Height = 25
    Top = 180
    Width = 25
  end
  object Shape5t6: TShape
    Left = 130
    Height = 25
    Top = 155
    Width = 25
  end
  object Shape5t7: TShape
    Left = 130
    Height = 25
    Top = 130
    Width = 25
  end
  object Shape5t8: TShape
    Left = 130
    Height = 25
    Top = 105
    Width = 25
  end
  object Shape5t9: TShape
    Left = 130
    Height = 25
    Top = 80
    Width = 25
  end
  object Shape5t10: TShape
    Left = 130
    Height = 25
    Top = 55
    Width = 25
  end
  object Shape5t11: TShape
    Left = 130
    Height = 25
    Top = 30
    Width = 25
  end
  object Shape5t12: TShape
    Left = 130
    Height = 25
    Top = 5
    Width = 25
  end
  object Shape6t1: TShape
    Left = 155
    Height = 25
    Top = 280
    Width = 25
  end
  object Shape6t2: TShape
    Left = 155
    Height = 25
    Top = 255
    Width = 25
  end
  object Shape6t3: TShape
    Left = 155
    Height = 25
    Top = 230
    Width = 25
  end
  object Shape6t4: TShape
    Left = 155
    Height = 25
    Top = 205
    Width = 25
  end
  object Shape6t5: TShape
    Left = 155
    Height = 25
    Top = 180
    Width = 25
  end
  object Shape6t6: TShape
    Left = 155
    Height = 25
    Top = 155
    Width = 25
  end
  object Shape6t7: TShape
    Left = 155
    Height = 25
    Top = 130
    Width = 25
  end
  object Shape6t8: TShape
    Left = 155
    Height = 25
    Top = 105
    Width = 25
  end
  object Shape6t9: TShape
    Left = 155
    Height = 25
    Top = 80
    Width = 25
  end
  object Shape6t10: TShape
    Left = 155
    Height = 25
    Top = 55
    Width = 25
  end
  object Shape6t11: TShape
    Left = 155
    Height = 25
    Top = 30
    Width = 25
  end
  object Shape6t12: TShape
    Left = 155
    Height = 25
    Top = 5
    Width = 25
  end
  object Shape7t1: TShape
    Left = 180
    Height = 25
    Top = 280
    Width = 25
  end
  object Shape7t2: TShape
    Left = 180
    Height = 25
    Top = 255
    Width = 25
  end
  object Shape7t3: TShape
    Left = 180
    Height = 25
    Top = 230
    Width = 25
  end
  object Shape7t4: TShape
    Left = 180
    Height = 25
    Top = 205
    Width = 25
  end
  object Shape7t5: TShape
    Left = 180
    Height = 25
    Top = 180
    Width = 25
  end
  object Shape7t6: TShape
    Left = 180
    Height = 25
    Top = 155
    Width = 25
  end
  object Shape7t7: TShape
    Left = 180
    Height = 25
    Top = 130
    Width = 25
  end
  object Shape7t8: TShape
    Left = 180
    Height = 25
    Top = 105
    Width = 25
  end
  object Shape7t9: TShape
    Left = 180
    Height = 25
    Top = 80
    Width = 25
  end
  object Shape7t10: TShape
    Left = 180
    Height = 25
    Top = 55
    Width = 25
  end
  object Shape7t11: TShape
    Left = 180
    Height = 25
    Top = 30
    Width = 25
  end
  object Shape7t12: TShape
    Left = 180
    Height = 25
    Top = 5
    Width = 25
  end
  object Shape8t1: TShape
    Left = 205
    Height = 25
    Top = 280
    Width = 25
  end
  object Shape8t2: TShape
    Left = 205
    Height = 25
    Top = 255
    Width = 25
  end
  object Shape8t3: TShape
    Left = 205
    Height = 25
    Top = 230
    Width = 25
  end
  object Shape8t4: TShape
    Left = 205
    Height = 25
    Top = 205
    Width = 25
  end
  object Shape8t5: TShape
    Left = 205
    Height = 25
    Top = 180
    Width = 25
  end
  object Shape8t6: TShape
    Left = 205
    Height = 25
    Top = 155
    Width = 25
  end
  object Shape8t7: TShape
    Left = 205
    Height = 25
    Top = 130
    Width = 25
  end
  object Shape8t8: TShape
    Left = 205
    Height = 25
    Top = 105
    Width = 25
  end
  object Shape8t9: TShape
    Left = 205
    Height = 25
    Top = 80
    Width = 25
  end
  object Shape8t10: TShape
    Left = 205
    Height = 25
    Top = 55
    Width = 25
  end
  object Shape8t11: TShape
    Left = 205
    Height = 25
    Top = 30
    Width = 25
  end
  object Shape8t12: TShape
    Left = 205
    Height = 25
    Top = 5
    Width = 25
  end
  object Shape9t1: TShape
    Left = 230
    Height = 25
    Top = 280
    Width = 25
  end
  object Shape9t2: TShape
    Left = 230
    Height = 25
    Top = 255
    Width = 25
  end
  object Shape9t3: TShape
    Left = 230
    Height = 25
    Top = 230
    Width = 25
  end
  object Shape9t4: TShape
    Left = 230
    Height = 25
    Top = 205
    Width = 25
  end
  object Shape9t5: TShape
    Left = 230
    Height = 25
    Top = 180
    Width = 25
  end
  object Shape9t6: TShape
    Left = 230
    Height = 25
    Top = 155
    Width = 25
  end
  object Shape9t7: TShape
    Left = 230
    Height = 25
    Top = 130
    Width = 25
  end
  object Shape9t8: TShape
    Left = 230
    Height = 25
    Top = 105
    Width = 25
  end
  object Shape9t9: TShape
    Left = 230
    Height = 25
    Top = 80
    Width = 25
  end
  object Shape9t10: TShape
    Left = 230
    Height = 25
    Top = 55
    Width = 25
  end
  object Shape9t11: TShape
    Left = 230
    Height = 25
    Top = 30
    Width = 25
  end
  object Shape9t12: TShape
    Left = 230
    Height = 25
    Top = 5
    Width = 25
  end
  object Shape10t1: TShape
    Left = 255
    Height = 25
    Top = 280
    Width = 25
  end
  object Shape10t2: TShape
    Left = 255
    Height = 25
    Top = 255
    Width = 25
  end
  object Shape10t3: TShape
    Left = 255
    Height = 25
    Top = 230
    Width = 25
  end
  object Shape10t4: TShape
    Left = 255
    Height = 25
    Top = 205
    Width = 25
  end
  object Shape10t5: TShape
    Left = 255
    Height = 25
    Top = 180
    Width = 25
  end
  object Shape10t6: TShape
    Left = 255
    Height = 25
    Top = 155
    Width = 25
  end
  object Shape10t7: TShape
    Left = 255
    Height = 25
    Top = 130
    Width = 25
  end
  object Shape10t8: TShape
    Left = 255
    Height = 25
    Top = 105
    Width = 25
  end
  object Shape10t9: TShape
    Left = 255
    Height = 25
    Top = 80
    Width = 25
  end
  object Shape10t10: TShape
    Left = 255
    Height = 25
    Top = 55
    Width = 25
  end
  object Shape10t11: TShape
    Left = 255
    Height = 25
    Top = 30
    Width = 25
  end
  object Shape10t12: TShape
    Left = 255
    Height = 25
    Top = 5
    Width = 25
  end
  object Shape11t1: TShape
    Left = 280
    Height = 25
    Top = 280
    Width = 25
  end
  object Shape11t2: TShape
    Left = 280
    Height = 25
    Top = 255
    Width = 25
  end
  object Shape11t3: TShape
    Left = 280
    Height = 25
    Top = 230
    Width = 25
  end
  object Shape11t4: TShape
    Left = 280
    Height = 25
    Top = 205
    Width = 25
  end
  object Shape11t5: TShape
    Left = 280
    Height = 25
    Top = 180
    Width = 25
  end
  object Shape11t6: TShape
    Left = 280
    Height = 25
    Top = 155
    Width = 25
  end
  object Shape11t7: TShape
    Left = 280
    Height = 25
    Top = 130
    Width = 25
  end
  object Shape11t8: TShape
    Left = 280
    Height = 25
    Top = 105
    Width = 25
  end
  object Shape11t9: TShape
    Left = 280
    Height = 25
    Top = 80
    Width = 25
  end
  object Shape11t10: TShape
    Left = 280
    Height = 25
    Top = 55
    Width = 25
  end
  object Shape11t11: TShape
    Left = 280
    Height = 25
    Top = 30
    Width = 25
  end
  object Shape11t12: TShape
    Left = 280
    Height = 25
    Top = 5
    Width = 25
  end
  object Shape12t1: TShape
    Left = 305
    Height = 25
    Top = 280
    Width = 25
  end
  object Shape12t2: TShape
    Left = 305
    Height = 25
    Top = 255
    Width = 25
  end
  object Shape12t3: TShape
    Left = 305
    Height = 25
    Top = 230
    Width = 25
  end
  object Shape12t4: TShape
    Left = 305
    Height = 25
    Top = 205
    Width = 25
  end
  object Shape12t5: TShape
    Left = 305
    Height = 25
    Top = 180
    Width = 25
  end
  object Shape12t6: TShape
    Left = 305
    Height = 25
    Top = 155
    Width = 25
  end
  object Shape12t7: TShape
    Left = 305
    Height = 25
    Top = 130
    Width = 25
  end
  object Shape12t8: TShape
    Left = 305
    Height = 25
    Top = 105
    Width = 25
  end
  object Shape12t9: TShape
    Left = 305
    Height = 25
    Top = 80
    Width = 25
  end
  object Shape12t10: TShape
    Left = 305
    Height = 25
    Top = 55
    Width = 25
  end
  object Shape12t11: TShape
    Left = 305
    Height = 25
    Top = 30
    Width = 25
  end
  object Shape12t12: TShape
    Left = 305
    Height = 25
    Top = 5
    Width = 25
  end
  object Desine2: TShape
    Left = 410
    Height = 25
    Top = 255
    Width = 25
    Brush.Color = clBlack
  end
  object Desine3: TShape
    Left = 410
    Height = 25
    Top = 230
    Width = 25
    Brush.Color = clBlack
  end
  object Desine4: TShape
    Left = 410
    Height = 25
    Top = 205
    Width = 25
    Brush.Color = clBlack
  end
  object Desine5: TShape
    Left = 410
    Height = 25
    Top = 180
    Width = 25
    Brush.Color = clBlack
  end
  object Desine6: TShape
    Left = 410
    Height = 25
    Top = 155
    Width = 25
    Brush.Color = clBlack
  end
  object Desine7: TShape
    Left = 410
    Height = 25
    Top = 130
    Width = 25
    Brush.Color = clBlack
  end
  object Desine8: TShape
    Left = 410
    Height = 25
    Top = 105
    Width = 25
    Brush.Color = clBlack
  end
  object Desine9: TShape
    Left = 410
    Height = 25
    Top = 80
    Width = 25
    Brush.Color = clBlack
  end
  object Desine10: TShape
    Left = 410
    Height = 25
    Top = 55
    Width = 25
    Brush.Color = clBlack
  end
  object Desine11: TShape
    Left = 410
    Height = 25
    Top = 30
    Width = 25
    Brush.Color = clBlack
  end
  object Desine12: TShape
    Left = 410
    Height = 25
    Top = 5
    Width = 25
    Brush.Color = clBlack
  end
  object Kubukai: TShape
    Left = 280
    Height = 25
    Top = 310
    Width = 25
    Brush.Color = clGray
  end
  object ShapeX: TShape
    Left = 5
    Height = 25
    Top = 130
    Width = 25
  end
  object Timer1: TTimer
    left = 16
    top = 43
  end
end

----------------------------------------------------------------------
typo · 2010-11-01 08:04

I can't run your project. It compiles, but does not run.

----------------------------------------------------------------------
gyts · 2010-11-01 08:23

I DK. I copied what I've got. Is the problem in my code?

----------------------------------------------------------------------
typo · 2010-11-01 08:46

QuoteIs the problem in my code?
I don't know.

----------------------------------------------------------------------
gyts · 2010-11-01 13:09

Why my timer start ticking when while loop ends? Timer is enabled
within the while loop.

----------------------------------------------------------------------
gyts · 2010-11-01 14:15

What i want:
Shapex is in starting position. Loop starts. Shapex is moved to right.
Ifs checkes where to move shapex (left or down). Timer starts ticking.
In each tick shapex should move one step until it walked 25 steps,
timer stops. It should repeat until shapex reaches final destination,
then loop is stoped, shapex is moved to it's starting location.

What i see:
Shapex is in starting position. Loop starts. Shapex is moved to right.
Shapex reaches final destination, then loop is stoped, shapex is moved
to it's starting location. Timer starts, shapex starts moving to left
or down in timer's interval.
No matter what interval i set, shapex moves from place where it is
sent when loop starts to final destination in no time. The only way
shapex is moving is through timer, but it looks like loop is ignoring
timer. O.o

----------------------------------------------------------------------
gyts · 2010-11-15 05:03

How to use recursion in Lazarus procedures? How to change shape's
color when mouse is over it?

----------------------------------------------------------------------
Leledumbo · 2010-11-15 10:23

QuoteHow to use recursion in Lazarus procedures?Code:
[Select]procedure P(Arg: ...);
begin
  ...
  P(AnotherArg);
  ...
end;QuoteHow to change shape's color when mouse is over it?Code:
[Select]procedure TMyShape.OnMouseOver(Sender: TObject);
begin
  Self.Color := clBlue; // change to your needs
end;

----------------------------------------------------------------------
Martin_fr · 2010-11-15 10:54

Quote from: gyts on November 01, 2010, 02:09:43 pmWhy my timer start
ticking when while loop ends? Timer is enabled within the while loop.

It starts when you set it to enabled...
but let me take a guess, your code looks something like this:
Code: [Select]procedure Form1.ButtonClick();
begin
  while(SomeCondition = True) do begin
    DoSomething;
    if OtherCondition then Timer.enabled := true;
    KeepDoingSomething;
  end;
end;

Lets say your timer should trigger after 1 second, but your loop
continues to run for 10 seconds.

Your timer does trigger an event after one second (while your loop
still runs).

Now here is the thing:
Events are processed serialized. So the OnTimer Event is queued, and
waits for it's execution until you return from the current event
(procedure ButtonClick or whatever it is)

you can insert
  Application.ProcessMessages ;
in your loop. It allows queued events to execute, while your loop
still runs. You need to call it often enough so the event doesn't have
to wait until it is called.

Keep in mind that while your in your loop no other event (painting,
moving window with the mouse, .. ) are processed, unless you call
Application.ProcessMessages.

But keep also in mind, that ButtonClick may be called in
Application.ProcessMessages. So it may be called wile already running.

The other option is thread, or unwind the lopp, and process it in
small parts, in OnIdle.

----------------------------------------------------------------------
gyts · 2010-11-15 11:18

Thanks, Martin_fr, for explanation. But unfortunately I've already
changed the code: Loop is calculating ShapeX's route. Timer starts,
when loop ends. But I've faced with another problem:
Code: [Select]procedure TGame.Timer1Timer(Sender: TObject);
begin
  i := i + 1;
  case Route[i] of
   'l': ShapeX.Left := ShapeX.Left - 5;
   'd': ShapeX.Top := ShapeX.Top + 5;
   '*': Timer1.Enabled := false;
  end;
end;ShapeX is always going to left. Even if i make steps smaller Code:
[Select](ShapeX.Left - 1) and skip few steps Code: [Select](i := i +
5).

----------------------------------------------------------------------
gyts · 2010-11-16 16:33

What's IdleTimer's diference from Timer?

----------------------------------------------------------------------
gyts · 2010-11-18 14:29

I made recursion procedure:
Code: [Select]procedure visi (Sender: TObject; i, j: integer; var B:
ma);
begin
  if (TShape(FindComponent('S' + IntToStr(i + 1) + 't' +
IntToStr(j))).Brush.Color = spalva) and (i <> 15) and (virsus <> true)
   then begin visi (i + 1, j, B); apacia := true end;
   else if (TShape(FindComponent('S' + IntToStr(i) + 't' + IntToStr(j
+ 1))).Brush.Color = spalva) and (j <> 10) and (desine <> true)
   then begin visi (i, j + 1, B); kaire := true end;
   else if (TShape(FindComponent('S' + IntToStr(i - 1) + 't' +
IntToStr(j))).Brush.Color = spalva) and (i <> 1) and (apacia <> true)
   then begin visi (i - 1, j, B); virsus := true end;
   else if (TShape(FindComponent('S' + IntToStr(i) + 't' + IntToStr(j
- 1))).Brush.Color = spalva) and (j <> 1) and (kaire <> true)
   then begin visi (i, j - 1, B); desine := true end;
   else B[i][j] := true;

end;
How to solve this problem: Error: Identifier not found "FindComponent"

----------------------------------------------------------------------
typo · 2010-11-18 14:38

Add Classes to your uses clause.

----------------------------------------------------------------------
gyts · 2010-11-18 15:26

Quote from: typo on November 18, 2010, 03:38:51 pmAdd Classes to your
uses clause.

Could you give more of explanation and some examples?

----------------------------------------------------------------------
typo · 2010-11-18 15:31

This is the standard uses section. Probably your uses does not have
"Classes" on it.

Code: [Select]unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs;

----------------------------------------------------------------------
gyts · 2010-11-18 15:33

No, It does have.

----------------------------------------------------------------------
gyts · 2010-11-18 15:35

FindComponent doesn't work just in "visi" procedure.

----------------------------------------------------------------------
Leledumbo · 2010-11-19 00:35

QuoteFindComponent doesn't work just in "visi" procedureOf course,
your visi procedure is a normal procedure, not a method belong to any
class. As you can see here, FindComponent belongs to TComponent class.
So your visi procedure should be declared inside a component like
TForm or anything else.

----------------------------------------------------------------------
gyts · 2010-11-19 10:54

It should be writen under type near other procedures?
It is, but it still drops Error.

----------------------------------------------------------------------
typo · 2010-11-19 11:05

Have a look at the other methods of your unit and make your method to
be like the others:

Code: [Select]procedure TClassName.Method(Parameter
:TParameterClassName);

----------------------------------------------------------------------
gyts · 2010-11-19 11:27

When I'm on any shape after a while it drops an error and assebler
with "00403F7F 880a mov %cl, (%edx)" line. What could be wrong.

----------------------------------------------------------------------
typo · 2010-11-19 11:29

What is on the Messages window?

----------------------------------------------------------------------
gyts · 2010-11-19 11:33

Nothing. It drops Error window "Project ProjectBlokd.exe raised
exception class 'External: SIGSEGV'.". When pressed Ok, It drops
assembler.

----------------------------------------------------------------------
typo · 2010-11-19 11:45

What a mess!

----------------------------------------------------------------------
Leledumbo · 2010-11-19 11:59

Compile the program with debugging information, and get a backtrace.
Take a look where it happened.

----------------------------------------------------------------------
gyts · 2010-11-19 12:44

How to do that?

----------------------------------------------------------------------
eny · 2010-11-19 13:13

Are we going for the longest thread ever 
Or maybe we're creating a subforum in the forum with this thread...

----------------------------------------------------------------------
gyts · 2010-11-19 13:28

http://img140.imageshack.us/img140/4047/54654574.png

When mouse is on any shape i want to found whole stack of shapes of
same color. When i click that stack, it should become black.

Code: [Select]mas = array [1..15] of array [1..10] of TColor;
ma = array [1..15] of array [1..10] of boolean;

A: mas;
B: ma;
i, j: integer;
p: integer;
spalva: TColor;
virsus, apacia, kaire, desine: boolean;

procedure TForm1.S15t1MouseDown(Sender: TObject; Button:
TMouseButton);
begin
  for i := 1 to 15 do
   for j := 1 to 10 do
    If B[i][j] = true
     then TShape(FindComponent('S' + IntToStr(i) + 't' +
IntToStr(j))).Brush.Color := clRed; A[i][j] := clBlack
end;

procedure TForm1.visi(i, j: integer; var B: ma);
begin
   if i <> 15
   then if (TShape(FindComponent('S' + IntToStr(i + 1) + 't' +
IntToStr(j))).Brush.Color = spalva) and (virsus <> true)
   then begin
         virsus := false;
         desine := false;
         kaire := false;
         apacia := false;
         visi (i + 1, j, B);
         apacia := true;
        end
   else if j <> 10
   then if (TShape(FindComponent('S' + IntToStr(i) + 't' + IntToStr(j
+ 1))).Brush.Color = spalva) and (desine <> true)
   then begin
         virsus := false;
         desine := false;
         kaire := false;
         apacia := false;
         visi (i, j + 1, B);
         kaire := true;
        end
   else if i <> 1
   then if (TShape(FindComponent('S' + IntToStr(i - 1) + 't' +
IntToStr(j))).Brush.Color = spalva) and (apacia <> true)
   then begin
         virsus := false;
         desine := false;
         kaire := false;
         apacia := false;
         visi (i - 1, j, B);
         virsus := true;
        end
   else if j <> 1
   then if (TShape(FindComponent('S' + IntToStr(i) + 't' + IntToStr(j
- 1))).Brush.Color = spalva) and (j <> 1) and (kaire <> true)
   then begin
         virsus := false;
         desine := false;
         kaire := false;
         apacia := false;
         visi (i, j - 1, B);
         desine := true;
        end
   else B[i][j] := true;
end;

procedure TForm1.S15t1MouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
  var s: TPoint;
begin
  for i := 1 to 15 do
   for j := 1 to 10 do
    B[i][j] := false;
  s := Mouse.CursorPos;
  i := (300 - (S.Y - Form1.Top - 28)) div 20 + 1;
  j := (S.X - Form1.Left - 3) div 20 + 1;
  spalva := TShape(FindComponent('S' + IntToStr((300 - (S.Y -
Form1.Top - 28)) div 20 + 1) + 't' + IntToStr((S.X - Form1.Left - 3)
div 20 + 1))).Brush.Color;
  visi (i, j, B);
end;
Quote from: eny on November 19, 2010, 02:13:20 pmAre we going for the
longest thread ever 
Or maybe we're creating a subforum in the forum with this thread...

Stop laughing from me  

I'm asking all in one thread so that there won't be lots of threads.

----------------------------------------------------------------------
ivan17 · 2010-11-19 14:07

Quote from: gyts on November 19, 2010, 02:28:26 pmStop laughing from
me  
I'm asking all in one thread so that there won't be lots of threads.
i'll translate what he meant...

you still didn't figure out the most important thing. it's nice that
you're learning while making a game with colored squares or whatever
but you were supposed to solve half of those problems by poking at it
on your own, and half by finding tips and samples on the net and you
were supposed to enjoy it.

----------------------------------------------------------------------
Leledumbo · 2010-11-19 14:14

QuoteHow to do that?Look for -g in compiler options dialog. Open
View->Debug Windows->Call stack and run your program from within the
IDE (F9). Make the exception occurs, you'll see in the call stack
window in which procedure the exception happens. You can also see the
full debug output in the Open View->Debug Windows->Debug Output
window.

----------------------------------------------------------------------
gyts · 2010-12-10 18:33

In this: Code: [Select]procedure TForm1.S15t1MouseMove(Sender:
TObject; Shift: TShiftState; X, Y: Integer);
what does thisCode: [Select]Shift: TShiftState;?

----------------------------------------------------------------------
typo · 2010-12-10 18:39

Quotewhat does this
Code:

Shift: TShiftState;

?

This gives you the shift state of the keyboard (Shift, Ctrl, Alt
keys).

----------------------------------------------------------------------
gyts · 2010-12-10 19:48

Is it posible to get more than these colors:
Code: [Select]clBlack   = TColor($000000);
  clMaroon  = TColor($000080);
  clGreen   = TColor($008000);
  clOlive   = TColor($008080);
  clNavy    = TColor($800000);
  clPurple  = TColor($800080);
  clTeal    = TColor($808000);
  clGray    = TColor($808080);
  clSilver  = TColor($C0C0C0);
  clRed     = TColor($0000FF);
  clLime    = TColor($00FF00);
  clYellow  = TColor($00FFFF);
  clBlue    = TColor($FF0000);
  clFuchsia = TColor($FF00FF);
  clAqua    = TColor($FFFF00);
  clLtGray  = TColor($C0C0C0); // clSilver alias
  clDkGray  = TColor($808080); // clGray alias
  clWhite   = TColor($FFFFFF);
  StandardColorsCount = 16;

  // extended colors
  clMoneyGreen = TColor($C0DCC0);
  clSkyBlue    = TColor($F0CAA6);
  clCream      = TColor($F0FBFF);
  clMedGray    = TColor($A4A0A0);
  ExtendedColorCount = 4;

  // special colors
  clNone    = TColor($1FFFFFFF);
  clDefault = TColor($20000000);

  // system colors
  clScrollBar               = TColor(SYS_COLOR_BASE or
COLOR_SCROLLBAR);
  clBackground              = TColor(SYS_COLOR_BASE or
COLOR_BACKGROUND);
  clActiveCaption           = TColor(SYS_COLOR_BASE or
COLOR_ACTIVECAPTION);
  clInactiveCaption         = TColor(SYS_COLOR_BASE or
COLOR_INACTIVECAPTION);
  clMenu                    = TColor(SYS_COLOR_BASE or COLOR_MENU);
  clWindow                  = TColor(SYS_COLOR_BASE or COLOR_WINDOW);
  clWindowFrame             = TColor(SYS_COLOR_BASE or
COLOR_WINDOWFRAME);
  clMenuText                = TColor(SYS_COLOR_BASE or
COLOR_MENUTEXT);
  clWindowText              = TColor(SYS_COLOR_BASE or
COLOR_WINDOWTEXT);
  clCaptionText             = TColor(SYS_COLOR_BASE or
COLOR_CAPTIONTEXT);
  clActiveBorder            = TColor(SYS_COLOR_BASE or
COLOR_ACTIVEBORDER);
  clInactiveBorder          = TColor(SYS_COLOR_BASE or
COLOR_INACTIVEBORDER);
  clAppWorkspace            = TColor(SYS_COLOR_BASE or
COLOR_APPWORKSPACE);
  clHighlight               = TColor(SYS_COLOR_BASE or
COLOR_HIGHLIGHT);
  clHighlightText           = TColor(SYS_COLOR_BASE or
COLOR_HIGHLIGHTTEXT);
  clBtnFace                 = TColor(SYS_COLOR_BASE or COLOR_BTNFACE);
  clBtnShadow               = TColor(SYS_COLOR_BASE or
COLOR_BTNSHADOW);
  clGrayText                = TColor(SYS_COLOR_BASE or
COLOR_GRAYTEXT);
  clBtnText                 = TColor(SYS_COLOR_BASE or COLOR_BTNTEXT);
  clInactiveCaptionText     = TColor(SYS_COLOR_BASE or
COLOR_INACTIVECAPTIONTEXT);
  clBtnHighlight            = TColor(SYS_COLOR_BASE or
COLOR_BTNHIGHLIGHT);
  cl3DDkShadow              = TColor(SYS_COLOR_BASE or
COLOR_3DDKSHADOW);
  cl3DLight                 = TColor(SYS_COLOR_BASE or COLOR_3DLIGHT);
  clInfoText                = TColor(SYS_COLOR_BASE or
COLOR_INFOTEXT);
  clInfoBk                  = TColor(SYS_COLOR_BASE or COLOR_INFOBK);

  clHotLight                = TColor(SYS_COLOR_BASE or
COLOR_HOTLIGHT);
  clGradientActiveCaption   = TColor(SYS_COLOR_BASE or
COLOR_GRADIENTACTIVECAPTION);
  clGradientInactiveCaption = TColor(SYS_COLOR_BASE or
COLOR_GRADIENTINACTIVECAPTION);
  clMenuHighlight           = TColor(SYS_COLOR_BASE or
COLOR_MENUHILIGHT);
  clMenuBar                 = TColor(SYS_COLOR_BASE or COLOR_MENUBAR);
  clForm                    = TColor(SYS_COLOR_BASE or COLOR_FORM);

  // synonims: dont show them in color lists
  clColorDesktop            = TColor(SYS_COLOR_BASE or COLOR_DESKTOP);
  cl3DFace                  = TColor(SYS_COLOR_BASE or COLOR_3DFACE);
  cl3DShadow                = TColor(SYS_COLOR_BASE or
COLOR_3DSHADOW);
  cl3DHiLight               = TColor(SYS_COLOR_BASE or
COLOR_3DHIGHLIGHT);
  clBtnHiLight              = TColor(SYS_COLOR_BASE or
COLOR_BTNHILIGHT);

  clFirstSpecialColor = clBtnHiLight;

  clMask = clWhite;
  clDontMask = clBlack;?

----------------------------------------------------------------------
typo · 2010-12-10 19:50

You could set something like this:

Code: [Select]Color := $848484F;

----------------------------------------------------------------------
gyts · 2010-12-10 20:15

Where to get all Lazarus colors?

These:
http://en.wikipedia.org/wiki/List_of_colors
don't work in Lazarus.

----------------------------------------------------------------------
typo · 2010-12-10 20:18

You need to use "$" as first character to Hex (six digits of any
combination of 0-9/A-F).

----------------------------------------------------------------------
gyts · 2010-12-10 21:45

Quote from: typo on December 10, 2010, 09:18:41 pmYou need to use "$"
as first character to Hex (six digits of any combination of 0-9/A-F).

Ok. I choose Unmellow Yellow #FFFF66. I write $FFFF66, but instead of
yellow i get light blue.

----------------------------------------------------------------------
typo · 2010-12-10 21:50

Well, the error should be of the article.

----------------------------------------------------------------------
fabienwang · 2010-12-10 21:52

color codes in TColor invert the Red and Blue channel
so you have to convert from RGB to BGR

for your Unmellow Yellow, try $66FFFF

----------------------------------------------------------------------
gyts · 2010-12-12 11:37

How to upload a picture as an object to Lazarus?
Modify: ...and add sounds?

----------------------------------------------------------------------
typo · 2010-12-12 11:40

Do you mean load a picture at run time?

----------------------------------------------------------------------
gyts · 2010-12-12 11:45

Pictures when form created. Sounds, when buttons are pressed.

----------------------------------------------------------------------
typo · 2010-12-12 11:47

Pictures through the Object Inspector. I could not say anything about
sounds, but I have found this article: http://wiki.lazarus.freepascal.
org/Multimedia_Programming#Playing_Sounds

----------------------------------------------------------------------
gyts · 2010-12-12 12:31

Can you give more information? How to assign file to variable? How to
use that variable at TImage?

----------------------------------------------------------------------
typo · 2010-12-12 12:56

To load a file to an image you should do:

Code: [Select]Image1.Picture.LoadFromFile(FileName);

----------------------------------------------------------------------
Sora-Kun · 2010-12-12 13:56

i know a method but try it only on text files
 which is :

Code: [Select]assign(variable_name, path) // link the logic name of
the file with the physic name
reset(variable_name) // set the pointer at the position 0
give it a try
hope this help you
LinkOS

----------------------------------------------------------------------
gyts · 2010-12-14 17:40

Any new project saved as .exe takes out/occupies 11.7MB of free space.
How to reduce it?

----------------------------------------------------------------------
typo · 2010-12-14 18:06

Unmark "Show line numbers..." at Project Options > Linking.

You can save it for next projects on the same dialog.

----------------------------------------------------------------------
gyts · 2010-12-14 19:26

Which object is the best for showing text?
How to use it?

----------------------------------------------------------------------
typo · 2010-12-14 19:31

TMemo or TSynEdit. Drop them on the form and set the properties on
Object Inspector.

----------------------------------------------------------------------
gyts · 2010-12-15 14:52

Code: [Select]for i := 1 to 3 do
          for j := 1 to 3 do
           begin
            A[i][j] := TShape.Create(Self);
            with A[i][j] do
             begin
              Parent := Self;
              Shape  := stRoundSquare;
              Tag    := 0;
              Left   := (i - 1) * 40;
              Width  := 40;
              Top    := (j - 1) * 40;
              Height := 40;
              >>>>>OnMouseMove := XMouseMove;<<<<<
             end;

procedure TForm1.XMouseMove(Sender: TObject; Shift: TShiftState; X, Y:
Integer);
 var S: TPoint;
begin
  s := Mouse.CursorPos;
  xx := (Form1.Width - (S.Y - Form1.Top - 28)) div 40 + 1;
  yy := (S.X - Form1.Left - 3) div 40 + 1;
  ShowMessage (IntToStr(xx) + ' ' + IntToStr(yy));
end;
I have my shapes self-created. What I need to write instead of >><<
that my MouseMove procedure react to self-created shapes?

----------------------------------------------------------------------
typo · 2010-12-15 16:30

Code: [Select]OnMouseMove := @XMouseMove;

----------------------------------------------------------------------
gyts · 2010-12-16 16:53

How to add to Button's Caption picture?
http://img213.imageshack.us/img213/6724/43332898.png

----------------------------------------------------------------------
typo · 2010-12-16 17:14

Use a TSpeedButton.

----------------------------------------------------------------------
gyts · 2010-12-17 20:26

Quote from: Linkos on December 12, 2010, 02:56:05 pmi know a method
but try it only on text files
 which is :

Code: [Select]assign(variable_name, path) // link the logic name of
the file with the physic name
reset(variable_name) // set the pointer at the position 0
give it a try
hope this help you
LinkOS

Code: [Select]procedure TForm1.FormCreate(Sender: TObject);
begin
  assign (d, 'zodziai.txt');
  reset (d);

  close (d);
end;
Where could be error?
http://img258.imageshack.us/img258/3658/61305509.png

----------------------------------------------------------------------
typo · 2010-12-17 20:32

Try to use StringList or FileStream to this.

Code: [Select]var
  sl :TStringList;
begin
  sl := TStringList.Create;
  try
    sl.LoadFromFile('zodziai.txt');
    sl.Add('abc');
    sl.SaveToFile('zodziai.txt');
  finally
    sl.Free;
  end;
end;

----------------------------------------------------------------------
gyts · 2010-12-22 20:40

How to make a variable that could stay the same even if I have
restarted the program?

----------------------------------------------------------------------
Imants · 2010-12-22 20:43

Quote from: gyts on December 22, 2010, 09:40:04 pmHow to make a
variable that could stay the same even if I have restarted the
program?

I think the only option is to save them somewhere on hard drive

----------------------------------------------------------------------
captian jaster · 2010-12-22 21:24

Quote from: Imants on December 22, 2010, 09:43:46 pmQuote from: gyts
on December 22, 2010, 09:40:04 pmHow to make a variable that could
stay the same even if I have restarted the program?

I think the only option is to save them somewhere on hard drive
Pretty much this.
Unless you keep the program running in the background(Daemon
application)..
Or use a TFilestream and or TStringList to save data then get it
back...

----------------------------------------------------------------------
gyts · 2010-12-26 12:53

How to use arrow keys or Enter in Lazarus?

----------------------------------------------------------------------
typo · 2010-12-26 12:57

Code: [Select]// KeyPreview on
// uses Windows or LCLType
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift:
TShiftState);
begin
  case Key of
    VK_RETURN: ShowMessage('enter');
    VK_UP    : ShowMessage('up');
    VK_DOWN  : ShowMessage('down');
    VK_LEFT  : ShowMessage('left');
    VK_RIGHT : ShowMessage('right');
  end;
end;

----------------------------------------------------------------------
Bart · 2010-12-26 13:26

Quote from: typo on December 26, 2010, 01:57:41 pmCode: [Select]//
KeyPreview on
// uses Windows

No need for Windows unit, just LCLType (for VK_* constants).

Bart

----------------------------------------------------------------------
gyts · 2010-12-31 17:51

Quote from: typo on December 17, 2010, 09:32:59 pmTry to use
StringList or FileStream to this.

Code: [Select]var
  sl :TStringList;
begin
  sl := TStringList.Create;
  try
    sl.LoadFromFile('zodziai.txt');
    sl.Add('abc');
    sl.SaveToFile('zodziai.txt');
  finally
    sl.Free;
  end;
end; 

Code: [Select]Level: integer;
sl: TStringList;


sl := TStringList.Create;
sl.LoadFromFile('Level.txt');
Level := StrToInt(sl[5]);
sl.Free;How to assign text from file to string variable?

----------------------------------------------------------------------
typo · 2010-12-31 17:59

Code: [Select]var
  Level: integer;
  sl: TStringList;
  s :string;
begin
  sl := TStringList.Create;
  sl.LoadFromFile('Level.txt');
  Level := StrToInt(sl[5]);

  s := sl.Text;

  sl.Free;
end;

----------------------------------------------------------------------
User137 · 2010-12-31 18:41

TIniFile is in my opinion best way to store different kinds of data
easily.

Code: [Select]uses inifiles;
var ini: TIniFile;
begin
  ini:=TIniFile.Create('settings.ini');
  ini.WriteInteger('General','FormX',Left);
  ini.WriteInteger('General','FormY',Top);
  Left:=ini.ReadInteger('General','FormX',Left);
  Top:=ini.ReadInteger('General','FormY',Top);
  ini.Free;
end;

----------------------------------------------------------------------
gyts · 2011-01-02 16:16

How to load a few small f.e. 25x25 pictures to one f.e. 500x500
Timage?
How to change pictures' position in Timage?

----------------------------------------------------------------------
User137 · 2011-01-02 18:30

Quote from: gyts on January 02, 2011, 05:16:44 pmHow to load a few
small f.e. 25x25 pictures to one f.e. 500x500 Timage?
How to change pictures' position in Timage?TImage itself uses some
underlying picture object to store the image. By default i think its
TBitmap from which canvas you can access with:
image1.picture.bitmap.canvas
Note that actual size of TImage graphics is
image1.picture.bitmap.Width (and .Height)

canvas has draw commands like Draw, Copyrect etc you can use to draw
whereever you want inside it. You can use copyrect to draw 1 small
image into another location, and then you can use rectangle afterwards
to draw black on the old position.
However this solution might not support alpha-channel at all.

----------------------------------------------------------------------
gyts · 2011-01-06 19:28

How to clear all text from file?
How to create new text file?

----------------------------------------------------------------------
typo · 2011-01-06 19:47

QuoteHow to create new text file?
Code: [Select]FileClose(FileCreate('a.txt'));

----------------------------------------------------------------------
captian jaster · 2011-01-06 19:50

Quote from: gyts on January 06, 2011, 08:28:26 pmHow to clear all text
from file?
How to create new text file?
1. The simplest way to "clear all the text" from an existing file(?)
is to Over write it..
2. A TStringList and TFileStream are much more simpler to use then
classic pascal's way of making files.
There is a whole tutorial in the Wiki
Here

----------------------------------------------------------------------
typo · 2011-01-06 19:58

QuoteHow to clear all text from file?
Code: [Select]var
  fs :TFileStream;
begin
  fs := TFileStream.Create('myfile.txt', fmOpenWrite);
  try
    fs.Size := 0;
  finally
    fs.Free;
  end;
end;

----------------------------------------------------------------------
gyts · 2011-01-09 12:53

How to make KeyDown proc to react just once? When button is released
proc is ready again.

I used:
Code: [Select]procedure TGame.FormKeyDown(Sender: TObject; var Key:
Word; Shift: TShiftState);
begin
  if woot = true
   then begin
         Something;
        end;
end;

procedure TGame.FormKeyUp(Sender: TObject; var Key: Word; Shift:
TShiftState);
begin
  woot := true;
end;
But the time interval from releasing button to the time KeyDown can
react to Key presses again is too long.

----------------------------------------------------------------------
typo · 2011-01-09 13:18

KeyDown proc reacts just once.

----------------------------------------------------------------------
User137 · 2011-01-09 13:27

Quote from: typo on January 09, 2011, 02:18:37 pmKeyDown proc reacts
just once.
Then there seems to be bug with Lazarus svn, i may have to update
again though... Make this test app and see if numbers are scrolling
when key is pressed:
Code: [Select]procedure TForm1.FormKeyDown(Sender: TObject; var Key:
Word; Shift: TShiftState
  );
begin
  caption:='keydown '+inttostr(random(10));
end;

procedure TForm1.FormKeyPress(Sender: TObject; var Key: char);
begin
  // Keypress should be triggering multiple times, comment out to test
too
  //caption:='keypress '+inttostr(random(10));
end;

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word; Shift:
TShiftState);
begin
  caption:='keyup '+inttostr(random(10));
end;
Edit: Actually Delphi does this too so its not a bug. You may have to
save the key state in variable, either an array or just your specific
key.

Code: [Select]var keys: array[0..255] of boolean;

onKeyDown:
  if not keys[key] then begin
    // Insert here code that happens only once
    if key=13 then begin // Return key pressed

    end;
  end;
  keys[key]:=true;

onKeyUp:
  keys[key]:=false;

----------------------------------------------------------------------
gyts · 2011-02-20 18:52

Hi everyone again

How to apply/address/turn in/call to this Code: [Select]procedure
TForm1.S15t1MouseMove(Sender: TObject; Shift: TShiftState; X, Y:
Integer); procedure from any other procedure?
When I'm trying to do this: Code: [Select] S15t1MouseMove(Sender:
TObject; Shift: TShiftState; X, Y: Integer); I get:
http://img88.imageshack.us/i/20974166.png/

Edit: Don't need it anymore

----------------------------------------------------------------------
gyts · 2011-02-21 22:27

Is there any way to make TShapes transparent?

----------------------------------------------------------------------
typo · 2011-02-21 22:35

Yes, setting Brush.Style as bsClear.

----------------------------------------------------------------------
gyts · 2011-02-22 08:47

And x% of transparency is possible?

----------------------------------------------------------------------
gyts · 2011-02-23 21:32

When I add a new TButton in form it is shown as in winxp - with round
corners, but when the program is started, buttons is shown as in win98
- with sharp corners.

Please help.

----------------------------------------------------------------------
Marc · 2011-02-23 21:43

check project options -> manifest

----------------------------------------------------------------------
gyts · 2011-03-06 11:49

How to use this within procedures?
http://img203.imageshack.us/i/56020760.png/

----------------------------------------------------------------------
Blaazen · 2011-03-06 12:23

I know only one:

SetOrder(TopMost: Boolean);
Code: [Select]with Button1 do SetZOrder(True);  //this will move
Button1 to the topUse it with "with" statement.
It works here on Qt.

----------------------------------------------------------------------
DirkS · 2011-03-06 12:27

Quote from: gyts on March 06, 2011, 12:49:23 pmHow to use this within
procedures?
http://img203.imageshack.us/i/56020760.png/
See TControl.SendToBack, .BringToFront, .SetZOrder

Gr.
Dirk.

----------------------------------------------------------------------
tigers1904 · 2011-04-18 14:55

how to fill a box?

----------------------------------------------------------------------
typo · 2011-04-18 14:59

You should set Brush.Color before drawing the box, then it will be
filled with that color.