Подарок на д.р.

← →
Snip © (2004-07-26 14:25) [0]

Приветствую всех!!! У подруги скоро д.р., хочеться сделат ей подарочек маленькй, написать что то типа фотоальбома, ну я его сделал типа ACD See, понимаете короче, тока там просматриваються не реальные папки (это типа проводника), а виртуальные (которых реально нет), ну вот, такоф вопрос, что лучше:
1) В базе хранить тока ссыки на изоражения, или сами изоражения?
2) Делаю вид Thumbnails в TListView, в OnCustomDrawItem, но прорисовываеться очень долго.... осоенно JPeg.
Что можете посоветовать?

← →
Игорь Шевченко © (2004-07-26 14:26) [1]

> 1) В базе хранить тока ссыки на изоражения, или сами изоражения?

А какая разница ? Можно и так и так.

← →
Думкин © (2004-07-26 14:28) [2]

> Snip © (26.07.04 14:25)
> 2) Делаю вид Thumbnails в TListView, в OnCustomDrawItem,
но прорисовываеться очень долго.... осоенно JPeg.

Храни 2 изображения.

← →
Snip © (2004-07-26 14:34) [3]

> А какая разница ? Можно и так и так.

Разница есть, если храню ссылки, то при удалении изображения с винта или переименования, сылка будет битая,
Если хранить изоражения в базе, аза будет большая.... вот надо выбрать что то одно...

> Храни 2 изображения.

Извени, не понял?
У меня в ListView когда грузяться изоражения к каждому ListItem.Data заносится картинка, и потом все береться из нее, но это очень долго.... Может кто знает где достать компонент типа ListView только в дополнении с видом Thumbnails, или хотяы ссылку на статейку, как энто делаеться....

← →
Игорь Шевченко © (2004-07-26 14:36) [4]

> Разница есть, если храню ссылки, то при удалении изображения
> с винта или переименования, сылка будет битая,
> Если хранить изоражения в базе, аза будет большая.... вот
> надо выбрать что то одно...

Надуманная проблема

← →
Snip © (2004-07-26 14:38) [5]

Так кто нить что нить путное скажет?

← →
Reindeer Moss Eater © (2004-07-26 14:38) [6]

Что можете посоветовать?

Не жмись и купи ей что - нибудь.
Программу он решил ей написать.

← →
Snip © (2004-07-26 14:41) [7]

Да я думаю чем что то покупать....лучше написать.... это удет лучше, так сказать эксклюзив!

← →
Sergey13 © (2004-07-26 14:43) [8]

2Snip © (26.07.04 14:25)
Ой бросит тебя подруга... Подарки своими руками... Ты еще апликацию сделай, про мишку плюшевого... Уж лучше цветы, на крайний случай.
ИМХО.

← →
Snip © (2004-07-26 14:45) [9]

Да, тяжеловато.... даже не могут дать хороший совет... ладно сделаю по выбору пользователя.... как хранить....
Но дайте мне кто нит ссыку на Thumbnails.... это мне даже интересно самому... Вот как это делает ACD See?

← →
Reindeer Moss Eater © (2004-07-26 14:45) [10]

У подруги скоро д.р., хочеться сделат ей подарочек маленькй, написать что то типа фотоальбома

Если ты не полный идиот, то дари подарок, а фотоальбом пиши к следующему дню рождения (или через один день рождения).

Года тебе едва-едва должно хватить, что бы опробовать свое нетленное творение и убрать баги (из разряда тех, что появляются через первые 15 секунд после того как программой начнет пользоваться не её автор).

← →
Snip © (2004-07-26 14:47) [11]

хе, все сделано на TAction, все предусмотренно, тем более до дня рождения еще 20 дней.... ну дайте кто нить ссылку!!!

← →
Snip © (2004-07-26 14:49) [12]

Исключитеольные ситуации обрабатываються в TApplication, и отправляеться невидимо для нее мне на мыло... так что баги устранить не долго...

← →
спектр (2004-07-26 14:50) [13]

Лучше своди ее куда-нить :) не вечно же за компом торчать

← →
Reindeer Moss Eater © (2004-07-26 14:51) [14]

хе, все сделано на TAction, все предусмотренно, тем более до дня рождения еще 20 дней.... ну дайте кто нить ссылку!!!

