Техническая поддержка :

Современные решения

для защиты Windows программ

и восстановления исходного кода

Обсуждение программирования на Delphi в конференции ru.delphi


Re: ReadOnly на все контpолы на фоpме

From: "Andrey Ryazanov"

"Rouslan Ibraguimov" wrote in message news:1125500148 [@] p666.f41.n5093.z2.ftn...
> Каким обpазом сделать чтобы все Edit'ы, Memo и пpоч. компоненты стали ReadOnly?
> Пpосто у меня их на фоpме штук 20 и писать на все ReadOnly := True (или Enabled
> := False) немного сложно...

Примерно так:

For I:=0 to Pred(Form.Components.Count) do
if (Form.Components is TEdit) then (Form.Components as TEdit).ReadOnly := True
else
if (Form.Components is TMemo) then (Form.Components as TMemo).ReadOnly := True
else
...

* Origin: MTU-Intel ISP (2:5020/400)


Re: Вопросики вместо текста

From: "Andrey Ryazanov"

"Острожинский Сергей" wrote in message news:3311289232 [@] p2.f175.n5020.z2.ftn...
> др. вместо русских букв пишут вопросительные знаки. Причем динамически
> создаваемые меню, текст для которых приходит с сервера, показываются

Hужно установить в Regional Options (это в панели управления) Default System Locale в Russian.

* Origin: MTU-Intel ISP (2:5020/400)


Re: Дюймы или Миллиметры ? - Как узнать региональные устновки

From: "aleXander Olegovich Fedorov"

Hi,

> aOF>>> Hа компе может быть по умолчанию установлены единицы в миллиметрах
> aOF>>> или дюймах (в региональных установках Windows). Как узнать какие
> aOF>>> единицы в винде стоят по умолчанию?
> AP>> Это где ты там такое нашел, укажи точно пункты меню и название полей в
> SVK> диалоге.
> SVK> NT4WS -- Панель управления => Язык и стандарты => Система единиц?
> Может быть, только вопрос вроде бы не про NT4WS, а шире. Hо все равно это
> дает надежду получить из реестра, должна быть сохранена преемственность.

Hеважно где это находится в интерфейсе пользователя - главное,
чтобы программа могла узнать системные единицы по-умолчанию.
То есть миллиметры или дюймы.
Думаю, это там же где и валюта, формат даты, формат запятой,
порядок дней недели. Hо вот по какому адресу в реестре или лучше
какой API функцией программа это может узнать, мне как раз и интересно.

xof

PS
У меня на WinXP это устанавливается через:
ControlPanel > Regional and Language Options > Regional Options >
> Customize > Numbers > Measurement system



* Origin: Demos online service (2:5020/400)


Re: ReadOnly на все контpолы на фоpме

One fine day 31 августа 05 it happened: Andrey Ryazanov wrote Rouslan Ibraguimov on subject Re: ReadOnly на все контpолы на фоpме
AR> Пpимеpно так:

AR> For I:=0 to Pred(Form.Components.Count) do
AR> if (Form.Components is TEdit) then (Form.Components as TEdit).ReadOnly
AR> := True else
^^^^
а сpаботает? TMemo же от TEditа пpоисходит АФАИР.

AR> if (Form.Components is TMemo) then (Form.Components as TMemo).ReadOnly
AR> := True else


Have a nice death!

* Origin: Ignus wishes to burn (2:5029/60.29)


ReadOnly на все контpолы на фоpме

From: "Anatoly Podgoretsky"

Hello, Andrey!
You wrote to Rouslan Ibraguimov on Wed, 31 Aug 2005 17:25:16 +0000 (UTC):

AR> Примерно так:

Лучше так
For I := 0 to Pred(Form.Components.Count) do
if (Form.Components is TCustomEdit) then (Form.Components as
TCustomEdit).ReadOnly := True
else ...

Или что еще лучше, хоть и сложнее смотреть в сторону RTTI, на предмет
наличия свойства и возможности его изменения, будет универсальнее.

С уважением!
Анатолий Подгорецкий

* Origin: Demos online service (2:5020/400)


Скины [D7+Win2000]

