помогите пожалуйста написать программу в Delphi

← →
chery © (2009-12-22 22:05) [0]

помогите пожалуйста написать программу в Delphi, мне очень важно в кротчайшие сроки е сдлать, а у самого никак не получается.
Итак требуется написать программу в которой основной элемент-ToolBar.
Главное условие-сохранение положения ToolBar при закрытии программы в реестре и загрузки этого положения при открытии программы.
Вот ссылка на то что у меня получилось самостоятельно написать, там все пояснения и комментарии есть.
http://depositfiles.com/files/rytsn47b7
просьба писать в скайп:akva-smerch
или ICQ:562164855

← →
Знаток (2009-12-22 22:29) [1]

И главное, ветка пришла из основной, видимо модератор решил дать нам ее на растерзание, что бы поглумись.

← →
boa_kaa © (2009-12-22 22:32) [2]

как бы я хотел писать программы, в которых основным элементом был бы тулбар...
нет в жизни щястья...

← →
Ega23 © (2009-12-22 22:48) [3]

Цена?

← →
chery © (2009-12-22 23:17) [4]

> И главное, ветка пришла из основной, видимо модератор решил
> дать нам ее на растерзание, что бы поглумись.

ну попрошу без растезаний, просто кому не сложно помогите.

> как бы я хотел писать программы, в которых основным элементом
> был бы тулбар...

данная программа пишется в учебно-ознакомительных целях поэтому ничего другого из элементов нет.

> Цена?

есть еще такая валюта как спасибо, пожалуй я не смогу отблагодарить человека финансово, т.к. на данный момент не располагаю средствами.

← →
Джо © (2009-12-22 23:28) [5]

На ДДР (Добрый Дух Рождества) расчитываете?
Не переживайте, в армию весной идти — лучше, чем осенью... ;->

← →
chery © (2009-12-22 23:34) [6]

> На ДДР (Добрый Дух Рождества) расчитываете? Не переживайте,
> в армию весной идти — лучше, чем осенью... ;->

может и внемлю вашему совету и пойду в армию весной но наверно не в этом году. А что до ДДР, то надежда умирает последней.

← →
Petr V. Abramov © (2009-12-22 23:35) [7]

> есть еще такая валюта как спасибо, пожалуй я не смогу отблагодарить
> человека финансово, т.к. на данный момент не располагаю
> средствами.

даже кружку пива жалко?

← →
TIF © (2009-12-22 23:46) [8]

Как любопытно выглядит рядом с этой темой соседняя "Дети, не ходите работать программистами" )

← →
Ega23 © (2009-12-22 23:49) [9]

> есть еще такая валюта как спасибо

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

← →
chery © (2009-12-22 23:51) [10]

> даже кружку пива жалко?

если вы конечно с мурманска то угощу((=
кстати осталось немного помочь, в принципе программа почти работает(то что не работает корректно закоментенно).
Посмотрите пожалуйста что не так, почему когда ToolBar не на ControlBar не сохраняется?
http://depositfiles.com/files/xpc2ma774

← →
chery © (2009-12-22 23:53) [11]

> Дело в том, что за спасибо тут именно помогают сделать

именно помощь и нужна, все впринципе все написанно, но почему-то сохраняется не совсем корректно, а почему я не понимаю))=

← →
Petr V. Abramov © (2009-12-22 23:56) [12]

