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

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

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)








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

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




Hi,










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

xof

PS
У меня на WinXP это устанавливается через:





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


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





^^^^
а сpаботает? TMemo же от TEditа пpоисходит АФАИР.





Have a nice death!

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




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



Лучше так
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)




Hi All,

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

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

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



news:df64mt$pia$25622 [@] www.fido-online.com...



















Лучше пиши члены записи по отдельности. И с какими-нить проверками формата
данных. 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);

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." <y [@] ves-kyiv.com.ua>

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)

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