[Lotles]

Здравствуйте
Подскажите как сделать свою программу уникальной через фотошоп ???

[ART]

Делаешь скрин проги, открываешь его через фотошоп и на картинке пишешь "уникальная прога".

[Lotles]

Например как сделать кнопки не как стандартные а какойнибудь другой формы(имею ввиду через фотошоп). Как все это организовать???

[Страдалецъ]

Это батенькавопрос вкуса, практики и хоть минимального умения рисовать. Если нет любой составляющей, то лучше обратится к профи.

[NIch]

Хороший программист очень редко хороший дизайнер...поэтому его (хорошего программиста) проги функциональны, но некрасивы...ИМХО...

[Lotles]

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

[NIch]

Нет никакого алгоритма, каждый дизайн уникален...
Можно придумать некоторую тему внешнего вида приложения и от нее отталкиваться...а в фотошопе можно сделать только картинки для украшения проги...например фон, картинка кнопки, и других элементов программы...

[-=C@$PeR=-]

Сообщение от Lotles

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

Может алгоритма нету но можно сделать так, пример для кнопки:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41

<b>procedure</b> TForm1.FormCreate(Sender: TObject); <font color="SeaGreen"><i>//событие создания формы "OnCreate".  PlayBMP : TBitmap;</i></font> <b>begin</b> StopBMP := TBitmap.Create; <font color="#2e8b57"><i>//объявляешь эти переменные в разделе var перед implementation</i> </font>    PlayBMP := TBitmap.Create;    StopBMP.LoadFromFile(ExtractFilePath(Application.ExeName)+WayToStopBMP); <font color="#2e8b57"><i>//загрузить картинку в переменную StopBMP. ExtractFilePath(Application.ExeName) - это типа извлечь путь к твоей программе.  +WayToStopBMP - это константа моя просто ну чтобы путь к картинке, если поменяю в папке с программой, то этот путь не пришлось переписывать везде, даже покажу его ))</i></font>  <font color="#2e8b57"><i>WayToStopBMP = 'Resources\Textures\ButtonPlayStop\Stop.bmp'; - ещё раз это константа.</i></font>    PlayBMP.LoadFromFile(ExtractFilePath(Application.ExeName)+WayToPlayBMP); <b>end</b>;   //Событие OnClick <b>procedure</b> TForm1.Image2Click(Sender: TObject); <b>begin</b>   Form1.Close; <b>end</b>;   //Событие OnMouseEnter - Для компонента TImage <b>procedure</b> TForm1.Image2MouseEnter(Sender: TObject); <b>begin</b>       <b>if</b> Setting.SizeStyle = ssBig   <b>then</b> <font color="#2e8b57"><i>//ну это мои там заморочи, типа если размер формы большой, то загрузить картинку эту, если маленький, то эту.  Setting.SizeStyle - это структура (низнаю может пригодиться) SizeStyle - это... забыл как называется, вроде перечисляемый тип Объявленный в структуре.</i></font>   Form1.Image2.Canvas.Draw(0,0,CloseTwoBMP);   <b>if</b> Setting.SizeStyle = ssSmall <b>then</b>   Form1.Image2.Canvas.Draw(0,0,CloseTwoBMPMini);   Image2.Repaint; <b>end</b>;   <font color="#2e8b57"><i>//Событие OnMouseLeave - Для компонента TImage</i></font> <b>procedure</b> TForm1.Image2MouseLeave(Sender: TObject); <b>begin</b>   <b>if</b> Setting.SizeStyle = ssBig   <b>then</b>   Form1.Image2.Canvas.Draw(0,0,CloseOneBMP);   <b>if</b> Setting.SizeStyle = ssSmall <b>then</b>   Form1.Image2.Canvas.Draw(0,0,CloseOneBMPMini);   Image2.Repaint; <b>end</b>;

[CODE]type
TSizeStyle = (ssSmall, ssBIg)// где ssSmall по большому счёту это 0, а SSBig - это 1.[/code]

Код:

1 2 3 4 5 6 7

<b>type</b>      TSettings = record      public        SizeStyle : TSizeStyle; <b>end</b>;   <b>var</b> Setting : TSettings;

Ну если ты пишешь прогу с фоновой картинкой например, а свойство формы
BorderStyle = bsNone, то пригодиться вот это, оно позволяет таскать форму за картину:

Код:

1 2 3 4 5 6 7

<font color="#2e8b57"><i>//событие OnMouseDown - зажатие кнопки мыши на компоненте TImage</i></font> <b>procedure</b> TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;   Shift: TShiftState; X, Y: Integer); <b>begin</b>   ReleaseCapture;   SendMessage(Form1.Handle, WM_NCLBUTTONDOWN, HTCAPTION,0); <b>end</b>;

можно ещё например для кнопки поставить звук формата Wav, можно и mp3,
но это глупо для этого использовать TMediaPlayer
Для этого в раздел uses добавь MMsystem.

А потом на какое хочешь событие вставь это:
PlaySound('Sound/nazvanie.wav', 0, SND_ASYNC);

Я как понимаю ты новичёк, вот тебе совет нибольшой, наводишь указатель
мыши на какую нибудь функцию, да на что угодно и зажимаешь Ctrl потом
щёлкаешь и смотришь её описание (ну всмысле код).

[M.A.D.M.A.N.]

Сообщение от NIch

Хороший программист очень редко хороший дизайнер...поэтому его (хорошего программиста) проги функциональны, но некрасивы...ИМХО...

+1)))

Lotles, используй скины, там и редакторы есть.

[Страдалецъ]

Вы зря так усердно взялись за фотошоп. Написать свой интерефейс в едином стиле для всего приложения, плохо ориентируясь в языке програмирования практически нереально. Как правило, в программе помимо пользовательских форм приходится использовать стандартные. Например OpenDialog, ShowMessage и т.д. Поменять им внешний вид в соответствии с вашей задумкой, для новичка задача практически нереальная. А вот как уже говорили ранее, воспользоваться библиотекой скинов может даже неопытный пользователь. При этом внешний вид приложения улучшается на порядок. Для начала воспользуйтесь бесплатной для Россиян билиотекой AlphaControls. Живет она здесь.