Ах, так это ты, - мой пятничный знакомый.
Как я раньше-то не заметил.

← →
Reindeer Moss Eater © (2004-07-26 14:52) [15]

Люди, дайте ему ссылку.

← →
Sergey13 © (2004-07-26 14:53) [16]

2Snip ©
>спектр (26.07.04 14:50) [13]
>Лучше своди ее куда-нить :) не вечно же за компом торчать
Во! Дело говорит. Сначала в ресторан, потом в койку. И не вздумай объяснять ей технологию создания своего альбома.

← →
Snip © (2004-07-26 14:54) [17]

> Ах, так это ты, - мой пятничный знакомый.
> Как я раньше-то не заметил.

А кто ты?

← →
Reindeer Moss Eater © (2004-07-26 14:55) [18]

Я тот, кто учил тебя считать до ста

← →
Snip © (2004-07-26 14:55) [19]

Да сходить, сходим... просто я идиот, пообещал что сделаю... в принципе все готово, тока эти Thumbnails глупые.. подскажите плз!!!

← →
Snip © (2004-07-26 14:57) [20]

> Я тот, кто учил тебя считать до ста

Так, что то пятница из головы вылетела, так же как и четверг, и суббота...

← →
Nous Mellon © (2004-07-26 14:57) [21]

Бедная подруга

← →
Думкин © (2004-07-26 14:59) [22]

> [19] Snip © (26.07.04 14:55)

Я тебе сказал, а то что ты это реализовать не можешь - твои проблемы.

← →
nikkie © (2004-07-26 15:00) [23]

Исключитеольные ситуации обрабатываються в TApplication, и отправляеться невидимо для нее мне на мыло... так что баги устранить не долго...
дык это троянец, а не фотоальбом :))
заодно и отслеживаем, с кем и о чем подруга переписывается...

← →
Digitman © (2004-07-26 15:09) [24]

> У подруги скоро д.р., хочеться сделат ей подарочек маленькй

= впарить ей троян

а если не троян, то наскоро сляпанный глючащий код

а если не наскоро, и не сляпанный, и не глючащий, и действительно ПОДАРОК (а не шматок дерьмогого кода), то и вопрос бы или прозвучал гораздо раньше или не вел бы в дебри дилетантского "как мне чего-то там сделать"

← →
Snip © (2004-07-26 15:10) [25]

Короче, у меня такой код, может кто скажет что нить:

procedure TfMain.lvFilesCustomDrawItem(Sender: TCustomListView; Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean); var Rect: TRect; PRect: TRect; Picture: TPicture; Ratio: Double; x, y, x0, y0, x1, y1: Integer; Icon: TIcon; FileInfo: SHFILEINFO; begin if Item.SubItems.Count=0 then Exit; if VStyle=1 then begin DefaultDraw := True; if Item.Data=nil then begin try Picture:=TPicture.Create; Picture.LoadFromFile(Item.SubItems[5]); Item.Data:=Picture; except end; end; Picture:=Item.Data; Ratio:=Picture.Width/Picture.Height; Item.SubItems[3]:=IntToStr(Picture.Width)+"x"+IntToStr(Picture.Height); Rect:=Item.DisplayRect(drIcon); Rect.Left:=Rect.Left+5; Rect.Right:=Rect.Right-5; PRect.Left:=Rect.Left+3; PRect.Right:=Rect.Right-3; if ImageSize<5 then begin PRect.Bottom:=Rect.Bottom-14; PRect.Top:=Rect.Top+14; end else begin PRect.Bottom:=Rect.Bottom-3; PRect.Top:=Rect.Top+3; end; x1:=PRect.Right-PRect.Left; y1:=PRect.Bottom-PRect.Top; x:=0; y:=0; if x1/y1<=Ratio then begin y0:=Round(x1/Ratio); y:=Round((y1-y0)/2); end else begin x0:=Round(y1*Ratio); x:=Round((x1-x0)/2); end; PRect.Left:=PRect.Left+x; PRect.Right:=PRect.Right-x; PRect.Top:=PRect.Top+y; PRect.Bottom:=PRect.Bottom-y; with Sender.Canvas do begin Pen.Color:=clMedGray; Brush.Color:=clBtnFace; Rectangle(Rect); StretchDraw(PRect, Picture.Graphic); if ImageSize<5 then TextOut((Rect.Left+Rect.Right - Sender.Canvas.TextWidth(IntToStr(Picture.Width)+"x"+IntToStr(Picture.Height))) div 2, Rect.Bottom-14, IntToStr(Picture.Width)+"x"+IntToStr(Picture.Height)); Brush.Color:=clWhite; end; end; if (VStyle=2)and(Item.ImageIndex=-1) then begin SHGetFileInfo(PChar(Item.SubItems[5]), 0, FileInfo, SizeOf(FileInfo), SHGFI_ICON or SHGFI_SMALLICON); Icon:=TIcon.Create; Icon.Handle:=FileInfo.hIcon; Item.ImageIndex:=lvFiles.SmallImages.AddIcon(Icon); Icon.Destroy; end; end;

