Decision on Turbo Pascal and Delphi

Home - Structure - Archive - Friend

TMonthCalendar - календарь

Создано Чтв-19-Июн-2008 in 23:10 category Компоненты - Ссылка

Компонент предназначен для выбора или отброжения даты. Он очень похож на календарь, которой появляется в компоненте TDateTimePicker (при значении dmComboBox в свойстве DateMode), но в отличие от последнего может отброжать одновременно несколько смежных месяцев - в зависимости от своих размеров.

Свойства компонента TMonthCalendar:

property CalColors: TMontCalcolors;
C компонентом связвн объект класса TMontCalcolors;

property Date: TDate;
Определяет выбранную дату;

property EndDate: TDate;
Определяет конечную дату диапазона выбранных дат;

type TCalDayOfWeek = (dowMondey, dowTuesday, dowWednesday, dowThursday, dowFriday, dowSaturday, dowSunday, dowLocaleDefault);
priperty FirstDayOfWeek: TCalDayOfWeek;
Определяет первый день недели;

property MaxDate: TDate;
Содержит максимальную дату, месяц который ещё будет доступен для отоброжения в компоненте. Если свойство содержит пустое значение, отброжается любой слудующий месяц;

property MaxSelectRange: Integer;
Содержит максимальное количество дат в выбранном диапазоне;

proprty MinDate: TDate;
Содержит максимальную дату, месяц который ещё будет доступен для отьрожения в компоненте. Если свойство содержит пустое значение, отброжается любой предыдущий месяц;

property MultiSelect: Boolean;
Разрешает/ запрещает возможность выделения диапазона дат;

property ShowTodey: Coleean;
Разрешает/запрещает показ текущей даты (по показание системных часов) внизу календаря;

property ShowTodeyCircle: Boolean;
Разрешает/запрещает обводить кружком текущую дату;

property WeekNumbers: Boolean;
Разрешает/запрещает показ порядковых номеров недель от начала года в левой колонке;

Свойство объекта TMonthCalColors:
BackColor - цвет фона, разделяющего смежные месяцы;
MonthBackColor - цвет фона дат;
TextColor - цвет дат;
TitleBackColor - цвет фона заголовка;
TitleTextColor - цвет текста заголовка;
TrailingTextColor - цвет текста ведущих и ведомых дат.

50% информации статьи взята из интернета
вся остальная часть статьи моя

Работа с файлами(1)

Создано Сбт-24-Май-2008 in 12:53 category Pascal - Ссылка

Процедура assign
Для работы с файлами необходимо связать файловую переменную в программе с файлом на диске.
Для этого используют процедуру assign(f,s), f-имя переменной, s-полное имя файла на диске.
Например:
var
f:file of real;
begin
assign(f,'c:\windows.txt');

Процедура reset
После установления связи между файловой переменной нужно открыть файл, воспользующей процедурой reset.
Когда будет выполнина процедура reset(f), f- имя переменной. Далее можно выполнить чтениеи запись информации из файла.

Процедура rewrite
Файл можно открыть для записи и очистить при помощи процедуры rewrite(f), где f-имя файловой переменной. Она откроет
и очищит файл, после чего его можно использовать для записи новой информации.

Автор: Arch1S

TBevel

Создано Птн-02-Май-2008 in 23:09 category Статьи - Ссылка

Компонент TBevel служит оформительский характер и предназначен для визуального выделения группы элементов или отдельных их друг друга. Вид компонента(рамка, верхняя линия, нижняя линия, левая линия, правая линия, прямоугольник) определяет следующие свойство:

Type TBevelShape = (bsBox, bsFrame, bsTopLine, bsBottomLine, bsLeftLine, bsRigthLine);
Property Shape: TBevelShape;

Стиль компонента определяет другое свойство:

Type TBevelStyle = (bsLowered, bsRaised);
Property Style: TBevelStyle;

Автор: Arch1S

ЛАБОРАТОНЫЕ РАБОТЫ

Создано Втр-29-Апр-2008 in 17:32 - Ссылка

Что бы кто нибудь увидел, создал пост...

Пишу лабораторные, курсовые по Pascal-ю и Delphi (цены не дорогие)
связаться со мной можно по sergej.rebko@gmail.com или ICQ: 445292338

Определение размера файла

Создано Втр-29-Апр-2008 in 16:51 - Ссылка

function GetFileSize(const FileName:string):longint;
{Поехали:)}
var
SearchRec:TSearchRec;
begin
if FindFirst(ExpandFileName(FileName),faAnyFile,SearchRec)=0
then Result:=SearchRec.Size
else Result:=-1;
FindClose(SearchRec);
end;