/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Delphi

Выпуск № 895
от 14.08.2007, 22:35

Вопрос № 97.791

как у WebBrowser отключить загрузку изображений? и еще , почему иногда появляется окно "Ошибка сценария" и как его отключить? Спасибо.

Отправлен: 09.08.2007, 00:22 Вопрос задал: Seredovskiy (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 4)

Отвечает: Карабанов Алексей Здравствуйте, Seredovskiy! Загрузка изображений отключается в обозревателе меню Сервис->Свойства обозревателя. На вкладке Дополнительно в группе Мультимедиа снять галочку Отображать рисунки. Что касается "Ошибки сщенария", то она связана с невозможность оборзевателя выполнить команды скриптов некоторых страниц. Попробуйте в Свойствах обозревателя на вкладке Дополнительно в группе Обзор установить две галочки Отключить отладку сценариев. --------- Дорогу осилит идущий!

Ответ отправил: Карабанов Алексей (статус: 6-ой класс) Ответ отправлен: 09.08.2007, 07:38

Отвечает: Mishell Здравствуйте, Seredovskiy! как вариант можно сделать так: for i:=0 to WebBrowser1.OleObject.Document.Images.Length-1 do WebBrowser1.OleObject.Document.Images.Item(0).Src:=''; я понимаю, что это не совсем то что надо, но пока пришло в голову только это

Ответ отправил: Mishell (статус: 5-ый класс) Ответ отправлен: 09.08.2007, 13:02

Вопрос № 97.820

Здравствуйте, ув. эксперты! Помогите написать программу, осуществляющую разделение слова на части для переноса. Дано русское предложение.

Отправлен: 09.08.2007, 11:24 Вопрос задал: Valent (статус: Посетитель) Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 2)

