Значит выложил я фотки... а комментов нет... а все вроде так ждали их...

Только что попил пива с папой...Он поймал линей, закоптил и мы их заточили... мммм супер ням,ням...вот они...
Вы пока обтекайте слюнками а я пойду посплю всем спок ночи!
[показать]

Ну вот и у моего дневничка появилась своя Жемчужина...
Жемчужина распологайся...;)

Ща начну менять стиль дневничка! Ух-ух-ух...

Кстати в моём отделе я пока сижу один. но в моём распоряжении: 5 мониторов, 3 струйных, 1 лазерный принтер, 2-а цветных лазерных, Плазменая панель, ну в общем круто, а да еще кулер с 20 литрами воды,2-а книжных шкафа, и кондишн. И это всё моё!:uraura:

Близится тот момент, когда выложу фотки с Углича...ждёмс...

Прям даже не привычно так много выходных было целый ОДИН штук... Вчера сделал пару хороших дел, познакомил двух человечков, Съездили в Грин Клуб...мдя там ваще ужас а не бильярд...Шары легче, кии кривые, сукно плное Г и за всё провсё - 180 р в час...мдя. Потом сходил на турнички попили пива,
поиграли в карты, ну спортом позанимался...
Посодили Kiberrok на сабаку,предварительно вытащив из дома Nexis, вот а там ещо был cerberus...Блин поинтовка прям челов из сети...:)

Ну в общем такие вот выходные...;)

Алёна из Москвы...Не стесняйся пиши, пость. В общем буть как дома, а за открытку ШПАСИБО!...

Любимая_Скучающая_На рад пополнению в моём скромном обществе!:junping:

really_not_simple ПЧёлочка распологайся!:fly:

Найжна распологайся...у меня дежавю... такое ощущение что уже приветствовал!:candle:

procedure shten(s:string;var id,vis,gind,wid,ind: integer);
var sss:string;
k,i:integer;
begin
k:=0;
sss:='';
for i:=1 to length(s)do
begin
if s[i]<>':' then sss:=sss+s[i] else
begin
k:=k+1;
case k of
1:id:=strtoint(sss);
2:vis:=strtoint(sss);
3:gind:=strtoint(sss);
4:wid:=strtoint(sss);
end;
sss:='';
end;
end;
ind:=strtoint(sss);
end;

procedure TQueryForm.LoadStateFromReg;
var
r:TRegistry;
mm:TMemoryStream;
s:Tstrings;
nar,vis,ind,gind,i,id,wid:integer;
sss,naz:string;
begin
nar:=0;
r:=TRegistry.create;
s:=TStringList.Create;
r.RootKey:=HKEY_CURRENT_USER;
if r.OpenKey('Software\PaulsYard\REDB\redb_client\QueryForm\Table',false)=false then exit;
try
try
mm:=TMemoryStream.Create;
mm.SetSize(r.ReadInteger('SIZEBUF_'+inttostr(FSubtypeID)));
r.ReadBinaryData('COLUMNS_'+inttostr(FSubtypeID),mm.Memory^,r.ReadInteger('SIZEBUF_'+inttostr(FSubtypeID)));
mm.Position:=0;
s.LoadFromStream(mm);
naz:=TableView.Preview.Column.Caption;
for i:=0 to s.Count-1 do
begin
sss:=s[i];
shten(sss,Id,vis,gind,wid,ind);
// if TableView.Columns[id].Caption<>naz then TableView.Preview.Column:=TableViewSubject else TableView.Preview.Column:=nil;
(TableView.FindItemByID(id) as TcxGridColumn).GroupIndex:=gind;
(TableView.FindItemByID(id) as TcxGridColumn).Width:=wid;
case vis of
-1:(TableView.FindItemByID(id) as TcxGridColumn).Visible:=true;
0:(TableView.FindItemByID(id) as TcxGridColumn).Visible:=false;
end;
(TableView.FindItemByID(id) as TcxGridColumn).Index:=ind;
end;
finally
r.Free;
mm.Free;
end;
except
end;
s.Free;
end;

procedure TQueryForm.SaveStateToReg;
var
r:TRegistry;
i:integer;
s:TStrings;
mm:TMemoryStream;
begin
r:=TRegistry.Create;
try
r.RootKey:=HKEY_CURRENT_USER;
r.OpenKey('Software\PaulsYard\REDB\redb_client\QueryForm\Table',true);
try
s:=TStringList.Create;
try
for i:=0 to TableView.ColumnCount-1 do
begin
s.Add(IntToStr(TableView.Columns[i].id)+':'+
BoolToStr(TableView.Columns[i].Visible)+':'+
IntToStr(TableView.Columns[i].GroupIndex)+':'+
IntToStr(TableView.Columns[i].Width)+':'+
IntToStr(TableView.Columns[i].Index));
end;
mm:=TMemoryStream.Create;
try
s.SaveToStream(mm);
r.WriteBinaryData('COLUMNS_'+inttostr(FSubtypeID),mm.Memory^,mm.Size);
r.WriteInteger('SIZEBUF_'+inttostr(FSubtypeID),mm.Size);
finally
mm.Free;
end;
finally
s.free;
end;
finally
r.CloseKey;
end;
finally
r.Free;
end;
end;

Всем доброго дня... как делишки солнца?
Как вчерашняя пятница - 13?
У меня всё по старому...фсех продолжаю любить а кого-то особенно!
ну сами в общем догадаетесь...

Обязательно зайдите... прикольно!
http://www.purescore.com/

Приветствую Яка!!!
Жек Распологайся...Cerberus

Пятница 13!!!
ЫЫЫЫ

Ю АР ВЕЛКОМ!:cool:

[показать]
У кого-то сёдня праздник у кого-то нет...ну ладно поздравляю МОИХ ПЧ из Израеля с Днём Независиости Израиля!!! Отдыхайте девчат...

А ещо в этот день 11 лет назад разбился Айртон Сенна в повороте Тамбурелло на гранпри Сан Марино - 3-х кратный чемпион мира в королевских гонках F1...земля ему пухом... Айртон мы тебя помним...:(

WELCOME, будь как дома... Angel_na_more
Хорошо когда старые друзья возвращаются...

Ой, ой, ой... мне всё больше говорят комплиментов, и какой я хороший....аааа....с ума сойду

Да, мне сёдня сказали что я могу говорить абсолютно на любую тему, и при чём так прикольно... во блин... спасиб