Jump to content


Burhan Cakmak's Content

There have been 24 items by Burhan Cakmak (Search limited from 30-March 23)


By content type

See this member's

Sort by                Order  

#12301 ImageColumn and not serial column

Posted by Burhan Cakmak on 01 July 2009 - 09:15 PM in NextGrid Component

Hi Boki,

I have Column CardType, it is column not serial value,

Example
Code decs CardType
M-102 Ucsan m-102 mali 156
M-122 Ucsan m-122 mali 107
M-131 Ucsan m-131 mali 146
M-125 Ucsan m-125 mali 0




i am carttype value in (0,107,146,156) i am carttype value not serial value

i am imagelist 4 picture

0 mellow.gif
1 blink.gif
2 laugh.gif
3 ohmy.gif

what showing if cartype = 0 showimage 0, else carttpye = 107 showimage 1, else carttype = 146 showw image 2, carttype 156 show image 3

sorry bad english

thanks ?


Burhan




#12243 NxButtonColumn Shortcut ????

Posted by Burhan Cakmak on 25 June 2009 - 09:38 PM in NextGrid Component

Hi,

Boki please add shortcut property NxButtonColumn

thanks

Burhan Cakmak



#11854 NxButtonColumn Shortcut ????

Posted by Burhan Cakmak on 07 May 2009 - 02:36 PM in NextGrid Component

Hi

What date new releas and shortcut ?

Thanks




#11666 NxButtonColumn Shortcut ????

Posted by Burhan Cakmak on 23 March 2009 - 08:41 PM in NextGrid Component

Hi

yes i want as you explain.when i edit button column ,want to able to have shortcut..When you can add DATE it is change ?

Thanks



#11665 Cell font color...

Posted by Burhan Cakmak on 23 March 2009 - 05:48 PM in NextGrid Component

Hi Boki,

What do you change Font.color method new version ??

Burhan Cakmak



#11630 NxButtonColumn Shortcut ????

Posted by Burhan Cakmak on 17 March 2009 - 10:42 AM in NextGrid Component

Hi

I am using NxButtonColumn, it is component no shortcut, what using F10 or F12 shortcut it is Column

Thanks



#11608 Error GridButtunedit Buttonclikc

Posted by Burhan Cakmak on 11 March 2009 - 12:38 PM in NextGrid Component

Hi

Sorry i am very bad english.

I writing invoice program, i am problem ButtoneditButtonClick event, i have value, component showing null, and what do you thin gridbuttuneditcolumn exit event ?

Sorry, if you have invoice line using dbgrid or grid please send code, demo ?

Thanks

Attached Thumbnails

  • Errorcolumn.jpg



#10609 Cell font color...

Posted by Burhan Cakmak on 20 August 2008 - 04:51 PM in NextGrid Component

Hello Bogi,

i using this method row, i am table in 5 column and i using it is method 5

what do you think row method

Grd_Kart.Row[N].Color :=
Grd_Kart.Row[N].Font.Color :=
Grd_Kart.Row[N].Font.Style :=

thanks



#10608 Cell font color...

Posted by Burhan Cakmak on 20 August 2008 - 04:48 PM in NextGrid Component

Hello

Thanks, i am waiting this problem and method,

Burhan Chakmak



#10606 Cell font color...

Posted by Burhan Cakmak on 20 August 2008 - 04:17 PM in NextGrid Component

Hi

I using Tbl_Kart.FieldByName('Isaret').AsBoolean or Tbl_Kart.FieldByName('Aktif').AsBoolean and other field i not showing with nextgrid, sad.gif
it is column change color

thanks,

Burhan Chakak



#10604 Cell font color...

Posted by Burhan Cakmak on 20 August 2008 - 04:01 PM in NextGrid Component

Hello Boki,

CODE


Tbl_Kart.First;
Grd_Kart.AddRow(Tbl_Kart.RecordCount);
Grd_Kart.BeginUpdate;
for ik := Grd_Kart.RowCount - Tbl_Kart.RecordCount to Grd_Kart.RowCount - 1 do
begin

for kz:=0 to Grd_Kart.Columns.Count-1 do
Begin
if Tbl_Kart.FieldByName('Isaret').AsBoolean=True then
Begin
Grd_Kart.Cell[kz, ik].Color:=clYellow; // User Secelted Record in db
Grd_Kart.Cell[kz, ik].FontColor:=clBlack;
Grd_Kart.Cell[kz, ik].FontStyle:=[fsBold];
End;

if (Aktif=True) and (Tbl_Kart.FieldByName('Aktif').asBoolean = False) then
Begin
Grd_Kart.Cell[kz, ik].Color:=clBtnFace; // It is record not active
Grd_Kart.Cell[kz, ik].FontColor:=clBtnFace;
Grd_Kart.Cell[kz, ik].FontStyle:=[fsBold];
End;