Отвечает: Bee.line Здравствуйте, Valent! Я сам когда хотел это сделать, но... подобие этого можете посмотреть в приложении Приложение: unit Hyper; interface uses Windows,Classes,SysUtils; Function SetHyph(pc:PChar;MaxSize:Integer):PChar; Function SetHyphString(s : String):String; Function MayBeHyph(p:PChar;pos:Integer):Boolean; implementation Type TSymbol=(st_Empty,st_NoDefined,st_Glas,st_Sogl,st_Spec); TSymbAR=array [0..1000] of TSymbol; PSymbAr=^TSymbAr; Const HypSymb=#$1F; Spaces=[' ', ',',';', ':','.','?','!','/', #10, #13 ]; GlasCHAR=['?', 'L', 'х', '+', 'v', '-','р', '-', 'ю', '+', ' ', '-', 'ш', 'L', '¦', '¦', '?', '¦', { english } 'e', 'E', 'u', 'U','i', 'I', 'o', 'O', 'a', 'A', 'j', 'J' ]; SoglChar=['?', 'г' , 'ъ', '¦' ,'э', '=' , 'у', '+' , '°', '+' , 'pазмеpе , '-' , 'ч', '¦' , '?', '-' ,'?', 'L' , 'т', 'T' , 'я', '¦' , 'Ё', '¦' , 'ы', 'T' , 'ф', '-' ,'ц', '¦' , '?', '+' , 'ё', 'T' , 'ь', '¦' , '?', 'T' , 'с', '+' , { english } 'q', 'Q','w', 'W', 'r', 'R','t', 'T','y', 'Y','p', 'P','s', 'S', 'd', 'D','f', 'F', 'g', 'G','h', 'H','k', 'K','l', 'L','z', 'Z', 'x', 'X','c', 'C', 'v', 'V', 'b', 'B', 'n', 'N','m', 'M' ]; SpecSign= [ '·', '-','c', '-', 'щ', 'г']; Function isSogl(c:Char):Boolean; begin Result:=c in SoglChar; end; Function isGlas(c:Char):Boolean; begin Result:=c in GlasChar; end; Function isSpecSign(c:Char):Boolean; begin Result:=c in SpecSign; end; Function GetSymbType(c:Char):TSymbol; begin if isSogl(c) then begin Result:=st_Sogl;exit;end; if isGlas(c) then begin Result:=st_Glas;exit;end; if isSpecSign(c) then begin Result:=st_Spec;exit;end; Result:=st_NoDefined; end; Function isSlogMore(c:pSymbAr;start,len:Integer):Boolean; var i:Integer; glFlag:Boolean; begin glFlag:=false; for i:=Start to Len-1 do begin if c^[i]=st_NoDefined then begin Result:=false;exit;end; if (c^[i]=st_Glas)and((c^[i+1]<>st_Nodefined)or(i<>Start)) then begin Result:=True; exit; end; end; Result:=false; end; { Ёрёё?рты ыър яхЁхэюёют } Function SetHyph(pc:PChar;MaxSize:Integer):PChar; var HypBuff : Pointer; h : PSymbAr; i : Integer; len : Integer; Cur : Integer; { } cw : Integer; { =юьхЁ с?ътv т ёыютх } Lock: Integer; { ё?х??шъ сыюъшЁютюъ } begin Cur:=0; len := StrLen(pc); if (MaxSize=0)OR(Len=0) then begin Result:=nil; Exit; end; GetMem(HypBuff,MaxSize); GetMem(h,Len+1); { чряюыэхэшх ьрёёштр ?шяют ёшьтюыют } for i:=0 to len-1 do h^[i]:=GetSymbType(pc[i]); { ёюсё?тхээю Ёрёё?рэютър яхЁхэюёют } cw:=0; Lock:=0; for i:=0 to Len-1 do begin PChar(HypBuff)[cur]:=PChar(pc)[i];Inc(Cur); if i>=Len-2 then Continue; if h^[i]=st_NoDefined then begin cw:=0;Continue;end else Inc(cw); if Lock<>0 then begin Dec(Lock);Continue;end; if cw<=1 then Continue; if not(isSlogMore(h,i+1,len)) then Continue; if (h^[i]=st_Sogl)and(h^[i-1]=st_Glas)and(h^[i+1]=st_Sogl)and(h^[i+2]<>st_Spec) then begin PChar(HypBuff)[cur]:=HypSymb;Inc(Cur);Lock:=1;end; if (h^[i]=st_Glas)and(h^[i-1]=st_Sogl)and(h^[i+1]=st_Sogl)and(h^[i+2]=st_Glas) then begin PChar(HypBuff)[cur]:=HypSymb;Inc(Cur);Lock:=1;end; if (h^[i]=st_Glas)and(h^[i-1]=st_Sogl)and(h^[i+1]=st_Glas)and(h^[i+2]=st_Sogl) then begin PChar(HypBuff)[cur]:=HypSymb;Inc(Cur);Lock:=1;end; if (h^[i]=st_Spec) then begin PChar(HypBuff)[cur]:=HypSymb;Inc(Cur);Lock:=1; end; end; {} FreeMem(h,Len+1); PChar(HypBuff)[cur]:=#0; Result:=HypBuff; end; Function Red_GlasMore(p:Pchar;pos:Integer):Boolean; begin While p[pos]<>#0 do begin if p[pos] in Spaces then begin Result:=False; Exit; end; if isGlas(p[pos]) then begin Result:=True; Exit; end; Inc(pos); end; Result:=False; end; Function Red_SlogMore(p:Pchar;pos:Integer):Boolean; Var BeSogl,BeGlas:Boolean; begin BeSogl:=False; BeGlas:=False; While p[pos]<>#0 do begin if p[pos] in Spaces then Break; if Not BeGlas then BeGlas:=isGlas(p[pos]); if Not BeSogl then BeSogl:=isSogl(p[pos]); Inc(pos); end; Result:=BeGlas and BeSogl; end; Function MayBeHyph(p:PChar;pos:Integer):Boolean; var i:Integer; len:Integer; begin i:=pos; Len:=StrLen(p); Result:= (Len>3) AND (i>2) AND (i<Len-2) AND (not (p[i] in Spaces)) AND (not (p[i+1] in Spaces)) AND (not (p[i-1] in Spaces)) AND ( (isSogl(p[i])and isGlas(p[i-1])and isSogl(p[i+1])and Red_SlogMore(p,i+1)) OR ((isGlas(p[i]))and(isSogl(p[i-1]))and(isSogl(p[i+1]))and(isGlas(p[i+2]))) OR ((isGlas(p[i]))and(isSogl(p[i-1]))and(isGlas(p[i+1])) and Red_SlogMore(p,i+1) ) OR ((isSpecSign(p[i]))) ); end; Function SetHyphString(s : String):String; Var Res:PChar; begin Res:=SetHyph(PChar(S),Length(S)*2) Result:=Res; FreeMem(Res,Length(S)*2); end; end.

Ответ отправил: Bee.line (статус: 1-ый класс) Ответ отправлен: 09.08.2007, 11:41

