forum.boolean.name

forum.boolean.name (http://forum.boolean.name/index.php)
-   Основной форум (http://forum.boolean.name/forumdisplay.php?f=49)
-   -   Альтернативный экран ввода текста на Моторолах!!! (http://forum.boolean.name/showthread.php?t=4145)

BASSON XVI 14.08.2007 01:36
Альтернативный экран ввода текста на Моторолах!!!
 
Народ ктонить может деал уже библу такую??? Короче на моторе просто в текст боксе писать нельзя там вылазит станартный ввод текста который сильно тормазит!!! Так вот собсно в чем вопрос ещё не кто не делал библу для алтернативного ввода и чтения текста! Если нет, то есть желающие на пару со мной взяться деалать такую???

ViNT 14.08.2007 19:26
Re: Альтернативный экран ввода текста на Моторолах!!!
 
Вложений: 2
На счет либ не знаю, но есть у меня один мидлет. Там ввод сделан "под Windows" . Поковыряй декомпилятором, может поможет.

BASSON XVI 14.08.2007 20:26
Re: Альтернативный экран ввода текста на Моторолах!!!
 
ты понимаеш Я в явке пока не бум бум!!! Книгу нормальную не могу найти!!! Ну я подумаю!! А ты бы не хотел составить мне компанию в этом не лёгком деле??? :)

ViNT 14.08.2007 21:24
Re: Альтернативный экран ввода текста на Моторолах!!!
 
Да я в общем-то тоже, в основном на Delphi пишу, яву знаю полхо.

BASSON XVI 14.08.2007 22:58
Re: Альтернативный экран ввода текста на Моторолах!!!
 
Понятно!!! Значит будем ждать может PILIgrim подсобит!!

MotoMustanger 14.08.2007 23:42
Re: Альтернативный экран ввода текста на Моторолах!!!
 
Такое можно и без либы написать. Правда времени займет много.

BASSON XVI 15.08.2007 00:24
Re: Альтернативный экран ввода текста на Моторолах!!!
 
Н тогда намекни как это сделать!! Я сам не могу додуматься!!!:)

MotoMustanger 15.08.2007 16:16
Re: Альтернативный экран ввода текста на Моторолах!!!
 
Тебе надо написать canvas textbox. Если поменьше писать, то есть где-то тут на форуме либа CRT, которая выводит строку и автоматически переносит на следующую, если она длиннее экрана(как в обычном Turbo Pascal). Её я не нашел поиском, но где-то видел. А ещё среди библиотек Pilgrima есть либа >>Custom Fonts<<, так она тоже выводит, но уже маленьким рисованным шрифтом (процедурой OutLongStr вроде ). Но это только вывод текста, еще надо написать чтобы прога печатала текст при нажатии клавиш(например клавиша 2 - А,Б,В,Г,2 с каждым последующим нажатием; 3 - Д,Е,Ё,Ж,З,3 и.т.д). Вобщем, работы много.

BASSON XVI 15.08.2007 16:53
Re: Альтернативный экран ввода текста на Моторолах!!!
 
В курсах что много! Есть у меня приложенице написанное на ЯВА!! ТАм реализован ввод текста!!! Может сюда кинуть кто разбираеться покапаеться в нем и напишет либу!! Если что я подсоблю!!!
И ещё есть ли либы спмощью которых можно ловить повтороне и 3 нажаитие кнопки и подставлять буковки!!!! И ли это осуществимо самим МП и стандартными функциями!

MotoMustanger 15.08.2007 17:20
Re: Альтернативный экран ввода текста на Моторолах!!!
 
Цитата:
Сообщение от BASSON XVI
В курсах что много! Есть у меня приложенице написанное на ЯВА!! ТАм реализован ввод текста!!! Может сюда кинуть кто разбираеться покапаеться в нем и напишет либу!!
Я в этом не шарю.
Цитата:
Сообщение от BASSON XVI
И ещё есть ли либы спмощью которых можно ловить повтороне и 3 нажаитие кнопки и подставлять буковки!!!! И ли это осуществимо самим МП и стандартными функциями!
Не видел таких. Думаю это осуществимо самим паскалем. Да и вобще всю прогу можно было на нем написать, но для уменьшения потраченого времени лучше использовать библиотеки.

BASSON XVI 15.08.2007 19:33
знаю есть била или ещё что мне кото-то говорил !!! Моно спомошью ёе коды кнопок вычислять!!!
Скрытый текст (вы должны войти под своим логином или зарегистрироваться и иметь 5 сообщение(ий)):
У вас нет прав, чтобы видеть скрытый текст, содержащийся здесь.


вот написал не весть что не работает!!! А хотелось что б работало!!! Посмотрите !!!
Код:
program Canwas;
uses CRT;
var
  s2, keyaction, tecla : integer;
  buf3, s1  : string;
  tscreen : string;
  clicked : integer;
//-------------------------------------------------------
begin

buf3 := 'My name is Denis!! ';
tscreen := buf3;
write(tscreen);
tecla := GetKeyPressed;
if tecla = ke_key1 then begin s2:=1; s1:=IntegertoString(s2); write(s1); end;
if tecla = ke_key2 then begin s2:=2; s1:=IntegertoString(s2); write(s1); end;
if tecla = ke_key3 then begin s2:=3; s1:=IntegertoString(s2); write(s1); end;
if tecla = ke_key4 then begin s2:=4; s1:=IntegertoString(s2); write(s1); end;
if tecla = ke_key5 then begin s2:=5; s1:=IntegertoString(s2); write(s1); end;
if tecla = ke_key6 then begin s2:=6; s1:=IntegertoString(s2); write(s1); end;
if tecla = ke_key7 then begin s2:=7; s1:=IntegertoString(s2); write(s1); end;
if tecla = ke_key8 then begin s2:=8; s1:=IntegertoString(s2); write(s1); end;
if tecla = ke_key9 then begin s2:=9; s1:=IntegertoString(s2); write(s1); end;
repeat
  keyaction:= keyToAction(getKeypressed);
until keyaction<>GA_NONE;
if (keyToAction(GetKeyPressed)=GA_FIRE) then halt;
delay(900000);
end.
А вот сама библа CRT
Код:

unit CRT;
// эмуляция текстового дисплея
interface
var
 Wrap : boolean; // признак переноса слов при достижении правого края экрана
 MaxLine : integer; // количество строк
 
procedure ClrScr; // оистка экрана
procedure SetBkColor(R,G,B : integer); // устанавливает цвет фона всего экрана
procedure SetFontColor(R,G,B : integer);// устанавливает цвет текста на всем экране
procedure write(s : string); // аналог write
procedure writeln(s : string); // аналог writeln
procedure waitkey(Key : integer) ; // ожидает нажатия на указанную кнопку
procedure waitanykey; // ожидает нажатия на любую кнопку
procedure InitCRT; // инициализация системы вывода (надо вызывать после изменения размера шрифта
implementation
type
 ColorRec = record
 R,G,B : integer;
 end;
 
var
 Screen : array[0..99] of string; // виртуальные строки дисплея
 CurLine : integer; // текущая строка
 CurX : integer; // текущая позиция в строке
 BkColor : ColorRec;
 FColor : ColorRec;
 LineH : integer; // высота строки
 
procedure SetC(C : ColorRec);
begin
 SetColor(C.R, C.G, C.B);
end;
procedure ClearScreen;
var
 i : integer;
begin
 for i := 0 to MaxLine do Screen[i] := '';
end;
 
procedure RedrawScreen; // отрисовка всего текста
var
 i, y : integer;
begin
 SetC(BkColor);
 fillrect(0,0,GetWidth, GetHeight);
 SetC(FColor);
 y := 0;
 for i := 0 to CurLine do begin
  DrawText(Screen[i],0,y);
  y := y + LineH;
 end;
 repaint;
end;
 
procedure ClrScr; // оистка экрана
begin
 CurLine := 0;
 CurX := 0;
 ClearScreen;
 RedrawScreen;
end;
procedure SetBkColor(R,G,B : integer); // устанавливает цвет фона
begin
 BkColor.R := R;
 BkColor.G := G;
 BkColor.B := B;
end;
procedure SetFontColor(R,G,B : integer);// устанавливает цвет текста
begin
 FColor.R := R;
 FColor.G := G;
 FColor.B := B;
end;
procedure ScrollUp;
var
 i : integer;
begin
 for i := 1 to MaxLine do Screen[i-1] := Screen[i];
 Screen[MaxLine] := '';
 CurLine := MaxLine;
end;
procedure NextLine;
begin
 CurLine := CurLine + 1;
 if CurLine > MaxLine then ScrollUp;
 CurX := 0;
end;
procedure AddLine(s : string);
begin
 Screen[CurLine] := Screen[CurLine] + s;
 CurX := GetStringWidth(Screen[CurLine]);
end;
function GetToken(s : string; num : integer): string; // возвращает слово номер num из строки
var
 s1 : string;
 ch : char;
 i : integer;
begin
 ch := getChar(s,num);
 if ch = chr(0)
  then s1 := ''
  else s1 := ''+ch;
 GetToken := s1;
end;
procedure write(s : string); // аналог write
var
 s1,s2, s3 : string;
 i : integer;
 lsp : integer;
 done : boolean;
begin
 if Wrap then begin // если включен перенос
  while s <> '' do begin
  s1 := '';
  i := 0;
  repeat
    s3 := GetToken(s,i);
    s1 := s1 + s3;
    i := i + 1;
    s2 := copy(s,i,length(s));
  until ((GetStringWidth(s1)+CurX) > GetWidth) or (s2 = '') or (s1 = '');
  if s2 <> '' then begin
    i := i -1;
    s1 := copy(s1,0,length(s1)-1);
    s2 := copy(s,i,length(s));
  end;
  AddLine(s1);
  if s2 <> '' then NextLine;
  s := s2;
  end;
 end
 else AddLine(s); // если перенос выключен
 RedrawScreen; // выводим все
end;
procedure writeln(s : string); // аналог writeln
begin
 write(s);
 NextLine;
end;
procedure waitkey(Key : integer) ; // ожидает нажатия на указанную кнопку
begin
 repeat
  delay(100);
 until GetKeyPressed = Key;
end;
procedure waitanykey; // ожидает нажатия на любую кнопку
begin
 repeat
  delay(100);
 until GetKeyPressed <> KE_NONE;
end;
procedure InitCRT;
begin
 LineH := GetStringHeight('S');
 MaxLine := GetHeight / LineH;
 if MaxLine > 100 then MaxLine := 100;
 if MaxLine < 0 then MaxLine := 1;
 MaxLine := MaxLine - 1;
 Clrscr;
 SetBkColor(255,255,255);
 SetFontColor(0,0,0);
end;
initialization
 Wrap := true;
 InitCRT;
end.

MotoMustanger 16.08.2007 12:48
Re: Альтернативный экран ввода текста на Моторолах!!!
 
Вложений: 2
Вот держи полностью переделанная прога с вмонтированной либой crt. Выводит буквы и цифры.

BASSON XVI 16.08.2007 12:57
Re: Альтернативный экран ввода текста на Моторолах!!!
 
Теперь бы ещё сделать что бы вводилось а не только выводилось!! ХАХА

MotoMustanger 16.08.2007 13:00
Re: Альтернативный экран ввода текста на Моторолах!!!
 
Цитата:
Сообщение от BASSON XVI
Теперь бы ещё сделать что бы вводилось а не только выводилось!! ХАХА
Что ты имеешь ввиду? В проге, выложенной выше, текст вводится с клавиатуры в canvas режиме и выводится на экран, только набор символов меньше.

BASSON XVI 16.08.2007 16:19
Re: Альтернативный экран ввода текста на Моторолах!!!
 
Можете дать простенкий пример на содание ресурсового файла!!! А то я не бум бум !! Сне надо чтобы в с него считало и ввыдоло данные в string! В основной код!!

MotoMustanger 16.08.2007 17:35
Re: Альтернативный экран ввода текста на Моторолах!!!
 
ресурс можно только вставить в jar файл через комп и считывать информацию из него. Изменять и создавать с помощью самой java проги его нельзя. Можно через recordstore:
Код:
var rs:recordstore;
buffer:string;
index:integer;
begin
  rs:=openrecordstore('buf');
  index:=addrecordstoreentry('buf','ТЕКСТ'); //записываем текст в хранилище под номером index
  buffer:=ReadRecordStoreEntry('buf',index);  //считываем текст в буфер из хранилища номер index
  closerecordstore('buf');
end;

BASSON XVI 16.08.2007 22:04
Re: Альтернативный экран ввода текста на Моторолах!!!
 
Народ Можете мне показать пример!!! С этими «Ресурсовыми файлами» я то знаю как подключать его!!! А вот как его самому написать не знаю!!! Можно маленький пример с подробным описанием!! Или где моно про это почитать!! В прицепи мне нужен вход в Ресурсовый файл, там проверка на наличие в RS данных !! Если они есть то вывод их в основной код!!

П.С. Я не про те ресурсы!!!! ХАХА Я про то ч как написанна либа CRT!! Мне надо что то на подобе!!!

BASSON XVI 19.08.2007 12:33
Re: Альтернативный экран ввода текста на Моторолах!!!
 
Не ну что мне катонить поможет!!!! Даст какуюнить инфу!!! Про либы написанные на пискале!!!

BASSON XVI 02.09.2007 21:11
Re: Альтернативный экран ввода текста на Моторолах!!!
 
Как я понял про стандартные либи кторотые пишуться на паске мне не кто не что не раскажет!!!! Вопрос другой!! Моно ли в переменно buf в кторой текст найти определённую букву по счёту и удалить её или заменить??? если да то как примерчик маленький моно!!!! :)