if (KartTipi<>'') and (Tbl_Kart.FieldByName('KartTipi').asString = KartTipi) then
Begin
Grd_Kart.Cell[kz, ik].Color:=clBtnFace; // It is record spetsial record
Grd_Kart.Cell[kz, ik].FontColor:=ClRed;
Grd_Kart.Cell[kz, ik].FontStyle:=[fsBold];
End;

Case Grd_Kart.Columns[kz].ColumnType of
ctString : Grd_Kart.Cell[kz, ik].AsString := Tbl_Kart.FieldByName(Grd_Kart.Columns[kz].Name).AsString;
ctBoolean : Grd_Kart.Cell[kz, ik].AsBoolean := Tbl_Kart.FieldByName(Grd_Kart.Columns[kz].Name).AsBoolean;
ctFloat : Grd_Kart.Cell[kz, ik].AsFloat := Tbl_Kart.FieldByName(Grd_Kart.Columns[kz].Name).AsFloat;
ctInteger : Grd_Kart.Cell[kz, ik].AsInteger := Tbl_Kart.FieldByName(Grd_Kart.Columns[kz].Name).AsInteger;
ctDate : Grd_Kart.Cell[kz, ik].AsDateTime := Tbl_Kart.FieldByName(Grd_Kart.Columns[kz].Name).AsDateTime;
end;
End;

Tbl_Kart.Next;
end;
Grd_Kart.EndUpdate;



I am using this code, what do you thin other code this problem and font color method ?

thanks



#10600 Cell font color...

Posted by Burhan Cakmak on 20 August 2008 - 11:15 AM in NextGrid Component

Hi Bogi

i chahged your component, because,
your component cell formating have 2 method for color and fontstyle

TNextGrid(FindComponent(_Grid)).Cell[kz, ik].Color
TNextGrid(FindComponent(_Grid)).Cell[kz, ik].fontstyle


and font.color not found method

i change

NxGrid.Pas

....
procedure TNextGrid.ApplyCellFormating(ACol, ARow: Integer;
Value: WideString; CellState: TCellState);
var
TextColor: TColor;
AFontStyle: TFontStyles;
begin
with Canvas do
begin
AFontStyle := Cell[ACol, ARow].FontStyle;
TextColor := Cell[ACol, ARow].FontColor; //Font.Color; //Burhan
if csBoldTextSelection in CellState then AFontStyle := AFontStyle + [fsBold];
DoCellFormating(ACol, ARow, TextColor, AFontStyle, CellState);
Font.Color := TextColor;
Font.Style := AFontStyle;
end;
end;
...



and i change nxCell.pas unit adding font.color method, please it is change add your component,


thanks.


Burhan Cakmak

Attached Files




#10530 Last Row Error

Posted by Burhan Cakmak on 07 August 2008 - 09:43 AM in NextGrid Component

Hi

I using LAst row and think it is +1 bug ?

Burhan

Attached Thumbnails

  • Error_LastRow.jpg



#10456 FindText

Posted by Burhan Cakmak on 25 July 2008 - 04:28 PM in NextGrid Component

Hi

Sorry my bad english,

I using code

NextGrid.FindText(0, Edi_Text.text, SearchOptions);

it is code find edi_text.text in 0 column ok,

i am grid 5 column and 100 row,


i think what find text all row and all column,

?



#10446 merge cells in nextgrid

Posted by Burhan Cakmak on 24 July 2008 - 12:02 PM in NextGrid Component

Hi

how merge cells in nextgrid same as excel and can align? is possible?

Thanks

Burhan



#10445 FindText

Posted by Burhan Cakmak on 24 July 2008 - 11:02 AM in NextGrid Component

Hi Bogi


I using FindText, Findtext runnig with column


i am nexgrid

1- Burhan1 Burhan2 Orhan2
2- Orhan2 Burhan3 Leyla
3- Mehmet3 Leyla Zaman
4- Osman4 Zaman Orhan

what do you thin findtext with column and row, examle

i find Orhan2 smile.gif nextgrid.findtext(Columntorow, 'Orhan2', []);

it is code find smile.gif row 1 column 3



or i find Orhan2 smile.gif nextgrid.findtext(rowtocolumn, 'Orhan2', []);
it is code find column1 row 2

or i find Orhan2 nextgrid.findtext(Column2, 'Orhan2', []);
it is code not finding


please add your component find style both







2 - What do you think next grid property IniFileName ?
i am form using 10 grid if you have grid inifilename

tnextgrid(sender).savetoini(tnextgrid(sender).IniFileName);

???


thanks,



#10432 Selected row and error aoindicateselectedcell

Posted by Burhan Cakmak on 22 July 2008 - 10:43 AM in NextGrid Component

Hi Boki,

It is bug in my application, sorry,

Burhan



#10426 Selected row and error aoindicateselectedcell

Posted by Burhan Cakmak on 21 July 2008 - 07:55 PM in NextGrid Component

