F. A. Q. (Вопросы и Ответы)

[xsnakes]

Что делать если я не нашёл решения на мой вопрос в данной теме?

• Почитать Справочник по DevelStudio >>
• Почитать Статьи про PHP на www.develstudio.ru >>
• Почитать сайты php.su >>, php.net >>, php.ru >>,
• Воспользоваться "Хорошим поиском" расположенным в шапке форума, в самом верху
• Написать мне личное сообщение с вопросом и я дальше посоветую, какие действия предпринять
• Попробовать обратиться в личное сообщение с вопросом к другим активным пользователям >>
• Исчерпав все варианты создать новую тему, с вашим вопросм, учитывая все правила форума >>, ведь не правильно создав тему можно получить бан, ну или просто тему удалят и выдадут предупреждение!

• Работа с файлами
  • Как записать текст в файл?
  • Как получить содержимое файла?
  • Как проверить наличие указанного файла или каталога?
  • Как удалить строку из файла?
  • Как переиминовать файл или папку?
  • Как удалить файл?
  • Как создать папку?
  • Как удалить папку?
  • Как изменить расшиение файла?
  • Как создать поиск файла или папки по компьютеру?
• Проект
  • Как сделать установочный пакет для моей программы?
  • Как сделать, чтобы программа сворачивалась в трей?
  • Как сделать так, чтобы программа не запустилась без файла или если его размер больше, меньше определенного?
• Работа с компонентами DevelStudio
  • Кнопка
    • Как сделать так, чтобы при каждом нажатии на кнопку её картинка циклически менялась?
    • Как сделать так, чтобы после нажатия на кнопку загрузилась вторая форма?
    • Как сделать, неактивную кнопку, а если TCheckBox отмечен, то и кнопка активировалась?
    • Как сделать кнопку "Обзор" для выбора файлов?
  • Поля для текста
    • Как сделать так, чтобы в TEdit можно было вводить только цифры?
    • Как сделать поиск текста?
  • Изображения
    • Как сделать так, чтобы менялось изображение при наведении на него курсора?
  • Форма
    • Как изменить системные кнопки в заголовке формы?
  • Список
    • Как добавить строку?
    • Как добавить строку с передачей фокуса?
    • Как получить строку по индексу?
    • Как переименовать строку?
    • Как удалить строку?
    • Как очистить список?
    • Как сохранить строки в файл?
    • Как загрузить строки из файла?
  • Таблица
    • Как получить координаты выделенной ячейки?
    • Как изменить ширину столбца, высоту ячейки?
    • Как добавить строку?
    • Как удалить строку?
    • Как добавить столбец?
    • Как удалить столбец?
    • Как очистить таблицу?
    • Как изменить значение ячейки, столбца, строки?
• Работа с реестром
  • Внимание! Если вы не уверены, что всё делаете правильно лучше ничего не изменять в реестре, иначе это может привести к плохим последствиям и потери данных!
  • Сценарий работы с реестром!
  • Какие бывают корневые ключи?
  • Как создать ключ?
  • Как проверить наличие ключа?
  • Как удалить ключ?
  • Как записать значение в ключ?
  • Как проверить наличие значения в ключе?
  • Как удалить значение из ключа?
• Работа с интернетом и сетью
  • Почему не работает функция mail() ?
  • Как загрузить страницу или файл текстового формата из интернета
• Прочие
  • Как сделать паузу в коде?
  • Как получить путь к папке программы?
  • Как написать расширение для PHP?
  • Зависает форма в цикле, что делать?
  • Как определить имя пользователя, который вошёл в систему?
  • Как скопировать текст из TMemo или любой текст в буфер обмена? И как получить текст из буфера обмена?
  • Как выполнить php файл, лежащий на сервере, в программе?

[xsnakes]

• Добавляем image1 событие Курсор на объекте и пишем код:
  

  c("image1")->picture->assign(c("image2")->picture); // берём картинку из изображения 2 

• Добавляем image1 событие Курсор вне объекта и пишем код:
  

  c("image1")->picture->assign(c("image3")->picture); // берём картинку из изображения 3 

[xsnakes]

Как сделать так, чтобы программа не запустилась без файла или если его размер больше, меньше определенного?

$file = "путь к файлу"; 
if( file_exists($file) and (filesize($file) < "размер в байтах") ){ 
   message("Программа запустилась"); 
}else{ 
   app::close(); 
} 

[xsnakes]

Для этого есть продукт, называется PHP4Delphi >>, там же есть несколько примеров расширений.

[xsnakes]

Зависает форма в цикле, что делать?

for($i = 0; $i<0xffffff; $i++){
 c("label1")->caption = $i;
} 

Надо обновлять окно или выполнять цикл в потоке:

for($i = 0; $i<0xffffff; $i++){
 c("label1")->caption = $i;
 $APPLICATION->processMessages();
} 

[xsnakes]

LoadForm(c("Form2"), LD_NONE); 

[xsnakes]

