Builder.cz - Informacni server o programovani

Aha, tak zkus zaexperimentovat s FillRectSub()

Aha, tak zkus zaexperimentovat s FillRectSub()

Citovat příspěvek

Tohle je procedura z jiné hry, kterou už jsem vytvořil:

procedure THra.Dosazeni(Cislo:Integer;Objekt:TImage;Moznost:Boolean);
var
dib: TDIB;
mojebitmapa: TBitmap;
begin
dib := TDIB.Create;
try
with Karty.Items[Cislo-1] do
if Assigned(Picture) then
begin
dib.Assign(Picture);
If not Moznost Then Dib.Darker(30);
mojebitmapa := Dib.CreateBitmapFromDIB;
Objekt.Picture.Bitmap:=MojeBitmapa;
end;
finally
dib.Free;
mojebitmapa.Free;
end;
end;

Tohle je procedura z jiné hry, kterou už jsem vytvořil: procedure THra.Dosazeni(Cislo:Integer;Objekt:TImage;Moznost:Boolean); var dib: TDIB; mojebitmapa: TBitmap; begin dib := TDIB.Create; try with Karty.Items[Cislo-1] do if Assigned(Picture) then begin dib.Assign(Picture); If not Moznost Then Dib.Darker(30); mojebitmapa := Dib.CreateBitmapFromDIB; Objekt.Picture.Bitmap:=MojeBitmapa; end; finally dib.Free; mojebitmapa.Free; end; end;

Citovat příspěvek

a v DIBu to děláš jak?

a v DIBu to děláš jak?

Citovat příspěvek

Vykresluji běžné obrázky z DxImageListu. Chtěl bych právě něco jako při práci s DIBem. Tam je to ztmavování jednoduché.

Vykresluji běžné obrázky z DxImageListu. Chtěl bych právě něco jako při práci s DIBem. Tam je to ztmavování jednoduché.

Citovat příspěvek

takže jednou a těsně před Flip. A vykresluješ běžné obrázky nebo je taky kreslíš funkcemi Canvasu?
Možná by ti stačilo překrýt odstínem funkcí surfacu FillRectSub(), s tím lze dělat stíny, ale musíš to vyzkoušet...

takže jednou a těsně před Flip. A vykresluješ běžné obrázky nebo je taky kreslíš funkcemi Canvasu? Možná by ti stačilo překrýt odstínem funkcí surfacu FillRectSub(), s tím lze dělat stíny, ale musíš to vyzkoušet...

Citovat příspěvek

Pořadí? No mám mapu, takže nejdřív vykreslím krajinu, na ni domy, a pak postavy. A ty funkce jsem zkoušel po vykreslení všech objektů.

Pořadí? No mám mapu, takže nejdřív vykreslím krajinu, na ni domy, a pak postavy. A ty funkce jsem zkoušel po vykreslení všech objektů.

Citovat příspěvek

A v jakém pořadí vykresluješ objekty?

A v jakém pořadí vykresluješ objekty?

Citovat příspěvek

No fungujou hezky, ale překrijí mi mé objekty, nebo spíš obrázky, které na surface vykresluju, takže místo, aby se ty obrázky ztmavovaly, tak mi to prostě ztmaví z šedé na černou ... A objekty zmizí.

No fungujou hezky, ale překrijí mi mé objekty, nebo spíš obrázky, které na surface vykresluju, takže místo, aby se ty obrázky ztmavovaly, tak mi to prostě ztmaví z šedé na černou ... A objekty zmizí.

Citovat příspěvek

zkus se podívat na následující funkce
[code]
{fades}
function Black2Screen(oldcolor: Integer): Longint;
function Fade2Screen(oldcolor, newcolour: Integer): LongInt;
function White2Screen(oldcolor: Integer): LongInt;
function FadeGrey2Screen(oldcolor, newcolour: LongInt): LongInt;
[/code]

mohly by tě inspirovat...

zkus se podívat na následující funkce [code] {fades} function Black2Screen(oldcolor: Integer): Longint; function Fade2Screen(oldcolor, newcolour: Integer): LongInt; function White2Screen(oldcolor: Integer): LongInt; function FadeGrey2Screen(oldcolor, newcolour: LongInt): LongInt; [/code] mohly by tě inspirovat...

Citovat příspěvek

Chtěl bych se zeptat, jestli lze nějak jednoduše ztmavit případně zesvětlit celý surface, tedy vše, co vykresluji. Chtěl bych simulovat noc a den(západ a východ slunce). Lze to nějak jednoduše udělat? Díky za pomoc.

Chtěl bych se zeptat, jestli lze nějak jednoduše ztmavit případně zesvětlit celý surface, tedy vše, co vykresluji. Chtěl bych simulovat noc a den(západ a východ slunce). Lze to nějak jednoduše udělat? Díky za pomoc.

Citovat příspěvek