Фон в Кавас!

[Seregakz]

Народ подскажите как изменить фон в кавас?

[Strelok]

Почитайка справку

[KeipL]

formAddImage

function formAddImage(i:image):integer;

Вставляет изображение на форму. Функция возвращает ID вставленного изображения.

var
image_id: integer;
begin
image_id := formAddImage(loadImage('/logo.png'));
showForm;
delay(2000);
end.

См. также: showForm, formRemove

Лень глянуть?

[ViNT]

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

Лень глянуть?

При чем здесь форма?
И вообще, что подразумевается под изменением фона - заливка цветом или вывод фонового изображения?
Если заливка - нужно просто перед рисованием основного изображения нарисовать на канвасе прямоугольник нужного цвета на весь экран, если изображение, то нужно вывести его с помощью DrawImage, и потом рисовать на нем.

[Seregakz]

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

При чем здесь форма?
И вообще, что подразумевается под изменением фона - заливка цветом или вывод фонового изображения?
Если заливка - нужно просто перед рисованием основного изображения нарисовать на канвасе прямоугольник нужного цвета на весь экран, если изображение, то нужно вывести его с помощью DrawImage, и потом рисовать на нем.

Ну над чтоб полнотью во всей проге задний фон был голубого цвета!

[Romanzes]

Если пользуешься не формой, а канвой, то просто при перерисовке в начале пишешь:

SetColor(0,0,127);
FillRect(0,0,ScrW,ScrH);

Где ScrW, ScrH- ширина и высота экрана.

[Seregakz]

ещё вопросик как сделать обновления DrawText вот например:
пишу ААА потом пишу БББ. и происходит наложение а не замена текста(

DrawText('ААА', 0, 0);
Delay(2000);

DrawText('БББ', 0, 0);
Repaint;
Delay(1000);

[Romanzes]

Точно так же: зарисовываешь весь экран прямоугольником, а потом рисуешь все, что нужно. Вообще, обычно перед обновлением экрана принято так делать.

[Seregakz]

плз приведи пример исходником =)
прост мне надо будет постоянно менять этот текст.
вот на этом исправь как надо:

Program NewProjectNEW;
Begin
    DrawText('Привет!', 5, 5);    
    Delay(2000);    
    DrawText('ППППППП', 5, 5);
    Repaint;    
    Delay(999999999);
End. 


[vitalik1]

Вот тебе пример:

Program NewProjectNEW;
var
   ScrW,ScrH: integer;

procedure cls;
begin
   setcolor(0,0,127);
   fillrect(0,0,ScrW,ScrH);
   setcolor(255,255,255);
end;
 
Begin
    ScrW:=getwidth;
    ScrH:=getheight;
    cls;
    DrawText('Привет!', 5, 5);
    repaint;
    Delay(2000);
    cls;     
    DrawText('ППППППП', 5, 5); 
    Repaint;     
    Delay(999999999); 
End. 


[Seregakz]

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

Вот тебе пример:

Program NewProjectNEW;
var
   ScrW,ScrH: integer;

procedure cls;
begin
   setcolor(0,0,127);
   fillrect(0,0,ScrW,ScrH);
   setcolor(255,255,255);
end;
 
Begin
    ScrW:=getwidth;
    ScrH:=getheight;
    cls;
    DrawText('Привет!', 5, 5);
    repaint;
    Delay(2000);
    cls;     
    DrawText('ППППППП', 5, 5); 
    Repaint;     
    Delay(999999999); 
End. 


тута фон меняется а мне надо что ваше нечего не менялось кроме текста !!!!!!
чтоб фон был стандартной темы в телефоне!

[vitalik1]

Ну тогда или закрашивай только текст так:

setcolor(0,0,0);
    DrawText('Привет!', 5, 5); 
    repaint;
    Delay(2000); 
    setcolor(255,255,255);//цвет фона
    DrawText('Привет!', 5, 5);
    setcolor(0,0,0); 
    DrawText('ППППППП', 5, 5);  
    Repaint;      
    Delay(999999999); 


или так

setcolor(0,0,0);
    DrawText('Привет!', 5, 5); 
    repaint;
    Delay(2000); 
    setcolor(255,255,255);//цвет фона
    fillrect(5,5,getstringwidth('Привет!'),getstringheight('Привет!'));
    setcolor(0,0,0); 
    DrawText('ППППППП', 5, 5);  
    Repaint;      
    Delay(999999999); 


или перерисовывай все на экране

[Seregakz]

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

Ну тогда или закрашивай только текст так:

setcolor(0,0,0);
    DrawText('Привет!', 5, 5); 
    repaint;
    Delay(2000); 
    setcolor(255,255,255);//цвет фона
    DrawText('Привет!', 5, 5);
    setcolor(0,0,0); 
    DrawText('ППППППП', 5, 5);  
    Repaint;      
    Delay(999999999); 


или так

setcolor(0,0,0);
    DrawText('Привет!', 5, 5); 
    repaint;
    Delay(2000); 
    setcolor(255,255,255);//цвет фона
    fillrect(5,5,getstringwidth('Привет!'),getstringheight('Привет!'));
    setcolor(0,0,0); 
    DrawText('ППППППП', 5, 5);  
    Repaint;      
    Delay(999999999); 


или перерисовывай все на экране

ну вот пример проги который мне нужен:
то есть без смены фона без смены цвета текста всё как обычно но чтоб прост меняло текст:

Program NewProjectNEW; 
Begin 
    DrawText('Привет!', 5, 5);     
    Delay(2000);     
    DrawText('ППППППП', 5, 5); 
    Repaint;     
    Delay(999999999); 
End. 


[vitalik1]

чтоб фон был стандартной темы в телефоне надо использовать формы

[vitalik1]

но если текст не затереть цветом фона то следующий текст наложиться на него