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=3789)

Re: Помогите начинаешему ЯВеру!

if sms.send('sms://'+dest, text)=0 then
showError('Error');
while sms.is_sending<>0 do begin
Delay(100);
end;
if sms.successfull=0 then
Debug('Error');

Re: Помогите начинаешему ЯВеру!

Спасиб посомтрю ща дописываю своему прилож нормальный Фм! Как только с ним разберюся так сразу и за СМС возсюь!

Re: Помогите начинаешему ЯВеру!

Вот посмотрите код что то не работает!

Код:

program TxT_Edtihion2;

uses jsr75;

uses fsafm;

  var

     cmdNext : command;  

     cmdBack : command;  

     cmdQuit : command; 

PCmd,MCmd, clicked : command;



str : string;    // буфер

files: array[1..200] of string; // имена файлов, коичество файлов = размер массива 

filesID: array[1..200] of integer; // ID строк  

nameT : string; // текущая папка



num : integer; // щечики 

iID : integer;

nfile : string;

etc : string;



//--------------------------------------------------------------------------------------

{Мои булеаны!}

BultextBox, BultextOpen : boolean;

//---------------------------------------------------------------------------------------

{Указываем на процедуры которые идут после комманд на них}

procedure textBox; forward;

procedure textOpen; forward;



//---------------------------------------------------------------------------------------

procedure textOpen;



begin



cmdNext := CreateCommand('ок', CM_OK, 1); 

  cmdBack := CreateCommand('выход', CM_EXIT, 1); 



nameT:= ''; // начальная папка



 while (clicked <> cmdBack) do 

 begin 

 // очищаем команды

  removeCommand(cmdNext);

  removeCommand(cmdBack);

  Repaint; // обновление экрана







  if nameT = '' then // проверка на нахождение в корне

  begin





   str:=fsafm.list_roots(''); // чтение дисков

       num:= fsafm.num_disk(nameT); // определяем кол-во дисков







  end  

  else

  begin





   str:=fsafm.list_(nameT); // чтение папок

   num:= fsafm.num_dir(nameT); // определяем кол-во папок



  end;



 files [1]:= '...'; // добавляем первой строкой, выполняет функцию вверх







if str <> '' then  // проверка наличия файлов 

 begin







   for i:=2 to num + 1 do // очистка меню

   begin

   files [i]:= ''

   end;





  for i:=2 to num + 1 do

  begin





    files [i]:=  copy(str, 0, pos(str, '|') ); //заполнение массива именами 

    str:= copy(str, pos(str, '|') + 1 , length(str));



   if pos(str, '|') = -1 then  // проверка знака '|' в строке

   begin

   str:= '.';

   break;  

   end;



   end;

end;   









 // создаем меню







 showMenu(nameT, CH_IMPLICIT); 



 for i:= 1 to num + 1 do

 begin 

    if files[i] <> '' then 

    begin

    filesID [i] := menuAppendString(files[i]); // создаем строки

    end;

 end;





            // добавление команд

            AddCommand(cmdNext);

  AddCommand(cmdBack);

  Repaint; // обновление экрана







            repeat  // ждем нажатия на команду

  delay(100);

  clicked:= getClickedCommand; 

  until clicked <> emptyCommand; 



  if clicked <> cmdBack then 

  begin



  iID:= menuGetSelectedIndex + 1; // к ID выбранной строки прибавим 1, для удобства 



   if iID=1 then // если первая строка, переходим вверх

   begin

    if Length(nameT) <= 3 then // проверка на нахождение в корне

    begin

    nameT:='';

    end

    else

    begin



    for i:= 2 to length(nameT) do // команда вверх, вычисление предидущей папки

    begin



     if copy(nameT, length(nameT) - i, length(nameT) - i + 1 ) = '/' then

     begin



     nameT:= copy(nameT, 0, length(nameT) - i + 1  );

     break;



     end;

    end;

    end;

   end

   else

   begin





     if copy(files[iID], length(files[iID]) - 1, length(files[iID])) = '/' then nameT:= nameT + files[iID]; // если выбрана папка переходим в нее



     if length(files[iID]) >= 4 then

     begin



      if copy(files[iID], length(files[iID]) - 4, length(files[iID])) = '.gif' then debug('gif'); 

       if copy(files[iID], length(files[iID]) - 4, length(files[iID])) = '.txt' then 

       begin

        buf:= jsr75.read_file(nameT + files[iID]);

          textbox;

       end; 





     end;

   end;



  end;



 end;  