Hi

I using aoindicateselectedcell

first picture all ok no problem

and i using code

TNextGrid(FindComponent(_Grid)).SelectedRow:=2;


i am indicated bug, and row selected

thanks

Attached Thumbnails

  • indicate.JPG
  • indicate2.JPG
  • indicate2.JPG



#10409 ColumnByName error

Posted by Burhan Cakmak on 20 July 2008 - 04:25 PM in NextGrid Component

Hi Boki

I using code runtime

CODE

....
procedure TForm1.Button1Click(Sender: TObject);
var
NextGrid1: TNextGrid;
begin
// Grid Created
NextGrid1 := TNextGrid.Create(Self);
with NextGrid1 do
begin
Name := 'NextGrid1';
Parent := Self;
Left := 488;
Top := 284;
Width := 250;
Height := 150;
TabOrder := 0;
TabStop := True;
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
// Column Created
TNextGrid(FindComponent('NextGrid1')).Columns.Add(TNxTextColumn, 'Osman');
TNextGrid(FindComponent('NextGrid1')).ColumnByName['Osman'].Header.Caption:='Deneme';
TNextGrid(FindComponent('NextGrid1')).ColumnByName['Osman'].Width:=150;
// Column by name error....
end;
....


What problem with ColumnByName method,

Thanks



#10385 Next Grid Fast or NextDbGrid

Posted by Burhan Cakmak on 18 July 2008 - 11:14 AM in NextGrid Component

Hi bogi,

I using Next Grid, i think, Next grid fast or Next Db Grid i am 10 000 stock record ?

Thanks



#10376 First, Prior, Last, Next ad visibli row count

Posted by Burhan Cakmak on 17 July 2008 - 07:32 PM in NextGrid Component

Hi
Case ......
10202 : TNextGrid(FindComponent('Grd_Kart')).ScrollToRow(0); //Tbl_TarayiciKart.First;
10203 : TNextGrid(FindComponent('Grd_Kart')).MoveSelectionUp; //Tbl_TarayiciKart.Prior;
10204 : TNextGrid(FindComponent('Grd_Kart')).MoveSelectionDown; //Tbl_TarayiciKart.Next;
10205 : TNextGrid(FindComponent('Grd_Kart')).ScrollToRow(TNextGrid(FindComponent('Grd_Kart')).RowCount); //Tbl_TarayiciKart.Last;

....


It is method runnig very nice

10203 : TNextGrid(FindComponent('Grd_Kart')).MoveSelectionUp; //Tbl_TarayiciKart.Prior;
10204 : TNextGrid(FindComponent('Grd_Kart')).MoveSelectionDown; //Tbl_TarayiciKart.Next;



It is code note running

10202 : TNextGrid(FindComponent('Grd_Kart')).ScrollToRow(0); //Tbl_TarayiciKart.First;
10205 : TNextGrid(FindComponent('Grd_Kart')).ScrollToRow(TNextGrid(FindComponent('Grd_Kart')).RowCount); //Tbl_TarayiciKart.Last;


thanks



#10353 First, Prior, Last, Next ad visibli row count

Posted by Burhan Cakmak on 16 July 2008 - 08:05 PM in NextGrid Component

Hi Boki,

I using NextGrid and i am grid 158 rows

What using code

NextGrid.First; // Goto First row grid
NextGrid.Last; // Goto Last row grid

NextGrid.Prior; // Goto prior row grid
NextGrid.Next; // Goto next row grid

What code nextGrid ???/

and

ShowMessage(IntToStr(NextGrid1.RowCount)); // this code showwing 158 ok very nice

I am using screen 1024*768 i think what row visibli with nextgrid on screen



Sorry i am bad english



#10263 ColumnByName error

Posted by Burhan Cakmak on 07 July 2008 - 01:34 AM in NextGrid Component

Hi

I am using code

CODE

PRocedure Prop(Grd, Col, Prp, Val : String);
Begin
if Prp='Caption' then TNextGrid(FindComponent(Grd)).ColumnByName[Col].Header.Caption := Val else
if Prp='Width' then TNextGrid(FindComponent(Grd)).ColumnByName[Col].Width:=StrToInt(Val);
end;



It is code error ColumnByName




I using code
CODE

PRocedure Prop(Grd, Col, Prp, Val : String);
Begin
if Prp='Caption' then TNextGrid(FindComponent(Grd)).Columns[0].Header.Caption := Val else
if Prp='Width' then TNextGrid(FindComponent(Grd)).Columns[0].Width:=StrToInt(Val);
end;

It is code running



what promlem with ColumnByName ?


Thanks



#10262 Black line arround used cells - How to remove it ?

Posted by Burhan Cakmak on 07 July 2008 - 01:17 AM in NextGrid Component

Hi Boki

NextGrid have property show black line or hide blackline ?

thanks