Našli ste 1095 zadetkov

Napisal/-a Fortuna
13.08.2011 23:28:15
Forum: Komponente
Tema: Kako dobiti parent (Sender)
Odgovori: 3
Ogledi: 4658

Re: Kako dobiti parent (Sender)

Sem rešil problem procedure TS.BitBtn1ContextPopup(Sender: TObject; MousePos: TPoint; var Handled: Boolean); begin s.FjezikSHOW(Sender); end; for yy := 0 to FormV.ComponentCount - 1 do begin if FormV.Components[yy] is TLabel then begin TLabel(FormV.Components[yy]).PopupMenu:=PMjezik; TLabel(FormV.Co...
Napisal/-a Fortuna
13.08.2011 20:04:51
Forum: Komponente
Tema: Kako dobiti parent (Sender)
Odgovori: 3
Ogledi: 4658

Kako dobiti parent (Sender)

Npr: Tole mam v PMjezik: TPopupMenu; label1.PopupMenu:=PMjezik; Ko dam desni klik na label1 bi rad dobil sender od label1 procedure TS.PMjezikPopup(Sender: TObject); begin FjezikSHOW(Sender); //<------ tuki bi rad boli sender od Label1 Dobim pa sender od TPopupMenu; end; Kako bi dobil seneer od tist...
Napisal/-a Fortuna
07.08.2011 06:39:44
Forum: Baze
Tema: Kašne so prednosti, slabosti PostgreSQL pred Firebird
Odgovori: 7
Ogledi: 9199

Re: Kašne so prednosti, slabosti PostgreSQL pred Firebird

1 Ima log. Stabilnos, hitrost baze, Je sintaksa stored procedure enaka z Firebrd? Zna commite peljati čez dve baza? Ima log. Npr. ob sesuje baze ali lahko vspotavim bazo iz zaščlite + log? Kako popdpira več niti ob sočasnem dostopu do iste tabelce? Hitrost connect -a do baze. Ta je na Firebird zelo ...
Napisal/-a Fortuna
06.08.2011 09:40:12
Forum: Baze
Tema: Kašne so prednosti, slabosti PostgreSQL pred Firebird
Odgovori: 7
Ogledi: 9199

Kašne so prednosti, slabosti PostgreSQL pred Firebird

Ima kdo kaj iskušenj z PostgreSQL
Napisal/-a Fortuna
07.07.2011 19:46:12
Forum: Grafika
Tema: kako crop - obrezati sliko image1
Odgovori: 1
Ogledi: 2387

Re: kako crop - obrezati sliko image1

Končno mi je uspelo !! Prilagam moj test! procedure CropBitmap(aBitmap: TBitmap; aRect: TRect); var bmp:TBitmap; r: TRect; begin r:=aRect;// offsetRect(r,-r.left,-r.top); bmp:=Tbitmap.create; bmp.SetSize(r.right,r.bottom); bmp.Canvas.CopyRect(r,aBitmap.Canvas,aRect); aBitmap.Assign(bmp); bmp.free; e...
Napisal/-a Fortuna
07.07.2011 10:53:36
Forum: Grafika
Tema: kako crop - obrezati sliko image1
Odgovori: 1
Ogledi: 2387

kako crop - obrezati sliko image1

Tiskati moram samo del slike.

Pa mi znam tiskati samo celo sliko.

Vprašanje glasi še se slika da programsko obrezati.

oz samo delno tiskati?
Napisal/-a Fortuna
01.07.2011 09:25:36
Forum: Grafika
Tema: Kako v Image1 ozadje narediti belo?
Odgovori: 2
Ogledi: 2199

Re: Kako v Image1 ozadje narediti belo?

Hvala.
To dela zelo hitro.
lp
Napisal/-a Fortuna
30.06.2011 13:23:38
Forum: Grafika
Tema: Kako v Image1 ozadje narediti belo?
Odgovori: 2
Ogledi: 2199

Kako v Image1 ozadje narediti belo?

procedure TForm1.Button1Click(Sender: TObject); var yy,ii:integer; begin Image1.Canvas.Pen.Color:=clwhite; for ii:=1 to Image1.Width do begin for yy:=1 to Image1.Height do begin Image1.Canvas.LineTo(ii,yy); end; end; end; Takole ga znam, vendar je to zelo počasno. edit by admin: hvala, ker uporablj...
Napisal/-a Fortuna
30.06.2011 11:50:11
Forum: Grafika
Tema: Kako z miško pisat?
Odgovori: 2
Ogledi: 2297

Re: Kako z miško pisat?

ah sem našel.


Image1.Canvas.MoveTo(X,Y);
reši moj problem
Napisal/-a Fortuna
30.06.2011 11:44:00
Forum: Grafika
Tema: Kako z miško pisat?
Odgovori: 2
Ogledi: 2297

Kako z miško pisat?

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin Image1.Canvas.Pen.Color:=clyellow; Image1.Canvas.LineTo(X,Y); pisibool:=true; end; procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); BEGIN if pisiboo...