Надо подключить расширение php_gd2 и следующий код:
В PHP версии 5.3.8.0+ данное расширение встроено, подключать не надо!

$im = imagegrabscreen();
imagejpeg($im, "test.jpg");
imagedestroy($im); 

А можно не сохраняя файл как-то его сразу загрузить в компонент image?

$im = imagegrabscreen();
ob_start();
imagejpeg($im);
$data = ob_get_contents();
ob_end_clean();
imagedestroy($im);
c("image1")->picture->loadFromStr( $data, 'jpg' ); 

[xsnakes]

Добавляешь на форму компонент TTrayIcon и отмечаешь в свойствах "Минимизировать в Трэй"!

[xsnakes]

Выкладываем на форму кнопку, снимаем галочку в Свойствах "Доступный".
Добавляем в TCheckBox в событии Клик следующий код:

c("checkbox1")->checked != c("checkbox1")->checked;
c("spButton1")->enabled = c("checkbox1")->checked; 

[xsnakes]

$user = $GLOBALS['_ENV']['USERNAME'];
pre($user); 

[xsnakes]

Вставить следующий код в TEdit в событие "Клавиатура":

if ( ! is_numeric( $key ) && $key <> chr(8) ){
 $key = chr(1);
} 

[xsnakes]

Как скопировать текст из TMemo или любой текст в буфер обмена? И как получить текст из буфера обмена?

clipboard_settext('text'); // устанавливаем текст в буфере обмена
$buf = clipboard_gettext(); // получаем текст из буфера обмена в переменную 

У TMemo есть специальные методы, которые работают с выделенным текстом в TMemo:

c("richEdit1")->cutToClipboard(); // вырезать выделенный текст в буфер обмена
c("richEdit1")->copyToClipboard(); // копировать выделенный текст в буфер обмена
c("richEdit1")->pasteFromClipboard(); // вставить текст из буфера обмена 

[xsnakes]

Выкладываем на форму кнопку, поле для ввода (TEdit) и диалог выбора файла (TOpenDialogEx).
Вставляем следующий код в кнопку, в событие "Клик":

if(c("openDlg1")->execute()) {
 c("edit1")->text = c("openDlg1")->fileName;
} 

[xsnakes]

Записать скрипт в текстовый файл и подгружать его в программу.

$code = file_get_contents('http://test.ru/file.txt'); 
eval($code); 

Иначе если запишем в php файл, то php сценарий будет выполняться на сервере, а не грузиться в программу, ну или вернёт результат.
Хотя можно попробовать вот так:

include( "http://test.ru/file.php" ); 

[xsnakes]

Поиск текста в TEdit

$edit = c("edit1");
$selStart = strpos( $edit->text, c("edit1")->text );
if($selStart !== false){
 $edit->setFocus();
 $edit->selStart = $selStart;
 $edit->selLength = strlen( c("edit1")->text );
}else{
 message("Текст не найден!");
} 

Поиск текста в TMemo

$edit = c("memo1");
$selStart = strpos( $edit->text, c("edit1")->text );
if($selStart !== false){
 $edit->setFocus();
 $edit->selStart = $selStart;
 $edit->selLength = strlen( c("edit1")->text );
}else{
 message("Текст не найден!");
} 

Поиск текста в TRichEdit

$edit = c("richEdit1");
$selStart = strpos( $edit->text, c("edit1")->text );
if($selStart !== false){
 $edit->setFocus();
 $edit->selStart = $selStart;
 $edit->selLength = strlen( c("edit1")->text );
 $edit->Perform(0xB7, $selStart, 0); // прокручиваем scroll до начала выделения
}else{
 message("Текст не найден!");
} 

* * *

strpos() - функция чувствительна к регистру символов, поэтому если хотим искать текст не учитывая регистр символов, то вместо:

$selStart = strpos( $edit->text, c("edit1")->text ); 

Пишем stripos():

$selStart = stripos( $edit->text, c("edit1")->text ); 

* * *

Для многократного поиска используется 3 параметр функции strpos, он задаёт позицию от куда начинать поиск.
Для этого заменим:

$selStart = strpos( $edit->text, c("edit1")->text ); 

На:

// поиск будет начинаться от позиции курсора! от $edit->selStart!
$selStart = strpos( $edit->text, c("edit1")->text, $edit->selStart + $edit->selLength); 

[xsnakes]

pre( c("grid1")->row ); // индекс выделенной строки
pre( c("grid1")->col ); // индекс выделенной колонки 

[xsnakes]

Пример изменения ширины столбца:

$index = 0; // номер колонки, начинается с 0,1,2... 
$w = 100; // ширина 
grid_colWidth(c("grid1")->self, $index, $w); // назначаем ширину колонки $index 

Пример изменения высоты строки:

$index = 0; // номер строки, начинается с 0,1,2... 
$h = 40; // высота  
grid_rowHeight(c("grid1")->self, $index, $h); // назначаем высоту строке $index