AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Scanline+TrackBarChange geht nicht

Ein Thema von Cöster · begonnen am 8. Okt 2006 · letzter Beitrag vom 8. Okt 2006
Antwort Antwort
Cöster

Registriert seit: 6. Jun 2006
589 Beiträge
 
Turbo Delphi für Win32
 
#1

Scanline+TrackBarChange geht nicht

  Alt 8. Okt 2006, 18:00
Hi!

Ich hab ein Image (256*256Pxs) und einen TrackBar (Min: 0; Max: 255).

Über den TrackBar soll der Rot-Anteil des Images geregelt werden. Folgender Code bewirkt allerdings nichts.
Habt ihr ne Ahnung, woran das liegen kann?

Delphi-Quellcode:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Image1: TImage;
    TrackBar1: TTrackBar;
    procedure TrackBar1Change(Sender: TObject);
  private
    { Private-Deklarationen }
    procedure MakeRed(Bmp: TBitmap; const r: Byte);
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

procedure TForm1.MakeRed(Bmp: TBitmap; const r: Byte);
type
  TPixArray = array[1..3] of Byte;
var
  p: ^TPixArray;
  h, w: Byte;
begin
  for h := 0 to Bmp.Height - 1 do
  begin
    p := Bmp.ScanLine[h];
    for w := 0 to Bmp.Width - 1 do
    begin
      p^[3] := r;
      Inc(p);
    end;
  end;
end;

{$R *.DFM}

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
  MakeRed(Image1.Picture.Bitmap, TrackBar1.Position);
end;

end.
  Mit Zitat antworten Zitat
Phantom1

Registriert seit: 20. Jun 2003
282 Beiträge
 
Delphi 10.4 Sydney
 
#2

Re: Scanline+TrackBarChange geht nicht

  Alt 8. Okt 2006, 18:11
probiere mal folgendes:
Delphi-Quellcode:
procedure TForm1.TrackBar1Change(Sender: TObject);
begin
  Image1.Picture.Bitmap.PixelFormat:=pf24bit;
  MakeRed(Image1.Picture.Bitmap, TrackBar1.Position);
  Image1.Refresh;
end;
  Mit Zitat antworten Zitat
Cöster

Registriert seit: 6. Jun 2006
589 Beiträge
 
Turbo Delphi für Win32
 
#3

Re: Scanline+TrackBarChange geht nicht

  Alt 8. Okt 2006, 18:28


Das Pixelformat auf 24 Bit zu stellen, vergess ich auch immer wieder , obwohl darin diesmal ausnahmsweise nicht der Fehler lag.

Refresh war's

DANKE
  Mit Zitat antworten Zitat
Antwort Antwort


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 18:14 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz