Хостинг Портала RusFAQ.ru:
MosHoster.ru - Профессиональный хостинг на Windows 2008

РАССЫЛКИ ПОРТАЛА RUSFAQ.RU

Чемпионы рейтинга экспертов в этой рассылке

Влaдимир Статус: 8-й класс Рейтинг: 252 ∙ повысить рейтинг >>

Тимошенко Дмитрий Статус: 7-й класс Рейтинг: 69 ∙ повысить рейтинг >>

Spirit87 Статус: 2-й класс Рейтинг: 27 ∙ повысить рейтинг >>

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

Выпуск № 1358
от 01.05.2009, 01:35

Вопрос № 165799: Здраствуйте уважаемые эксперты. Я новичок (и пытаюсь что то создавать), и сейчас я пытаюсь создать компонент КНОПКА с расширеными возможностямы...а именно не могу обеспечить задание градиента, задание градиента по разным направлениям(хотя бы 2 цве...

Вопрос № 165.799

Здраствуйте уважаемые эксперты. Я новичок (и пытаюсь что то создавать), и сейчас я пытаюсь создать компонент КНОПКА с расширеными возможностямы...а именно не могу обеспечить задание градиента, задание градиента по разным направлениям(хотя бы 2 цвета), + разного стиля текста надписи на кнопке... если вы бы могли помочь хотябы по одному из этих вопросов...был бы очень благодарен...заранее спасибо.

Отправлен: 25.04.2009, 14:09 Вопрос задал: Евгений Демидов (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Spirit87 Здравствуйте, Евгений Демидов! Могу только подсказать, что делать. В своем компоненте изменить обработчик отрисовки самой кнопки. А далее в нем, с помошью поля Canvas: TCanvas задавайте расцветку и выводите текст. Настройки текста есть в Canvas, но если вам необходимо чтоб на кнопке присутствовали сразу несколько стилей текста, то используйте логические шрифты. PS вообще я в сети уже встречал исходники подобного компонента

Ответ отправил: Spirit87 (статус: 2-й класс) Ответ отправлен: 25.04.2009, 17:08 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 248239 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это!

Вопрос № 165.827

Уважаемые специалисты. Прошу помочь. Смысл задачи заключается в том,чтобы открыть образ дискеты. Нам преподаватель дал образ дискеты и сказал, что бы мы открыли ее содержимое,написав свою программу. А как это сделать я без понятия.. вот собственно сам файл, который надо открыть: http://rghost.ru/211682 Помогите пожалуйста написать програмку, если есть возможность..

Отправлен: 25.04.2009, 21:01 Вопрос задал: Edwardst (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 8)

Отвечает: Бизин Михаил Анатольевич Здравствуйте, Edwardst! В приложении программка, выводящая названия всех файлов и папок находящихся в корне дискеты. Киньте на форму 3 компонента: TButton, TListView, TOpenDialog. Как достать файлы из поддиректорий, думаю, разберётесь сами. Сайты на которых можно посмотреть информацию по данному вопросу: http://www.board.sysbin.com/viewtopic.php?t=155 http://recov-files.narod.ru/s3.htm http://stormdos.narod.ru/the_oldest/osbk/fs.htm http://www.xserver.ru/computer/os/msdos/2/8.shtml#a7_1_31 http://alanco.ru/component/option,com_deeppockets/Itemid,51/task,catContShow/cat,28/id,256/ http://www.piclist.ru/D-SD-MMC-P-RUS/D-SD-MMC-P-RUS.html Вывод программы такой: EN21132 File 0 0 MAC Dir 0 2 BOOTROM Dir 0 4 LANSRVR Dir 0 45 LINUX Dir 0 124 ARTISOFT Dir 0 128 MSCLIENT Dir 0 341 MSLANMAN.DOS Dir 0 382 MSLANMAN.OS2 Dir 0 427 NDIS Dir 0 470 Netware Dir 0 591 PATHWORK Dir 0 1628 PCNFS Dir 0 1667 PKTDRV D ir 0 1707 SCO Dir 0 1732 UNIXWARE Dir 0 1958 VINES Dir 0 2093 WFW31 Dir 0 2131 WFW311 Dir 0 2170 Win2000&ME Dir 0 2329 Win9x Dir 0 2383 WINNT Dir 0 2477 Driver.txt File 1414 2613 Setup.txt File 2813 2616 2500INIT.EXE File 3130 2622 RSETUP.exe File 68750 2629 Приложение: unit main; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, StdCtrls; type TBootSectorRec = packed record //Заголовок загрузочного сектора (62 байта) abJmpCode : array [1..3] of byte; //Инструкция Jmp на начало кода abOem : array [1..8] of char; //Название фирмы-производителя операционной системы и версия wSectSize : word; //Байтов в секторе, для дискеты 512 bClustSects : byte; //Секторов в кластере wResSects : word; //число зарезервированных секторов на диске, включая загрузочный сектор bFatCnt : byte; //Число таблиц FAT (обычно 2, основная и дублирующая) wRootEntries : word; //Максимальное число 32-байтовых записей DirEntryRec в корневом каталоге wTotSects : word; //Общее число секторов на носителе. Значение 0000h означает, что раздел объёмом выше, чем 32МБ. Тогда значение надо считывать с lBigTotSects. bMedia : byte; //Media Descriptor. F8h - жёсткий диск, остальные знаения (F0, F9, FA, FB, FC, FD, FE, FF) означают формат гибкого диска (количество сторон и секторов на дорожке). wFatSects : word; //Число секторов на одну таблицу размещения файлов (FAT) wSectsPerTrk : word; //Число секторов на один трек (цилиндр) wHeads : word; //Число записывающих/считывающих головок lHidSects : Longword; //Скрытые сектора lBigTotSects : Longword; //32-bit число секторов на разделе большем, чем 32МБ bDrvNo : byte; //80h - первый жесткий диск (используется внутри MS-DOS) res1 : byte; //Зарезервировано bExtBootSig : byte; //Дополнительная подпись, всегда равна 29h lSerNo : Longword; //Volume Serial Number abVolLabel : array [1..11] of char; //Метка тома, 11 символов, дополненых пробелами, если необходимо abFileSysID : array [1..8] of char; //Название файловой системы (FAT12 или FAT16) end; TDirEntryRec = packed record //Структура файла или каталога case integer of 0:( abName : array [1..8] of char; //Имя файла, выровненное влево, остаток заполнен пробелами (20h). Самый первый символ имени имеет особое значение: 0 - Запись еще не использовалась, 5 - Первый символ 0E5h, 2Eh - Это ссылка на каталог (.=сам, ..=родитель), E5h - Запись удалена abExt : array [1..3] of char; //Расширение, выровненное влево, остаток заполнен пробелами bAttr : byte; //Атрибуты (Биты: 0 - Read-only, 1 - Hidden (Невидимый), 2 - System (Системный), 3 - Volume label entry, 4 - subDirectory entry (подкаталог), 5 - Archive (1=file has not been backed up) Устанавливается дла архивации файла, 6,7 - зарезервированы) NTReserved : byte; //зарезервировано для Windows NT CreateTimeTenth: byte; //десятые доли времени создания CreateTime : word; //время создания CreateDate : word; //Дата создания LastAccessDate : word; //дата последнего доступа FirstClusterHi : word; //старшее слово номера кластера WriteTime : word; //Время изменения (Биты: 0..3 - Cекунды/2 (0-29), 4..10 - Минуты (0-59), 11..15 - Часы (0-23)) WriteDate : word; //Дата изменения (Биты: 0..6 - Год от 1980 (0-127), 7..10 - Месяц (1-12), 11..15 - День (1-31)) wClstrNo : word; //Номер кластера начала файла в FAT lSize : longint; //Длинна файла до 4ГБ ); 1:( lfn_Sequence : byte; // номер дескриптора lfn_Name1 : array [1..5] of WCHAR; // первая часть имени lfn_Attributes : byte; // атрибуты lfn_LongEntryType : byte; // признак расширенного атрибута (всегда 0) lfn_Checksum : byte; // контрольная сумма имени lfn_Name2 : array [1..6] of WCHAR; // вторая часть имени lfn_Reserved : word; // зарезервировано lfn_Name3 : array [1..2] of WCHAR; // третья часть имени ); end; type TForm1 = class(TForm) Button1: TButton; OpenDialog1: TOpenDialog; ListView1: TListView; procedure FormCreate(Sender: TObject); procedure Button1Click(Sender: TObject); private procedure LoadFromStream(Stream: TStream); public end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin Button1.Caption:='Открыть файл .IMG'; Button1.Width:=150; OpenDialog1.Filter:='Image FAT (*.img)|*.img'; ListView1.ViewStyle:=vsReport; with ListView1.Columns.Add do Caption:='Name'; with ListView1.Columns.Add do Caption:='ID'; with ListView1.Columns.Add do Caption:='Size'; with ListView1.Columns.Add do Caption:='Cluster'; ListView1.Column[0].Width:=120; ListView1.Clear; end; //Открыть файл .img procedure TForm1.Button1Click(Sender: TObject); var Stream: TStream; begin if OpenDialog1.Execute then begin ListView1.Clear; Stream := TFileStream.Create(OpenDialog1.FileName, fmOpenRead or fmShareDenyWrite); try LoadFromStream(Stream); finally Stream.Free; end; end; end; function RecToStr(const Buf; Size: integer): string; //Извлечь короткое имя begin SetString(Result,PChar(@Buf),Size); Result:=TrimRight(Result); end; function RecToWStr(DirEntry: TDirEntryRec): WideString; //Извлечь длинное имя var i: integer; wC: WCHAR; begin Result:=''; For i:=1 to Length(DirEntry.lfn_Name1) do begin wC:=DirEntry.lfn_Name1[i]; if wC=#0 then Exit; Result:=Result+wC; end; For i:=1 to Length(DirEntry.lfn_Name2) do begin wC:=DirEntry.lfn_Name2[i]; if wC=#0 then Exit; Result:=Result+wC; end; For i:=1 to Length(DirEntry.lfn_Name3) do begin wC:=DirEntry.lfn_Name3[i]; if wC=#0 then Exit; Result:=Result+wC; end; end; procedure TForm1.LoadFromStream(Stream: TStream); var i: Integer; BootSec: TBootSectorRec; FilesBegin, FATaddr: word; Files: array of TDirEntryRec; SizeFiles: word; S,Sext,Sdir: string; wS: WideString; ListItem1: TListItem; begin Stream.Read(BootSec, SizeOf(TBootSectorRec)); //Считать заголовок загрузочного сектора FATaddr:=BootSec.wResSects*BootSec.wSectSize; //Начало первой FAT таблицы FilesBegin:=FATaddr+BootSec.wFatSects*BootSec.bFatCnt*BootSec.wSectSize; //Начало области названий файлов и папок SizeFiles:=SizeOf(TDirEntryRec)*BootSec.wRootEntries; //Размер области названий файлов и папок SetLength(Files,SizeFiles); //Выделить память массиву под имена файлов и папок Stream.Position:=FilesBegin; //Сместиться по образу для чтения названий файлов и папок Stream.Read(Pointer(Files)^,SizeFiles); //Считать названия файлов и папок wS:=''; //Инициализация строки длинного имени (она в Unicode) For i:=0 to BootSec.wRootEntries-1 do begin //Пробежаться по всем названиям файлов и папок if Files[i].abName[1]<>#0 then begin //Если первый символ #0, значит нет записи (стертые файлы ($E5) и ссылки на папки ($2E) в этой программе не игнорируются) if Files[i].bAttr=$0F then begin // $0F - противоречивый атрибут, значит длинное имя wS:=wS+RecToWStr(Files[i]); //Считать часть длинного имени из записи end else begin //Всякое длинное имя заканчивается нормальной записью, в ней также имеется сокращённое имя в формате 8.3 S:=RecToStr(Files[i].abName,Length(Files[i].abName)); //Имя файла в формате 8.3 Sext:=RecToStr(Files[i].abExt,Length(Files[i].abExt)); //Расширение файла в формате 8.3 If Sext<>'' then S:=S+'.'+Sext; if wS='' then wS:=S; //Если не было длинного имени, то выводить короткое имя, иначе длинное имя оставить if (Files[i].bAttr and $10)>0 then Sdir:='Dir' //Проверим атрибут (Каталог или нет) else Sdir:='File'; ListItem1:=ListView1.Items.Add; //Добавим строку в ListView ListItem1.Caption:=wS; //Первая колонка - имя файла ListItem1.SubItems.Add(Sdir); //Вторая колонка - тип файла ListItem1.SubItems.Add(IntToStr(Files[i].lSize)); //Третья колонка - размер файла ListItem1.SubItems.Add(IntToStr(Files[i].wClstrNo)); //Третья колонка - размер файла // Memo1.Lines.Add(wS+#9+Sdir+#9+IntToStr(Files[i].lSize)+#9+IntToStr(Files[i].wClstrNo)); wS:=''; end; end; end; SetLength(Files,0); //Освободить память под массивом end; end.

Ответ отправил: Бизин Михаил Анатольевич (статус: 5-й класс) Ответ отправлен: 27.04.2009, 09:06 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 248304 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это!

© 2001-2009, Портал RusFAQ.ru, Россия, Москва. Авторское право: ООО "Мастер-Эксперт Про" Техподдержка портала, тел.: +7 (926) 535-23-31 Хостинг: "Московский хостер" Поддержка: "Московский дизайнер" Авторские права | Реклама на портале ∙ Версия системы: 5.13 от 01.12.2008
RusFAQ.ru | MosHoster.ru | MosDesigner.ru RusIRC.ru | Kalashnikoff.ru | RadioLeader.ru