AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Multimedia Delphi TImage als Bitmap speichern und Farbtiefe
Thema durchsuchen
Ansicht
Themen-Optionen

TImage als Bitmap speichern und Farbtiefe

Ein Thema von mashutu · begonnen am 3. Aug 2011 · letzter Beitrag vom 3. Aug 2011
 
mashutu

Registriert seit: 15. Nov 2007
195 Beiträge
 
#6

AW: TImage als Bitmap speichern und Farbtiefe

  Alt 3. Aug 2011, 19:11
Also ich habe ein vorhandenes Bitmap mit der erforderlichen Farbtiefe geladen und dann da drauf gezeichnet.
Das Ergebnis ist das gewuenschte.

So habe ich es gemacht

Code:
var img:TImage;
begin
{...}
    img:=tImage.Create(self);

    img.Picture.LoadFromFile(exe_path + 'template.bmp');
    with img.Picture.Bitmap.Canvas do
    begin
       Brush.Style := bsSolid;
       Brush.Color := clWhite;
       Rectangle(0, 0, 4230,4230);{war noetig um einen weissen Hintergrund zu erhalten}
     

    end;//with
   
    draw_Map(0,img.Picture.Bitmap.Canvas      ,true); //die eigentliche Zeichenroutine

    img.Picture.Bitmap.SaveToFile(dlgSave.FileName);
    img.Free;
{...}
Vielen Dank erst mal, da es mich fuer heute zum gewuenschten Ergebnis gefuehrt hat.

Eine befriedigende Loesung ist es aber nicht - und die Ursache fuer die Aenderung ist mir auch noch unklar.

Wenn also noch jemand Ideen hat, wir ich das Problem langfristig handeln kann, immer her damit.
Und noch mal Danke an DeddyH
utu

if it was hard to write it should be hard to read
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 06:21 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz