- Регистрация
- 27 Апр 2015
- Сообщения
- 79
- Баллы
- 60
залит файл вроде не до конца,ошибку выбилоВсем привет! В 2013 году я сделал программку "Поздравление с новым годом" Щас залез в неё чтоб поменять картинку и не пойму вчём проблема, уже голову сломал, при заменен картинки она становится не прозрачной хотя формат png, исходник прилагаю.
Вот вся папка как она есть, файл ng.dprзалит файл вроде не до конца,ошибку выбило
http://sourceforge.net/projects/jvcl/у меня тех компонентов нет(
для seattle 10 нету(
Ясно, спасибо за попытку помочь ))для seattle 10 нету(
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;
Делаю как обычно, задний фон убераю в фотошопе и сохранил в pngнаверно проблема что твоя картинка с задним планом а должна быть безПосмотреть вложение 185