• Что бы вступить в ряды "Принятый кодер" Вам нужно:
    Написать 10 полезных сообщений или тем и Получить 10 симпатий.
    Для того кто не хочет терять время,может пожертвовать средства для поддержки сервеса, и вступить в ряды VIP на месяц, дополнительная информация в лс.

  • Пользаватели которые будут спамить, уходят в бан без предупреждения. Спам сообщения определяется администрацией и модератором.

  • Гость, Что бы Вы хотели увидеть на нашем Форуме? Изложить свои идеи и пожелания по улучшению форума Вы можете поделиться с нами здесь. ----> Перейдите сюда
  • Все пользователи не прошедшие проверку электронной почты будут заблокированы. Все вопросы с разблокировкой обращайтесь по адресу электронной почте : info@guardianelinks.com . Не пришло сообщение о проверке или о сбросе также сообщите нам.

Поздравление С Нг

triamera977

Homo habilis
Принятый Кодер
Регистрация
27 Апр 2015
Сообщения
79
Баллы
60
Всем привет! В 2013 году я сделал программку "Поздравление с новым годом" Щас залез в неё чтоб поменять картинку и не пойму вчём проблема, уже голову сломал, при заменен картинки она становится не прозрачной хотя формат png, исходник прилагаю.
 

Вложения

  • ng.rar
    ng.rar
    2 МБ · Просмотры: 3
Всем привет! В 2013 году я сделал программку "Поздравление с новым годом" Щас залез в неё чтоб поменять картинку и не пойму вчём проблема, уже голову сломал, при заменен картинки она становится не прозрачной хотя формат png, исходник прилагаю.
залит файл вроде не до конца,ошибку выбило
 
Так и не понял в чем проблема у меня с данным компонентом, решил проблему так


Код:
procedure TForm1.FormCreate(Sender: TObject);
begin

  Form1.TransparentColorValue := clSilver;
  Form1.transparentcolor := true;
  Form1.Color := clSilver;

   //Form1.Brush.Style := bsClear;
  Form1.BorderStyle := bsNone;
end;

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if HiWord(GetAsyncKeyState(VK_LBUTTON)) > 0 then
begin
Form1.Left := Form1.Left + X - X1;
Form1.Top := Form1.Top + Y - Y1;
end;
end;

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
X1 := X;
Y1 := Y;

end;
 
13.JPG 12.JPG
 
наверно проблема что твоя картинка с задним планом а должна быть без14.JPG
 
тут поменяй цвет попробуй15.JPG
 
Если надо просто вывести картинку прозрачную посмотри это не так давно делал!

вот результат
 
Спасибо!
 
Вверх Снизу