Отвечает: Shveps Здравствуйте, Valent! Программка, приведенная в приложении рассчитана на перенос текста, если он не помещается по длине в прямоугольник (TRect), в который он печатается. Плюс умеет переносить, если встречаются знаки препинания и прочие знаки не алфавита. Для переноса согласно русскому языку это довольно большая задача, которая потребует написать анализатор предложения на предмет правил переноса слов. Могу посоветовать использовать класс TfrxDrawText из пакета FastReport. Если вы достаните исходники, то можно проанализировть работу алгоритма и сделать свой, адаптированный к вашей задаче. Приложение: unit uWrapText; interface uses Graphics, SysUtils, System, Math, Types; type MassStr = array of string; function LineFolding(Sentence: string; Rect: TRect; ACanvas: TCanvas): MassStr; implementation {$X+} function LineFolding (Sentence: string; Rect: TRect; ACanvas: TCanvas): MassStr; var i, j, SpacePos, SimvPos: Integer; SubWord, Sentence: string; CountChars: Integer; MassWords: array of string; function CountOfChar(Sentence: string): Integer; begin Result:=1; while Result < Length(Sentence) do begin SubWord := Copy(Sentence, 0, Result); if ACanvas.TextWidth(SubWord) > (Rect.Right - Rect.Left) then break; Inc(Result); end; Dec(Result, 2); Result:=Max(Result, 1); end; procedure WrapCellText(Sentence: string); begin i:=0; if ACanvas.TextWidth(Sentence) > (Rect.Right - Rect.Left) then while i < Length(Sentence) do begin CountChars:= CountOfChar(Sentence); SetLength(MassWords, j); SubWord:= TrimLeft(Copy(Sentence, i+1,CountChars)); SpacePos:=Pos(' ', SubWord); SimvPos:=Pos('-', SubWord); SpacePos:=Max(SpacePos, SimvPos); SimvPos:= Pos('', SubWord); SpacePos:=Max(SpacePos, SimvPos); SimvPos:= Pos('/', SubWord); SpacePos:=Max(SpacePos, SimvPos); SimvPos:= Pos(',', SubWord); SpacePos:=Max(SpacePos, SimvPos); if ((CountChars - SpacePos) < 4) and ((CountChars - SpacePos) > 0) then begin MassWords[j-1]:= Copy(SubWord, 0, SpacePos); Sentence:=Copy(Sentence, i+SpacePos+(CountChars - SpacePos), Length(Sentence)); Inc(j); WrapCellText(Sentence); end else begin MassWords[j-1]:= TrimLeft(Copy(Sentence, i+1,CountChars)); i:=i+CountChars; Inc(j); end; end else begin SetLength(MassWords, j); MassWords[j-1]:=Sentence; end; end; begin if Sentence = '' then begin MassWords:=nil; Result:=MassWords; end else begin WrapCellText(Sentence); Result:=MassWords; end; end; end. --------- Пиво ф топку !!! Водку Тоже !!!

Ответ отправил: Shveps (статус: 8-ой класс) Ответ отправлен: 09.08.2007, 11:57

Отвечает: Mishell Здравствуйте, Valent! посмотрите вот этот вариант: http://delphiworld.narod.ru/base/carrying_rus_text_on_slabs.html

Ответ отправил: Mishell (статус: 5-ый класс) Ответ отправлен: 09.08.2007, 13:24

Вопрос № 97.876

Вот есть такая программа Process Explorer, так вот в ней идет иерархическая структура процессов системы слева, а справа доп. информация, и все это в одном ListView. Как сие сделать??? Ну или хотябы как в ListView добавить кнопочки с "-" или "+" как в TreeView??? За ранее спасибо!!!

Отправлен: 09.08.2007, 20:29 Вопрос задал: Korolyov Alexandr (статус: 3-ий класс) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Mishell Здравствуйте, Korolyov Alexandr! возможно в этой программе используется не ListView, а VirtualTreeView (достаточно мощьный компонент) но все-таки можно это сделать и с помощью ListView: выставляем OwnerDraw:=true и рисуем в OnCustomDraw и/или OnCustomDrawItem + в OnMouseUp проверяем клики с помощью GetItemAt, чтобы "сворачивать/разворачивать" строки...

Ответ отправил: Mishell (статус: 5-ый класс) Ответ отправлен: 10.08.2007, 09:49 Оценка за ответ: 4 Комментарий оценки: "выставляем OwnerDraw:=true и рисуем в OnCustomDraw и/или OnCustomDrawItem" - а нельзя ли поподробней, что-то не совсем ясно, может проще использовать ImageList для рисования плюсиков и минусиков...

