Извините, ничего не найдено.

Не расстраивайся! Лучше выпей чайку!
Регистрация
Справка
Календарь

Вернуться   forum.boolean.name > Поиск по форуму

Показано с 1 по 25 из 26.
На поиск затрачено 0.01 сек.
Поиск: Сообщения от: vitalik1
Раздел: Библиотеки 11.04.2009, 01:20
Ответов: 558
Просмотров: 175,056
Автор vitalik1
Ответ: Запросы на написание библиотек. Библиотеки запрашивать только здесь.

Сделайте пожалуйста библиотеку для создания socket сервера. Очень нужна!
Раздел: Библиотеки 20.02.2009, 02:08
Ответов: 558
Просмотров: 175,056
Автор vitalik1
Ответ: Запросы на написание библиотек. Библиотеки запрашивать только здесь.

Сделайте пожалуйста в библиотеке socket создание сервера.
Раздел: Библиотеки 24.12.2008, 22:47
Ответов: 53
Просмотров: 23,702
Автор vitalik1
Ответ: Lib_socket

Можно двумя способами:
1)

function readstr: string;
var
s: string;
begin
s:='';
while socket.available>0 do
s:=s+chr(socket.read);
Раздел: Библиотеки 22.12.2008, 19:38
Ответов: 53
Просмотров: 23,702
Автор vitalik1
Ответ: Lib_socket

Сделайте пожалуйста возможность создавать сервер ( ServerSocketConnection ) и получать свой IP ( getLocalAdress() ).
Раздел: Основной форум 18.12.2008, 14:47
Ответов: 4
Просмотров: 2,097
Автор vitalik1
Ответ: Avatara

С ява нельзя. Можно только с помощю эльфов или птчей.
Раздел: Прочие вопросы 27.11.2008, 21:37
Ответов: 5
Просмотров: 3,898
Автор vitalik1
Ответ: Вылет MP при открытии проекта

Попробуй удалить все версии MIDlet Pascal и установить английскую версию
Раздел: MidletPascal 26.11.2008, 01:46
Ответов: 15
Просмотров: 10,055
Автор vitalik1
Ответ: Работа с http... помогите!

Вот рабочий код:


var conn: http;
htmlBody: string;
contentType: string;
i: integer;
begin
if not openHttp(conn, 'http://www.s-c.ru') then halt;
setHttpMethod(conn, GET);
Раздел: Основной форум 14.11.2008, 01:55
Ответов: 10
Просмотров: 4,677
Автор vitalik1
Ответ: как правильно юзать Unit?

Переправь в конце программы:
end;
на
end.
Раздел: Прочие вопросы 19.10.2008, 21:04
Ответов: 16
Просмотров: 5,874
Автор vitalik1
Ответ: f***ing mp array!

Во первых не as, а of string;
Во вторых все работает.
Лучше покажи свой код.

зы: Может зависать при рисовании строки которая не влазит на экран.
Раздел: Основной форум 14.09.2008, 13:11
Ответов: 3
Просмотров: 6,707
Автор vitalik1
Ответ: Все статьи, уроки,дополнения, ошибки ком&

Добавь вот эти функции с английской справки:

function ImageFromCanvas(x,y,width,height: integer): image;
function ImageFromImage(sourceImg: image; x,y,width,height: integer): image;
function...
Раздел: Библиотеки 29.08.2008, 12:44
Ответов: 18
Просмотров: 12,889
Автор vitalik1
Раздел: Библиотеки 27.08.2008, 20:59
Ответов: 558
Просмотров: 175,056
Автор vitalik1
Раздел: Основной форум 21.08.2008, 00:37
Ответов: 4
Просмотров: 2,435
Автор vitalik1
Ответ: Не вижу ошибку

замени lev.img:=LoadImage('levimg'+lev.level+'.PNG');
на lev.img:=LoadImage('/levimg'+lev.level+'.PNG');