> Я тебе сказал, а то что ты это реализовать не можешь - твои
> проблемы.

Я тея совсем не понял... хранить 2 изображения... так это какире ресурсы компа надо имет.

← →
Snip © (2004-07-26 15:12) [26]

> Digitman © (26.07.04 15:09) [24]

так он пишиться уже давно... и не возникало пролем... рисовал все нормально... вот когда начал делать четыре вида TListView, стала запара.... прога то почти готова....вот даже не могут подсказать...

← →
ИМХО © (2004-07-26 15:12) [27]

"Помогите, горю, сессия!" (весна), "Помогите сделать подарок на день рождения подруги!" (лето, потому что все экзамены прошли). Осенью что будет?

← →
Думкин © (2004-07-26 15:13) [28]

> [25] Snip © (26.07.04 15:10)

Обычные. Либо саночки либо ехать. Можно на лету формировать, благо у Jpeg - несколько параметров при считывании. Маленькие - читаем в 1/8 и попроще - ну и т.д. Либо 2 вида, один для мелкости, второй для детализации. Еще опережающее чтение. Но если ты фотки 5000*5000 - ну я не виноват.

> ИМХО © (26.07.04 15:12) [27]

во первых я не учусь а раотаю... запар с сессиями нет.... а тут помошь попросил... просто инет облазил, 3 день брожу по пинету, и ничего найти не могу с этими Thumbnails

Snip © (26.07.04 15:10) [25]

Не начинаются в русском языке предложения со слова "короче", не такого правила :)

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

а осенью будет "ой, блин! чуваки, помогите начать учиться!"

> ssk © (26.07.04 15:17) [32]

вот тебе за помошью и обрачусь.... учитсья.... хе хе хе...

Лано спасио за ценную инофрмацию...
Просто сам них..а не знаете как энто делаеться, вот и строите из сея умных... типа сам пиши, если подруги....
Пошел бороздить просторы инета....

> Просто сам них..а не знаете как энто делаеться, вот и строите
> из сея умных

Халявщики must die!

Знаем мы, как это делается, уж поверь. Но у нас нет этой проблемы с подругами.

Опять же причем тут сразу подруга? Я же пишу проги для расширения своих знаний, а не знаний подруги...

> Snip © (26.07.04 15:27) [35]

тогда какого .. ляда ... это

> У подруги скоро д.р., хочеться сделат ей подарочек маленькй,
> написать что то типа фотоальбома

?

учишься ? и учись ! это же хорошо ...

Хорошо сформулируем тему так....

Разиваю свои знания по программированию на Delphi? Реши написать програмку фотоабомчик, но вот появилась маленькая загвоздка, как сделасть режим просмотра Thumbnails в TListView?
Подскажите плиз, а лучше дайте ссылку на статью, чтобы я Вас больше не доставал...... Заранее благодарен.

P.S.
Конечно могу поделиться компонентами для дельфи.... Есть болшьшой выбор...

Snip © (26.07.04 15:35)

> Конечно могу поделиться компонентами для дельфи.... Есть
> болшьшой выбор...

Собственными компонентами ?

Собственный тока один, тотже TListView тока с технологие Drag&Drop как из проводника, так и в него....

> Собственный тока один

Это маленький выбор.

Для дележки компонентами существует неплохой сайт www.torry.net - там выбор большой.

> но вот появилась маленькая загвоздка, как сделасть режим
> просмотра Thumbnails в TListView?

Поискать готовый ListView, умеющий это ? :)

Подарок на д.р. Найти похожие ветки