Новые компаненты

[vizor9]

Привет всем!!!
Где можно найти копонент AlphaSkin, ну чтоб он был не триальной версии, а то я скачал компонент с сайта http://www.alphaskins.com/ и там написано для стран СНГ И бывшего союза бесплатно, а он триальный и когда я делаю какую либо прогу после её запуска выходит сначала табличка, типа "Это триальная версия" a потом только моя прога

[Лубышев]

На мой взгляд AlphaSkin - не желательно использовать в болшьших проектах - это не солидно.
Я хочу от него избавиться в своих приложениях.
Использую фоновые рисунки.
Есть ли какие нибудь компоненты, для которых не нужны скины, а загрузка визуализации из грачического файла:
Нужны ProgressBar и TrackBar ну если есть, то и другие компоненты.

[vitalik007]

http://programmersforum.ru/showthread.php?t=8579

[Veiron]

Извиняюсь, не поможете с установкой AlphaSkin хочу посмотреть, что за зверь такой. Прочитал Install.txt только что-то мало понял...

[Лубышев]

Устанавливай так:
Кидай в папку из которой не будешь перемешать файлы Лучше в папке с Delphi. Создай там где-нибудь папку в которую поместишь.
Открой acntX_r.dpk где буква x в названии указывает версию
например для Delphi 7 этот файл называется acnt7_r.dpk.
Затем жми instal потом
открой другой файл файл acntX.dpk из другой папки тоже инсталируй
Затем открой AlphaDB.dpk. из третей папки тоже инсталируй

После всего этого надо прописать эти папки. Открой Delphi там выбери в меню Tools выбери Enviroment Options выбери вкладку Library, а там Library Path и в этом окне добавь пути всех трех папок
Это простое обьяснение, если что, читай хелп

[Veiron]

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

[D@rk M@k]

Вован не подскажеш как сделать градиент?

[D@rk M@k]

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

Вот зацените пол часа работы ))) скин моего прогрессбара нового предок TCustomControl.

Вован не подскажеш как сделать градиент?

[BOBAH13]

Пользуюсь постоянно этой функцией, манипулируйте параметром Rect: TRect

procedure DrawGradient(ACanvas: TCanvas; Rect: TRect;
   Horicontal: Boolean; Colors: array of TColor);
 type
   RGBArray = array[0..2] of Byte;
 var
   x, y, z, stelle, mx, bis, faColorsh, mass: Integer;
   Faktor: double;
   A: RGBArray;
   B: array of RGBArray;
   merkw: integer;
   merks: TPenStyle;
   merkp: TColor;
 begin
   mx := High(Colors);
   if mx > 0 then
   begin
     if Horicontal then
       mass := Rect.Right - Rect.Left
     else
       mass := Rect.Bottom - Rect.Top;
     SetLength(b, mx + 1);
     for x := 0 to mx do
     begin
       Colors[x] := ColorToRGB(Colors[x]);
       b[x][0] := GetRValue(Colors[x]);
       b[x][1] := GetGValue(Colors[x]);
       b[x][2] := GetBValue(Colors[x]);
     end;
     merkw := ACanvas.Pen.Width;
     merks := ACanvas.Pen.Style;
     merkp := ACanvas.Pen.Color;
     ACanvas.Pen.Width := 1;
     ACanvas.Pen.Style := psSolid;
     faColorsh := Round(mass / mx);
     for y := 0 to mx - 1 do
     begin
       if y = mx - 1 then
         bis := mass - y * faColorsh - 1
       else
         bis := faColorsh;
       for x := 0 to bis do
       begin
         Stelle := x + y * faColorsh;
         if bis <> 0 then
         faktor := x / bis else
         faktor := 0;
         for z := 0 to 3 do
           a[z] := Trunc(b[y][z] + ((b[y + 1][z] - b[y][z]) * Faktor));
         ACanvas.Pen.Color := RGB(a[0], a[1], a[2]);
         if Horicontal then
         begin
           ACanvas.MoveTo(Rect.Left + Stelle, Rect.Top);
           ACanvas.LineTo(Rect.Left + Stelle, Rect.Bottom);
         end
         else
         begin
           ACanvas.MoveTo(Rect.Left, Rect.Top + Stelle);
           ACanvas.LineTo(Rect.Right, Rect.Top + Stelle);
         end;
       end;
     end;
     b := nil;
     ACanvas.Pen.Width := merkw;
     ACanvas.Pen.Style := merks;
     ACanvas.Pen.Color := merkp;
   end;
 end;