> если вы конечно с мурманска то угощу((=

грустный смайлик намекает, что пиво будет фиговое, а кружка маленькая ((=

> Посмотрите пожалуйста что не так, почему когда ToolBar не
> на ControlBar не сохраняется?

а нахрен кому качать неизвестно что неизвестно зачем?
сформулируй, что тебе непонятно, и отношение сразу изменится.

← →
chery © (2009-12-22 23:57) [13]

в принципе программа работает, но не так как хотелось бы, когда ToolBar лежит на ControlBar все сохраняется, а когда не лежит почему-то нет. То что должно теоретически работать, но не работает {закоментенно}.
Вот вариант данной работы http://depositfiles.com/files/xpc2ma774

← →
chery © (2009-12-22 23:58) [14]

> грустный смайлик намекает, что пиво будет фиговое, а кружка
> маленькая ((=

он не грустный а веселый, просто я привык писать обратно(=
я могу если надо написать тут код

← →
Petr V. Abramov © (2009-12-23 00:05) [15]

> chery © (22.12.09 23:58) [14]

ну так напиши тут код, только немного, строк 20 отсилы, скажи
1. Я ожидаю от этого кода, что он полетит на Солнце
2. А код, сволочь, летит на Луну.
почему?

← →
chery © (2009-12-23 00:13) [16]

Procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
r:TRect;
begin
{if ToolBar1.HostDockSite<>ControlBar1 then
begin}
if ToolBar1.HostDockSite=nil then
{begin
Key := RegKeyOpenWrite(HKEY_LOCAL_MACHINE,KeyWin);
RegKeySetStr(Key,"Control","1");
RegKeyClose(Key);

GetWindowRect(ToolBar1.Handle, R);
Key := RegKeyOpenWrite(HKEY_LOCAL_MACHINE,KeyWin);
RegKeySetStr(Key,"Left",inttostr(r.Left));
RegKeyClose(Key);

Key := RegKeyOpenWrite(HKEY_LOCAL_MACHINE,KeyWin);
RegKeySetStr(Key,"Top",inttostr(r.Top));
RegKeyClose(Key);
end
else }
begin
Key := RegKeyOpenWrite(HKEY_LOCAL_MACHINE,KeyWin);
RegKeySetStr(Key,"Control","2");
RegKeyClose(Key);
Key := RegKeyOpenWrite(HKEY_LOCAL_MACHINE,KeyWin);
RegKeySetStr(Key,"Left",inttostr(toolbar1.Left));
RegKeyClose(Key);

Key := RegKeyOpenWrite(HKEY_LOCAL_MACHINE,KeyWin);
RegKeySetStr(Key,"Top",inttostr(toolbar1.Top));
RegKeyClose(Key);

end;

{end
else
begin }
{Application.MessageBox(PChar("Ñëåâà: "+IntToStr(ToolBar1.Left)+"; сверху: "+IntToStr(ToolBar1.Top)+"."),
"положение",IDOK); }
{end; }
end;

procedure TForm1.FormCreate(Sender: TObject);
var control:byte;
begin

Key := RegKeyOpenRead(HKEY_LOCAL_MACHINE,KeyWin);
control:= strtoint(RegKeyGetStr(Key,"Control"));
RegKeyClose(Key);
//if control=2 then begin
// чтение из реестра
Key := RegKeyOpenRead(HKEY_LOCAL_MACHINE,KeyWin);
toolbar1.Left := strtoint(RegKeyGetStr(Key,"Left"));
RegKeyClose(Key);
// чтение из реестра
Key := RegKeyOpenRead(HKEY_LOCAL_MACHINE,KeyWin);
toolbar1.top:= strtoint(RegKeyGetStr(Key,"Top"));
RegKeyClose(Key);
//end
// else
// begin

// movewindow(toolbar1.Handle,59,59,100,100,bool(1));
{GetWindowRect(ToolBar1.Handle, R);
Application.MessageBox(PChar("слева: "+IntToStr(r.Left)+"; всерху: "+IntToStr(r.Top)+"."),
"положение",IDOK); }
//end;
end;

← →
chery © (2009-12-23 00:14) [17]

простите меньше никак потому как мозККК отключается(= и ничео не получается)=

← →
Petr V. Abramov © (2009-12-23 00:15) [18]

> Procedure TForm1.FormClose(Sender: TObject; var Action:
> TCloseAction);

ну и хрен с ним.

что от этого надо и что не получается?

← →
chery © (2009-12-23 00:19) [19]

смысл в том что при условии что тул на контроле сохраняется в реестр тулбар1.топ,лефт,контрол, а если вне контрола то р.топ,лефт,контрол,
и по FormCreate все должно загружаться

← →
chery © (2009-12-23 00:20) [20]

но увы то что курсивом не работает))=

← →
Petr V. Abramov © (2009-12-23 00:27) [21]

блин, chery ©,
ты можешь сказать, ЧЕГО ТЕБЕ ИЗНАЧАЛЬНО НАДО от этой задачи?
ну окромя в армию не ходить

← →
chery © (2009-12-23 00:34) [22]

ControlBar, на нем ToolBar, когда мы таскаем ToolBar по ControlBar или вытаскиваем из него и закрываем программу, то при открытии программы ToolBar должен быть там где мы его оставили, т.е. положение ToolBar должно сохраняться.

← →
Petr V. Abramov © (2009-12-23 00:39) [23]

> chery © (23.12.09 00:34) [22]

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

← →
Petr V. Abramov © (2009-12-23 00:40) [24]

за призрачную перспективу маленькой кружки фигового пива из Мурманска :)

← →
chery © (2009-12-23 00:43) [25]

я ко выложил и программу написанную на депозит залил, получается вот что: когда перемещаешь ToolBar по ControlBar все сохраняется, а если вытащить за пределы ControlBar то не сохраняется а остается там же на ControlBar

← →
chery © (2009-12-23 00:43) [26]

> за призрачную перспективу маленькой кружки фигового пива
> из Мурманска :)

пиво почтой или как?(=

← →
chery © (2009-12-23 00:44) [27]

> я ко выложил

код

← →
chery © (2009-12-23 00:45) [28]

> Petr V. Abramov

незнаю как с делфи, а с юмором все у вас супер(=

> а если вытащить за пределы ControlBar то не сохраняется
> а остается там же на ControlBar

а что ты сохраняешь? какие св-ва? код читать лень, прости, букаф много, если по наводящим вопросам будет неясно, придется читать

Key := RegKeyOpenWrite(HKEY_LOCAL_MACHINE,KeyWin);
RegKeySetStr(Key,"Control","2");
RegKeyClose(Key);
Key := RegKeyOpenWrite(HKEY_LOCAL_MACHINE,KeyWin);
RegKeySetStr(Key,"Left",inttostr(toolbar1.Left));
RegKeyClose(Key);

Key := RegKeyOpenWrite(HKEY_LOCAL_MACHINE,KeyWin);
RegKeySetStr(Key,"Top",inttostr(toolbar1.Top));
RegKeyClose(Key);
положение тулбара.
ладно я спать, рано вставать, утром заскочу посмотрю, на что смогу дам внятный ответ(=
спасибо что помогаете.
всем спокойной ночи.

А мне в облом портить глаза, читая какой-то набор букав, кем-то почему-то называемый "кодом". И вообще - это не уважение к отвечающим вываливать своё барахло, неудосужевшись его отформатировать.

PS. Слесарю - слесарево.

Parent"a тоже надо сохранять.

> Parent"a тоже надо сохранять.

необязательно, главное тулбар.

Если тебе надо сохранять/восстанавливать положение относительно экрана (а не формы, контролбара и т.д) то покури справку по этим методам: ClientToScreen и ScreenToClient. Ну, это если я прально твою задачу понял...
Для сохранения как-то так:
toolbar1.parent.ClientToScreen.
А для восстановления соответственно ScreenToClient...

> [33] chery © (23.12.09 08:18)
> необязательно, главное тулбар.

Я сказал что нужно сделать, чтобы тул бар нормально сохранялся.
Обязательно или нет - тебе решать.

А с тулбаром не все так просто, оказывается. Если его стащить с панельки - парентом у него будет некая вспомогательная самопоявившаяся формочка. Разбираюсь

А с тулбаром не все так просто, оказывается. Если его стащить с панельки - парентом у него будет некая вспомогательная самопоявившаяся формочка

это точно, причем там походу создается объект класса TToolDockForm.
и вот как его при загрузке выкинуть на этот объект тоже не понял. Toolbar либо на форму ложится или вообще не показывается. Так что рановато автора запинали.

В Мурманске не все пиво фиговое. Я б даж сказал, получше, чем в Питере.

← →
ANB (2009-12-23 12:11) [39]

> В Мурманске не все пиво фиговое.

А еще там вкусная рыбка. Которая вполне может доехать посылкой. :)

ну что может у кого нибудь появились мысли как сохранит положение тулбара кода он не на контроле и выглядит как отдельное окно? Просто у меня уже ничего не получается)))=

помогите пожалуйста написать программу в Delphi Найти похожие ветки