So habs jetzt mit drawgrid versucht. hier mal mein quellcode
Delphi-Quellcode:
unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, Grids,
Buttons, ComCtrls, ExtCtrls;
type
{ TForm1 }
TForm1 =
class(TForm)
Button1: TButton;
DrawGrid1: TDrawGrid;
bitmap1: tbitmap;
procedure Button1Click(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;
var
Form1: TForm1;
implementation
{ TForm1 }
procedure TForm1.Button1Click(Sender: TObject);
begin
bitmap1.LoadFromfile('
F:\JTSSfMB\icons\scheinwerfein.bmp');
DrawGrid1.Canvas.draw(1,1 ,bitmap1);
end;
initialization
{$I Unit1.lrs}
end.
Wenn ich jetztausführe kommt wenn ich auf buton1 klicke das hier
Zitat:
Project raised
exception class 'External: SIGSEGV'
dann bleibt mein program hängen und der
IDE debuggt , er hört erst mit dem debuggen auf wenn ich lazarus neustarte.
Was hab ich falsch gemacht. (die datei exestiert und ist ein 256farben bitmap)
die zellen sind groß genug
MfG snow