Отвечает: Coupler Здравствуйте, Korolyov Alexandr! Во-первых, там 2 SysListView32, т.е. TListView, а между ними еще и разделитель, а во вторых, что мешает использовать TTreeView+TListView? Например: имена процессов добавляем в TTreeView, а информацию о них - в TListView и переменную типа TStringList. При сворачивании (TTreeView OnCollapsing) удаляем строки из TListView, а при разворачивании (TTreeView OnExpanding) добавляем на ту же строку.

Ответ отправил: Coupler (статус: Практикант) Ответ отправлен: 10.08.2007, 12:51 Оценка за ответ: 4 Комментарий оценки: Да все верно, но всеже в Process Explorer используется ListView, это позволяет осуществлять сортировку процессов, при том сортировку можно осуществлять по правому ListView, что не получиться при использовании TreeView

Вопрос № 97.881

Ув.эксперты. Скажите пожалуйста. Я создаю программу(текстовый редактор), и хочу сделать так чтобы файлы сохранённые через мою программу открывались тоже в ней, а не в блокноте, например. Вообщем скажите плиззз как создаются новые расширения. Заранее огромное спасибо.

Отправлен: 09.08.2007, 21:48 Вопрос задал: Патрикеев Сергей (статус: Посетитель) Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 2)

Отвечает: Василенко Алексей Васильевич Здравствуйте, Патрикеев Сергей! Создать новое расширение не сложно, просто пишим после "." какай-нить набор символов(например *.qse). основная сложность - предусмотреть открыте файлов программой, т.е. не изнутри программы. внутри программы все гараздо проще, чем может показаться на первый взгляд. Придумываем какой-нить удобный для себя формат хранения данных. Ассоциируем открываемый (в программе) файл как текстовый... Приложение: Очень не рекомендую использовать основные уже занятые расширения, такие как exe, com, pif, dll. --------- Готовых решений небыло, нет и не будет... вся жизнь - это лишь размышления на тему

Ответ отправил: Василенко Алексей Васильевич (статус: 3-ий класс) Ответ отправлен: 09.08.2007, 22:03

Отвечает: Coupler Здравствуйте, Патрикеев Сергей! В приложении процедура, которая ассоциирует exe-файл Вашей программы с нужным типом файлов. Например, ассоциация программы с расширением '123': RegisterFileType('123',application.ExeName). Приложение: procedure RegisterFileType(ext: string; FileName: string); begin reg:=TRegistry.Create; with reg do begin RootKey:=HKEY_CLASSES_ROOT; OpenKey('.'+ext,True); WriteString('',ext+'file'); CloseKey; CreateKey(ext+'file'); OpenKey(ext+'fileDefaultIcon',True); WriteString('',FileName+',0'); CloseKey; OpenKey(ext+'fileshellopencommand',True); WriteString('',FileName+' "%1"'); CloseKey; Free; end; end;

Ответ отправил: Coupler (статус: Практикант) Ответ отправлен: 10.08.2007, 06:20

Отвечает: Mishell Здравствуйте, Патрикеев Сергей! смотрите пример регистрации типа файла в приложении после регистрации расширения система будет открывать такие файлы с помощью указанной программы - т.е. передавать имя файла как параметр и соотв. обработать имя файла можно с помощью ParamsCount + ParamStr Приложение: uses Registry; ... // ext - расширение которое регистрируем // fname - файл с пом. которого будут запускаться файлы с этим расширением (ваша программа) // description - описание расширения файла procedure RegFileType(ext,fname,description:string); var reg:TRegistry; begin reg:=TRegistry.Create; reg.RootKey:=HKEY_CLASSES_ROOT; reg.OpenKey('.'+ext,true); reg.WriteString('',ext+'file'); reg.CloseKey; reg.OpenKey(ext+'file',true); reg.WriteString('',description); reg.CloseKey; reg.OpenKey(ext+'fileDefaultIcon',true); reg.WriteString('',fname+',1'); reg.CloseKey; reg.OpenKey(ext+'fileshellopencommand',true); reg.WriteString('','"'+fname+'" "%1"'); reg.CloseKey; reg.Free; end;

Ответ отправил: Mishell (статус: 5-ый класс) Ответ отправлен: 10.08.2007, 10:11

© 2001-2007, Портал RusFAQ.ru, Россия, Москва. Авторское право: ООО "Мастер-Эксперт Про" Email: support@rusfaq.ru, тел.: +7 (926) 535-23-31 Хостинг: "Московский хостер" Поддержка: "Московский дизайнер" Авторские права | Реклама на портале Версия системы: 4.54 beta от 01.08.2007
RusFAQ.ru | MosHoster.ru | MosDesigner.ru | RusIRC.ru Kalashnikoff.ru | RadioLeader.ru | RusFUCK.ru