футболка DelphiMaster

← →
Prohodil Mimo © (2006-06-09 11:07) [200]

tesseract © (06.06.09 10:59) [199]
а можно дельфина в ASCII замутить :-)

но не символами, а паскалевским кодом :о))

← →
Prohodil Mimo © (2006-06-09 11:08) [201]

отформатировать текст в виде дельфина

← →
Gero © (2006-06-09 11:15) [202]

Исходник IncDay напечатать.

← →
Prohodil Mimo © (2006-06-09 11:20) [203]

Gero © (06.06.09 11:15) [202]

так вроде на майке собрались печатать, а не на плаще. Или майки до пяток будут? :о)

Хотя спереди первая часть с подписью
to be continue...
а на спине продолжение :о)

← →
pasha_golub © (2006-06-09 11:20) [204]

> Gero © (09.06.06 11:15) [202]

Лучче это:

if b = True then b := False else b := True;

← →
Skyle © (2006-06-09 11:34) [205]

> [204] pasha_golub © (09.06.06 11:20)

Тогда наверное

function IsTrue(AValue : Boolean) : Boolean; begin if AValue = True then Result := True else Result := False; end;

← →
tsa (2006-06-09 11:36) [206]

Предлагаю не закрашивать, рисовать только контуры - букв, символов.

← →
McSimm © (2006-06-09 11:48) [207]

> Skyle © (09.06.06 11:34) [205]

Понравилось :)
только const надо бы к параметру для пущей важности, мы же не ламерский, качественный код пишем ! :)))

← →
Ega23 © (2006-06-09 12:00) [208]

> if b = True then
> b := False
> else
> b := True;
>

Не так...
if b=True then begin b:=False; end else begin if b=False then begin b:=True; end; end;

← →
pasha_golub © (2006-06-09 12:05) [209]

> Ega23 © (09.06.06 12:00) [208]

Жжошь! :)

← →
antonn © (2006-06-09 12:17) [210]

щас подумал тут...

видели у сотрудников продвинутых контор (и спецслужб:)) "у сердца" дейджики приколоты? Ну вот каждый под себя такой бейдж и клепает, там и адрес и все можно написать:)

ЗЫ не по теме - нарисовать на спине прицел и подпись "почка тут". Чтоб не промахнулись:) На ДР одному товарищу подарили, ему жутко понравилось:))

по теме - я так понял, что футболки не с термопереносом? Потому как этот перенос много стирок не выдерживает :( Что такое "шелкотрафаретная печать"? И какой диапазон цветов нужно выдерживать (а то градиентами и полупрозрачностями можно такое натворить...)

попробую чего нить наваять... :)

← →
Skyle © (2006-06-09 12:18) [211]

> [205] Skyle © (09.06.06 11:34)
> [207] McSimm © (09.06.06 11:48)
> [208] Ega23 © (09.06.06 12:00)

Идём дальше ;-)

function IsTrue(const AValue : Boolean) : Boolean; begin try if AValue = True then begin Result := True; end else begin if AValue = False then begin Result := False; end else Raise Exception.Create("ой-вей я устала..."); end; except Result := False; end; end;

← →
Gero © (2006-06-09 12:36) [212]

function IsTrue(const AValue : Boolean) : Boolean; procedure SetTrue(var A: Boolean); begin if A <> True then A := True; end; procedure SetFalse(var A: Boolean); begin if A <> False then A := False; end; label TrueLabel, FalseLabel; begin try if (AValue = True) and (AValue <> False) then begin goto TrueLabel; end else begin if (AValue = False) and (AValue <> True) then begin goto FalseLabel; end else Raise Exception.Create("ой-вей я устала..."); end; except Result := False; end; TrueLabel: SetTrue(Result); Exit; FalseLabel: SetFalse(Result); Exit; raise Exception.Create("Катастрофа!"); end;

← →
Ega23 © (2006-06-09 12:37) [213]

> Gero © (09.06.06 12:36) [212]

ЖЖОШЬ!!!

← →
Иксик © (2006-06-09 12:41) [214]

> antonn © (09.06.06 12:17) [210]
> Что такое "шелкотрафаретная печать"?

Это такая штука интересная, вкратце - для покраски используется шелковая матрица с мелкими ячейками (чем меньше ячейки, тем больше разрешение рисунка).

