Russian Qt Forum

Delphi
tbExit: TBitBtn;//Кнопка панели "Выход из программы"

Delphi
tbExit: TSpeedButton;

Delphi
    bmCell := TBitmap.Create();//Создание цветной ячейки
    bmCell.SetSize(GridOpenKlest.DefaultColWidth - 1,
                   GridOpenKlest.DefaultColWidth - 1);
    bmCell.Canvas.Brush.Style := bsSolid;
    bmCell.Canvas.Brush.Color := cl3DLight;//Установка цвета фона сетки кроссворда в ячейке
    bmCell.Canvas.FillRect(0,0, GridOpenKlest.DefaultColWidth - 1,
                           GridOpenKlest.DefaultColWidth - 1);
 
        //Если прошлое направление слова было горизонтальным, то
        if LastGWL = 'h' then
            begin
                for i := LastCFCW to LastCFCW + LastLW - 1 do
                    begin
                        //Очистка выделенного слова в стеке кроссворда от зелёного(clLime) цвета
                        //Замена на cl3DLight
                        GridOpenKlest.Canvas.CopyRect(GridOpenKlest.CellRect(
                            i, LastRFCW), bmCell.Canvas, Rect(0,0,
                            bmCell.Height, bmCell.Width));
                    end;
            end;
 
        //Если прошлое направление слова было вертикальным, то
        if LastGWL = 'v' then
            begin
                for i := LastRFCW to LastRFCW + LastLW - 1 do
                    begin
                        //Очистка выделенного слова в стеке кроссворда от зелёного(clLime) цвета
                        //Замена на cl3DLight
                        GridOpenKlest.Canvas.CopyRect(GridOpenKlest.CellRect(
                            LastCFCW, i), bmCell.Canvas, Rect(0,0,
                            bmCell.Height, bmCell.Width));
                    end;
            end;
 
    GridOpenKlest.Repaint;//Перерисовка таблицы кроссворда, чтобы введённый в ячейках текст не был стёрт

Delphi
GridOpenKlest.Repaint;//Очистка сетки от зелёного 

Delphi
    //Для Windows
//s: String;
 
        {if gWordLine = 'h' then
            begin
                for i := ColumnFirstCellWord to ColumnFirstCellWord + LengthWord - 1 do
                    begin
//Если язык русский
                        if bLanguageWords = true then
                           begin
                               s := sTemp[j - 1] + sTemp[j];//Собираю их вместе :)
                               GridOpenKlest.Cells[i, RowFirstCellWord] := s;//Загрузка слова в сетку
                               j := j + 2;
                           end
                        else
                        begin
                             GridOpenKlest.Cells[i, RowFirstCellWord] := sTemp[j];//Загрузка слова в сетку
                             Inc(j);
                        end;
                    end;
            end;
 

Delphi
                           //Для Windows
//Если язык русский
                            {if bLanguageWords = true then
                                begin
                                     slQuestionT.Add(AnsiToUtf8(sTemp));//Wide(!)-символы преобразую из Ansi(!) в Wide :)
                                     ListQuestions.Items.Add(AnsiToUtf8(sTemp));
                                end
                            else
                            begin
                                slQuestionT.Add(sTemp);
                                ListQuestions.Items.Add(sTemp);
                            end;}