Einzelnen Beitrag anzeigen

snow

Registriert seit: 28. Jun 2007
277 Beiträge
 
#15

Re: Gleisbild??? mit was??? Paintbox für delphi??

  Alt 25. Aug 2007, 20:35
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
  Mit Zitat antworten Zitat