|
Разработка библиотеки phforms
|
|
| PVD | Дата: Воскресенье, 14.02.2010, 12:15 | Сообщение # 1 |
 Непонятливый
Группа: Пользователи
Сообщений: 36
Награды: 0
Репутация:
« 0 »
Статус: Offline
| Недавно узнал про Mdlet Pascal работать с стандартными меню не получилось то ли они глючат то ли я не разобрался... И к тому же захотелось на весь экран и покрасивее.. Так что вот пробую сделать библиотеку для создания вот таких форм... 
http://img3.tempfile.ru/9044/12f3c1eec8/o0ja6abcqi1wv3zsxd9hi95x.jpg
|
| |
| |
| 121212 | Дата: Воскресенье, 14.02.2010, 13:17 | Сообщение # 2 |
|
Программист
Группа: Проверенные
Сообщений: 268
Награды: 7
Репутация:
« 14 »
Статус: Offline
| создавай готов помочь чемнибудь например примером на самом mp
|
| |
| |
| PVD | Дата: Воскресенье, 14.02.2010, 13:23 | Сообщение # 3 |
|
Непонятливый
Группа: Пользователи
Сообщений: 36
Награды: 0
Репутация:
« 0 »
Статус: Offline
| Я вот думаю как бы реализовать рисунки просто хочу сделать интерфейс как в опере например Только вот делать рисунки под все разширения не решение.. думаю может сделать вектор?
|
| |
| |
| PVD | Дата: Воскресенье, 14.02.2010, 18:25 | Сообщение # 4 |
|
Непонятливый
Группа: Пользователи
Сообщений: 36
Награды: 0
Репутация:
« 0 »
Статус: Offline
| Сейчас Существуют такие элементы
_MSelectedLabel - выбираемая панель меню
_MStaticText - выбираемый статический текст
_MChangeText - выбираемый и изменяемый текст
и вот такие процедуры и функции
procedure _init;
function _addSelLab(_text:string;_parent:integer):Integer;
function _addStaTex(_text:string;_parent:integer):Integer;
function _addChgTex(_text:string;_parent:integer):Integer;
procedure _frame;
procedure _settext(_text:string;_index:Integer);
function _gettext(_index:Integer):String;
function _getselected:Integer;
procedure _setittle(_text:String);
|
| |
| |
| PVD | Дата: Воскресенье, 14.02.2010, 20:29 | Сообщение # 5 |
|
Непонятливый
Группа: Пользователи
Сообщений: 36
Награды: 0
Репутация:
« 0 »
Статус: Offline
| Сделал чекбокс и заголовок(в самом тексте) скоро думаю сделать что-то типа трек бара. трек загрузки, диалога просмотра изображения а также загрузку текста из .txt файла... ну и еще нужно будет наделать кучу разных функций для получения статуса элементов... во общем работы валом
|
| |
| |
| PVD | Дата: Воскресенье, 14.02.2010, 23:27 | Сообщение # 6 |
|
Непонятливый
Группа: Пользователи
Сообщений: 36
Награды: 0
Репутация:
« 0 »
Статус: Offline
| Новая версия
|
| |
| |
| 12121 | Дата: Понедельник, 15.02.2010, 09:27 | Сообщение # 7 |
|
Программист
Группа: Проверенные
Сообщений: 357
| Либа для загрузки текста из ресурсного .txt есть.
http://forum.boolean.name/showthread.php?t=8201
стоит ли делать?
А так конечно молодец
|
| |
| |
| 121212 | Дата: Понедельник, 15.02.2010, 16:09 | Сообщение # 8 |
|
Программист
Группа: Проверенные
Сообщений: 268
Награды: 7
Репутация:
« 14 »
Статус: Offline
| хотелось бы посмотреть исходник)))
|
| |
| |
| PVD | Дата: Понедельник, 15.02.2010, 21:15 | Сообщение # 9 |
|
Непонятливый
Группа: Пользователи
Сообщений: 36
Награды: 0
Репутация:
« 0 »
Статус: Offline
| Quote Либа для загрузки текста из ресурсного .txt есть.
http://forum.boolean.name/showthread.php?t=8201
стоит ли делать?
Стоит еще как стоит.. там не то что мне нужно у меня все абсолютно свое... перерисовка принцип действия и т д поетому то не подходит буду писать специально под phforms... Еще вопрос как измерять озу используемую мидлетом?
Сообщение отредактировал PVD - Понедельник, 15.02.2010, 21:21 |
| |
| |
| PVD | Дата: Понедельник, 15.02.2010, 22:51 | Сообщение # 10 |
|
Непонятливый
Группа: Пользователи
Сообщений: 36
Награды: 0
Репутация:
« 0 »
Статус: Offline
| Сделал считывания через readbyte русский текст не отображается 
|
| |
| |
| PVD | Дата: Понедельник, 15.02.2010, 23:36 | Сообщение # 11 |
|
Непонятливый
Группа: Пользователи
Сообщений: 36
Награды: 0
Репутация:
« 0 »
Статус: Offline
| какая нужна кодировка для прорисовки текста через drawtext? и какая кодировка хранится в ресурсах? и собственно как ее изменить?
|
| |
| |
| 121212 | Дата: Вторник, 16.02.2010, 14:13 | Сообщение # 12 |
|
Программист
Группа: Проверенные
Сообщений: 268
Награды: 7
Репутация:
« 14 »
Статус: Offline
| Function StrToUtf8(s: string;): string;
var i, c: integer; ch: char; ss: string;
begin
if (pos(s,chr(65488))<>-1) or (pos(s,chr(65489))<>-1) then begin
for i:=1 to Length(s) do begin
ch:=GetChar(s,i-1); c:=ord(ch);
if c=65488 then begin
ss:=ss+CHR(ord(GetChar(s,i))-64384);
i:=i+1;
end
else begin
if c=65489 then begin
ss:=ss+chr(ord(GetChar(s,i))-64320);
i:=i+1;
end
else ss:=ss+ch;
end;
end;
StrToUtf8:=ss;
end
else StrToUtf8:=s;
end;
пример drawText(''+StrToUtf8(привет)+'',0,0);
|
| |
| |
| PVD | Дата: Вторник, 16.02.2010, 16:06 | Сообщение # 13 |
|
Непонятливый
Группа: Пользователи
Сообщений: 36
Награды: 0
Репутация:
« 0 »
Статус: Offline
| Нет так я пробывал не момогает отображаются нолики
|
| |
| |
| PVD | Дата: Вторник, 16.02.2010, 17:26 | Сообщение # 14 |
|
Непонятливый
Группа: Пользователи
Сообщений: 36
Награды: 0
Репутация:
« 0 »
Статус: Offline
| хм кодировка имеет формат -48-80 -48-81 -48-64... 
|
| |
| |
| PVD | Дата: Вторник, 16.02.2010, 18:28 | Сообщение # 15 |
|
Непонятливый
Группа: Пользователи
Сообщений: 36
Награды: 0
Репутация:
« 0 »
Статус: Offline
| все разобрался это атрибуты напмиешу простенький конвертер игнорирующий атрибуты к сожалению ёЁ не получится сделать для них нужны атрибуты
|
| |
| |