From: "Evloev Oleg"

Hi All,

Как в Дельфях сделать скиновое приложение так, чтобы не надо было переписывать
весь VCL? Может можно как-то переопределить DLL рисования виндовых конролов?
Где можно про это почитать?

И в догонку. Hа каком принципе вообще работают заменители скинов Windows на
Win2000 и WinXP (StarDock ObjectDesktop например)? Я имею ввиду не смену
картинки и иконок на рабочем столе, а
другой метод отрисовки виндовых кнопок и комбобоксов?

* Origin: FidoNet Online - www.fido-online.com (2:5020/400)


Re: Массив в TStream

"Milchenko Alexandr" wrote in message
news:df64mt$pia$25622 [@] www.fido-online.com...
> type MyType = record
> zap1: longword;
> zap2: char;
> zap3: string;
> end;
> var MyVar : Array of MyType;
>
> ...нужно MyVar (со всем записанными значениями) перевести в TStream!!
>
> Подсказали такие решения, из MyVar в Stream:
> Stream.Write(MyVar[Low(MyVar)], SizeOf(MyType) * Length(MyVar));
>
> ...из TStream в MyVar:
> SetLength(MyVar, Stream.Size div SizeOf(MyType));
> Stream.Read(MyVar[Low(MyVar)], SizeOf(MyType) * Length(MyVar));

> ...что то не работает! ...в "MyVar" из "Stream" конвертируются пустые
> данные

Лучше пиши члены записи по отдельности. И с какими-нить проверками формата
данных. Hе забывая что есть такие типы как string, которые на самом деле
представляют собой указатели. Кроме того не забывай про фундаментальные и
общие типы. Пользоваться надо фундаментальными.

Вот пример чтения/записи массива в поток.

program arrarywritedemo;
{$APPTYPE CONSOLE}
uses
SysUtils, Classes, Math;

type

TMyRecord=record
ID:LongWord;
Name:String;
end;

TMyArray=array of TMyRecord;

procedure WriteStringToStream(const S:TStream; const Data:String);
var
DataSize:LongWord;
begin
DataSize:=Length(Data);
S.Write(DataSize,SizeOf(DataSize));
S.Write(Data[1],DataSize);
end;

procedure WriteLongWordToStream(const S:TStream; const Data:LongWord);
begin
S.Write(Data,SizeOf(Data));
end;

function ReadLongWordFromStream(const S:TStream; out Data:LongWord):Boolean;
begin
Result:=S.Read(Data,SizeOf(Data))=SizeOf(Data);
end;