ViNT 03.09.2007 13:38
Re: Альтернативный экран ввода текста на Моторолах!!!
 
Можно так:

Код:
//Заменить 1-ю "t" в строке на "d"
buf:=setchar(buf,'d',pos(buf,'t'));

//Заменить все "t" на "d"
for i:= 0 to length(buf)-1 do
if getchar(buf,i)='t' then buf:=setchar(buf,'d',i);

BASSON XVI 03.09.2007 13:47
Re: Альтернативный экран ввода текста на Моторолах!!!
 
Понимаеш в чем проблема у меня идейка! переделывать код набранной клавиши в изображение буквы!! А потом двигая курсором на экране удалать определённую избор буквы! и что бы она в buf удалялась!!!

ViNT 03.09.2007 18:50
Re: Альтернативный экран ввода текста на Моторолах!!!
 
Тогда так:
Код:
function DelChar(s:string;idx:integer):string;
var tmp:string;
begin
tmp:=copy(s,0,idx-1);
tmp:=tmp+copy(s,idx,length(s));
DelChar:=tmp;
end;
Например
Код:
DelChar('stroka',4);
возвращает strka.

BASSON XVI 03.09.2007 21:34
Re: Альтернативный экран ввода текста на Моторолах!!!
 
Ок спасибо! Что бы я без тебя делал!! А можно чем то на подобии этого кода заменять буквы в реестре!
И ещё вопросик как прочитать каждую букву или символ реестра и сопоставить ей изображение!

