Судоку на Android / Delphi: FireMonkey

@c-0k · Регистрация: 31.03.2014

Author24 — интернет-сервис помощи студентам

Пишу свое первое приложение на Андроид

заполняю таблицу с текстового файла, что бы значение были по центру добавляю в начало пробел,
цифры с '^' - изначально заданные ( неизменяемые), проверку делаю по наличию этого символа, если есть другие более наглядные варианты, изменение цвета и тд, подскажите пожалуйста

Delphi

procedure zapolnenie(Table: TStringGrid; level:string);     //  загрузка из файла в таблицу
var List: TStringList;
begin
List:=TStringList.Create;
List.LoadFromFile(TPath.GetDocumentsPath + PathDelim + level);
with Table do
  for i:=0 to RowCount-1 do
  for j:=0 to  ColumnCount-1 do
    Cells[j, i]:=' '+List[i*ColumnCount+j]; //+' ' для выравнивания по центру
end;

Delphi

procedure TTabbedForm.Button1Click(Sender: TObject);
begin
tmp:=StringGrid1.cells[m,n];
  if tmp[2]<>'^' then StringGrid1.cells[m,n]:=' 1'; 
end;

координаты выделенной ячейки получаю здесь(нет специльной функции для этого?)

Delphi

procedure TTabbedForm.StringGrid1MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Single);
begin
  m:=round(x/StringGrid1.RowHeight-0.5);
  n:=round(y/StringGrid1.RowHeight-0.5);
end;

возможно ли подсвечивание выбранной ячейки другим цветом?(отличным от стандартного) или хотябы не всю строку подсвечивать, а только ячейку...

@AlexTigma · 13.04.2014, 19:26

Проверено на XE5 ( без обновок )

Delphi

uses FMX.Colors;
 
type
  TColumnAccess = class( TColumn )
  end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  CellCtrl: TStyledControl;
 
begin
   CellCtrl := TColumnAccess( StringGrid1.Columns[ 0 ] ).CellControlByRow( 0 );
   if ( CellCtrl <> nil ) and ( CellCtrl is TTextCell ) then begin
    TTextCell( CellCtrl ).StyledSettings := [];
    TTextCell( CellCtrl ).FontColor := TAlphaColors.Red;
   end;
end;

@c-0k · 13.04.2014, 19:48 **[ТС]**

AlexTigma, можно с пояснениями

@AlexTigma · 13.04.2014, 20:12

CellCtrl := TColumnAccess( StringGrid1.Columns[ КОЛОНКА ] ).CellControlByRow( СТРОЧКА );

А что пояснить?

@c-0k · 13.05.2014, 22:03 **[ТС]**

в delphi xe6 не работает, но и ошибок не выдает

@c-0k 2 / 2 / 0 Регистрация: 31.03.2014 Сообщений: 37
	13.04.2014, 19:48 [ТС]	3
	AlexTigma, можно с пояснениями 0

@AlexTigma 0 / 0 / 1 Регистрация: 13.04.2014 Сообщений: 3
	13.04.2014, 20:12	4
	CellCtrl := TColumnAccess( StringGrid1.Columns[ КОЛОНКА ] ).CellControlByRow( СТРОЧКА ); А что пояснить? 0

@c-0k 2 / 2 / 0 Регистрация: 31.03.2014 Сообщений: 37
	13.05.2014, 22:03 [ТС]	5
	в delphi xe6 не работает, но и ошибок не выдает 0

Судоку на Android / Delphi: FireMonkey

Решение