несколько советов:
1. Вместо строк 'right' и 'left' используй константы:

const
...
Раздел: Библиотеки 19.08.2008, 16:06
Ответов: 10
Просмотров: 4,404
Автор vitalik1
Раздел: Библиотеки 10.08.2008, 19:03
Ответов: 558
Просмотров: 175,056
Автор vitalik1
Ответ: Запросы на написание библиотек. Библиотеки запрашивать только здесь.

Kostia
1) Рисуй картинку на экране и работай.
Нарисовать картинка: procedure DrawImage(img: image; x,y: integer);
Получить цвет пиксела: 2)
Нарисовать пиксел: 3)
получть картинку с...
Раздел: FAQ 10.08.2008, 18:47
Ответов: 5
Просмотров: 7,642
Автор vitalik1
Ответ: Как проверить нажатие сразу нескольких кнопок?

такая функция есть в либе game
function get_key_states: integer;

вот пример использования:


Program test;

uses
game;
Раздел: Библиотеки 09.08.2008, 00:29
Ответов: 53
Просмотров: 24,962
Автор vitalik1
Ответ: Lib_videocnv: воспроизведение видео в режиме Canvas!

А можно сделать библиотеку Lib_videocnv для siemens x65-x75?
Раздел: Основной форум 25.07.2008, 21:58
Ответов: 20
Просмотров: 4,616
Автор vitalik1
Ответ: Калькулятор

Romanzes
Вот исходник :)
Раздел: Основной форум 24.07.2008, 23:52
Ответов: 20
Просмотров: 4,616
Автор vitalik1
Ответ: Калькулятор

А я сделал методом рекурсивного спуска.
Вот ссылки:
http://ru.wikipedia.org/wiki/Метод_рекурсивного_спуска
http://ru.wikipedia.org/wiki/Контекстно-свободная_грамматика

Могу выложить исходники если...
Раздел: Основной форум 15.07.2008, 18:25
Ответов: 33
Просмотров: 6,983
Автор vitalik1
Ответ: Фон в Кавас!

Большая. Но тут меньше репаинтов не получиться.
Просто используй его когда это действительно надо.
Раздел: Основной форум 15.07.2008, 18:08
Ответов: 33
Просмотров: 6,983
Автор vitalik1
Ответ: Фон в Кавас!

да пробовал. Вот:

program NewProject;
begin
setcolor(0,0,0);
DrawText('Привет!', 5, 5);
Repaint;
Delay(2000);
setcolor(255,255,255);
fillrect(0,0,getwidth,getheight);
Раздел: Основной форум 15.07.2008, 17:35
Ответов: 33
Просмотров: 6,983
Автор vitalik1
Ответ: Фон в Кавас!

но если текст не затереть цветом фона то следующий текст наложиться на него
Раздел: Основной форум 15.07.2008, 17:29
Ответов: 33
Просмотров: 6,983
Автор vitalik1
Ответ: Фон в Кавас!

чтоб фон был стандартной темы в телефоне надо использовать формы
Раздел: Основной форум 15.07.2008, 17:26
Ответов: 33
Просмотров: 6,983
Автор vitalik1
Ответ: Фон в Кавас!

Ну тогда или закрашивай только текст так:

setcolor(0,0,0);
DrawText('Привет!', 5, 5);
repaint;
Delay(2000);
setcolor(255,255,255);//цвет фона
DrawText('Привет!', 5, 5);
...
Раздел: Основной форум 15.07.2008, 17:10
Ответов: 33
Просмотров: 6,983
Автор vitalik1
Ответ: Фон в Кавас!

Вот тебе пример:


Program NewProjectNEW;
var
ScrW,ScrH: integer;

procedure cls;
begin
setcolor(0,0,127);
Показано с 1 по 25 из 26.

 

Часовой пояс GMT +4, время: 13:09.


vBulletin® Version 3.6.5.
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Перевод: zCarot
Style crйe par Allan - vBulletin-Ressources.com