Модераторы: Poseidon, Snowy, bems, MetalFan

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Мышь 
V
    Опции темы
Alexeis
Дата 14.7.2006, 15:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459
Цитата(svarogik @  14.7.2006,  15:48 Найти цитируемый пост)
матрица грузится из файла а по ней рисуется 

так это без разницы, заранее загрузить и все! 


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
svarogik
Дата 14.7.2006, 16:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 159
Регистрация: 20.3.2006

Репутация: нет
Всего: нет
сделал как советуешь, даже засунул орм креейт, но теперь совсем нехорошо выскакивает ошибка, причем когда прога уже запущена, вылетает, потом ставится зеленая стрелочка напротив 
Код

    DrawGrid1.Canvas.brush.color := matrix[ACol, ARow];
  
PM MAIL   Вверх
Alexeis
Дата 14.7.2006, 16:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459
Покажи инициализацию
matrix 


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
svarogik
Дата 14.7.2006, 16:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 159
Регистрация: 20.3.2006

Репутация: нет
Всего: нет
непонимаю 
PM MAIL   Вверх
Alexeis
Дата 14.7.2006, 16:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459
matrix - это динамический массив или статический?
Если динамический, то покажи, как устанавливается его размер
Если статический, то как обявлен в разделе var

Добавлено @ 16:25 
такое ощущение, что его размер меньше размера Грида... 


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
svarogik
Дата 14.7.2006, 16:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 159
Регистрация: 20.3.2006

Репутация: нет
Всего: нет
matrix: array of array of integer;

setLength(matrix,4,4);


Код

procedure TEditor.FormCreate(Sender: TObject);
begin
netprs:= true;

 setLength(matrix,4,4);
DrawGrid1.colcount:=4;
DrawGrid1.rowcount:=4;

  matrix[1,2]:= clGreen;

end;
 
PM MAIL   Вверх
Alexeis
Дата 14.7.2006, 16:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459
Поставь брекпоинт перед этой строчкой и посмотри содержимое
matrix в окне watch (как в паскале по ctrl+F5) создан ли массив? 


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
svarogik
Дата 14.7.2006, 16:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 159
Регистрация: 20.3.2006

Репутация: нет
Всего: нет
создан только у него все по нулям а одно значение какое то 32000 

Присоединённый файл ( Кол-во скачиваний: 28 )
Присоединённый файл  Editor.part1.rar 107,42 Kb
PM MAIL   Вверх
svarogik
Дата 14.7.2006, 16:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 159
Регистрация: 20.3.2006

Репутация: нет
Всего: нет
вот второй том

Добавлено @ 16:55 
там две процедуры с одинаковыми названиями одна закоментирована, если закоментировать другую а её разкоментировать то программа начнет работать, ну только без прорисовки клеток

Добавлено @ 16:57 
 процедура TEditor.DrawGrid1DrawCell, остальноез акоментированное лучше не трогать 

Присоединённый файл ( Кол-во скачиваний: 28 )
Присоединённый файл  Editor.part2.rar 89,40 Kb
PM MAIL   Вверх
Alexeis
Дата 14.7.2006, 17:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459
Странно экзешник у меня запустился нормально!, а вот кода ни одного модуля я не обнаружил smile  


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
svarogik
Дата 14.7.2006, 17:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 159
Регистрация: 20.3.2006

Репутация: нет
Всего: нет
тут вот еще что надо 

Присоединённый файл ( Кол-во скачиваний: 3 )
Присоединённый файл  nado.rar 4,43 Kb
PM MAIL   Вверх
Alexeis
Дата 14.7.2006, 17:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459
Да работает он нормально(я подрезал его чуть-чуть smile )
Лови 
Код

unit MapEditor;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, StdCtrls, ExtCtrls, ActnList, ImgList, ComCtrls, Buttons,
  Grids;

type
  TEditor = class(TForm)
    ImageList1: TImageList;
    GroupBox1: TGroupBox;
    Net: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    DrawGrid1: TDrawGrid;
    procedure FormCreate(Sender: TObject);
    procedure DrawGrid1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure DrawGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
      Rect: TRect; State: TGridDrawState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Editor: TEditor;
  curs:integer;
  f_name,str:string;
  fn:TFilestream;
  netprs: boolean;
  Col, Row : longint;
  matrix: array of  array of integer;
  i,j,n,m:integer;

implementation

{$R *.dfm}

procedure TEditor.FormCreate(Sender: TObject);
begin
  netprs:= true;
  setLength(matrix,4,4);
  DrawGrid1.colcount:=4;
  DrawGrid1.rowcount:=4;
  matrix[1,2]:= clGreen;
end;

procedure TEditor.DrawGrid1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
   var r : Trect;
begin
  {drawgrid1.MouseToCell(X, Y, Col, Row);
  r := DrawGrid1.CellRect(Col, Row);
  DrawGrid1.Canvas.brush.color := clGreen;
  DrawGrid1.Canvas.FillRect(r);
  setLength(matrix,4,4);
  DrawGrid1.colcount:=4;
  DrawGrid1.rowcount:=4;
  matrix[1,2]:= clGreen;  }
end;
  {
procedure TEditor.DrawGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
  var r : Trect;
begin
 for i:= 1 to n do
 for j := 1 to m do
 case matrix[i,j]of
 1: begin
 r := DrawGrid1.CellRect(i, j);
 DrawGrid1.Canvas.brush.color := clGreen;
 DrawGrid1.Canvas.FillRect(r);
  end;
 end;
end;
    }
procedure TEditor.DrawGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
  var r : Trect;
begin
  r := DrawGrid1.CellRect(ACol, ARow);
  DrawGrid1.Canvas.brush.color := matrix[ACol, ARow];
  DrawGrid1.Canvas.FillRect(r);
end;

end.
 


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
svarogik
Дата 14.7.2006, 17:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 159
Регистрация: 20.3.2006

Репутация: нет
Всего: нет
Народ извините я тут все напутал, у меня по разным папкам раскидано было, вот все собрал еще, надеюсь теперь запустится, никак не привыкну к делфи, все таки переход от паскаля сложный, сслыки на них сами поменяйте а то я неумею пока, больше у меня вроде ничего нет 

Присоединённый файл ( Кол-во скачиваний: 2 )
Присоединённый файл  vot.rar 15,70 Kb
PM MAIL   Вверх
Alexeis
Дата 14.7.2006, 17:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459
Цитата(svarogik @  14.7.2006,  17:26 Найти цитируемый пост)
собрал еще, надеюсь теперь запустится

После урезки всего лишнего твой код и так запустился smile  


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
svarogik
Дата 14.7.2006, 18:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 159
Регистрация: 20.3.2006

Репутация: нет
Всего: нет
ну так не полноценно же smile

Добавлено @ 18:10 
а что ты изменил то? невероятно, запустилось и работает! как??? только вместо красивых белых ячеек все остальные стали черные

Добавлено @ 18:13 
а как сохранить все в отдельной папке с перенесением всех ссылок и библиотек в новую папку, а то неприкольно шастать по куче папок собирая части кода

Добавлено @ 18:16 
И почему когда я щелкаю по рабочему полю правой кнопкой, оно окрашивается в зеленый сразу, и сохраняет окраску, а левой только двойной щелчек окрашивает, да и то до следующего клика?

Добавлено @ 18:17 
Ладно, короче, большое спасибо тебе alexeis1


M
Girder		Прошу не забывать!: "Одна тема-один вопрос"
  
PM MAIL   Вверх
Страницы: (4) Все 1 2 [3] 4 
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.1210 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.