BASSON XVI 04.09.2007 05:11
Re: Альтернативный экран ввода текста на Моторолах!!!
 
С сопостовлением кажеться я придумал а вот как мне добавлять букву после скажем 4 символов??

ViNT 04.09.2007 15:22
Re: Альтернативный экран ввода текста на Моторолах!!!
 
Можно так:

Код:
function InsertChar(s:string;idx:integer;ch:char):string;
var tmp:string;
begin
tmp:=copy(s,0,idx);
tmp:=tmp+ch;
tmp:=tmp+copy(s,idx,length(s));
InsertChar:=tmp;
end;

BASSON XVI 04.09.2007 15:43
Re: Альтернативный экран ввода текста на Моторолах!!!
 
мож пример я честно не врубаюсь я ещё паскаль не знаю в этом году буду учить!!! А можно как нить из изображения выризать куски мне надо из карты шрифтов вырезать буквы!!!! :) :)

ViNT 04.09.2007 19:25
Re: Альтернативный экран ввода текста на Моторолах!!!
 
Например, если надо в строке '1245678' вставить символ '3' после второго символа, надо использовать функцию так:

Код:
var
buf:string;
...
begin
buf:='1245678';
buf:=insertchar(buf,2,'3');
На счет шрифтов есть стандартная функция ImageFromImage.
Использование описано в хелпе.