end;







//---------------------------------------------------------------------------------------



procedure textBox;

begin

   buf:= jsr75.read_file(fname);

   buf:= getTextBoxString;      



   showtextbox('Редактирование',buf,2000,tf_any);

   PCmd := createCommand('Сохранить', CM_SCREEN, 1); 

   MCmd := createCommand('Меню', CM_OK, 0);

   addCommand(PCmd);

   addCommand(MCmd);

   repaint;  

   repeat 

     clicked := getClickedCommand; 

   until clicked <> emptyCommand; 



   if clicked = MCmd then logMenu;

   if clicked = PCmd then logSave;



end;



//---------------------------------------------------------------------------------------

begin 

   textOpen;

end.

Re: Помогите начинаешему ЯВеру!

Ой забыл библу присоединить нудную! Вот держите!
Вложение 4124

Re: Помогите начинаешему ЯВеру!

НАрод помгайте мне!!! Короче у меня что что с Канвасом стало! Ранше он на Л6 на весь экран был! А теперь белая полоска в 10 пикселей мешает!!! Я даже незнаю что и откуда она взялась! раньше её не было!!!

У тебя два раза написано uses. Пиши так: uses fsafm, jsr75. Остальные ошибки незаметны с оперы мини))) А насчет канваса я не понял, че с ним делал и какие ошибки пишет компилятор

Re: Помогите начинаешему ЯВеру!

Я гороврю не про код FM! Я говорю про экран канвас!!!!

Цитата:

Re: Помогите начинаешему ЯВеру!

Софт-полоска или чтото другое?

Re: Помогите начинаешему ЯВеру!

Извеняй что не написал решил эту траблу!! С помощью добавления класса МММ! А вооще просто белая полоска в 10 пикселей! Была!!!!

Re: Помогите начинаешему ЯВеру!

Можно ли на чертить сетку(условно) в канвасе по которой будет двигаться курсор? Ну скажем квадратами в 10 пикселей! И скажите как пользоваться либой Канвас!(пару кусков кода!)мне нужно вырезать определённые куски изображения из карты шрифта J !

Re: Помогите начинаешему ЯВеру!

На счет сетки-примерно так:

Код:

program NewProject;

var

x,y:integer;

ix,iy,oix,oiy:integer;

key:integer;



procedure drawbutton(x,y,w,h:integer;pressed:boolean);

begin

setcolor(128,128,128);

fillrect(x,y,w,h);

if pressed then

begin

setcolor(0,0,0);

drawline(x,y,x+w,y);

drawline(x,y,x,y+h);

setcolor(255,255,255);

drawline(x+w,y+h,x+w,y);

drawline(x+w,y+h,x,y+h);

end;



if not pressed then

begin

setcolor(255,255,255);

drawline(x,y,x+w,y);

drawline(x,y,x,y+h);

setcolor(0,0,0);

drawline(x+w,y+h,x+w,y);

drawline(x+w,y+h,x,y+h);

end;

end;





begin

iy:=1;

ix:=1;

oix:=1;

oiy:=1;

for y:= 1 to 10 do

for x:= 1 to 10 do

begin

drawbutton(x*10,y*10,9,9,false);

end;

repaint;

repeat



key:=getkeyclicked;

if key=ke_key6 then ix:=ix+1;

if key=ke_key4 then ix:=ix-1;

if key=ke_key2 then iy:=iy-1;

if key=ke_key8 then iy:=iy+1;



if key<>ke_none then

begin

drawbutton(ix*10,iy*10,9,9,true);

drawbutton(oix*10,oiy*10,9,9,false);

oix:=ix;

oiy:=iy;

repaint;

end;

key:=ke_none;

until key=ke_key0;



repaint;        

delay(20000);

end.

На счет либы канвас должен быть пример в архиве.