| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
ошибка Error: method identifier expected
SoulOfAngel © (2011-01-03 12:57:00)делал простое перемещение картинки с помощью мыши не знаю почему ругается( может модуль не дописал какойто.lazarus
var x0,y0:integer;
move:boolean;
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if button<>mbLeft then move:=false //если нажали не левой кнопкой, то перемещать не будем!
else begin
move:=true;
x0:=x; //запоминаем начальные координаты
y0:=y; //запоминаем начальные координаты
end;
end;
KilkennyCat (2011-01-03 16:31:00) [21]Ну я бы делал классически:
создаем BMP : TBitMap - это главный, на него все рисуем.
имеем четыре картинки:
Desk, WSH, RSH, Dama : TBitMap - доска, белая и красная шашки, символ дамки.
потом:
на BMP накладываем Desk и шашки, на шаки признак дамки, и весь BMP на форму.
12 (2011-01-03 16:29:00) [22]
> KilkennyCat © (03.01.11 14:36) [6]
некий move? да только так
а Х0 меняется все равно
т.е. перемещается, только не видать
Anatoly Podgoretsky (2011-01-03 16:07:00) [23]> SoulOfAngel (03.01.2011 15:55:19) [19]
Ошибка в Unit1.lrs
SoulOfAngel (2011-01-03 16:04:00) [24]ясно) спасибо большое) как думаешь как лучше сделать доску шахматную? одним имейджом? потом по координатам привязать шашки?
KilkennyCat (2011-01-03 15:59:00) [25]и я надеюсь, ты понял глобальный смысл ошибки? в Паскале требуется объявление всего. Переменные, процедуры, функции и прочая фигня - все должно быть объявлено.
KilkennyCat (2011-01-03 15:57:00) [26]
> SoulOfAngel (03.01.11 15:55) [19]
внимательно смотри мой пример. внимательно. как в детстве на картинках "найди N отличий"
KilkennyCat (2011-01-03 15:55:00) [27]и почему шашек 33? белых 16, красных 17? нечестно!
SoulOfAngel (2011-01-03 15:55:00) [28]добавил эту строку в классы теперь ...Fatal: Syntax error, ";" expected but "." found
может я не правильно добавил или не туда обьясни пож:(
unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
ExtCtrls, Buttons, StdCtrls, ShellApi;
type
{ TForm1 }
TForm1 = class(TForm)
Image1: TImage;
Shape1: TShape;
Shape10: TShape;
Shape11: TShape;
Shape12: TShape;
Shape13: TShape;
Shape14: TShape;
Shape15: TShape;
Shape16: TShape;
Shape17: TShape;
Shape18: TShape;
Shape19: TShape;
Shape2: TShape;
Shape20: TShape;
Shape21: TShape;
Shape22: TShape;
Shape23: TShape;
Shape24: TShape;
Shape25: TShape;
Shape26: TShape;
Shape27: TShape;
Shape28: TShape;
Shape29: TShape;
Shape3: TShape;
Shape30: TShape;
Shape31: TShape;
Shape32: TShape;
Shape33: TShape;
Shape4: TShape;
Shape5: TShape;
Shape6: TShape;
Shape7: TShape;
Shape8: TShape;
Shape9: TShape;
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
private
{ private declarations }
public
{ public declarations }
end;
var
Form1: TForm1;
implementation
{ TForm1 }
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
move:= button<>mbLeft;
x0:=x;
y0:=y;
end;
initialization
{$I Unit1.lrs}
end.
KilkennyCat (2011-01-03 15:54:00) [29]а с шейпами неприкольно. лучше уж с имаджами (лучше вообще не так, но об этом позже). просто с имаджем ты дизайн шашки моментально сменишь.
KilkennyCat (2011-01-03 15:50:00) [30]
TForm1 = class(TForm)
...
Shape9: TShape;
procedure Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
...
KilkennyCat (2011-01-03 15:49:00) [31]
> procedure TForm1.Image1MouseDown(Sender: TObject; Button:
> TMouseButton;
> Shift: TShiftState; X, Y: Integer);
да, действительно в этой строчке... точнее, в отсутствии оной в классе.
SoulOfAngel (2011-01-03 15:27:00) [32]будете смеятся но я шашки пытаюсь сделать:)))
SoulOfAngel (2011-01-03 15:26:00) [33]Удалено модератором
Примечание: СПАМ
Anatoly Podgoretsky (2011-01-03 15:22:00) [34]Эндов два, а бегинов сколько. По огрызку ничего не определить.
SoulOfAngel (2011-01-03 15:15:00) [35]я не утверждал, что ошибка там, я имел ввиду компилятор указывает на эту строку!
KilkennyCat (2011-01-03 15:12:00) [36]
> SoulOfAngel (03.01.11 15:04) [9]
а вот я бы сделал вывод, что раз стали издеваться, значит ошибка вовсе не там.
SoulOfAngel (2011-01-03 15:08:00) [37]если ты про 2 енда то это опечатка простодело не в нём у меня туда даже проверка не доходила просто)
SoulOfAngel (2011-01-03 15:04:00) [38]Удалено модератором
KilkennyCat (2011-01-03 14:40:00) [39]
> SoulOfAngel (03.01.11 14:30) [4]
> может тут чего-то не хватает?
да-да, в вышессылке там явно нехватает.
KilkennyCat (2011-01-03 14:39:00) [40]
> SoulOfAngel (03.01.11 14:31) [5]
>
> procedure TForm1.Image1MouseDown(Sender: TObject; Button:
> TMouseButton;
> Shift: TShiftState; X, Y: Integer); - ошибка в этой строке
нет, ошибка здесь:
http://homotomia.narod.ru/book/sex-gen-embr/gen/gen_clip_image004.jpg
| |
Страницы: 