BASSON XVI 04.09.2007 19:55
Re: Альтернативный экран ввода текста на Моторолах!!!
 
Можеш пример показать с ImageFromImage понимаеш в русскаом хелпе нет такого!! А в англ я слабо!!!

ViNT 05.09.2007 15:22
Re: Альтернативный экран ввода текста на Моторолах!!!
 
Код:
var
src,dst:image;

begin
src:=loadimage('image.png');
//ImageFromImage(src:image;x,y,w,h:integer)-возвращает изображение из области с координатами x,y и размерами WxH изображения src.
dst:=imagefromimage(src,0,0,10,10);
drawimage(dst,20,20);

BASSON XVI 05.09.2007 18:09
Re: Альтернативный экран ввода текста на Моторолах!!!
 
Все спасибо понял буду тестить!!!!

BASSON XVI 06.09.2007 21:08
Re: Альтернативный экран ввода текста на Моторолах!!!
 
Мда ViNT, если я тебе исходник дам мидлета! Ты сможешь посмтореть что там не так.. А сожеть и придложить более рациональный способ!! Вообщем buf это переменная в которой храниться текст! Если пичатать и дабавлять буквы с функции типа buf+get_char то все нормально отрисовываться будут буквы который будут найдины в buf! А если перед циклом поставить в buf текст то он отрисовываться не будет хотя там он будет а атрисовываться будет текст добавленный из функции!!! Вот Ася 449463014 стуканись плиз я тебе исходник дам и ты все поймёш!!!