← →
pasha_golub © (2006-06-09 12:42) [215]

> antonn © (09.06.06 12:17) [210]

> И какой диапазон цветов нужно выдерживать (а то градиентами
> и полупрозрачностями можно такое натворить...)

Полупрозрачности не пойдуть. Желательно не более 2-3 цветов.

← →
Skyle © (2006-06-09 13:12) [216]

> [212] Gero © (09.06.06 12:36)

Ну ничего себе у тебя фантазия...;-)

← →
antonn © (2006-06-09 13:14) [217]

Иксик © (09.06.06 12:41) [214]
оно как нибудь на стойкость изображения влияет? :)

pasha_golub © (09.06.06 12:42) [215]
Полупрозрачности не пойдуть. Желательно не более 2-3 цветов.
ну елки, не дают людям оторваться:)

может в, примерно, таком направлении поработать?
http://an-files.narod.ru/_images/we.GIF (9Кб)
сразу извиняюсь перед владельцем дельфинчика, за то, что нагло его свистнул:)
и всякие компании самсунги на возможный плагиат:)

← →
antonn © (2006-06-09 13:14) [218]

Gero © (09.06.06 12:36) [212]
компонент напиши:)

← →
Skyle © (2006-06-09 13:16) [219]

> [217] antonn © (09.06.06 13:14)

А там случаем лишние буквы не затесались? ;-)

В принципе, мне нравится.
Осталось понять, где это будет - на пузе или на сердце ;-)

У нашего админа есть майка, на сердце написано Opteron (просто слово), прикольно выглядит ;-)

← →
Другой (2006-06-09 13:24) [220]

antonn © (09.06.06 13:14) [217]

По моему даже на логотип для сайта тянет.

← →
Игорь Шевченко © (2006-06-09 13:27) [221]

antonn © (09.06.06 13:14) [217]

Delphimaster, без s на конце

← →
Kerk © (2006-06-09 13:28) [222]

Вместо ссылки лучше "Мастер Delphi" и шрифт поменять. Остальном гуд.

← →
antonn © (2006-06-09 13:28) [223]

Игорь Шевченко © (09.06.06 13:27) [221]
ой, а я раньше и не замечал:)

Другой (09.06.06 13:24) [220]
дык, зачем на сайт, этож на футболку

← →
antonn © (2006-06-09 13:49) [224]

Kerk © (09.06.06 13:28) [222]
какой шрифт предпочтительно? :)

← →
IceBeerg © (2006-06-09 13:51) [225]

Uses Beer; Var MyBottle:TBottle; Count:Integer; Glass:TGlass; Begin MyBottle:=TBottle.Create(nil); For Count:=1 To MyBottle.Count-1 Do Begin Glass:=InToGlass(MyBottle.Item[Count]); Application.MessageBox("!!!",Glass,0); End; End.

← →
tesseract © (2006-06-09 13:51) [226]

> antonn © (09.06.06 13:14) [217]

Не плохо но цвета неконтрастные.

Реально больше 2-4 цветов - это уже пошло смотриться.

Большие изречения - это не класс.
Как правило 3-4 слова, кто этот код читать будет?

> Gero © (09.06.06 12:36) [212]

Комемменты где ?

Щас ещё Джо придёт на Com сделает :-)

← →
Kerk © (2006-06-09 13:53) [227]

antonn © (09.06.06 13:49) [224]
какой шрифт предпочтительно? :)

Так, если на глаз, Arial Black попробуй.. попозже поэкспериментирую еще с этим :)

← →
tsa (2006-06-09 13:56) [228]

[217] antonn © (09.06.06 13:14)
нарисована сардина, два квадратных синих пня,
значит это не картина, а какая - то !
(c:)