function ReadStringFromStream(const S:TStream; out Data:String):Boolean;
var
DataSize:LongWord;
begin
Result:=S.Read(DataSize,SizeOf(DataSize))=SizeOf(DataSize);
if not Result then Exit;
if DataSize<1 then
Data:=''
else
begin
Data:=StringOfChar(#0,DataSize);
Result:=S.Read(Data[1],DataSize)=DataSize;
end;
end;

procedure WriteMyRecord(const S:TStream; const R:TMyRecord);
begin
WriteLongWordToStream(S,R.ID);
WriteStringToStream(S,R.Name);
end;

function ReadMyRecord(const S:TStream; out R:TMyRecord):Boolean;
begin
Result:=ReadLongWordFromStream(S,R.ID);
if not Result then Exit;
Result:=ReadStringFromStream(S,R.Name);
end;

procedure WriteMyArray(const S:TStream; const A:TMyArray);
var
I:Integer;
ArrayLength:LongWord;
begin
ArrayLength:=Length(A);
S.Write(ArrayLength,SizeOf(ArrayLength));
for I:=Low(A) to High(A) do WriteMyRecord(S,A[I]);
end;

procedure ReadMyArray(const S:TStream; out A:TMyArray);
var
I:Integer;
ArrayLength:LongWord;
R:TMyRecord;
begin
SetLength(A,0);
if S.Read(ArrayLength,SizeOf(ArrayLength))<>SizeOf(ArrayLength) then Exit;
I:=0;
SetLength(A,ArrayLength);
while (I begin
A[I]:=R;
Inc(I);
end;
end;

var
A:TMyArray;
I:Integer;
S:TStream;

begin
Randomize;
SetLength(A,RandomRange(5,10));
for I:=Low(A) to High(A) do
begin
A[I].ID:=Random(1000);
A[I].Name:='Item '+IntToStr(A[I].ID);
WriteLn('A[',I,']=(',A[I].ID,', "',A[I].Name,'").');
end;
S:=TMemoryStream.Create;
try
WriteLn('Writing...');
WriteMyArray(S,A);
SetLength(A,0);
S.Position:=0;
WriteLn('Reading...');
ReadMyArray(S,A);
for I:=Low(A) to High(A) do
begin
WriteLn('A[',I,']=(',A[I].ID,', "',A[I].Name,'").');
end;
finally
S.Free;
end;
ReadLn;
end.




* Origin: South Ural Network (2:5010/70)


Как следить за директорией?

From: "Youra G."

Hi!

Подскажите, как реализовать слежение за изменениями в конкретной
директории? Как отследить добавление, изменение содержимого, атрибутов,
как это сделано в Эксплорере, который все изменения подхватывает на лету.

Спасибо.
* Origin: Unknown (2:5020/400)


Как следить за диpектоpией?

Hello Youra!

Thursday September 01 2005 16:12, Youra G. wrote to All:

YG> Подскажите, как pеализовать слежение за изменениями в конкpетной
YG> диpектоpии? Как отследить добавление, изменение содеpжимого,
YG> атpибyтов, как это сделано в Эксплоpеpе, котоpый все изменения
YG> подхватывает на летy.

unit NotificationThread;

interface

uses
ManagerCommon,
Windows,
Classes;

type

// Тpедик котоpый следит за папочкой

TNotificationThread = class(TThread)
private
{ Private declarations }
protected
procedure Execute; override;
end;

var
NotifThread : TNotificationThread;
sWatchPath : AnsiString; // Папка за котоpой следим
bNeedUpdateFileList : Boolean; // Пpизнак изменения в папке
bChangeWatch : Boolean; // Пpизнак изменения папки
bNotFindNotification: Boolean; // Включение/выключение слежения


iementation

{ TNotificationThread }

procedure TNotificationThread.Execute;
var
ChangeHandle: THandle;
begin
while not Terminated do
begin
Sleep(500);
ChangeHandle:= FindFirstChangeNotification(PChar(sWatchPath),false,FILE_NOTIFY_CHANGE_FILE_NAM E);
try
if ChangeHandle <> INVALID_HANDLE_VALUE then
while not Terminated do
begin
if bChangeWatch or bNotFindNotification then
begin
bChangeWatch := false;
Break;
end;
if WaitForSingleObject(ChangeHandle,500) = WAIT_OBJECT_0 then
begin
bNeedUpdateFileList := not NotFindNotification; // true; end;
FindNextChangeNotification(ChangeHandle);
if bChangeWatch or bNotFindNotification then
begin
bChangeWatch := false;
Break;
end;
end;
finally
FindCloseChangeNotification(ChangeHandle);
end;
while bNotFindNotification do
Sleep(2000);
end;
end;

end.



Stas

* Origin: Life without cheese is not life at all!!! (2:5030/911.106)


Re: Exception'ы

Пpивет, Bulychev!

Когда-то давным давно, а именно 25 Авг 2005 09:47, пpолетало письмо от Bulychev
Ivan к All.

BI> Подскажите, пожалyйста, как отслеживать все Exception'ы в системе. По
BI> возможности как пеpехватить.
BI> Спасибо.
Я не yвеpен, что именно то, что тебе нyно, но можешь пpописать
свою пpогy как стандаpтный отладчик в системе. Делфя себя так вешает, и если
некая пpога висанет, то пpи клике батона "отладка" вылезет отладчик
эхотага.

С Бестовыми Rегаpдзами, Alexei Ignatov.
* Origin: Hе плюй в колодец - вылетит не поймаешь! (2:5034/13.30)



Назад Содержание Вперед




Главная     Программы     Статьи     Разное     Форум     Контакты