ViNT 06.09.2007 22:13
Re: Альтернативный экран ввода текста на Моторолах!!!
 
ICQ не пользуюсь, лучше пиши в личку.

BASSON XVI 07.09.2007 14:41
Re: Альтернативный экран ввода текста на Моторолах!!!
 
лано !!!! Можоте дать ссылку на форум где опсуждают паскаль!!! обычный паскаль!!!! Мне надо пару примеров на открытие и чтение файлов в паскале!!!

ViNT 07.09.2007 16:00
Re: Альтернативный экран ввода текста на Моторолах!!!
 
Вложений: 2
Например
http://pascal.topbb.ru/
http://www.forum.chertenok.ru/

Также могу дать пару примеров:

BASSON XVI 07.09.2007 20:02
Re: Альтернативный экран ввода текста на Моторолах!!!
 
Спасибо ViNT!!!! :)

BASSON XVI 12.09.2007 20:50
Re: Альтернативный экран ввода текста на Моторолах!!!
 
Это можете сказать как на обычном паскале перевести со string в НЕХ данные я пробывал не получилось!! А файл большой вооще мегов на 12 будет! А да а моно потом какнить офсеты расставить мысслено что бы результат совпадений по адресу авсетов вылазил!!!

ViNT 12.09.2007 23:31
Re: Альтернативный экран ввода текста на Моторолах!!!
 
Из string в hex ето как?
Типа закодировать строку в виде кодов символов?
Вообще стандартной функции для перевода в hex нет.
Нужно искать алгоритм и писать самому.
А вообще, советую не мучиться с паскалем, а переходить сразу на Delphi.
Тот же паскаль, только под windows и гораздо больше возможностей.

BASSON XVI 13.09.2007 06:12
Re: Альтернативный экран ввода текста на Моторолах!!!
 