(***********************************************************) (* *) (* TrueChecker.pas - TTrueChecked Component *) (* Version 1.0 *) (* *) (* Copyright (c) 2006 by Yanis Prasol *) (* All rights reserved. *) (* *) (***********************************************************) unit TrueChecker; interface uses Classes, SysUtils; const TrueValue = True; NonTrueValue = not True; type TTrueFalseChanger = class(TObject) public procedure SetTrue(var X: Boolean); procedure SetNonTrue(var X: Boolean); procedure SetNonTrueIfTrueAndSetTrueIfNonTrue(var X: Boolean); end; TTrueChecker = class(TComponent) private FVariable: Boolean; function GetIsTrue: Boolean; procedure SetVariable(const Value: Boolean); public constructor Create(AOwner: TComponent); override; published property IsTrue: Boolean read GetIsTrue; property Variable: Boolean read FVariable write SetVariable default NonTrueValue; end; implementation const STrueSettingError = "Failed set variable value to true!"; SNonTrueSettingError = "Failed set variable value to non true!"; SNonTrueAndNonFalseError = "Boolean variable value is not true and not false!"; SSetToTrueError = "Can""t set variable value to true!"; SDontUnderstandingError = "mmmmmmmmmmm...?"; { TTrueFalseChanger } procedure TTrueFalseChanger.SetTrue(var X: Boolean); begin repeat if (X <> TrueValue) or (X = NonTrueValue) then begin SetNonTrueIfTrueAndSetTrueIfNonTrue(X); end else raise Exception.Create(STrueSettingError); until X = TrueValue; end; procedure TTrueFalseChanger.SetNonTrue(var X: Boolean); begin repeat if (X <> NonTrueValue) or (X = TrueValue) then begin SetNonTrueIfTrueAndSetTrueIfNonTrue(X); end else raise Exception.Create(SNonTrueSettingError); until X = NonTrueValue; end; procedure TTrueFalseChanger.SetNonTrueIfTrueAndSetTrueIfNonTrue(var X: Boolean); begin if (X <> (X and not X)) = TrueValue then begin X := NonTrueValue; end else if (X xor NonTrueValue) = NonTrueValue then begin X := TrueValue; end else raise Exception.Create(SNonTrueAndNonFalseError); end; { TTrueChecker } function TTrueChecker.GetIsTrue: Boolean; label TrueLabel, FalseLabel; var TrueFalseChanger: TTrueFalseChanger; begin TrueFalseChanger := TTrueFalseChanger.Create; try try if (FVariable = TrueValue) and (FVariable <> NonTrueValue) then begin goto TrueLabel; end else begin if (FVariable = NonTrueValue) and (FVariable <> TrueValue) then begin goto FalseLabel; end else raise Exception.Create(SDontUnderstandingError); end; TrueLabel: while (Result <> TrueValue) do TrueFalseChanger.SetTrue(Result); Exit; FalseLabel: while (Result <> NonTrueValue) do TrueFalseChanger.SetNonTrue(Result); Exit; except Result := NonTrueValue; end; finally TrueFalseChanger.Free; end; raise Exception.Create(SSetToTrueError); end; constructor TTrueChecker.Create(AOwner: TComponent); begin inherited; FVariable := NonTrueValue; end; procedure TTrueChecker.SetVariable(const Value: Boolean); begin if FVariable <> Value then FVariable := Value; end; end.

Пример использования:

procedure TForm1.Button1Click(Sender: TObject); const TestedValiable = True; var TrueChecker: TTrueChecker; ResultValiable: Boolean; begin TrueChecker := TTrueChecker.Create(nil); try TrueChecker.Variable := TestedValiable; ResultValiable := TrueChecker.IsTrue; if ResultValiable then ShowMessage("Variable is True!") else ShowMessage("Variable is False!"); finally TrueChecker.Free; end; end;

в целом неплохо, но зачем нужно STrueSettingError и SSetToTrueError. К чему эта избыточность !? В коде не должно быть лишнего!!!
---
и предлагаю
const
TrueValue = True;
NonTrueValue = not TrueValue;

Kerk © (09.06.06 13:53) [227]
апгрейженое, но на футболку не пойдет:
http://an-files.narod.ru/_images/bask.GIF (11Кб)

tsa (09.06.06 13:56) [228]
:Р

Взрыв мозга, это сижу рисую дельфина жёлтого, и мне плеер по рэнодму ставит "жёлтые рыббы плывут на восток" таймаута.......

Ушёл проржаться .......

"мастер дельфи", больше на значек смахивает, чем на гордую надпись посреди футболки...
http://an-files.narod.ru/_images/md351351.GIF (7Кб)

Ну так можно типа значка на грудь слева приделать и всё.

И придумать что-нибудь на спину.

футболка DelphiMaster Найти похожие ветки