ВО я уже перешол и меня мучает два вопроса!!!!!!
Вообшем после перехода на новую форму типана не(й нажимаеться кнопка она закрываеться и передаёться управление первой форме но мне после этого надо данные в интегере обработать как это сделать!!!!
И ещё можно ли вставить проводник для открытия документов!!!!!!

ViNT 13.09.2007 15:43
Re: Альтернативный экран ввода текста на Моторолах!!!
 
Форма скрывается(удаляется с экрана без уничтожения) процедурой Hide. Снова открывается командой Show.
Если ты имеешь в виду обработку данных от формы после её закрытия, то процедуру обработки надо разместить в обработчике OnClick кнопки закрытия.
Для открытия файлов есть компонент TOpenDialog с вкладки Dialogs.
Чобы открыть его, используй такую конструкцию:
Код:
if opendialog1.execute then
edit1.text:=opendialog1.filename;

BASSON XVI 13.09.2007 17:44
Re: Альтернативный экран ввода текста на Моторолах!!!
 
Спасибо кое что понял и сделал!!! У мя теперь другой вопрос как Сделать офсеты допустим я считаю файл который в одну строку переведу его в некс!!! А как мне его разбить на офсеты!! Потом у мя по файлу будет идти поиск совпадения и прога должна будет сообщить что мол в таком то овсете найдено сообщение!! Но мне пока нужно сделать Офсеты!!!

ViNT 13.09.2007 18:15
Re: Альтернативный экран ввода текста на Моторолах!!!
 
Разбить на офсеты ето как?
Представить в виде таблицы?
Тогда надо использовать двумерный массив.

BASSON XVI 14.09.2007 05:12
Re: Альтернативный экран ввода текста на Моторолах!!!
 
Прошу дать не большой но хороший учебник в котором все написанно по полочкам!!!! Где описаннны переходы с процедуры на процедуру вызовы диалого и т.д.

BASSON XVI 14.09.2007 10:44
Re: Альтернативный экран ввода текста на Моторолах!!!
 
Есть фавйлы с расшерениям BIN мне надо их прочесть не подскажите как!!! Они написанны на 16 так как это файлы прошивки сотки!!!!

ViNT 14.09.2007 14:21
Re: Альтернативный экран ввода текста на Моторолах!!!
 
Вложений: 2
А, вот в чем дело.
Тогда посоветую юзать вот этот компонент.
Почти готовый hex-редактор.

BASSON XVI 14.09.2007 21:47
Re: Альтернативный экран ввода текста на Моторолах!!!
 
А есть ли русификатор на Делфи 7!!!

ViNT 15.09.2007 00:32
Re: Альтернативный экран ввода текста на Моторолах!!!
 
Помоему нет.
Русский D6 видел, а для 7 версии так и не нашел.

Данил 15.09.2007 11:11
Re: Альтернативный экран ввода текста на Моторолах!!!
 
даже не представляю, как реализовать альтернативный экран ввода.. не, конечно моно это легко реализовать, но в прогах типо Jimm нужен Т9, который сам, я думаю, не сделаешь..

А так чисто по клавишам мона реализовать... проверяем на время и если нажали на кнопку и время небольшое, то переводим на следующую букву.. или же сделать вверх / вниз перемотку алфавита. .ноэто очень долгий способ....

Кстати да.. моторола ваще умирает при тексте , хотя бы в 100 симовлов.. помню, писал , было уже около 300 символов.. пишу - пишу, а телефон слов на 5-6 отстал... (((

BASSON XVI 15.09.2007 18:52
Re: Альтернативный экран ввода текста на Моторолах!!!
 
блин можеш сказать как мне оттуда выдрать функцию некс файлов!!!! ну там таблицу в главном окне!!! А и ещё как мне тхт файл прочесть и после определённых слов начать искать последовательности в этом бинарике!!!А да и самое главное как мне билы от туда подключить на Д6

BASSON XVI 15.09.2007 18:53
Re: Альтернативный экран ввода текста на Моторолах!!!
 
Упс как мне оттуда выдрать откритие в некс!! формате

ViNT 15.09.2007 22:01
Re: Альтернативный экран ввода текста на Моторолах!!!
 
В архиве есть примеры использования компонента.
Библы от D6 ето в смысле модули?
Если модули, то просто скопируй либо в папку проекта либо в папку lib в папке delphi.

BASSON XVI 17.09.2007 21:05
Re: Альтернативный экран ввода текста на Моторолах!!!
 
МММ да не помогает это ругаеться мой Д6 на какието файлы!!! Лано скоро возьму Д7 там легче!!!

BASSON XVI 22.09.2007 16:53
Re: Альтернативный экран ввода текста на Моторолах!!!
 
Ладно вернёмся к МП!! Как разбить текст на массивы по 200 символов?
А саммое главное как сделать отклик если допустим на канвасе текст прорисован на канвасе и часть его выделена!!! Вот какой вопрос сложный?? Сам не когда не допрусь!!! :)

ViNT 22.09.2007 23:13
Re: Альтернативный экран ввода текста на Моторолах!!!
 
По поводу разбивки на массивы помоему так:
Код:
var
arr:array[0..10]of string;
i,c,j:integer;
ch:char;
str:string;
begin
c:=length(str) div 200;
for i:= 0 to c-1 do
arr[i]:=copy(str,i*200,i*200+199);

end.
По второму вопросу-лучше всего сделать как в моторе-
нажал одну клавишу-начал выделение, передвинул курсор джойстиком-выделил символ, нажал другую кнопку-скопировал текст в буфер.

BASSON XVI 23.09.2007 09:00
Re: Альтернативный экран ввода текста на Моторолах!!!
 
Тот кусок котороый ща выводиться на канвасе примерно 200 символов!! принажатии на крестик копировался в доп буфер с каторого редактировался в стандартных средствах!! а потом обратно в основной буфер записывался и дальше шол вывод на экран!!! ВО как!!!

ViNT 23.09.2007 11:42
Re: Альтернативный экран ввода текста на Моторолах!!!
 
1.Разбей текст на блоки по 200 байт(в массив).
2.Запиши в переменную номер текущего блока(который выведен на экран).
3.Загрузи блок в textbox
4.После завершения редактирования запиши полученную строку в массив под записанным в переменную номером.
5.Слепи содержимое всех блоков массива в одну строку.
6.Очисти основной буфер и запиши в него эту строку.
7.Снова разбей текст на блоки и так далее.

BASSON XVI 23.09.2007 12:07
Re: Альтернативный экран ввода текста на Моторолах!!!
 
мда... лано ... я тут удалил нечаянно исходники своего мидлета так что пока базово не напишу опять с экраном можно будет опять подождать!


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

vBulletin® Version 3.6.5.
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Перевод: zCarot